From 9f12702166d39cf865c6910f4b87ae6636ed0d3e Mon Sep 17 00:00:00 2001
From: shajoezhu <shajoezhu@users.noreply.github.com>
Date: Fri, 18 Oct 2024 01:51:16 +0000
Subject: [PATCH] deploy: 1745c6057331d50a04a0fdfa5c18e9338beb6de1

---
 main/coverage-report/index.html | 145731 +++++++++++++++--------------
 1 file changed, 72897 insertions(+), 72834 deletions(-)

diff --git a/main/coverage-report/index.html b/main/coverage-report/index.html
index daa71a7e9b..6404368fac 100644
--- a/main/coverage-report/index.html
+++ b/main/coverage-report/index.html
@@ -107,19 +107,19 @@ <h2>tern coverage - 95.64%</h2>
       </ul>
       <div class="tab-content" data-tabsetid="covr">
         <div class="tab-pane active" title="Files" data-value="Files" id="tab-covr-1">
-          <div class="datatables html-widget html-fill-item" id="htmlwidget-36702821611cfa3b3ef6" style="width:100%;height:500px;"></div>
-          <script type="application/json" data-for="htmlwidget-36702821611cfa3b3ef6">{"x":{"filter":"none","vertical":false,"fillContainer":false,"data":[["<a href=\"#\">R/g_km.R<\/a>","<a href=\"#\">R/missing_data.R<\/a>","<a href=\"#\">R/survival_coxph_pairwise.R<\/a>","<a href=\"#\">R/h_response_biomarkers_subgroups.R<\/a>","<a href=\"#\">R/desctools_binom_diff.R<\/a>","<a href=\"#\">R/g_forest.R<\/a>","<a href=\"#\">R/h_response_subgroups.R<\/a>","<a href=\"#\">R/analyze_vars_in_cols.R<\/a>","<a href=\"#\">R/h_survival_duration_subgroups.R<\/a>","<a href=\"#\">R/g_lineplot.R<\/a>","<a href=\"#\">R/h_km.R<\/a>","<a href=\"#\">R/response_biomarkers_subgroups.R<\/a>","<a href=\"#\">R/abnormal_by_marked.R<\/a>","<a href=\"#\">R/incidence_rate.R<\/a>","<a href=\"#\">R/survival_biomarkers_subgroups.R<\/a>","<a href=\"#\">R/riskdiff.R<\/a>","<a href=\"#\">R/h_survival_biomarkers_subgroups.R<\/a>","<a href=\"#\">R/score_occurrences.R<\/a>","<a href=\"#\">R/estimate_proportion.R<\/a>","<a href=\"#\">R/utils.R<\/a>","<a href=\"#\">R/utils_split_funs.R<\/a>","<a href=\"#\">R/coxph.R<\/a>","<a href=\"#\">R/prop_diff.R<\/a>","<a href=\"#\">R/utils_grid.R<\/a>","<a href=\"#\">R/survival_timepoint.R<\/a>","<a href=\"#\">R/summarize_num_patients.R<\/a>","<a href=\"#\">R/control_step.R<\/a>","<a href=\"#\">R/utils_rtables.R<\/a>","<a href=\"#\">R/response_subgroups.R<\/a>","<a href=\"#\">R/compare_variables.R<\/a>","<a href=\"#\">R/survival_duration_subgroups.R<\/a>","<a href=\"#\">R/estimate_multinomial_rsp.R<\/a>","<a href=\"#\">R/summarize_ancova.R<\/a>","<a href=\"#\">R/count_cumulative.R<\/a>","<a href=\"#\">R/utils_factor.R<\/a>","<a href=\"#\">R/count_patients_events_in_cols.R<\/a>","<a href=\"#\">R/abnormal_by_worst_grade_worsen.R<\/a>","<a href=\"#\">R/summarize_glm_count.R<\/a>","<a href=\"#\">R/h_stack_by_baskets.R<\/a>","<a href=\"#\">R/g_step.R<\/a>","<a href=\"#\">R/analyze_variables.R<\/a>","<a href=\"#\">R/formatting_functions.R<\/a>","<a href=\"#\">R/bland_altman.R<\/a>","<a href=\"#\">R/summarize_patients_exposure_in_cols.R<\/a>","<a href=\"#\">R/count_occurrences.R<\/a>","<a href=\"#\">R/count_occurrences_by_grade.R<\/a>","<a href=\"#\">R/h_logistic_regression.R<\/a>","<a href=\"#\">R/d_pkparam.R<\/a>","<a href=\"#\">R/h_step.R<\/a>","<a href=\"#\">R/summarize_coxreg.R<\/a>","<a href=\"#\">R/cox_regression_inter.R<\/a>","<a href=\"#\">R/cox_regression.R<\/a>","<a href=\"#\">R/g_ipp.R<\/a>","<a href=\"#\">R/utils_default_stats_formats_labels.R<\/a>","<a href=\"#\">R/odds_ratio.R<\/a>","<a href=\"#\">R/h_cox_regression.R<\/a>","<a href=\"#\">R/utils_ggplot.R<\/a>","<a href=\"#\">R/decorate_grob.R<\/a>","<a href=\"#\">R/logistic_regression.R<\/a>","<a href=\"#\">R/prop_diff_test.R<\/a>","<a href=\"#\">R/survival_time.R<\/a>","<a href=\"#\">R/h_adsl_adlb_merge_using_worst_flag.R<\/a>","<a href=\"#\">R/abnormal_by_baseline.R<\/a>","<a href=\"#\">R/utils_checkmate.R<\/a>","<a href=\"#\">R/stat.R<\/a>","<a href=\"#\">R/abnormal_by_worst_grade.R<\/a>","<a href=\"#\">R/count_patients_with_flags.R<\/a>","<a href=\"#\">R/h_map_for_count_abnormal.R<\/a>","<a href=\"#\">R/prune_occurrences.R<\/a>","<a href=\"#\">R/h_incidence_rate.R<\/a>","<a href=\"#\">R/g_waterfall.R<\/a>","<a href=\"#\">R/split_cols_by_groups.R<\/a>","<a href=\"#\">R/h_biomarkers_subgroups.R<\/a>","<a href=\"#\">R/count_patients_with_event.R<\/a>","<a href=\"#\">R/abnormal.R<\/a>","<a href=\"#\">R/rtables_access.R<\/a>","<a href=\"#\">R/count_missed_doses.R<\/a>","<a href=\"#\">R/fit_survival_step.R<\/a>","<a href=\"#\">R/fit_rsp_step.R<\/a>","<a href=\"#\">R/df_explicit_na.R<\/a>","<a href=\"#\">R/summarize_change.R<\/a>","<a href=\"#\">R/count_values.R<\/a>","<a href=\"#\">R/imputation_rule.R<\/a>","<a href=\"#\">R/control_survival.R<\/a>","<a href=\"#\">R/h_pkparam_sort.R<\/a>","<a href=\"#\">R/summarize_colvars.R<\/a>","<a href=\"#\">R/control_incidence_rate.R<\/a>","<a href=\"#\">R/combination_function.R<\/a>","<a href=\"#\">R/control_logistic.R<\/a>"],[607,78,213,219,696,1049,395,385,484,583,1122,245,247,257,250,197,227,129,599,443,155,396,663,287,320,297,77,469,461,329,467,181,293,195,323,173,418,496,159,204,647,577,145,313,324,405,757,418,314,456,358,489,278,545,341,287,218,518,355,254,216,145,237,162,231,244,214,153,240,135,133,267,85,202,190,172,150,117,137,128,148,161,60,73,42,83,38,87,37],[307,21,67,78,501,474,157,137,185,222,422,60,49,76,67,61,77,16,184,128,38,136,236,100,100,80,20,88,184,71,182,45,94,47,98,52,109,173,58,60,151,153,85,88,94,102,431,404,153,149,135,133,119,112,104,97,97,95,88,84,71,66,60,60,58,53,51,51,46,43,43,42,40,40,38,35,31,30,30,28,27,25,17,14,13,9,9,6,6],[258,18,58,68,439,420,141,125,169,203,386,55,45,70,62,57,72,15,173,121,36,129,224,95,95,76,19,84,177,69,177,44,92,46,96,51,107,170,57,59,149,151,84,87,93,101,428,404,153,149,135,133,119,112,104,97,97,95,88,84,71,66,60,60,58,53,51,51,46,43,43,42,40,40,38,35,31,30,30,28,27,25,17,14,13,9,9,6,6],[49,3,9,10,62,54,16,12,16,19,36,5,4,6,5,4,5,1,11,7,2,7,12,5,5,4,1,4,7,2,5,1,2,1,2,1,2,3,1,1,2,2,1,1,1,1,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],["6","128","51","25","77","4","40","94","58","15","5","6","2","12","7","38","36","8","60","283","25","5","5","4","9","38","19","103","22","7","19","2","8","9","156","7","8","7","3","3","525","281","2","21","67","11","20","4","60","84","17","65","7","208","34","64","22","21","21","39","94","3","5","1949","853","2","11","5","199","8","2","5","14","16","4","596","1","3","4","107","2","44","78","104","4","2","11","134","28"],["84.04%","85.71%","86.57%","87.18%","87.62%","88.61%","89.81%","91.24%","91.35%","91.44%","91.47%","91.67%","91.84%","92.11%","92.54%","93.44%","93.51%","93.75%","94.02%","94.53%","94.74%","94.85%","94.92%","95.00%","95.00%","95.00%","95.00%","95.45%","96.20%","97.18%","97.25%","97.78%","97.87%","97.87%","97.96%","98.08%","98.17%","98.27%","98.28%","98.33%","98.68%","98.69%","98.82%","98.86%","98.94%","99.02%","99.30%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%"]],"container":"<table class=\"row-border\">\n  <thead>\n    <tr>\n      <th>File<\/th>\n      <th>Lines<\/th>\n      <th>Relevant<\/th>\n      <th>Covered<\/th>\n      <th>Missed<\/th>\n      <th>Hits / Line<\/th>\n      <th>Coverage<\/th>\n    <\/tr>\n  <\/thead>\n<\/table>","options":{"searching":false,"dom":"t","paging":false,"columnDefs":[{"targets":6,"createdCell":"function(td, cellData, rowData, row, col) {\n  var percent = cellData.replace(\"%\", \"\");\n  if (percent > 90) {\n    var grad = \"linear-gradient(90deg, #edfde7 \" + cellData + \", white \" + cellData + \")\";\n  } else if (percent > 75) {\n    var grad = \"linear-gradient(90deg, #f9ffe5 \" + cellData + \", white \" + cellData + \")\";\n  } else {\n    var grad = \"linear-gradient(90deg, #fcece9 \" + cellData + \", white \" + cellData + \")\";\n  }\n  $(td).css(\"background\", grad);\n}\n"},{"className":"dt-right","targets":[1,2,3,4]},{"name":"File","targets":0},{"name":"Lines","targets":1},{"name":"Relevant","targets":2},{"name":"Covered","targets":3},{"name":"Missed","targets":4},{"name":"Hits / Line","targets":5},{"name":"Coverage","targets":6}],"order":[],"autoWidth":false,"orderClasses":false},"callback":"function(table) {\ntable.on('click.dt', 'a', function() {\n  files = $('div#files div');\n  files.not('div.hidden').addClass('hidden');\n  id = $(this).text();\n  files.filter('div[id=\\'' + id + '\\']').removeClass('hidden');\n  $('ul.nav a[data-value=Source]').text(id).tab('show');\n});\n}"},"evals":["options.columnDefs.0.createdCell","callback"],"jsHooks":[]}</script>
+          <div class="datatables html-widget html-fill-item" id="htmlwidget-0ce8fe9e6c0db67270b0" style="width:100%;height:500px;"></div>
+          <script type="application/json" data-for="htmlwidget-0ce8fe9e6c0db67270b0">{"x":{"filter":"none","vertical":false,"fillContainer":false,"data":[["<a href=\"#\">R/g_km.R<\/a>","<a href=\"#\">R/missing_data.R<\/a>","<a href=\"#\">R/survival_coxph_pairwise.R<\/a>","<a href=\"#\">R/h_response_biomarkers_subgroups.R<\/a>","<a href=\"#\">R/desctools_binom_diff.R<\/a>","<a href=\"#\">R/g_forest.R<\/a>","<a href=\"#\">R/h_response_subgroups.R<\/a>","<a href=\"#\">R/analyze_vars_in_cols.R<\/a>","<a href=\"#\">R/h_survival_duration_subgroups.R<\/a>","<a href=\"#\">R/g_lineplot.R<\/a>","<a href=\"#\">R/h_km.R<\/a>","<a href=\"#\">R/response_biomarkers_subgroups.R<\/a>","<a href=\"#\">R/abnormal_by_marked.R<\/a>","<a href=\"#\">R/incidence_rate.R<\/a>","<a href=\"#\">R/survival_biomarkers_subgroups.R<\/a>","<a href=\"#\">R/riskdiff.R<\/a>","<a href=\"#\">R/h_survival_biomarkers_subgroups.R<\/a>","<a href=\"#\">R/score_occurrences.R<\/a>","<a href=\"#\">R/estimate_proportion.R<\/a>","<a href=\"#\">R/utils.R<\/a>","<a href=\"#\">R/utils_split_funs.R<\/a>","<a href=\"#\">R/coxph.R<\/a>","<a href=\"#\">R/prop_diff.R<\/a>","<a href=\"#\">R/utils_grid.R<\/a>","<a href=\"#\">R/survival_timepoint.R<\/a>","<a href=\"#\">R/summarize_num_patients.R<\/a>","<a href=\"#\">R/control_step.R<\/a>","<a href=\"#\">R/utils_rtables.R<\/a>","<a href=\"#\">R/response_subgroups.R<\/a>","<a href=\"#\">R/compare_variables.R<\/a>","<a href=\"#\">R/survival_duration_subgroups.R<\/a>","<a href=\"#\">R/estimate_multinomial_rsp.R<\/a>","<a href=\"#\">R/summarize_ancova.R<\/a>","<a href=\"#\">R/count_cumulative.R<\/a>","<a href=\"#\">R/utils_factor.R<\/a>","<a href=\"#\">R/count_patients_events_in_cols.R<\/a>","<a href=\"#\">R/abnormal_by_worst_grade_worsen.R<\/a>","<a href=\"#\">R/summarize_glm_count.R<\/a>","<a href=\"#\">R/h_stack_by_baskets.R<\/a>","<a href=\"#\">R/g_step.R<\/a>","<a href=\"#\">R/analyze_variables.R<\/a>","<a href=\"#\">R/formatting_functions.R<\/a>","<a href=\"#\">R/bland_altman.R<\/a>","<a href=\"#\">R/summarize_patients_exposure_in_cols.R<\/a>","<a href=\"#\">R/count_occurrences.R<\/a>","<a href=\"#\">R/count_occurrences_by_grade.R<\/a>","<a href=\"#\">R/h_logistic_regression.R<\/a>","<a href=\"#\">R/d_pkparam.R<\/a>","<a href=\"#\">R/h_step.R<\/a>","<a href=\"#\">R/summarize_coxreg.R<\/a>","<a href=\"#\">R/cox_regression_inter.R<\/a>","<a href=\"#\">R/cox_regression.R<\/a>","<a href=\"#\">R/g_ipp.R<\/a>","<a href=\"#\">R/utils_default_stats_formats_labels.R<\/a>","<a href=\"#\">R/odds_ratio.R<\/a>","<a href=\"#\">R/h_cox_regression.R<\/a>","<a href=\"#\">R/utils_ggplot.R<\/a>","<a href=\"#\">R/decorate_grob.R<\/a>","<a href=\"#\">R/logistic_regression.R<\/a>","<a href=\"#\">R/prop_diff_test.R<\/a>","<a href=\"#\">R/survival_time.R<\/a>","<a href=\"#\">R/h_adsl_adlb_merge_using_worst_flag.R<\/a>","<a href=\"#\">R/utils_checkmate.R<\/a>","<a href=\"#\">R/abnormal_by_baseline.R<\/a>","<a href=\"#\">R/stat.R<\/a>","<a href=\"#\">R/abnormal_by_worst_grade.R<\/a>","<a href=\"#\">R/h_map_for_count_abnormal.R<\/a>","<a href=\"#\">R/count_patients_with_flags.R<\/a>","<a href=\"#\">R/prune_occurrences.R<\/a>","<a href=\"#\">R/h_incidence_rate.R<\/a>","<a href=\"#\">R/g_waterfall.R<\/a>","<a href=\"#\">R/split_cols_by_groups.R<\/a>","<a href=\"#\">R/count_patients_with_event.R<\/a>","<a href=\"#\">R/h_biomarkers_subgroups.R<\/a>","<a href=\"#\">R/abnormal.R<\/a>","<a href=\"#\">R/rtables_access.R<\/a>","<a href=\"#\">R/count_missed_doses.R<\/a>","<a href=\"#\">R/fit_rsp_step.R<\/a>","<a href=\"#\">R/fit_survival_step.R<\/a>","<a href=\"#\">R/df_explicit_na.R<\/a>","<a href=\"#\">R/summarize_change.R<\/a>","<a href=\"#\">R/count_values.R<\/a>","<a href=\"#\">R/imputation_rule.R<\/a>","<a href=\"#\">R/control_survival.R<\/a>","<a href=\"#\">R/h_pkparam_sort.R<\/a>","<a href=\"#\">R/summarize_colvars.R<\/a>","<a href=\"#\">R/control_incidence_rate.R<\/a>","<a href=\"#\">R/control_logistic.R<\/a>","<a href=\"#\">R/combination_function.R<\/a>"],[607,78,213,219,696,1049,395,385,484,583,1122,245,247,257,250,197,227,129,599,443,155,396,663,287,320,297,77,469,461,329,467,181,293,195,323,173,418,496,159,204,647,575,156,313,324,405,757,418,314,456,358,489,278,545,341,287,218,518,355,254,216,145,162,237,231,244,153,214,240,135,133,267,202,85,190,172,150,137,117,128,148,161,60,73,42,83,38,37,87],[307,21,67,78,501,474,157,137,185,222,423,60,49,76,67,61,77,16,184,128,38,136,236,100,100,80,20,88,184,71,182,45,94,47,98,52,109,173,58,60,151,153,85,88,94,102,431,404,153,149,135,133,119,112,104,97,97,95,88,84,71,66,60,60,58,53,51,51,46,43,43,42,40,40,38,35,31,30,30,28,27,25,17,14,13,9,9,6,6],[258,18,58,68,439,420,141,125,169,203,387,55,45,70,62,57,72,15,173,121,36,129,224,95,95,76,19,84,177,69,177,44,92,46,96,51,107,170,57,59,149,151,84,87,93,101,428,404,153,149,135,133,119,112,104,97,97,95,88,84,71,66,60,60,58,53,51,51,46,43,43,42,40,40,38,35,31,30,30,28,27,25,17,14,13,9,9,6,6],[49,3,9,10,62,54,16,12,16,19,36,5,4,6,5,4,5,1,11,7,2,7,12,5,5,4,1,4,7,2,5,1,2,1,2,1,2,3,1,1,2,2,1,1,1,1,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],["6","128","51","25","77","4","40","94","58","15","5","6","2","12","7","38","36","8","60","283","25","5","5","4","9","38","19","103","22","7","19","2","8","9","156","7","8","7","3","3","525","281","2","21","67","11","20","4","60","84","17","65","7","208","34","64","22","21","21","39","94","3","1949","5","853","2","5","11","199","8","2","5","16","14","4","596","1","4","3","107","2","44","78","104","4","2","11","28","134"],["84.04%","85.71%","86.57%","87.18%","87.62%","88.61%","89.81%","91.24%","91.35%","91.44%","91.49%","91.67%","91.84%","92.11%","92.54%","93.44%","93.51%","93.75%","94.02%","94.53%","94.74%","94.85%","94.92%","95.00%","95.00%","95.00%","95.00%","95.45%","96.20%","97.18%","97.25%","97.78%","97.87%","97.87%","97.96%","98.08%","98.17%","98.27%","98.28%","98.33%","98.68%","98.69%","98.82%","98.86%","98.94%","99.02%","99.30%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%","100.00%"]],"container":"<table class=\"row-border\">\n  <thead>\n    <tr>\n      <th>File<\/th>\n      <th>Lines<\/th>\n      <th>Relevant<\/th>\n      <th>Covered<\/th>\n      <th>Missed<\/th>\n      <th>Hits / Line<\/th>\n      <th>Coverage<\/th>\n    <\/tr>\n  <\/thead>\n<\/table>","options":{"searching":false,"dom":"t","paging":false,"columnDefs":[{"targets":6,"createdCell":"function(td, cellData, rowData, row, col) {\n  var percent = cellData.replace(\"%\", \"\");\n  if (percent > 90) {\n    var grad = \"linear-gradient(90deg, #edfde7 \" + cellData + \", white \" + cellData + \")\";\n  } else if (percent > 75) {\n    var grad = \"linear-gradient(90deg, #f9ffe5 \" + cellData + \", white \" + cellData + \")\";\n  } else {\n    var grad = \"linear-gradient(90deg, #fcece9 \" + cellData + \", white \" + cellData + \")\";\n  }\n  $(td).css(\"background\", grad);\n}\n"},{"className":"dt-right","targets":[1,2,3,4]},{"name":"File","targets":0},{"name":"Lines","targets":1},{"name":"Relevant","targets":2},{"name":"Covered","targets":3},{"name":"Missed","targets":4},{"name":"Hits / Line","targets":5},{"name":"Coverage","targets":6}],"order":[],"autoWidth":false,"orderClasses":false},"callback":"function(table) {\ntable.on('click.dt', 'a', function() {\n  files = $('div#files div');\n  files.not('div.hidden').addClass('hidden');\n  id = $(this).text();\n  files.filter('div[id=\\'' + id + '\\']').removeClass('hidden');\n  $('ul.nav a[data-value=Source]').text(id).tab('show');\n});\n}"},"evals":["options.columnDefs.0.createdCell","callback"],"jsHooks":[]}</script>
         </div>
         <div class="tab-pane" title="Source" data-value="Source" id="tab-covr-2">
           <div id="files">
-            <div id="R/abnormal_by_worst_grade_worsen.R" class="hidden">
+            <div id="R/formatting_functions.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Count patients with toxicity grades that have worsened from baseline by highest grade post-baseline</pre>
+                      <pre class="language-r">#' Formatting functions</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -133,7 +133,7 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' See below for the list of formatting functions created in `tern` to work with `rtables`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -147,14 +147,14 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The analyze function [count_abnormal_lab_worsen_by_baseline()] creates a layout element to count patients with</pre>
+                      <pre class="language-r">#' Other available formats can be listed via [`formatters::list_valid_format_labels()`]. Additional</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' analysis toxicity grades which have worsened from baseline, categorized by highest (worst) grade post-baseline.</pre>
+                      <pre class="language-r">#' custom formats can be created via the [`formatters::sprintf_format()`] function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -168,35 +168,35 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function analyzes primary analysis variable `var` which indicates analysis toxicity grades. Additional</pre>
+                      <pre class="language-r">#' @family formatting functions</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' analysis variables that can be supplied as a list via the `variables` parameter are `id` (defaults to `USUBJID`),</pre>
+                      <pre class="language-r">#' @name formatting_functions</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' a variable to indicate unique subject identifiers, `baseline_var` (defaults to `BTOXGR`), a variable to indicate</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' baseline toxicity grades, and `direction_var` (defaults to `GRADDIR`), a variable to indicate toxicity grade</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' directions of interest to include (e.g. `"H"` (high), `"L"` (low), or `"B"` (both)).</pre>
+                      <pre class="language-r">#' Format fraction and percentage</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -210,56 +210,56 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' For the direction(s) specified in `direction_var`, patient counts by worst grade for patients who have</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' worsened from baseline are calculated as follows:</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `1` to `4`: The number of patients who have worsened from their baseline grades with worst</pre>
+                      <pre class="language-r">#' Formats a fraction together with ratio in percent.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     grades 1-4, respectively.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `Any`: The total number of patients who have worsened from their baseline grades.</pre>
+                      <pre class="language-r">#' @param x (named `integer`)\cr vector with elements `num` and `denom`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param ... not used. Required for `rtables` interface.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Fractions are calculated by dividing the above counts by the number of patients who's analysis toxicity grades</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' have worsened from baseline toxicity grades during treatment.</pre>
+                      <pre class="language-r">#' @return A string in the format `num / denom (ratio %)`. If `num` is 0, the format is `num / denom`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -273,455 +273,455 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Prior to using this function in your table layout you must use [rtables::split_rows_by()] to create a row</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' split on variable `direction_var`.</pre>
+                      <pre class="language-r">#' format_fraction(x = c(num = 2L, denom = 3L))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' format_fraction(x = c(num = 0L, denom = 3L))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param variables (named `list` of `string`)\cr list of additional analysis variables including:</pre>
+                      <pre class="language-r">#' @family formatting functions</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `id` (`string`)\cr subject variable name.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `baseline_var` (`string`)\cr name of the data column containing baseline toxicity variable.</pre>
+                      <pre class="language-r">format_fraction &lt;- function(x, ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">30</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `direction_var` (`string`)\cr see `direction_var` for more details.</pre>
+                      <pre class="language-r">  attr(x, "label") &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("abnormal_by_worst_grade_worsen")`</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">32</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to see all available statistics.</pre>
+                      <pre class="language-r">  checkmate::assert_vector(x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">33</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_count(x["num"])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">34</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso Relevant helper functions [h_adlb_worsen()] and [h_worsen_counter()] which are used within</pre>
+                      <pre class="language-r">  checkmate::assert_count(x["denom"])</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' [s_count_abnormal_lab_worsen_by_baseline()] to process input data.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">36</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  result &lt;- if (x["num"] == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">37</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name abnormal_by_worst_grade_worsen</pre>
+                      <pre class="language-r">    paste0(x["num"], "/", x["denom"])</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 1</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">39</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">    paste0(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">40</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      x["num"], "/", x["denom"],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">41</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function to prepare ADLB with worst labs</pre>
+                      <pre class="language-r">      " (", round(x["num"] / x["denom"] * 100, 1), "%)"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">45</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function to prepare a `df` for generate the patient count shift table.</pre>
+                      <pre class="language-r">  return(result)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param adlb (`data.frame`)\cr ADLB data frame.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param worst_flag_low (named `vector`)\cr worst low post-baseline lab grade flag variable. See how this is</pre>
+                      <pre class="language-r">#' Format fraction and percentage with fixed single decimal place</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   implemented in the following examples.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param worst_flag_high (named `vector`)\cr worst high post-baseline lab grade flag variable. See how this is</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   implemented in the following examples.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param direction_var (`string`)\cr name of the direction variable specifying the direction of the shift table of</pre>
+                      <pre class="language-r">#' Formats a fraction together with ratio in percent with fixed single decimal place.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   interest. Only lab records flagged by `L`, `H` or `B` are included in the shift table.</pre>
+                      <pre class="language-r">#' Includes trailing zero in case of whole number percentages to always keep one decimal place.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `L`: low direction only</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `H`: high direction only</pre>
+                      <pre class="language-r">#' @inheritParams format_fraction</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `B`: both low and high directions</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return A string in the format `num / denom (ratio %)`. If `num` is 0, the format is `num / denom`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `h_adlb_worsen()` returns the `adlb` `data.frame` containing only the</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   worst labs specified according to `worst_flag_low` or `worst_flag_high` for the</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   direction specified according to `direction_var`. For instance, for a lab that is</pre>
+                      <pre class="language-r">#' format_fraction_fixed_dp(x = c(num = 1L, denom = 2L))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   needed for the low direction only, only records flagged by `worst_flag_low` are</pre>
+                      <pre class="language-r">#' format_fraction_fixed_dp(x = c(num = 1L, denom = 4L))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   selected. For a lab that is needed for both low and high directions, the worst</pre>
+                      <pre class="language-r">#' format_fraction_fixed_dp(x = c(num = 0L, denom = 3L))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   low records are selected for the low direction, and the worst high record are selected</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   for the high direction.</pre>
+                      <pre class="language-r">#' @family formatting functions</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [abnormal_by_worst_grade_worsen]</pre>
+                      <pre class="language-r">format_fraction_fixed_dp &lt;- function(x, ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">67</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  attr(x, "label") &lt;- NULL</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">68</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  checkmate::assert_vector(x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">69</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">  checkmate::assert_count(x["num"])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">70</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_count(x["denom"])</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # The direction variable, GRADDR, is based on metadata</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">72</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adlb &lt;- tern_ex_adlb %&gt;%</pre>
+                      <pre class="language-r">  result &lt;- if (x["num"] == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">73</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mutate(</pre>
+                      <pre class="language-r">    paste0(x["num"], "/", x["denom"])</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     GRADDR = case_when(</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">75</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       PARAMCD == "ALT" ~ "B",</pre>
+                      <pre class="language-r">    paste0(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">76</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       PARAMCD == "CRP" ~ "L",</pre>
+                      <pre class="language-r">      x["num"], "/", x["denom"],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">77</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       PARAMCD == "IGA" ~ "H"</pre>
+                      <pre class="language-r">      " (", sprintf("%.1f", round(x["num"] / x["denom"] * 100, 1)), "%)"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">80</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(SAFFL == "Y" &amp; ONTRTFL == "Y" &amp; GRADDR != "")</pre>
+                      <pre class="language-r">  return(result)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- h_adlb_worsen(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   adlb,</pre>
+                      <pre class="language-r">#' Format count and fraction</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   worst_flag_low = c("WGRLOFL" = "Y"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   worst_flag_high = c("WGRHIFL" = "Y"),</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   direction_var = "GRADDR"</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' Formats a count together with fraction with special consideration when count is `0`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -735,483 +735,483 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @param x (`numeric(2)`)\cr vector of length 2 with count and fraction, respectively.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_adlb_worsen &lt;- function(adlb,</pre>
+                      <pre class="language-r">#' @param ... not used. Required for `rtables` interface.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          worst_flag_low = NULL,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          worst_flag_high = NULL,</pre>
+                      <pre class="language-r">#' @return A string in the format `count (fraction %)`. If `count` is 0, the format is `0`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          direction_var) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">94</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(direction_var)</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">95</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(as.character(unique(adlb[[direction_var]])), c("B", "L", "H"))</pre>
+                      <pre class="language-r">#' format_count_fraction(x = c(2, 0.6667))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">96</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(adlb, list("Col" = direction_var))</pre>
+                      <pre class="language-r">#' format_count_fraction(x = c(0, 0))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">98</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any(unique(adlb[[direction_var]]) == "H")) {</pre>
+                      <pre class="language-r">#' @family formatting functions</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">99</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    assert_df_with_variables(adlb, list("High" = names(worst_flag_high)))</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">format_count_fraction &lt;- function(x, ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">101</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  attr(x, "label") &lt;- NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">102</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any(unique(adlb[[direction_var]]) == "L")) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">103</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    assert_df_with_variables(adlb, list("Low" = names(worst_flag_low)))</pre>
+                      <pre class="language-r">  if (any(is.na(x))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">104</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    return("NA")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">106</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any(unique(adlb[[direction_var]]) == "B")) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">107</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    assert_df_with_variables(</pre>
+                      <pre class="language-r">  checkmate::assert_vector(x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">108</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      adlb,</pre>
+                      <pre class="language-r">  checkmate::assert_integerish(x[1])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">109</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      list(</pre>
+                      <pre class="language-r">  assert_proportion_value(x[2], include_boundaries = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">110</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Low" = names(worst_flag_low),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">111</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "High" = names(worst_flag_high)</pre>
+                      <pre class="language-r">  result &lt;- if (x[1] == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">112</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    "0"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">114</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    paste0(x[1], " (", round(x[2] * 100, 1), "%)")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # extract patients with worst post-baseline lab, either low or high or both</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">117</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  worst_flag &lt;- c(worst_flag_low, worst_flag_high)</pre>
+                      <pre class="language-r">  return(result)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">118</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  col_names &lt;- names(worst_flag)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">119</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  filter_values &lt;- worst_flag</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">120</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  temp &lt;- Map(</pre>
+                      <pre class="language-r">#' Format count and percentage with fixed single decimal place</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">121</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    function(x, y) which(adlb[[x]] == y),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">122</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    col_names,</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">123</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    filter_values</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' Formats a count together with fraction with special consideration when count is `0`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">125</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  position_satisfy_filters &lt;- Reduce(union, temp)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @inheritParams format_count_fraction</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # select variables of interest</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">128</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb_f &lt;- adlb[position_satisfy_filters, ]</pre>
+                      <pre class="language-r">#' @return A string in the format `count (fraction %)`. If `count` is 0, the format is `0`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # generate subsets for different directionality</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">131</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb_f_h &lt;- adlb_f[which(adlb_f[[direction_var]] == "H"), ]</pre>
+                      <pre class="language-r">#' format_count_fraction_fixed_dp(x = c(2, 0.6667))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">132</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb_f_l &lt;- adlb_f[which(adlb_f[[direction_var]] == "L"), ]</pre>
+                      <pre class="language-r">#' format_count_fraction_fixed_dp(x = c(2, 0.5))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">133</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb_f_b &lt;- adlb_f[which(adlb_f[[direction_var]] == "B"), ]</pre>
+                      <pre class="language-r">#' format_count_fraction_fixed_dp(x = c(0, 0))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # for labs requiring both high and low, data is duplicated and will be stacked on top of each other</pre>
+                      <pre class="language-r">#' @family formatting functions</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">136</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb_f_b_h &lt;- adlb_f_b</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">137</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb_f_b_l &lt;- adlb_f_b</pre>
+                      <pre class="language-r">format_count_fraction_fixed_dp &lt;- function(x, ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">138</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">503<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  attr(x, "label") &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # extract data with worst lab</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">140</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage">503<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(worst_flag_high) &amp;&amp; !is.null(worst_flag_low)) {</pre>
+                      <pre class="language-r">  if (any(is.na(x))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">141</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # change H to High, L to Low</pre>
+                      <pre class="language-r">    return("NA")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">142</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adlb_f_h[[direction_var]] &lt;- rep("High", nrow(adlb_f_h))</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">143</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adlb_f_l[[direction_var]] &lt;- rep("Low", nrow(adlb_f_l))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">144</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">503<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  checkmate::assert_vector(x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">145</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">503<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # change, B to High and Low</pre>
+                      <pre class="language-r">  checkmate::assert_integerish(x[1])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">146</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">503<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adlb_f_b_h[[direction_var]] &lt;- rep("High", nrow(adlb_f_b_h))</pre>
+                      <pre class="language-r">  assert_proportion_value(x[2], include_boundaries = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">147</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adlb_f_b_l[[direction_var]] &lt;- rep("Low", nrow(adlb_f_b_l))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">148</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">503<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  result &lt;- if (x[1] == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">149</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adlb_out_h &lt;- adlb_f_h[which(adlb_f_h[[names(worst_flag_high)]] == worst_flag_high), ]</pre>
+                      <pre class="language-r">    "0"</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">150</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">503<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adlb_out_b_h &lt;- adlb_f_b_h[which(adlb_f_b_h[[names(worst_flag_high)]] == worst_flag_high), ]</pre>
+                      <pre class="language-r">  } else if (.is_equal_float(x[2], 1)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">151</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">500<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adlb_out_l &lt;- adlb_f_l[which(adlb_f_l[[names(worst_flag_low)]] == worst_flag_low), ]</pre>
+                      <pre class="language-r">    sprintf("%d (100%%)", x[1])</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">152</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adlb_out_b_l &lt;- adlb_f_b_l[which(adlb_f_b_l[[names(worst_flag_low)]] == worst_flag_low), ]</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">153</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    sprintf("%d (%.1f%%)", x[1], x[2] * 100)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">154</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    out &lt;- rbind(adlb_out_h, adlb_out_b_h, adlb_out_l, adlb_out_b_l)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">155</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (!is.null(worst_flag_high)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">156</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">503<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adlb_f_h[[direction_var]] &lt;- rep("High", nrow(adlb_f_h))</pre>
+                      <pre class="language-r">  return(result)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">157</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adlb_f_b_h[[direction_var]] &lt;- rep("High", nrow(adlb_f_b_h))</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -1221,137 +1221,137 @@ <h2>tern coverage - 95.64%</h2>
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">159</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adlb_out_h &lt;- adlb_f_h[which(adlb_f_h[[names(worst_flag_high)]] == worst_flag_high), ]</pre>
+                      <pre class="language-r">#' Format count and fraction with special case for count &lt; 10</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">160</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adlb_out_b_h &lt;- adlb_f_b_h[which(adlb_f_b_h[[names(worst_flag_high)]] == worst_flag_high), ]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">162</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    out &lt;- rbind(adlb_out_h, adlb_out_b_h)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">163</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (!is.null(worst_flag_low)) {</pre>
+                      <pre class="language-r">#' Formats a count together with fraction with special consideration when count is less than 10.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">164</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adlb_f_l[[direction_var]] &lt;- rep("Low", nrow(adlb_f_l))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">165</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adlb_f_b_l[[direction_var]] &lt;- rep("Low", nrow(adlb_f_b_l))</pre>
+                      <pre class="language-r">#' @inheritParams format_count_fraction</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">167</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adlb_out_l &lt;- adlb_f_l[which(adlb_f_l[[names(worst_flag_low)]] == worst_flag_low), ]</pre>
+                      <pre class="language-r">#' @return A string in the format `count (fraction %)`. If `count` is less than 10, only `count` is printed.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">168</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adlb_out_b_l &lt;- adlb_f_b_l[which(adlb_f_b_l[[names(worst_flag_low)]] == worst_flag_low), ]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">170</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    out &lt;- rbind(adlb_out_l, adlb_out_b_l)</pre>
+                      <pre class="language-r">#' format_count_fraction_lt10(x = c(275, 0.9673))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' format_count_fraction_lt10(x = c(2, 0.6667))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' format_count_fraction_lt10(x = c(9, 1))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # label</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">174</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  formatters::var_labels(out) &lt;- formatters::var_labels(adlb_f, fill = FALSE)</pre>
+                      <pre class="language-r">#' @family formatting functions</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # NA</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">176</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  out</pre>
+                      <pre class="language-r">format_count_fraction_lt10 &lt;- function(x, ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">177</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  attr(x, "label") &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -1361,221 +1361,221 @@ <h2>tern coverage - 95.64%</h2>
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">179</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function to analyze patients for `s_count_abnormal_lab_worsen_by_baseline()`</pre>
+                      <pre class="language-r">  if (any(is.na(x))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">180</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    return("NA")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">183</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function to count the number of patients and the fraction of patients according to</pre>
+                      <pre class="language-r">  checkmate::assert_vector(x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">184</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' highest post-baseline lab grade variable `.var`, baseline lab grade variable `baseline_var`,</pre>
+                      <pre class="language-r">  checkmate::assert_integerish(x[1])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">185</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and the direction of interest specified in `direction_var`.</pre>
+                      <pre class="language-r">  assert_proportion_value(x[2], include_boundaries = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">187</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">  result &lt;- if (x[1] &lt; 10) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">188</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_adlb_worsen</pre>
+                      <pre class="language-r">    paste0(x[1])</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param baseline_var (`string`)\cr name of the baseline lab grade variable.</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">190</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    paste0(x[1], " (", round(x[2] * 100, 1), "%)")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return The counts and fraction of patients</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   whose worst post-baseline lab grades are worse than their baseline grades, for</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">193</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   post-baseline worst grades "1", "2", "3", "4" and "Any".</pre>
+                      <pre class="language-r">  return(result)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [abnormal_by_worst_grade_worsen]</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Format XX as a formatting function</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">#' Translate a string where x and dots are interpreted as number place</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' holders, and others as formatting elements.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # The direction variable, GRADDR, is based on metadata</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adlb &lt;- tern_ex_adlb %&gt;%</pre>
+                      <pre class="language-r">#' @param str (`string`)\cr template.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mutate(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     GRADDR = case_when(</pre>
+                      <pre class="language-r">#' @return An `rtables` formatting function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       PARAMCD == "ALT" ~ "B",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">205</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       PARAMCD == "CRP" ~ "L",</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       PARAMCD == "IGA" ~ "H"</pre>
+                      <pre class="language-r">#' test &lt;- list(c(1.658, 0.5761), c(1e1, 785.6))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">#' z &lt;- format_xx("xx (xx.x)")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(SAFFL == "Y" &amp; ONTRTFL == "Y" &amp; GRADDR != "")</pre>
+                      <pre class="language-r">#' sapply(test, z)</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -1589,168 +1589,168 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- h_adlb_worsen(</pre>
+                      <pre class="language-r">#' z &lt;- format_xx("xx.x - xx.x")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   adlb,</pre>
+                      <pre class="language-r">#' sapply(test, z)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   worst_flag_low = c("WGRLOFL" = "Y"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   worst_flag_high = c("WGRHIFL" = "Y"),</pre>
+                      <pre class="language-r">#' z &lt;- format_xx("xx.x, incl. xx.x% NE")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   direction_var = "GRADDR"</pre>
+                      <pre class="language-r">#' sapply(test, z)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @family formatting functions</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `h_worsen_counter`</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_worsen_counter(</pre>
+                      <pre class="language-r">format_xx &lt;- function(str) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   df %&gt;% filter(PARAMCD == "CRP" &amp; GRADDR == "Low"),</pre>
+                      <pre class="language-r">  # Find position in the string.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">221</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   id = "USUBJID",</pre>
+                      <pre class="language-r">  positions &lt;- gregexpr(pattern = "x+\\.x+|x+", text = str, perl = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">222</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .var = "ATOXGR",</pre>
+                      <pre class="language-r">  x_positions &lt;- regmatches(x = str, m = positions)[[1]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   baseline_var = "BTOXGR",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   direction_var = "GRADDR"</pre>
+                      <pre class="language-r">  # Roundings depends on the number of x behind [.].</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">225</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  roundings &lt;- lapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">226</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    X = x_positions,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">227</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">228</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_worsen_counter &lt;- function(df, id, .var, baseline_var, direction_var) {</pre>
+                      <pre class="language-r">      y &lt;- strsplit(split = "\\.", x = x)[[1]]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">229</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(id)</pre>
+                      <pre class="language-r">      rounding &lt;- function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">230</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(.var)</pre>
+                      <pre class="language-r">        round(x, digits = ifelse(length(y) &gt; 1, nchar(y[2]), 0))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">231</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(baseline_var)</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">232</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_scalar(unique(df[[direction_var]]))</pre>
+                      <pre class="language-r">      return(rounding)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">233</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(unique(df[[direction_var]]), c("High", "Low"))</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">234</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(df, list(val = c(id, .var, baseline_var, direction_var)))</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -1760,39 +1760,39 @@ <h2>tern coverage - 95.64%</h2>
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">236</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # remove post-baseline missing</pre>
+                      <pre class="language-r">  rtable_format &lt;- function(x, output) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">237</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df &lt;- df[df[[.var]] != "&lt;Missing&gt;", ]</pre>
+                      <pre class="language-r">    values &lt;- Map(y = x, fun = roundings, function(y, fun) fun(y))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">238</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    regmatches(x = str, m = positions)[[1]] &lt;- values</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">239</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # obtain directionality</pre>
+                      <pre class="language-r">    return(str)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">240</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  direction &lt;- unique(df[[direction_var]])</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -1804,653 +1804,653 @@ <h2>tern coverage - 95.64%</h2>
                   </tr>
                   <tr class="covered">
                     <td class="num">242</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (direction == "Low") {</pre>
+                      <pre class="language-r">  return(rtable_format)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">243</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    grade &lt;- -1:-4</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">244</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    worst_grade &lt;- -4</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">245</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (direction == "High") {</pre>
+                      <pre class="language-r">#' Format numeric values by significant figures</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">246</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    grade &lt;- 1:4</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">247</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    worst_grade &lt;- 4</pre>
+                      <pre class="language-r">#' Format numeric values to print with a specified number of significant figures.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param sigfig (`integer(1)`)\cr number of significant figures to display.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">250</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (nrow(df) &gt; 0) {</pre>
+                      <pre class="language-r">#' @param format (`string`)\cr the format label (string) to apply when printing the value. Decimal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">251</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    by_grade &lt;- lapply(grade, function(i) {</pre>
+                      <pre class="language-r">#'   places in string are ignored in favor of formatting by significant figures. Formats options are:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # filter baseline values that is less than i or &lt;Missing&gt;</pre>
+                      <pre class="language-r">#'   `"xx"`, `"xx / xx"`, `"(xx, xx)"`, `"xx - xx"`, and `"xx (xx)"`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">253</td>
-                    <td class="coverage">68<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df_temp &lt;- df[df[[baseline_var]] %in% c((i + sign(i) * -1):(-1 * worst_grade), "&lt;Missing&gt;"), ]</pre>
+                      <pre class="language-r">#' @param num_fmt (`string`)\cr numeric format modifiers to apply to the value. Defaults to `"fg"` for</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # num: number of patients with post-baseline worst lab equal to i</pre>
+                      <pre class="language-r">#'   standard significant figures formatting - fixed (non-scientific notation) format (`"f"`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">255</td>
-                    <td class="coverage">68<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      num &lt;- length(unique(df_temp[df_temp[[.var]] %in% i, id, drop = TRUE]))</pre>
+                      <pre class="language-r">#'   and `sigfig` equal to number of significant figures instead of decimal places (`"g"`). See the</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # denom: number of patients with baseline values less than i or &lt;missing&gt; and post-baseline in the same direction</pre>
+                      <pre class="language-r">#'   [formatC()] `format` argument for more options.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">257</td>
-                    <td class="coverage">68<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      denom &lt;- length(unique(df_temp[[id]]))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">258</td>
-                    <td class="coverage">68<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rm(df_temp)</pre>
+                      <pre class="language-r">#' @return An `rtables` formatting function.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">259</td>
-                    <td class="coverage">68<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      c(num = num, denom = denom)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' fmt_3sf &lt;- format_sigfig(3)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">262</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    by_grade &lt;- lapply(1, function(i) {</pre>
+                      <pre class="language-r">#' fmt_3sf(1.658)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">263</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      c(num = 0, denom = 0)</pre>
+                      <pre class="language-r">#' fmt_3sf(1e1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">265</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' fmt_5sf &lt;- format_sigfig(5)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">266</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' fmt_5sf(0.57)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">267</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  names(by_grade) &lt;- as.character(seq_along(by_grade))</pre>
+                      <pre class="language-r">#' fmt_5sf(0.000025645)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">268</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # baseline grade less 4 or missing</pre>
+                      <pre class="language-r">#' @family formatting functions</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">270</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df_temp &lt;- df[!df[[baseline_var]] %in% worst_grade, ]</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">271</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">format_sigfig &lt;- function(sigfig, format = "xx", num_fmt = "fg") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">272</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # denom: number of patients with baseline values less than 4 or &lt;missing&gt; and post-baseline in the same direction</pre>
+                      <pre class="language-r">  checkmate::assert_integerish(sigfig)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">273</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  denom &lt;- length(unique(df_temp[, id, drop = TRUE]))</pre>
+                      <pre class="language-r">  format &lt;- gsub("xx\\.|xx\\.x+", "xx", format)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">274</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  checkmate::assert_choice(format, c("xx", "xx / xx", "(xx, xx)", "xx - xx", "xx (xx)"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">275</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # condition 1: missing baseline and in the direction of abnormality</pre>
+                      <pre class="language-r">  function(x, ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">276</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  con1 &lt;- which(df_temp[[baseline_var]] == "&lt;Missing&gt;" &amp; df_temp[[.var]] %in% grade)</pre>
+                      <pre class="language-r">    if (!is.numeric(x)) stop("`format_sigfig` cannot be used for non-numeric values. Please choose another format.")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">277</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df_temp_nm &lt;- df_temp[which(df_temp[[baseline_var]] != "&lt;Missing&gt;" &amp; df_temp[[.var]] %in% grade), ]</pre>
+                      <pre class="language-r">    num &lt;- formatC(signif(x, digits = sigfig), digits = sigfig, format = num_fmt, flag = "#")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">278</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    num &lt;- gsub("\\.$", "", num) # remove trailing "."</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">279</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # condition 2: if post-baseline values are present then post-baseline values must be worse than baseline</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">280</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (direction == "Low") {</pre>
+                      <pre class="language-r">    format_value(num, format)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">281</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    con2 &lt;- which(as.numeric(as.character(df_temp_nm[[.var]])) &lt; as.numeric(as.character(df_temp_nm[[baseline_var]])))</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">282</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">283</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    con2 &lt;- which(as.numeric(as.character(df_temp_nm[[.var]])) &gt; as.numeric(as.character(df_temp_nm[[baseline_var]])))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' Format fraction with lower threshold</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # number of patients satisfy either conditions 1 or 2</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">287</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  num &lt;- length(unique(df_temp[union(con1, con2), id, drop = TRUE]))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">288</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Formats a fraction when the second element of the input `x` is the fraction. It applies</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">289</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(fraction = c(by_grade, list("Any" = c(num = num, denom = denom))))</pre>
+                      <pre class="language-r">#' a lower threshold, below which it is just stated that the fraction is smaller than that.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param threshold (`proportion`)\cr lower threshold.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">292</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn abnormal_by_worst_grade_worsen Statistics function for patients whose worst post-baseline</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   lab grades are worse than their baseline grades.</pre>
+                      <pre class="language-r">#' @return An `rtables` formatting function that takes numeric input `x` where the second</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   element is the fraction that is formatted. If the fraction is above or equal to the threshold,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">295</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'   then it is displayed in percentage. If it is positive but below the threshold, it returns,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">296</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_count_abnormal_lab_worsen_by_baseline()` returns the counts and fraction of patients whose worst</pre>
+                      <pre class="language-r">#'   e.g. "&lt;1" if the threshold is `0.01`. If it is zero, then just "0" is returned.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">297</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   post-baseline lab grades are worse than their baseline grades, for post-baseline worst grades</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">298</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "1", "2", "3", "4" and "Any".</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' format_fun &lt;- format_fraction_threshold(0.05)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">300</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' format_fun(x = c(20, 0.1))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">301</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_count_abnormal_lab_worsen_by_baseline &lt;- function(df, # nolint</pre>
+                      <pre class="language-r">#' format_fun(x = c(2, 0.01))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">302</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                    .var = "ATOXGR",</pre>
+                      <pre class="language-r">#' format_fun(x = c(0, 0))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                    variables = list(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                      id = "USUBJID",</pre>
+                      <pre class="language-r">#' @family formatting functions</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">305</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                      baseline_var = "BTOXGR",</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">306</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                      direction_var = "GRADDR"</pre>
+                      <pre class="language-r">format_fraction_threshold &lt;- function(threshold) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">307</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                    )) {</pre>
+                      <pre class="language-r">  assert_proportion_value(threshold)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">308</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(.var)</pre>
+                      <pre class="language-r">  string_below_threshold &lt;- paste0("&lt;", round(threshold * 100))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">309</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_set_equal(names(variables), c("id", "baseline_var", "direction_var"))</pre>
+                      <pre class="language-r">  function(x, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">310</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(variables$id)</pre>
+                      <pre class="language-r">    assert_proportion_value(x[2], include_boundaries = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">311</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(variables$baseline_var)</pre>
+                      <pre class="language-r">    ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">312</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(variables$direction_var)</pre>
+                      <pre class="language-r">      x[2] &gt; 0.01,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">313</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(df, c(aval = .var, variables[1:3]))</pre>
+                      <pre class="language-r">      round(x[2] * 100),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">314</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_list_of_variables(variables)</pre>
+                      <pre class="language-r">      ifelse(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">315</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        x[2] == 0,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">316</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  h_worsen_counter(df, variables$id, .var, variables$baseline_var, variables$direction_var)</pre>
+                      <pre class="language-r">        "0",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">317</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        string_below_threshold</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">318</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">319</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn abnormal_by_worst_grade_worsen Formatted analysis function which is used as `afun`</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   in `count_abnormal_lab_worsen_by_baseline()`.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">322</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">323</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `a_count_abnormal_lab_worsen_by_baseline()` returns the corresponding list with</pre>
+                      <pre class="language-r">#' Format extreme values</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">324</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   formatted [rtables::CellValue()].</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">325</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">326</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">327</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">a_count_abnormal_lab_worsen_by_baseline &lt;- make_afun( # nolint</pre>
+                      <pre class="language-r">#' `rtables` formatting functions that handle extreme values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">328</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_count_abnormal_lab_worsen_by_baseline,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">329</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats = c(fraction = format_fraction),</pre>
+                      <pre class="language-r">#' @param digits (`integer(1)`)\cr number of decimal places to display.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">330</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .ungroup_stats = "fraction"</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">331</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">#' @details For each input, apply a format to the specified number of `digits`. If the value is</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">332</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'    below a threshold, it returns "&lt;0.01" e.g. if the number of `digits` is 2. If the value is</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">333</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn abnormal_by_worst_grade_worsen Layout-creating function which can take statistics function</pre>
+                      <pre class="language-r">#'    above a threshold, it returns "&gt;999.99" e.g. if the number of `digits` is 2.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">334</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   arguments and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
+                      <pre class="language-r">#'    If it is zero, then returns "0.00".</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -2464,420 +2464,420 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">336</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' @family formatting functions</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">337</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `count_abnormal_lab_worsen_by_baseline()` returns a layout object suitable for passing to further layouting</pre>
+                      <pre class="language-r">#' @name extreme_format</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">338</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   functions, or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">339</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   rows containing the statistics from `s_count_abnormal_lab_worsen_by_baseline()` to the table layout.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">340</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @describeIn extreme_format Internal helper function to calculate the threshold and create formatted strings</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">341</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'  used in Formatting Functions. Returns a list with elements `threshold` and `format_string`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">342</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">343</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">344</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # The direction variable, GRADDR, is based on metadata</pre>
+                      <pre class="language-r">#' * `h_get_format_threshold()` returns a `list` of 2 elements: `threshold`, with `low` and `high` thresholds,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">345</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adlb &lt;- tern_ex_adlb %&gt;%</pre>
+                      <pre class="language-r">#'   and `format_string`, with thresholds formatted as strings.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">346</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mutate(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">347</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     GRADDR = case_when(</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">348</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       PARAMCD == "ALT" ~ "B",</pre>
+                      <pre class="language-r">#' h_get_format_threshold(2L)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">349</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       PARAMCD == "CRP" ~ "L",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">350</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       PARAMCD == "IGA" ~ "H"</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">351</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">h_get_format_threshold &lt;- function(digits = 2L) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">352</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2113<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">  checkmate::assert_integerish(digits)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">353</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(SAFFL == "Y" &amp; ONTRTFL == "Y" &amp; GRADDR != "")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">354</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2113<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  low_threshold &lt;- 1 / (10 ^ digits) # styler: off</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">355</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2113<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- h_adlb_worsen(</pre>
+                      <pre class="language-r">  high_threshold &lt;- 1000 - (1 / (10 ^ digits)) # styler: off</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">356</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   adlb,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">357</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2113<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   worst_flag_low = c("WGRLOFL" = "Y"),</pre>
+                      <pre class="language-r">  string_below_threshold &lt;- paste0("&lt;", low_threshold)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">358</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2113<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   worst_flag_high = c("WGRHIFL" = "Y"),</pre>
+                      <pre class="language-r">  string_above_threshold &lt;- paste0("&gt;", high_threshold)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">359</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   direction_var = "GRADDR"</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">360</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2113<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">361</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2113<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    "threshold" = c(low = low_threshold, high = high_threshold),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">362</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2113<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">    "format_string" = c(low = string_below_threshold, high = string_above_threshold)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">363</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARMCD") %&gt;%</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">364</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">365</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by("PARAMCD") %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">366</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by("GRADDR") %&gt;%</pre>
+                      <pre class="language-r">#' @describeIn extreme_format Internal helper function to apply a threshold format to a value.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">367</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   count_abnormal_lab_worsen_by_baseline(</pre>
+                      <pre class="language-r">#'   Creates a formatted string to be used in Formatting Functions.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">368</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     var = "ATOXGR",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">369</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     variables = list(</pre>
+                      <pre class="language-r">#' @param x (`numeric(1)`)\cr value to format.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">370</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       id = "USUBJID",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">371</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       baseline_var = "BTOXGR",</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">372</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       direction_var = "GRADDR"</pre>
+                      <pre class="language-r">#' * `h_format_threshold()` returns the given value, or if the value is not within the digit threshold the relation</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">373</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">#'   of the given value to the digit threshold, as a formatted string.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">374</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">375</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   append_topleft("Direction of Abnormality") %&gt;%</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">376</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(df = df, alt_counts_df = tern_ex_adsl)</pre>
+                      <pre class="language-r">#' h_format_threshold(0.001)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">377</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' h_format_threshold(1000)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">378</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">379</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 2</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">380</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">count_abnormal_lab_worsen_by_baseline &lt;- function(lyt, # nolint</pre>
+                      <pre class="language-r">h_format_threshold &lt;- function(x, digits = 2L) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">381</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2115<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                  var,</pre>
+                      <pre class="language-r">  if (is.na(x)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">382</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                  variables = list(</pre>
+                      <pre class="language-r">    return(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">383</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                    id = "USUBJID",</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">384</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                    baseline_var = "BTOXGR",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">385</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2111<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                    direction_var = "GRADDR"</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(x, lower = 0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">386</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                  ),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">387</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2111<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                  na_str = default_na_str(),</pre>
+                      <pre class="language-r">  l_fmt &lt;- h_get_format_threshold(digits)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">388</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                  nested = TRUE,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">389</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2111<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                  ...,</pre>
+                      <pre class="language-r">  result &lt;- if (x &lt; l_fmt$threshold["low"] &amp;&amp; 0 &lt; x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">390</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">44<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                  table_names = NULL,</pre>
+                      <pre class="language-r">    l_fmt$format_string["low"]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">391</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2111<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                  .stats = NULL,</pre>
+                      <pre class="language-r">  } else if (x &gt; l_fmt$threshold["high"]) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">392</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">99<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                  .formats = NULL,</pre>
+                      <pre class="language-r">    l_fmt$format_string["high"]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">393</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                  .labels = NULL,</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">394</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1968<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                  .indent_mods = NULL) {</pre>
+                      <pre class="language-r">    sprintf(fmt = paste0("%.", digits, "f"), x)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">395</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(var)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -2889,8710 +2889,9544 @@ <h2>tern coverage - 95.64%</h2>
                   </tr>
                   <tr class="covered">
                     <td class="num">397</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">2111<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(variables = variables, ...)</pre>
+                      <pre class="language-r">  unname(result)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">398</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">399</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  afun &lt;- make_afun(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">400</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    a_count_abnormal_lab_worsen_by_baseline,</pre>
+                      <pre class="language-r">#' Format a single extreme value</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">401</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .stats = .stats,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">402</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .formats = .formats,</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">403</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .labels = .labels,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">404</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .indent_mods = .indent_mods</pre>
+                      <pre class="language-r">#' Create a formatting function for a single extreme value.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">405</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">406</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @inheritParams extreme_format</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">407</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lyt &lt;- analyze(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">408</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt = lyt,</pre>
+                      <pre class="language-r">#' @return An `rtables` formatting function that uses threshold `digits` to return a formatted extreme value.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">409</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars = var,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">410</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    afun = afun,</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">411</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">#' format_fun &lt;- format_extreme_values(2L)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">412</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nested = nested,</pre>
+                      <pre class="language-r">#' format_fun(x = 0.127)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">413</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args = extra_args,</pre>
+                      <pre class="language-r">#' format_fun(x = Inf)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">414</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    show_labels = "hidden"</pre>
+                      <pre class="language-r">#' format_fun(x = 0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">415</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' format_fun(x = 0.009)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">416</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">417</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lyt</pre>
+                      <pre class="language-r">#' @family formatting functions</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">418</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/survival_biomarkers_subgroups.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">419</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Tabulate biomarker effects on survival by subgroup</pre>
+                      <pre class="language-r">format_extreme_values &lt;- function(digits = 2L) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">420</td>
+                    <td class="coverage">63<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  function(x, ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">421</td>
+                    <td class="coverage">657<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">    checkmate::assert_scalar(x, na.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">422</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">423</td>
+                    <td class="coverage">657<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The [tabulate_survival_biomarkers()] function creates a layout element to tabulate the estimated effects of multiple</pre>
+                      <pre class="language-r">    h_format_threshold(x = x, digits = digits)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">424</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' continuous biomarker variables on survival across subgroups, returning statistics including median survival time and</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">425</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' hazard ratio for each population subgroup. The table is created from `df`, a list of data frames returned by</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">426</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' [extract_survival_biomarkers()], with the statistics to include specified via the `vars` parameter.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">427</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Format extreme values part of a confidence interval</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">428</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A forest plot can be created from the resulting table using the [g_forest()] function.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">429</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">430</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams fit_coxreg_multivar</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">431</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams survival_duration_subgroups</pre>
+                      <pre class="language-r">#' Formatting Function for extreme values part of a confidence interval. Values</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">432</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' are formatted as e.g. "(xx.xx, xx.xx)" if the number of `digits` is 2.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">433</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param df (`data.frame`)\cr containing all analysis variables, as returned by</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">434</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   [extract_survival_biomarkers()].</pre>
+                      <pre class="language-r">#' @inheritParams extreme_format</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">435</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param vars (`character`)\cr the names of statistics to be reported among:</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">436</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `n_tot_events`: Total number of events per group.</pre>
+                      <pre class="language-r">#' @return An `rtables` formatting function that uses threshold `digits` to return a formatted extreme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">437</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `n_tot`: Total number of observations per group.</pre>
+                      <pre class="language-r">#'   values confidence interval.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">438</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `median`: Median survival time.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">439</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `hr`: Hazard ratio.</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">440</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `ci`: Confidence interval of hazard ratio.</pre>
+                      <pre class="language-r">#' format_fun &lt;- format_extreme_values_ci(2L)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">441</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `pval`: p-value of the effect.</pre>
+                      <pre class="language-r">#' format_fun(x = c(0.127, Inf))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">442</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Note, one of the statistics `n_tot` and `n_tot_events`, as well as both `hr` and `ci` are required.</pre>
+                      <pre class="language-r">#' format_fun(x = c(0, 0.009))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">443</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">444</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details These functions create a layout starting from a data frame which contains</pre>
+                      <pre class="language-r">#' @family formatting functions</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">445</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the required statistics. The tables are then typically used as input for forest plots.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">446</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">format_extreme_values_ci &lt;- function(digits = 2L) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">447</td>
+                    <td class="coverage">71<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  function(x, ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">448</td>
+                    <td class="coverage">726<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">    checkmate::assert_vector(x, len = 2)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">449</td>
+                    <td class="coverage">726<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    l_result &lt;- h_format_threshold(x = x[1], digits = digits)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">450</td>
+                    <td class="coverage">726<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adtte &lt;- tern_ex_adtte</pre>
+                      <pre class="language-r">    h_result &lt;- h_format_threshold(x = x[2], digits = digits)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">451</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">452</td>
+                    <td class="coverage">726<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Save variable labels before data processing steps.</pre>
+                      <pre class="language-r">    paste0("(", l_result, ", ", h_result, ")")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">453</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adtte_labels &lt;- formatters::var_labels(adtte)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">454</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">455</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adtte_f &lt;- adtte %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">456</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
+                      <pre class="language-r">#' Format automatically using data significant digits</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">457</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mutate(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">458</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     AVALU = as.character(AVALU),</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">459</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     is_event = CNSR == 0</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">460</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#' Formatting function for the majority of default methods used in [analyze_vars()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">461</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' labels &lt;- c("AVALU" = adtte_labels[["AVALU"]], "is_event" = "Event Flag")</pre>
+                      <pre class="language-r">#' For non-derived values, the significant digits of data is used (e.g. range), while derived</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">462</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' formatters::var_labels(adtte_f)[names(labels)] &lt;- labels</pre>
+                      <pre class="language-r">#' values have one more digits (measure of location and dispersion like mean, standard deviation).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">463</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' This function can be called internally with "auto" like, for example,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">464</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Typical analysis of two continuous biomarkers `BMRKR1` and `AGE`,</pre>
+                      <pre class="language-r">#' `.formats = c("mean" = "auto")`. See details to see how this works with the inner function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">465</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # in multiple regression models containing one covariate `RACE`,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">466</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # as well as one stratification variable `STRATA1`. The subgroups</pre>
+                      <pre class="language-r">#' @param dt_var (`numeric`)\cr variable data the statistics were calculated from. Used only to</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">467</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # are defined by the levels of `BMRKR2`.</pre>
+                      <pre class="language-r">#'   find significant digits. In [analyze_vars] this comes from `.df_row` (see</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">468</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   [rtables::additional_fun_params]), and it is the row data after the above row splits. No</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">469</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- extract_survival_biomarkers(</pre>
+                      <pre class="language-r">#'   column split is considered.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">470</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">#' @param x_stat (`string`)\cr string indicating the current statistical method used.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">471</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tte = "AVAL",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">472</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     is_event = "is_event",</pre>
+                      <pre class="language-r">#' @return A string that `rtables` prints in a table cell.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">473</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     biomarkers = c("BMRKR1", "AGE"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">474</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     strata = "STRATA1",</pre>
+                      <pre class="language-r">#' @details</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">475</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     covariates = "SEX",</pre>
+                      <pre class="language-r">#' The internal function is needed to work with `rtables` default structure for</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">476</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     subgroups = "BMRKR2"</pre>
+                      <pre class="language-r">#' format functions, i.e. `function(x, ...)`, where is x are results from statistical evaluation.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">477</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#' It can be more than one element (e.g. for `.stats = "mean_sd"`).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">478</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   label_all = "Total Patients",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">479</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adtte_f</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">480</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' x_todo &lt;- c(0.001, 0.2, 0.0011000, 3, 4)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">481</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df</pre>
+                      <pre class="language-r">#' res &lt;- c(mean(x_todo[1:3]), sd(x_todo[1:3]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">482</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">483</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Here we group the levels of `BMRKR2` manually.</pre>
+                      <pre class="language-r">#' # x is the result coming into the formatting function -&gt; res!!</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">484</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df_grouped &lt;- extract_survival_biomarkers(</pre>
+                      <pre class="language-r">#' format_auto(dt_var = x_todo, x_stat = "mean_sd")(x = res)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">485</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">#' format_auto(x_todo, "range")(x = range(x_todo))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">486</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tte = "AVAL",</pre>
+                      <pre class="language-r">#' no_sc_x &lt;- c(0.0000001, 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">487</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     is_event = "is_event",</pre>
+                      <pre class="language-r">#' format_auto(no_sc_x, "range")(x = no_sc_x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">488</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     biomarkers = c("BMRKR1", "AGE"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">489</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     strata = "STRATA1",</pre>
+                      <pre class="language-r">#' @family formatting functions</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">490</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     covariates = "SEX",</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">491</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     subgroups = "BMRKR2"</pre>
+                      <pre class="language-r">format_auto &lt;- function(dt_var, x_stat) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">492</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">  function(x = "", ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">75</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">493</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adtte_f,</pre>
+                      <pre class="language-r">    checkmate::assert_numeric(x, min.len = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">76</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">494</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   groups_lists = list(</pre>
+                      <pre class="language-r">    checkmate::assert_numeric(dt_var, min.len = 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">495</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     BMRKR2 = list(</pre>
+                      <pre class="language-r">    # Defaults - they may be a param in the future</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">78</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">496</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "low" = "LOW",</pre>
+                      <pre class="language-r">    der_stats &lt;- c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">79</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">497</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "low/medium" = c("LOW", "MEDIUM"),</pre>
+                      <pre class="language-r">      "mean", "sd", "se", "median", "geom_mean", "quantiles", "iqr",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">80</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">498</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "low/medium/high" = c("LOW", "MEDIUM", "HIGH")</pre>
+                      <pre class="language-r">      "mean_sd", "mean_se", "mean_se", "mean_ci", "mean_sei", "mean_sdi",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">81</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">499</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">      "median_ci"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">500</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">83</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">501</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    nonder_stats &lt;- c("n", "range", "min", "max")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">502</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df_grouped</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">503</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    # Safenet for miss-modifications</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">86</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">504</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name survival_biomarkers_subgroups</pre>
+                      <pre class="language-r">    stopifnot(length(intersect(der_stats, nonder_stats)) == 0) # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">87</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">505</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 1</pre>
+                      <pre class="language-r">    checkmate::assert_choice(x_stat, c(der_stats, nonder_stats))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">506</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">507</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # Finds the max number of digits in data</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">90</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">508</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Prepare survival data estimates for multiple biomarkers in a single data frame</pre>
+                      <pre class="language-r">    detect_dig &lt;- vapply(dt_var, count_decimalplaces, FUN.VALUE = numeric(1)) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">91</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">509</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      max()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">510</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">93</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">511</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    if (x_stat %in% der_stats) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">94</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">512</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Prepares estimates for number of events, patients and median survival times, as well as hazard ratio estimates,</pre>
+                      <pre class="language-r">      detect_dig &lt;- detect_dig + 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">513</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' confidence intervals and p-values, for multiple biomarkers across population subgroups in a single data frame.</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">514</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `variables` corresponds to the names of variables found in `data`, passed as a named `list` and requires elements</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">515</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `tte`, `is_event`, `biomarkers` (vector of continuous biomarker variables), and optionally `subgroups` and `strata`.</pre>
+                      <pre class="language-r">    # Render input</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">98</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">516</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `groups_lists` optionally specifies groupings for `subgroups` variables.</pre>
+                      <pre class="language-r">    str_vals &lt;- formatC(x, digits = detect_dig, format = "f")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">99</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">517</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    def_fmt &lt;- get_formats_from_stats(x_stat)[[x_stat]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">100</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">518</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">    str_fmt &lt;- str_extract(def_fmt, invert = FALSE)[[1]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">101</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">519</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams fit_coxreg_multivar</pre>
+                      <pre class="language-r">    if (length(str_fmt) != length(str_vals)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">102</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">520</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams survival_duration_subgroups</pre>
+                      <pre class="language-r">      stop(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">103</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">521</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        "Number of inserted values as result (", length(str_vals),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">104</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">522</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `data.frame` with columns `biomarker`, `biomarker_label`, `n_tot`, `n_tot_events`,</pre>
+                      <pre class="language-r">        ") is not the same as there should be in the default tern formats for ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">105</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">523</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `median`, `hr`, `lcl`, `ucl`, `conf_level`, `pval`, `pval_label`, `subgroup`, `var`,</pre>
+                      <pre class="language-r">        x_stat, " (-&gt; ", def_fmt, " needs ", length(str_fmt), " values). ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">106</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">524</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `var_label`, and `row_type`.</pre>
+                      <pre class="language-r">        "See tern_default_formats to check all of them."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">525</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">526</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [h_coxreg_mult_cont_df()] which is used internally, [tabulate_survival_biomarkers()].</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">527</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">528</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    # Squashing them together</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">111</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">extract_survival_biomarkers &lt;- function(variables,</pre>
+                  <tr class="covered">
+                    <td class="num">529</td>
+                    <td class="coverage">16<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    inv_str_fmt &lt;- str_extract(def_fmt, invert = TRUE)[[1]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">112</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">530</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        data,</pre>
+                      <pre class="language-r">    stopifnot(length(inv_str_fmt) == length(str_vals) + 1) # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">531</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        groups_lists = list(),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">114</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">532</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        control = control_coxreg(),</pre>
+                      <pre class="language-r">    out &lt;- vector("character", length = length(inv_str_fmt) + length(str_vals))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">115</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">533</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        label_all = "All Patients") {</pre>
+                      <pre class="language-r">    is_even &lt;- seq_along(out) %% 2 == 0</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">534</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if ("strat" %in% names(variables)) {</pre>
+                      <pre class="language-r">    out[is_even] &lt;- str_vals</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">117</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">535</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning(</pre>
+                      <pre class="language-r">    out[!is_even] &lt;- inv_str_fmt</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">118</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">536</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Warning: the `strat` element name of the `variables` list argument to `extract_survival_biomarkers() ",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">119</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">537</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "was deprecated in tern 0.9.4.\n  ",</pre>
+                      <pre class="language-r">    return(paste0(out, collapse = ""))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">120</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">538</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Please use the name `strata` instead of `strat` in the `variables` argument."</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">539</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">122</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">540</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    variables[["strata"]] &lt;- variables[["strat"]]</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">541</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"># Utility function that could be useful in general</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">542</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">str_extract &lt;- function(string, pattern = "xx|xx\\.|xx\\.x+", invert = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">543</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(variables)</pre>
+                      <pre class="language-r">  regmatches(string, gregexpr(pattern, string), invert = invert)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">544</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(variables$subgroups, null.ok = TRUE)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">545</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label_all)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">546</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r"># Helper function</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">547</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Start with all patients.</pre>
+                      <pre class="language-r">count_decimalplaces &lt;- function(dec) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">548</td>
+                    <td class="coverage">161<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result_all &lt;- h_coxreg_mult_cont_df(</pre>
+                      <pre class="language-r">  if (is.na(dec)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">131</td>
+                    <td class="num">549</td>
                     <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    variables = variables,</pre>
+                      <pre class="language-r">    return(0)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">550</td>
+                    <td class="coverage">155<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data = data,</pre>
+                      <pre class="language-r">  } else if (abs(dec - round(dec)) &gt; .Machine$double.eps^0.5) { # For precision</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">551</td>
+                    <td class="coverage">122<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    control = control</pre>
+                      <pre class="language-r">    nchar(strsplit(format(dec, scientific = FALSE, trim = FALSE), ".", fixed = TRUE)[[1]][[2]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">552</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">135</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">553</td>
+                    <td class="coverage">33<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result_all$subgroup &lt;- label_all</pre>
+                      <pre class="language-r">    return(0)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">136</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">554</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result_all$var &lt;- "ALL"</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">555</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result_all$var_label &lt;- label_all</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">556</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result_all$row_type &lt;- "content"</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">557</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(variables$subgroups)) {</pre>
+                      <pre class="language-r">#' Apply automatic formatting</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">558</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Only return result for all patients.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">559</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result_all</pre>
+                      <pre class="language-r">#' Checks if any of the listed formats in `.formats` are `"auto"`, and replaces `"auto"` with</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">560</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' the correct implementation of `format_auto` for the given statistics, data, and variable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">561</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Add subgroups results.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">562</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    l_data &lt;- h_split_by_subgroups(</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">145</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">563</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data,</pre>
+                      <pre class="language-r">#' @param x_stats (named `list`)\cr a named list of statistics where each element corresponds</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">564</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      variables$subgroups,</pre>
+                      <pre class="language-r">#'   to an element in `.formats`, with matching names.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">565</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      groups_lists = groups_lists</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">566</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">149</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">567</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    l_result &lt;- lapply(l_data, function(grp) {</pre>
+                      <pre class="language-r">apply_auto_formatting &lt;- function(.formats, x_stats, .df_row, .var) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">150</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">568</td>
+                    <td class="coverage">420<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      result &lt;- h_coxreg_mult_cont_df(</pre>
+                      <pre class="language-r">  is_auto_fmt &lt;- vapply(.formats, function(ii) is.character(ii) &amp;&amp; ii == "auto", logical(1))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">569</td>
+                    <td class="coverage">420<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        variables = variables,</pre>
+                      <pre class="language-r">  if (any(is_auto_fmt)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">570</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data = grp$df,</pre>
+                      <pre class="language-r">    auto_stats &lt;- x_stats[is_auto_fmt]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">153</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">571</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        control = control</pre>
+                      <pre class="language-r">    var_df &lt;- .df_row[[.var]] # xxx this can be extended for the WHOLE data or single facets</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">154</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">572</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    .formats[is_auto_fmt] &lt;- lapply(names(auto_stats), format_auto, dt_var = var_df)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">573</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      result_labels &lt;- grp$df_labels[rep(1, times = nrow(result)), ]</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">574</td>
+                    <td class="coverage">420<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cbind(result, result_labels)</pre>
+                      <pre class="language-r">  .formats</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">575</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">5<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/h_step.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
+                  <tr class="never">
+                    <td class="num">1</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result_subgroups &lt;- do.call(rbind, args = c(l_result, make.row.names = FALSE))</pre>
+                      <pre class="language-r">#' Helper functions for subgroup treatment effect pattern (STEP) calculations</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">2</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result_subgroups$row_type &lt;- "analysis"</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">160</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">3</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rbind(</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      result_all,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      result_subgroups</pre>
+                      <pre class="language-r">#' Helper functions that are used internally for the STEP calculations.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @name h_step</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn survival_biomarkers_subgroups Table-creating function which creates a table</pre>
+                      <pre class="language-r">#' @include control_step.R</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   summarizing biomarker effects on survival by subgroup.</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param label_all `r lifecycle::badge("deprecated")`\cr please assign the `label_all` parameter within the</pre>
+                      <pre class="language-r">#' @describeIn h_step Creates the windows for STEP, based on the control settings</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   [extract_survival_biomarkers()] function when creating `df`.</pre>
+                      <pre class="language-r">#'   provided.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return An `rtables` table summarizing biomarker effects on survival by subgroup.</pre>
+                      <pre class="language-r">#' @param x (`numeric`)\cr biomarker value(s) to use (without `NA`).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param control (named `list`)\cr output from `control_step()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note In contrast to [tabulate_survival_subgroups()] this tabulation function does</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   not start from an input layout `lyt`. This is because internally the table is</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   created by combining multiple subtables.</pre>
+                      <pre class="language-r">#' * `h_step_window()` returns a list containing the window-selection matrix `sel`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   and the interval information matrix `interval`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [h_tab_surv_one_biomarker()] which is used internally, [extract_survival_biomarkers()].</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">h_step_window &lt;- function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Table with default columns.</pre>
+                      <pre class="language-r">                          control = control_step()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">183</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">26</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tabulate_survival_biomarkers(df)</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(x, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">184</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">27</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_list(control, names = "named")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Table with a manually chosen set of columns: leave out "pval", reorder.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">186</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">29</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tab &lt;- tabulate_survival_biomarkers(</pre>
+                      <pre class="language-r">  sel &lt;- matrix(FALSE, length(x), control$num_points)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">187</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">30</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   df = df,</pre>
+                      <pre class="language-r">  out &lt;- matrix(0, control$num_points, 3)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">188</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">31</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   vars = c("n_tot_events", "ci", "n_tot", "median", "hr"),</pre>
+                      <pre class="language-r">  colnames(out) &lt;- paste("Interval", c("Center", "Lower", "Upper"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">189</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">32</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   time_unit = as.character(adtte_f$AVALU[1])</pre>
+                      <pre class="language-r">  if (control$use_percentile) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    # Create windows according to percentile cutoffs.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">191</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">34</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    out &lt;- cbind(out, out)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">192</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">35</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Finally produce the forest plot.</pre>
+                      <pre class="language-r">    colnames(out)[1:3] &lt;- paste("Percentile", c("Center", "Lower", "Upper"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">193</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">36</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' \donttest{</pre>
+                      <pre class="language-r">    xs &lt;- seq(0, 1, length.out = control$num_points + 2)[-1]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">194</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">37</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_forest(tab, xlim = c(0.8, 1.2))</pre>
+                      <pre class="language-r">    for (i in seq_len(control$num_points)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">195</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">38</td>
+                    <td class="coverage">185<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">      out[i, 2:3] &lt;- c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">196</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">39</td>
+                    <td class="coverage">185<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        max(xs[i] - control$bandwidth, 0),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">197</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">40</td>
+                    <td class="coverage">185<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">        min(xs[i] + control$bandwidth, 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 2</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">199</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">42</td>
+                    <td class="coverage">185<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">tabulate_survival_biomarkers &lt;- function(df,</pre>
+                      <pre class="language-r">      out[i, 5:6] &lt;- stats::quantile(x, out[i, 2:3])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">200</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">43</td>
+                    <td class="coverage">185<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         vars = c("n_tot", "n_tot_events", "median", "hr", "ci", "pval"),</pre>
+                      <pre class="language-r">      sel[, i] &lt;- x &gt;= out[i, 5] &amp; x &lt;= out[i, 6]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         groups_lists = list(),</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         control = control_coxreg(),</pre>
+                      <pre class="language-r">    # Center is the middle point of the percentile window.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">203</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">46</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         label_all = lifecycle::deprecated(),</pre>
+                      <pre class="language-r">    out[, 1] &lt;- xs[-control$num_points - 1]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">204</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">47</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         time_unit = NULL,</pre>
+                      <pre class="language-r">    out[, 4] &lt;- stats::quantile(x, out[, 1])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">205</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         na_str = default_na_str(),</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         .indent_mods = 0L) {</pre>
+                      <pre class="language-r">    # Create windows according to cutoffs.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">50</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (lifecycle::is_present(label_all)) {</pre>
+                      <pre class="language-r">    m &lt;- c(min(x), max(x))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">51</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
+                      <pre class="language-r">    xs &lt;- seq(m[1], m[2], length.out = control$num_points + 2)[-1]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">209</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">52</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "0.9.5", "tabulate_survival_biomarkers(label_all)",</pre>
+                      <pre class="language-r">    for (i in seq_len(control$num_points)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">53</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      details = paste(</pre>
+                      <pre class="language-r">      out[i, 2:3] &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">54</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Please assign the `label_all` parameter within the",</pre>
+                      <pre class="language-r">        max(xs[i] - control$bandwidth, m[1]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">212</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">55</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "`extract_survival_biomarkers()` function when creating `df`."</pre>
+                      <pre class="language-r">        min(xs[i] + control$bandwidth, m[2])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">214</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">57</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      sel[, i] &lt;- x &gt;= out[i, 2] &amp; x &lt;= out[i, 3]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # Center is the same as the point for predicting.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">217</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">60</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(df)</pre>
+                      <pre class="language-r">    out[, 1] &lt;- xs[-control$num_points - 1]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">218</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">61</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(df$biomarker)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">62</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(df$biomarker_label)</pre>
+                      <pre class="language-r">  list(sel = sel, interval = out)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">63</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(vars, get_stats("tabulate_survival_biomarkers"))</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">65</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(groups_lists = groups_lists, control = control)</pre>
+                      <pre class="language-r">#' @describeIn h_step Calculates the estimated treatment effect estimate</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">223</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   on the linear predictor scale and corresponding standard error from a STEP `model` fitted</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">67</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df_subs &lt;- split(df, f = df$biomarker)</pre>
+                      <pre class="language-r">#'   on `data` given `variables` specification, for a single biomarker value `x`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">225</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">68</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tabs &lt;- lapply(df_subs, FUN = function(df_sub) {</pre>
+                      <pre class="language-r">#'   This works for both `coxph` and `glm` models, i.e. for calculating log hazard ratio or log odds</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">69</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tab_sub &lt;- h_tab_surv_one_biomarker(</pre>
+                      <pre class="language-r">#'   ratio estimates.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df = df_sub,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">71</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vars = vars,</pre>
+                      <pre class="language-r">#' @param model (`coxph` or `glm`)\cr the regression model object.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">229</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">72</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      time_unit = time_unit,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">73</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      na_str = na_str,</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">231</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">74</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      .indent_mods = .indent_mods,</pre>
+                      <pre class="language-r">#' * `h_step_trt_effect()` returns a vector with elements `est` and `se`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">75</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      extra_args = extra_args</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">234</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Insert label row as first row in table.</pre>
+                      <pre class="language-r">h_step_trt_effect &lt;- function(data,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">235</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">78</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label_at_path(tab_sub, path = row_paths(tab_sub)[[1]][1]) &lt;- df_sub$biomarker_label[1]</pre>
+                      <pre class="language-r">                              model,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">236</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">79</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tab_sub</pre>
+                      <pre class="language-r">                              variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">237</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">                              x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">238</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">81</td>
+                    <td class="coverage">208<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result &lt;- do.call(rbind, tabs)</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(model, c("coxph", "glm"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">239</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">82</td>
+                    <td class="coverage">208<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  checkmate::assert_number(x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">240</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">83</td>
+                    <td class="coverage">208<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n_tot_ids &lt;- grep("^n_tot", vars)</pre>
+                      <pre class="language-r">  assert_df_with_variables(data, variables)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">241</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">84</td>
+                    <td class="coverage">208<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  hr_id &lt;- match("hr", vars)</pre>
+                      <pre class="language-r">  checkmate::assert_factor(data[[variables$arm]], n.levels = 2)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">242</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">85</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ci_id &lt;- match("ci", vars)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">243</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">86</td>
+                    <td class="coverage">208<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  structure(</pre>
+                      <pre class="language-r">  newdata &lt;- data[c(1, 1), ]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">244</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">87</td>
+                    <td class="coverage">208<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result,</pre>
+                      <pre class="language-r">  newdata[, variables$biomarker] &lt;- x</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">245</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">88</td>
+                    <td class="coverage">208<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    forest_header = paste0(c("Higher", "Lower"), "\nBetter"),</pre>
+                      <pre class="language-r">  newdata[, variables$arm] &lt;- levels(data[[variables$arm]])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">246</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">89</td>
+                    <td class="coverage">208<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    col_x = hr_id,</pre>
+                      <pre class="language-r">  model_terms &lt;- stats::delete.response(stats::terms(model))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">247</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">90</td>
+                    <td class="coverage">208<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    col_ci = ci_id,</pre>
+                      <pre class="language-r">  model_frame &lt;- stats::model.frame(model_terms, data = newdata, xlev = model$xlevels)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">248</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">91</td>
+                    <td class="coverage">208<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    col_symbol_size = n_tot_ids[1]</pre>
+                      <pre class="language-r">  mat &lt;- stats::model.matrix(model_terms, data = model_frame, contrasts.arg = model$contrasts)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">249</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">92</td>
+                    <td class="coverage">208<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  coefs &lt;- stats::coef(model)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">250</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  # Note: It is important to use the coef subset from matrix, otherwise intercept and</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/h_adsl_adlb_merge_using_worst_flag.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function for deriving analysis datasets for select laboratory tables</pre>
+                      <pre class="language-r">  # strata are included for coxph() models.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">95</td>
+                    <td class="coverage">208<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  mat &lt;- mat[, names(coefs)]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">96</td>
+                    <td class="coverage">208<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">  mat_diff &lt;- diff(mat)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">97</td>
+                    <td class="coverage">208<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  est &lt;- mat_diff %*% coefs</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">98</td>
+                    <td class="coverage">208<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function that merges ADSL and ADLB datasets so that missing lab test records are inserted in the</pre>
+                      <pre class="language-r">  var &lt;- mat_diff %*% stats::vcov(model) %*% t(mat_diff)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">99</td>
+                    <td class="coverage">208<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' output dataset. Remember that `na_level` must match the needed pre-processing</pre>
+                      <pre class="language-r">  se &lt;- sqrt(var)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">100</td>
+                    <td class="coverage">208<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' done with [df_explicit_na()] to have the desired output.</pre>
+                      <pre class="language-r">  c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">101</td>
+                    <td class="coverage">208<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    est = est,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">102</td>
+                    <td class="coverage">208<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param adsl (`data.frame`)\cr ADSL data frame.</pre>
+                      <pre class="language-r">    se = se</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param adlb (`data.frame`)\cr ADLB data frame.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param worst_flag (named `character`)\cr worst post-baseline lab flag variable. See how this is implemented in the</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   following examples.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param by_visit (`flag`)\cr defaults to `FALSE` to generate worst grade per patient.</pre>
+                      <pre class="language-r">#' @describeIn h_step Builds the model formula used in survival STEP calculations.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   If worst grade per patient per visit is specified for `worst_flag`, then</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `by_visit` should be `TRUE` to generate worst grade patient per visit.</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param no_fillin_visits (named `character`)\cr visits that are not considered for post-baseline worst toxicity</pre>
+                      <pre class="language-r">#' * `h_step_survival_formula()` returns a model formula.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   grade. Defaults to `c("SCREENING", "BASELINE")`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `df` containing variables shared between `adlb` and `adsl` along with variables `PARAM`, `PARAMCD`,</pre>
+                      <pre class="language-r">h_step_survival_formula &lt;- function(variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `ATOXGR`, and `BTOXGR` relevant for analysis. Optionally, `AVISIT` are `AVISITN` are included when</pre>
+                      <pre class="language-r">                                    control = control_step()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">114</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `by_visit = TRUE` and `no_fillin_visits = c("SCREENING", "BASELINE")`.</pre>
+                      <pre class="language-r">  checkmate::assert_character(variables$covariates, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">116</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details In the result data missing records will be created for the following situations:</pre>
+                      <pre class="language-r">  assert_list_of_variables(variables[c("arm", "biomarker", "event", "time")])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">117</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * Patients who are present in `adsl` but have no lab data in `adlb` (both baseline and post-baseline).</pre>
+                      <pre class="language-r">  form &lt;- paste0("Surv(", variables$time, ", ", variables$event, ") ~ ", variables$arm)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">118</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * Patients who do not have any post-baseline lab values.</pre>
+                      <pre class="language-r">  if (control$degree &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   * Patients without any post-baseline values flagged as the worst.</pre>
+                  <tr class="covered">
+                    <td class="num">119</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    form &lt;- paste0(form, " * stats::poly(", variables$biomarker, ", degree = ", control$degree, ", raw = TRUE)")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">121</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  if (!is.null(variables$covariates)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">122</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `h_adsl_adlb_merge_using_worst_flag`</pre>
+                      <pre class="language-r">    form &lt;- paste(form, "+", paste(variables$covariates, collapse = "+"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adlb_out &lt;- h_adsl_adlb_merge_using_worst_flag(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">124</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   tern_ex_adsl,</pre>
+                      <pre class="language-r">  if (!is.null(variables$strata)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">125</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   tern_ex_adlb,</pre>
+                      <pre class="language-r">    form &lt;- paste0(form, " + strata(", paste0(variables$strata, collapse = ", "), ")")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   worst_flag = c("WGRHIFL" = "Y")</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">127</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  stats::as.formula(form)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `h_adsl_adlb_merge_using_worst_flag` by visit example</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adlb_out_by_visit &lt;- h_adsl_adlb_merge_using_worst_flag(</pre>
+                      <pre class="language-r">#' @describeIn h_step Estimates the model with `formula` built based on</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   tern_ex_adsl,</pre>
+                      <pre class="language-r">#'   `variables` in `data` for a given `subset` and `control` parameters for the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   tern_ex_adlb,</pre>
+                      <pre class="language-r">#'   Cox regression.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   worst_flag = c("WGRLOVFL" = "Y"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   by_visit = TRUE</pre>
+                      <pre class="language-r">#' @param formula (`formula`)\cr the regression model formula.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' @param subset (`logical`)\cr subset vector.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_adsl_adlb_merge_using_worst_flag &lt;- function(adsl, # nolint</pre>
+                      <pre class="language-r">#' * `h_step_survival_est()` returns a matrix of number of observations `n`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                               adlb,</pre>
+                      <pre class="language-r">#'   `events`, log hazard ratio estimates `loghr`, standard error `se`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                               worst_flag = c("WGRHIFL" = "Y"),</pre>
+                      <pre class="language-r">#'   and Wald confidence interval bounds `ci_lower` and `ci_upper`. One row is</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                               by_visit = FALSE,</pre>
+                      <pre class="language-r">#'   included for each biomarker value in `x`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                               no_fillin_visits = c("SCREENING", "BASELINE")) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">50</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  col_names &lt;- names(worst_flag)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">51</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  filter_values &lt;- worst_flag</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">53</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  temp &lt;- Map(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">54</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    function(x, y) which(adlb[[x]] == y),</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">55</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">144</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    col_names,</pre>
+                      <pre class="language-r">h_step_survival_est &lt;- function(formula,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">56</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">145</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    filter_values</pre>
+                      <pre class="language-r">                                data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">                                variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                x,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">148</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  position_satisfy_filters &lt;- Reduce(intersect, temp)</pre>
+                      <pre class="language-r">                                subset = rep(TRUE, nrow(data)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                control = control_coxph()) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">150</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adsl_adlb_common_columns &lt;- intersect(colnames(adsl), colnames(adlb))</pre>
+                      <pre class="language-r">  checkmate::assert_formula(formula)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">151</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  columns_from_adlb &lt;- c("USUBJID", "PARAM", "PARAMCD", "AVISIT", "AVISITN", "ATOXGR", "BTOXGR")</pre>
+                      <pre class="language-r">  assert_df_with_variables(data, variables)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">152</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  checkmate::assert_logical(subset, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">64</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">153</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb_f &lt;- adlb[position_satisfy_filters, ] %&gt;%</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(x, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">154</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::filter(!.data[["AVISIT"]] %in% no_fillin_visits)</pre>
+                      <pre class="language-r">  checkmate::assert_list(control, names = "named")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">155</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb_f &lt;- adlb_f[, columns_from_adlb]</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  # Note: `subset` in `coxph` needs to be an expression referring to `data` variables.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">157</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  avisits_grid &lt;- adlb %&gt;%</pre>
+                      <pre class="language-r">  data$.subset &lt;- subset</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">69</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">158</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::filter(!.data[["AVISIT"]] %in% no_fillin_visits) %&gt;%</pre>
+                      <pre class="language-r">  coxph_warnings &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">70</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">159</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::pull(.data[["AVISIT"]]) %&gt;%</pre>
+                      <pre class="language-r">  tryCatch(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">71</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">160</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    unique()</pre>
+                      <pre class="language-r">    withCallingHandlers(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">72</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">161</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      expr = {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">73</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">162</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (by_visit) {</pre>
+                      <pre class="language-r">        fit &lt;- survival::coxph(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">163</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adsl_lb &lt;- expand.grid(</pre>
+                      <pre class="language-r">          formula = formula,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">164</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      USUBJID = unique(adsl$USUBJID),</pre>
+                      <pre class="language-r">          data = data,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">165</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      AVISIT = avisits_grid,</pre>
+                      <pre class="language-r">          subset = .subset,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">166</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD = unique(adlb$PARAMCD)</pre>
+                      <pre class="language-r">          ties = control$ties</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">169</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adsl_lb &lt;- adsl_lb %&gt;%</pre>
+                      <pre class="language-r">      warning = function(w) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">81</td>
+                    <td class="num">170</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::left_join(unique(adlb[c("AVISIT", "AVISITN")]), by = "AVISIT") %&gt;%</pre>
+                      <pre class="language-r">        coxph_warnings &lt;&lt;- c(coxph_warnings, w)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">82</td>
+                    <td class="num">171</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::left_join(unique(adlb[c("PARAM", "PARAMCD")]), by = "PARAMCD")</pre>
+                      <pre class="language-r">        invokeRestart("muffleWarning")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">173</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adsl1 &lt;- adsl[, adsl_adlb_common_columns]</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">85</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">174</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adsl_lb &lt;- adsl1 %&gt;% merge(adsl_lb, by = "USUBJID")</pre>
+                      <pre class="language-r">    finally = {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    by_variables_from_adlb &lt;- c("USUBJID", "AVISIT", "AVISITN", "PARAMCD", "PARAM")</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">89</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">177</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adlb_btoxgr &lt;- adlb %&gt;%</pre>
+                      <pre class="language-r">  if (!is.null(coxph_warnings)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">90</td>
+                    <td class="num">178</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::select(c("USUBJID", "PARAMCD", "BTOXGR")) %&gt;%</pre>
+                      <pre class="language-r">    warning(paste(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">91</td>
+                    <td class="num">179</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      unique() %&gt;%</pre>
+                      <pre class="language-r">      "Fit warnings occurred, please consider using a simpler model, or",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">92</td>
+                    <td class="num">180</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::rename("BTOXGR_MAP" = "BTOXGR")</pre>
+                      <pre class="language-r">      "larger `bandwidth`, less `num_points` in `control_step()` settings"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">94</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    adlb_out &lt;- merge(</pre>
+                      <pre class="language-r">    ))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">182</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      adlb_f,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">96</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">183</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      adsl_lb,</pre>
+                      <pre class="language-r">  # Produce a matrix with one row per `x` and columns `est` and `se`.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">97</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">184</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      by = by_variables_from_adlb,</pre>
+                      <pre class="language-r">  estimates &lt;- t(vapply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">98</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">185</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      all = TRUE,</pre>
+                      <pre class="language-r">    X = x,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">99</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      sort = FALSE</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">100</td>
-                    <td class="coverage"></td>
+                    <td class="num">186</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    FUN = h_step_trt_effect,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">187</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adlb_out &lt;- adlb_out %&gt;%</pre>
+                      <pre class="language-r">    FUN.VALUE = c(1, 2),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">188</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::left_join(adlb_btoxgr, by = c("USUBJID", "PARAMCD")) %&gt;%</pre>
+                      <pre class="language-r">    data = data,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">189</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::mutate(BTOXGR = .data$BTOXGR_MAP) %&gt;%</pre>
+                      <pre class="language-r">    model = fit,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">104</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">190</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::select(-"BTOXGR_MAP")</pre>
+                      <pre class="language-r">    variables = variables</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  ))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">192</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adlb_var_labels &lt;- c(</pre>
+                      <pre class="language-r">  q_norm &lt;- stats::qnorm((1 + control$conf_level) / 2)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">193</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      formatters::var_labels(adlb[by_variables_from_adlb]),</pre>
+                      <pre class="language-r">  cbind(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">194</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      formatters::var_labels(adlb[columns_from_adlb[!columns_from_adlb %in% by_variables_from_adlb]]),</pre>
+                      <pre class="language-r">    n = fit$n,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">195</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      formatters::var_labels(adsl[adsl_adlb_common_columns[adsl_adlb_common_columns != "USUBJID"]])</pre>
+                      <pre class="language-r">    events = fit$nevent,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">110</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">196</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    loghr = estimates[, "est"],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">111</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">197</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">    se = estimates[, "se"],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">198</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adsl_lb &lt;- expand.grid(</pre>
+                      <pre class="language-r">    ci_lower = estimates[, "est"] - q_norm * estimates[, "se"],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">199</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      USUBJID = unique(adsl$USUBJID),</pre>
+                      <pre class="language-r">    ci_upper = estimates[, "est"] + q_norm * estimates[, "se"]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">114</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">200</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      PARAMCD = unique(adlb$PARAMCD)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">203</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adsl_lb &lt;- adsl_lb %&gt;% dplyr::left_join(unique(adlb[c("PARAM", "PARAMCD")]), by = "PARAMCD")</pre>
+                      <pre class="language-r">#' @describeIn h_step Builds the model formula used in response STEP calculations.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">205</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adsl1 &lt;- adsl[, adsl_adlb_common_columns]</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">120</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">206</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adsl_lb &lt;- adsl1 %&gt;% merge(adsl_lb, by = "USUBJID")</pre>
+                      <pre class="language-r">#' * `h_step_rsp_formula()` returns a model formula.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">122</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">208</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    by_variables_from_adlb &lt;- c("USUBJID", "PARAMCD", "PARAM")</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">h_step_rsp_formula &lt;- function(variables,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">210</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                               control = c(control_step(), control_logistic())) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">211</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adlb_out &lt;- merge(</pre>
+                      <pre class="language-r">  checkmate::assert_character(variables$covariates, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">212</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      adlb_f,</pre>
+                      <pre class="language-r">  assert_list_of_variables(variables[c("arm", "biomarker", "response")])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">213</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      adsl_lb,</pre>
+                      <pre class="language-r">  response_definition &lt;- sub(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">214</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      by = by_variables_from_adlb,</pre>
+                      <pre class="language-r">    pattern = "response",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">215</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      all = TRUE,</pre>
+                      <pre class="language-r">    replacement = variables$response,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">216</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sort = FALSE</pre>
+                      <pre class="language-r">    x = control$response_definition,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">130</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">217</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    fixed = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">219</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    adlb_var_labels &lt;- c(</pre>
+                      <pre class="language-r">  form &lt;- paste0(response_definition, " ~ ", variables$arm)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">220</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      formatters::var_labels(adlb[by_variables_from_adlb]),</pre>
+                      <pre class="language-r">  if (control$degree &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">221</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      formatters::var_labels(adlb[columns_from_adlb[!columns_from_adlb %in% by_variables_from_adlb]]),</pre>
+                      <pre class="language-r">    form &lt;- paste0(form, " * stats::poly(", variables$biomarker, ", degree = ", control$degree, ", raw = TRUE)")</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">222</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">135</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">223</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      formatters::var_labels(adsl[adsl_adlb_common_columns[adsl_adlb_common_columns != "USUBJID"]])</pre>
+                      <pre class="language-r">  if (!is.null(variables$covariates)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">136</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">224</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    form &lt;- paste(form, "+", paste(variables$covariates, collapse = "+"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">138</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">226</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if (!is.null(variables$strata)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">139</td>
+                    <td class="num">227</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb_out$ATOXGR &lt;- as.factor(adlb_out$ATOXGR)</pre>
+                      <pre class="language-r">    strata_arg &lt;- if (length(variables$strata) &gt; 1) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">228</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb_out$BTOXGR &lt;- as.factor(adlb_out$BTOXGR)</pre>
+                      <pre class="language-r">      paste0("I(interaction(", paste0(variables$strata, collapse = ", "), "))")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">230</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  formatters::var_labels(adlb_out) &lt;- adlb_var_labels</pre>
+                      <pre class="language-r">      variables$strata</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">144</td>
+                    <td class="num">232</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb_out</pre>
+                      <pre class="language-r">    form &lt;- paste0(form, "+ strata(", strata_arg, ")")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/abnormal_by_marked.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">234</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Count patients with marked laboratory abnormalities</pre>
+                      <pre class="language-r">  stats::as.formula(form)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @describeIn h_step Estimates the model with `formula` built based on</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">238</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The analyze function [count_abnormal_by_marked()] creates a layout element to count patients with marked laboratory</pre>
+                      <pre class="language-r">#'   `variables` in `data` for a given `subset` and `control` parameters for the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' abnormalities for each direction of abnormality, categorized by parameter value.</pre>
+                      <pre class="language-r">#'   logistic regression.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function analyzes primary analysis variable `var` which indicates whether a single, replicated,</pre>
+                      <pre class="language-r">#' @param formula (`formula`)\cr the regression model formula.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' or last marked laboratory abnormality was observed. Levels of `var` to include for each marked lab</pre>
+                      <pre class="language-r">#' @param subset (`logical`)\cr subset vector.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' abnormality (`single` and `last_replicated`) can be supplied via the `category` parameter. Additional</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' analysis variables that can be supplied as a list via the `variables` parameter are `id` (defaults</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' to `USUBJID`), a variable to indicate unique subject identifiers, `param` (defaults to `PARAM`), a</pre>
+                      <pre class="language-r">#' * `h_step_rsp_est()` returns a matrix of number of observations `n`, log odds</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' variable to indicate parameter values, and `direction` (defaults to `abn_dir`), a variable to indicate</pre>
+                      <pre class="language-r">#'   ratio estimates `logor`, standard error `se`, and Wald confidence interval bounds</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' abnormality directions.</pre>
+                      <pre class="language-r">#'   `ci_lower` and `ci_upper`. One row is included for each biomarker value in `x`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' For each combination of `param` and `direction` levels, marked lab abnormality counts are calculated</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' as follows:</pre>
+                      <pre class="language-r">h_step_rsp_est &lt;- function(formula,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `Single, not last` &amp; `Last or replicated`: The number of patients with `Single, not last`</pre>
+                      <pre class="language-r">                           data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     and `Last or replicated` values, respectively.</pre>
+                      <pre class="language-r">                           variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `Any`: The number of patients with either single or replicated marked abnormalities.</pre>
+                      <pre class="language-r">                           x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                           subset = rep(TRUE, nrow(data)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Fractions are calculated by dividing the above counts by the number of patients with at least one</pre>
+                      <pre class="language-r">                           control = control_logistic()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">256</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' valid measurement recorded during the analysis.</pre>
+                      <pre class="language-r">  checkmate::assert_formula(formula)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">257</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  assert_df_with_variables(data, variables)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">258</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Prior to using this function in your table layout you must use [rtables::split_rows_by()] to create two</pre>
+                      <pre class="language-r">  checkmate::assert_logical(subset, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">259</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' row splits, one on variable `param` and one on variable `direction`.</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(x, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">260</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_list(control, names = "named")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">  # Note: `subset` in `glm` needs to be an expression referring to `data` variables.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">262</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param category (`list`)\cr a list with different marked category names for single</pre>
+                      <pre class="language-r">  data$.subset &lt;- subset</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">263</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and last or replicated.</pre>
+                      <pre class="language-r">  fit_warnings &lt;- NULL</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">264</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("abnormal_by_marked")`</pre>
+                      <pre class="language-r">  tryCatch(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">265</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to see available statistics for this function.</pre>
+                      <pre class="language-r">    withCallingHandlers(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">266</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      expr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">267</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note `Single, not last` and `Last or replicated` levels are mutually exclusive. If a patient has</pre>
+                      <pre class="language-r">        fit &lt;- if (is.null(variables$strata)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">268</td>
+                    <td class="coverage">54<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   abnormalities that meet both the `Single, not last` and `Last or replicated` criteria, then the</pre>
+                      <pre class="language-r">          stats::glm(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">269</td>
+                    <td class="coverage">54<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   patient will be counted only under the `Last or replicated` category.</pre>
+                      <pre class="language-r">            formula = formula,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">270</td>
+                    <td class="coverage">54<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            data = data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">271</td>
+                    <td class="coverage">54<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name abnormal_by_marked</pre>
+                      <pre class="language-r">            subset = .subset,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">272</td>
+                    <td class="coverage">54<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 1</pre>
+                      <pre class="language-r">            family = stats::binomial("logit")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">273</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">274</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">275</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn abnormal_by_marked Statistics function for patients with marked lab abnormalities.</pre>
+                      <pre class="language-r">          # clogit needs coxph and strata imported</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">276</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          survival::clogit(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">277</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">            formula = formula,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">278</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_count_abnormal_by_marked()` returns statistic `count_fraction` with `Single, not last`,</pre>
+                      <pre class="language-r">            data = data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">279</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `Last or replicated`, and `Any` results.</pre>
+                      <pre class="language-r">            subset = .subset</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">280</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">281</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">282</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_count_abnormal_by_marked &lt;- function(df,</pre>
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">283</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       .var = "AVALCAT1",</pre>
+                      <pre class="language-r">      warning = function(w) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">284</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       .spl_context,</pre>
+                      <pre class="language-r">        fit_warnings &lt;&lt;- c(fit_warnings, w)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">285</td>
+                    <td class="coverage">19<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        invokeRestart("muffleWarning")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       category = list(single = "SINGLE", last_replicated = c("LAST", "REPLICATED")),</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       variables = list(id = "USUBJID", param = "PARAM", direction = "abn_dir")) {</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">54</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">288</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(.var)</pre>
+                      <pre class="language-r">    finally = {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">55</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">289</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(variables)</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">56</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">290</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(category)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(names(category), c("single", "last_replicated"))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(names(variables), c("id", "param", "direction"))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_vector(unique(df[[variables$direction]]), max.len = 1)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">60</td>
-                    <td class="coverage"></td>
+                    <td class="num">291</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if (!is.null(fit_warnings)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">292</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(df, c(aval = .var, variables))</pre>
+                      <pre class="language-r">    warning(paste(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">293</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(df[[.var]], classes = c("factor", "character"))</pre>
+                      <pre class="language-r">      "Fit warnings occurred, please consider using a simpler model, or",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">294</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(df[[variables$id]], classes = c("factor", "character"))</pre>
+                      <pre class="language-r">      "larger `bandwidth`, less `num_points` in `control_step()` settings"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">295</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">296</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  first_row &lt;- .spl_context[.spl_context$split == variables[["param"]], ]</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">297</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Patients in the denominator have at least one post-baseline visit.</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  subj &lt;- first_row$full_parent_df[[1]][[variables[["id"]]]]</pre>
+                      <pre class="language-r">  # Produce a matrix with one row per `x` and columns `est` and `se`.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">69</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  subj_cur_col &lt;- subj[first_row$cur_col_subset[[1]]]</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">70</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  # Some subjects may have a record for high and low directions but</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">71</td>
-                    <td class="coverage"></td>
+                    <td class="num">298</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # should be counted only once.</pre>
+                      <pre class="language-r">  estimates &lt;- t(vapply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  denom &lt;- length(unique(subj_cur_col))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">73</td>
-                    <td class="coverage"></td>
+                    <td class="num">299</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    X = x,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">300</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (denom != 0) {</pre>
+                      <pre class="language-r">    FUN = h_step_trt_effect,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">301</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    subjects_last_replicated &lt;- unique(</pre>
+                      <pre class="language-r">    FUN.VALUE = c(1, 2),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      df[df[[.var]] %in% category[["last_replicated"]], variables$id, drop = TRUE]</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">77</td>
-                    <td class="coverage"></td>
+                    <td class="num">302</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    data = data,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">303</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    subjects_single &lt;- unique(</pre>
+                      <pre class="language-r">    model = fit,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      df[df[[.var]] %in% category[["single"]], variables$id, drop = TRUE]</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">80</td>
-                    <td class="coverage"></td>
+                    <td class="num">304</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    variables = variables</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">305</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Subjects who have both single and last/replicated abnormalities are counted in only the last/replicated group.</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">82</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    subjects_single &lt;- setdiff(subjects_single, subjects_last_replicated)</pre>
+                      <pre class="language-r">  ))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">83</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">306</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n_single &lt;- length(subjects_single)</pre>
+                      <pre class="language-r">  q_norm &lt;- stats::qnorm((1 + control$conf_level) / 2)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">307</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n_last_replicated &lt;- length(subjects_last_replicated)</pre>
+                      <pre class="language-r">  cbind(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">85</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">308</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n_any &lt;- n_single + n_last_replicated</pre>
+                      <pre class="language-r">    n = length(fit$y),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">309</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result &lt;- list(count_fraction = list(</pre>
+                      <pre class="language-r">    logor = estimates[, "est"],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">310</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Single, not last" = c(n_single, n_single / denom),</pre>
+                      <pre class="language-r">    se = estimates[, "se"],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">88</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">311</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Last or replicated" = c(n_last_replicated, n_last_replicated / denom),</pre>
+                      <pre class="language-r">    ci_lower = estimates[, "est"] - q_norm * estimates[, "se"],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">89</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">312</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Any Abnormality" = c(n_any, n_any / denom)</pre>
+                      <pre class="language-r">    ci_upper = estimates[, "est"] + q_norm * estimates[, "se"]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">92</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    result &lt;- list(count_fraction = list(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">93</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      "Single, not last" = c(0, 0),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">94</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      "Last or replicated" = c(0, 0),</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">95</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      "Any Abnormality" = c(0, 0)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/desctools_binom_diff.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))</pre>
+                      <pre class="language-r">#' Confidence intervals for a difference of binomials</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">99</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  result</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Several confidence intervals for the difference between proportions.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn abnormal_by_marked Formatted analysis function which is used as `afun`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   in `count_abnormal_by_marked()`.</pre>
+                      <pre class="language-r">#' @name desctools_binom</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `a_count_abnormal_by_marked()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
+                      <pre class="language-r">#' Recycle list of parameters</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' This function recycles all supplied elements to the maximal dimension.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">a_count_abnormal_by_marked &lt;- make_afun(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_count_abnormal_by_marked,</pre>
+                      <pre class="language-r">#' @param ... (`any`)\cr elements to recycle.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats = c(count_fraction = format_count_fraction)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">#' @return A `list`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn abnormal_by_marked Layout-creating function which can take statistics function arguments</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">h_recycle &lt;- function(...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">117</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">21</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">  lst &lt;- list(...)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">118</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">22</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `count_abnormal_by_marked()` returns a layout object suitable for passing to further layouting functions,</pre>
+                      <pre class="language-r">  maxdim &lt;- max(lengths(lst))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">119</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">23</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
+                      <pre class="language-r">  res &lt;- lapply(lst, rep, length.out = maxdim)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">120</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">24</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the statistics from `s_count_abnormal_by_marked()` to the table layout.</pre>
+                      <pre class="language-r">  attr(res, "maxdim") &lt;- maxdim</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">121</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">25</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  return(res)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @describeIn desctools_binom Several confidence intervals for the difference between proportions.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- data.frame(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   USUBJID = as.character(c(rep(1, 5), rep(2, 5), rep(1, 5), rep(2, 5))),</pre>
+                      <pre class="language-r">#' @return A `matrix` of 3 values:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ARMCD = factor(c(rep("ARM A", 5), rep("ARM B", 5), rep("ARM A", 5), rep("ARM B", 5))),</pre>
+                      <pre class="language-r">#'   * `est`: estimate of proportion difference.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ANRIND = factor(c(</pre>
+                      <pre class="language-r">#'   * `lwr.ci`: estimate of lower end of the confidence interval.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "NORMAL", "HIGH", "HIGH", "HIGH HIGH", "HIGH",</pre>
+                      <pre class="language-r">#'   * `upr.ci`: estimate of upper end of the confidence interval.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "HIGH", "HIGH", "HIGH HIGH", "NORMAL", "HIGH HIGH", "NORMAL", "LOW", "LOW", "LOW LOW", "LOW",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "LOW", "LOW", "LOW LOW", "NORMAL", "LOW LOW"</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )),</pre>
+                      <pre class="language-r">desctools_binom &lt;- function(x1,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ONTRTFL = rep(c("", "Y", "Y", "Y", "Y", "Y", "Y", "Y", "Y", "Y"), 2),</pre>
+                      <pre class="language-r">                            n1,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   PARAMCD = factor(c(rep("CRP", 10), rep("ALT", 10))),</pre>
+                      <pre class="language-r">                            x2,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   AVALCAT1 = factor(rep(c("", "", "", "SINGLE", "REPLICATED", "", "", "LAST", "", "SINGLE"), 2)),</pre>
+                      <pre class="language-r">                            n2,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">                            conf.level = 0.95, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">                            sides = c("two.sided", "left", "right"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                            method = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- df %&gt;%</pre>
+                      <pre class="language-r">                              "ac", "wald", "waldcc", "score", "scorecc", "mn", "mee", "blj", "ha", "hal", "jp"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mutate(abn_dir = factor(</pre>
+                      <pre class="language-r">                            )) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">141</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">45</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     case_when(</pre>
+                      <pre class="language-r">  if (missing(sides)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">142</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">46</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ANRIND == "LOW LOW" ~ "Low",</pre>
+                      <pre class="language-r">    sides &lt;- match.arg(sides)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ANRIND == "HIGH HIGH" ~ "High",</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">144</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">48</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       TRUE ~ ""</pre>
+                      <pre class="language-r">  if (missing(method)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">145</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">49</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ),</pre>
+                      <pre class="language-r">    method &lt;- match.arg(method)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     levels = c("Low", "High")</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">147</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">51</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ))</pre>
+                      <pre class="language-r">  iBinomDiffCI &lt;- function(x1, n1, x2, n2, conf.level, sides, method) { # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">148</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">52</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    if (sides != "two.sided") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">149</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">53</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Select only post-baseline records.</pre>
+                      <pre class="language-r">      conf.level &lt;- 1 - 2 * (1 - conf.level) # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- df %&gt;% filter(ONTRTFL == "Y")</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">151</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">55</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df_crp &lt;- df %&gt;%</pre>
+                      <pre class="language-r">    alpha &lt;- 1 - conf.level</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">152</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">56</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(PARAMCD == "CRP") %&gt;%</pre>
+                      <pre class="language-r">    kappa &lt;- stats::qnorm(1 - alpha / 2)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">153</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">57</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   droplevels()</pre>
+                      <pre class="language-r">    p1_hat &lt;- x1 / n1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">154</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">58</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' full_parent_df &lt;- list(df_crp, "not_needed")</pre>
+                      <pre class="language-r">    p2_hat &lt;- x2 / n2</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">155</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">59</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' cur_col_subset &lt;- list(rep(TRUE, nrow(df_crp)), "not_needed")</pre>
+                      <pre class="language-r">    est &lt;- p1_hat - p2_hat</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">156</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">60</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' spl_context &lt;- data.frame(</pre>
+                      <pre class="language-r">    switch(method,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">157</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">61</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split = c("PARAMCD", "GRADE_DIR"),</pre>
+                      <pre class="language-r">      wald = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">158</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">62</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   full_parent_df = I(full_parent_df),</pre>
+                      <pre class="language-r">        vd &lt;- p1_hat * (1 - p1_hat) / n1 + p2_hat * (1 - p2_hat) / n2</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">159</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">63</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   cur_col_subset = I(cur_col_subset)</pre>
+                      <pre class="language-r">        term2 &lt;- kappa * sqrt(vd)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">160</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">64</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">        ci_lwr &lt;- max(-1, est - term2)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">161</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">65</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        ci_upr &lt;- min(1, est + term2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' map &lt;- unique(</pre>
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">163</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">67</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   df[df$abn_dir %in% c("Low", "High") &amp; df$AVALCAT1 != "", c("PARAMCD", "abn_dir")]</pre>
+                      <pre class="language-r">      waldcc = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">164</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">68</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ) %&gt;%</pre>
+                      <pre class="language-r">        vd &lt;- p1_hat * (1 - p1_hat) / n1 + p2_hat * (1 - p2_hat) / n2</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">165</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">69</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   lapply(as.character) %&gt;%</pre>
+                      <pre class="language-r">        term2 &lt;- kappa * sqrt(vd)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">166</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">70</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   as.data.frame() %&gt;%</pre>
+                      <pre class="language-r">        term2 &lt;- term2 + 0.5 * (1 / n1 + 1 / n2)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">167</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">71</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   arrange(PARAMCD, abn_dir)</pre>
+                      <pre class="language-r">        ci_lwr &lt;- max(-1, est - term2)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">168</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">72</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        ci_upr &lt;- min(1, est + term2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">170</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">74</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARMCD") %&gt;%</pre>
+                      <pre class="language-r">      ac = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">171</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">75</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by("PARAMCD") %&gt;%</pre>
+                      <pre class="language-r">        n1 &lt;- n1 + 2</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">172</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">76</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   summarize_num_patients(</pre>
+                      <pre class="language-r">        n2 &lt;- n2 + 2</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">173</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">77</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     var = "USUBJID",</pre>
+                      <pre class="language-r">        x1 &lt;- x1 + 1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">174</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">78</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .stats = "unique_count"</pre>
+                      <pre class="language-r">        x2 &lt;- x2 + 1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">175</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">79</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">        p1_hat &lt;- x1 / n1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">176</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">80</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by(</pre>
+                      <pre class="language-r">        p2_hat &lt;- x2 / n2</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">177</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">81</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "abn_dir",</pre>
+                      <pre class="language-r">        est1 &lt;- p1_hat - p2_hat</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">178</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">82</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     split_fun = trim_levels_to_map(map)</pre>
+                      <pre class="language-r">        vd &lt;- p1_hat * (1 - p1_hat) / n1 + p2_hat * (1 - p2_hat) / n2</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">179</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">83</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">        term2 &lt;- kappa * sqrt(vd)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">180</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">84</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   count_abnormal_by_marked(</pre>
+                      <pre class="language-r">        ci_lwr &lt;- max(-1, est1 - term2)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">181</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">85</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     var = "AVALCAT1",</pre>
+                      <pre class="language-r">        ci_upr &lt;- min(1, est1 + term2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     variables = list(</pre>
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">183</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">87</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       id = "USUBJID",</pre>
+                      <pre class="language-r">      exact = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">184</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">88</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       param = "PARAMCD",</pre>
+                      <pre class="language-r">        ci_lwr &lt;- NA</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">185</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">89</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       direction = "abn_dir"</pre>
+                      <pre class="language-r">        ci_upr &lt;- NA</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">187</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">91</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">      score = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">188</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">92</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(df = df)</pre>
+                      <pre class="language-r">        w1 &lt;- desctools_binomci(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">189</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">93</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          x = x1, n = n1, conf.level = conf.level,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">190</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">94</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">          method = "wilson"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARMCD") %&gt;%</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">192</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">96</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by("PARAMCD") %&gt;%</pre>
+                      <pre class="language-r">        w2 &lt;- desctools_binomci(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">193</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">97</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   summarize_num_patients(</pre>
+                      <pre class="language-r">          x = x2, n = n2, conf.level = conf.level,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">194</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">98</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     var = "USUBJID",</pre>
+                      <pre class="language-r">          method = "wilson"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .stats = "unique_count"</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">196</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">100</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">        l1 &lt;- w1[2]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">197</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">101</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by(</pre>
+                      <pre class="language-r">        u1 &lt;- w1[3]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">198</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">102</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "abn_dir",</pre>
+                      <pre class="language-r">        l2 &lt;- w2[2]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">199</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">103</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     split_fun = trim_levels_in_group("abn_dir")</pre>
+                      <pre class="language-r">        u2 &lt;- w2[3]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">200</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">104</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">        ci_lwr &lt;- est - kappa * sqrt(l1 * (1 - l1) / n1 + u2 * (1 - u2) / n2)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">201</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">105</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   count_abnormal_by_marked(</pre>
+                      <pre class="language-r">        ci_upr &lt;- est + kappa * sqrt(u1 * (1 - u1) / n1 + l2 * (1 - l2) / n2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     var = "AVALCAT1",</pre>
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">203</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">107</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     variables = list(</pre>
+                      <pre class="language-r">      scorecc = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">204</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">108</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       id = "USUBJID",</pre>
+                      <pre class="language-r">        w1 &lt;- desctools_binomci(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">205</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">109</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       param = "PARAMCD",</pre>
+                      <pre class="language-r">          x = x1, n = n1, conf.level = conf.level,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">206</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">110</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       direction = "abn_dir"</pre>
+                      <pre class="language-r">          method = "wilsoncc"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">208</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">112</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">        w2 &lt;- desctools_binomci(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">209</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">113</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(df = df)</pre>
+                      <pre class="language-r">          x = x2, n = n2, conf.level = conf.level,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">210</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">114</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          method = "wilsoncc"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">212</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">116</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 2</pre>
+                      <pre class="language-r">        l1 &lt;- w1[2]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">213</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">117</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">count_abnormal_by_marked &lt;- function(lyt,</pre>
+                      <pre class="language-r">        u1 &lt;- w1[3]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">214</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">118</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     var,</pre>
+                      <pre class="language-r">        l2 &lt;- w2[2]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">215</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">119</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     category = list(single = "SINGLE", last_replicated = c("LAST", "REPLICATED")),</pre>
+                      <pre class="language-r">        u2 &lt;- w2[3]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">216</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">120</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     variables = list(id = "USUBJID", param = "PARAM", direction = "abn_dir"),</pre>
+                      <pre class="language-r">        ci_lwr &lt;- max(-1, est - sqrt((p1_hat - l1)^2 + (u2 - p2_hat)^2))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">217</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">121</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     na_str = default_na_str(),</pre>
+                      <pre class="language-r">        ci_upr &lt;- min(1, est + sqrt((u1 - p1_hat)^2 + (p2_hat - l2)^2))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">218</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     nested = TRUE,</pre>
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">219</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">123</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     ...,</pre>
+                      <pre class="language-r">      mee = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">220</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">124</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     .stats = NULL,</pre>
+                      <pre class="language-r">        .score &lt;- function(p1, n1, p2, n2, dif) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">125</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          if (dif &gt; 1) dif &lt;- 1</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">126</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          if (dif &lt; -1) dif &lt;- -1</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">127</td>
+                    <td class="coverage">24<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          diff &lt;- p1 - p2 - dif</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">128</td>
+                    <td class="coverage">24<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          if (abs(diff) == 0) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">129</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            res &lt;- 0</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     .formats = NULL,</pre>
+                      <pre class="language-r">          } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">131</td>
+                    <td class="coverage">24<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            t &lt;- n2 / n1</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">132</td>
+                    <td class="coverage">24<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            a &lt;- 1 + t</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">133</td>
+                    <td class="coverage">24<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            b &lt;- -(1 + t + p1 + t * p2 + dif * (t + 2))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">134</td>
+                    <td class="coverage">24<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            c &lt;- dif * dif + dif * (2 * p1 + t + 1) + p1 + t * p2</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">135</td>
+                    <td class="coverage">24<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            d &lt;- -p1 * dif * (1 + dif)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">136</td>
+                    <td class="coverage">24<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            v &lt;- (b / a / 3)^3 - b * c / (6 * a * a) + d / a / 2</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">137</td>
+                    <td class="coverage">24<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            if (abs(v) &lt; .Machine$double.eps) v &lt;- 0</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">138</td>
+                    <td class="coverage">24<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            s &lt;- sqrt((b / a / 3)^2 - c / a / 3)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">139</td>
+                    <td class="coverage">24<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            u &lt;- ifelse(v &gt; 0, 1, -1) * s</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">140</td>
+                    <td class="coverage">24<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            w &lt;- (3.141592654 + acos(v / u^3)) / 3</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">141</td>
+                    <td class="coverage">24<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            p1d &lt;- 2 * u * cos(w) - b / a / 3</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">142</td>
+                    <td class="coverage">24<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            p2d &lt;- p1d - dif</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">143</td>
+                    <td class="coverage">24<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            n &lt;- n1 + n2</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">144</td>
+                    <td class="coverage">24<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            res &lt;- (p1d * (1 - p1d) / n1 + p2d * (1 - p2d) / n2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     .labels = NULL,</pre>
+                      <pre class="language-r">          }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">146</td>
+                    <td class="coverage">24<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          return(sqrt(res))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">223</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     .indent_mods = NULL) {</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">224</td>
+                    <td class="num">148</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(var)</pre>
+                      <pre class="language-r">        pval &lt;- function(delta) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">149</td>
+                    <td class="coverage">24<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          z &lt;- (est - delta) / .score(p1_hat, n1, p2_hat, n2, delta)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">150</td>
+                    <td class="coverage">24<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          2 * min(stats::pnorm(z), 1 - stats::pnorm(z))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">226</td>
+                    <td class="num">152</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(category = category, variables = variables, ...)</pre>
+                      <pre class="language-r">        ci_lwr &lt;- max(-1, stats::uniroot(function(delta) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">153</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          pval(delta) - alpha</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">154</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        }, interval = c(-1 + 1e-06, est - 1e-06))$root)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">155</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        ci_upr &lt;- min(1, stats::uniroot(function(delta) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">156</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          pval(delta) - alpha</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">157</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        }, interval = c(est + 1e-06, 1 - 1e-06))$root)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">228</td>
+                    <td class="num">159</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      blj = {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">160</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  afun &lt;- make_afun(</pre>
+                      <pre class="language-r">        p1_dash &lt;- (x1 + 0.5) / (n1 + 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">229</td>
+                    <td class="num">161</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    a_count_abnormal_by_marked,</pre>
+                      <pre class="language-r">        p2_dash &lt;- (x2 + 0.5) / (n2 + 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">230</td>
+                    <td class="num">162</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .stats = .stats,</pre>
+                      <pre class="language-r">        vd &lt;- p1_dash * (1 - p1_dash) / n1 + p2_dash * (1 - p2_dash) / n2</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">231</td>
+                    <td class="num">163</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .formats = .formats,</pre>
+                      <pre class="language-r">        term2 &lt;- kappa * sqrt(vd)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">232</td>
+                    <td class="num">164</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .labels = .labels,</pre>
+                      <pre class="language-r">        est_dash &lt;- p1_dash - p2_dash</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">233</td>
+                    <td class="num">165</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .indent_mods = .indent_mods,</pre>
+                      <pre class="language-r">        ci_lwr &lt;- max(-1, est_dash - term2)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">234</td>
+                    <td class="num">166</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .ungroup_stats = "count_fraction"</pre>
+                      <pre class="language-r">        ci_upr &lt;- min(1, est_dash + term2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      },</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">168</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      ha = {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">169</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        term2 &lt;- 1 /</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">170</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          (2 * min(n1, n2)) + kappa * sqrt(p1_hat * (1 - p1_hat) / (n1 - 1) + p2_hat * (1 - p2_hat) / (n2 - 1))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">171</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        ci_lwr &lt;- max(-1, est - term2)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">172</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        ci_upr &lt;- min(1, est + term2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">237</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">174</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lyt &lt;- analyze(</pre>
+                      <pre class="language-r">      mn = {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">238</td>
+                    <td class="num">175</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt = lyt,</pre>
+                      <pre class="language-r">        .conf &lt;- function(x1, n1, x2, n2, z, lower = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">239</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">176</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars = var,</pre>
+                      <pre class="language-r">          p1 &lt;- x1 / n1</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">240</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">177</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    afun = afun,</pre>
+                      <pre class="language-r">          p2 &lt;- x2 / n2</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">241</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">178</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">          p_hat &lt;- p1 - p2</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">242</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">179</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nested = nested,</pre>
+                      <pre class="language-r">          dp &lt;- 1 + ifelse(lower, 1, -1) * p_hat</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">243</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">180</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    show_labels = "hidden",</pre>
+                      <pre class="language-r">          i &lt;- 1</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">244</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">181</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args = extra_args</pre>
+                      <pre class="language-r">          while (i &lt;= 50) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">245</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">182</td>
+                    <td class="coverage">46<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">            dp &lt;- 0.5 * dp</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">246</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">183</td>
+                    <td class="coverage">46<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lyt</pre>
+                      <pre class="language-r">            y &lt;- p_hat + ifelse(lower, -1, 1) * dp</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">247</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">184</td>
+                    <td class="coverage">46<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">            score &lt;- .score(p1, n1, p2, n2, y)</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/formatting_functions.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">185</td>
+                    <td class="coverage">46<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Formatting functions</pre>
+                      <pre class="language-r">            if (score &lt; z) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">186</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">              p_hat &lt;- y</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">188</td>
+                    <td class="coverage">46<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            if ((dp &lt; 1e-07) || (abs(z - score) &lt; 1e-06)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">189</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' See below for the list of formatting functions created in `tern` to work with `rtables`.</pre>
+                      <pre class="language-r">              (break)()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">191</td>
+                    <td class="coverage">44<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Other available formats can be listed via [`formatters::list_valid_format_labels()`]. Additional</pre>
+                      <pre class="language-r">              i &lt;- i + 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' custom formats can be created via the [`formatters::sprintf_format()`] function.</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">194</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @family formatting functions</pre>
+                      <pre class="language-r">          return(y)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name formatting_functions</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">196</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">        .score &lt;- function(p1, n1, p2, n2, dif) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">197</td>
+                    <td class="coverage">46<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          diff &lt;- p1 - p2 - dif</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">198</td>
+                    <td class="coverage">46<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Format fraction and percentage</pre>
+                      <pre class="language-r">          if (abs(diff) == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">199</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            res &lt;- 0</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">          } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">201</td>
+                    <td class="coverage">46<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            t &lt;- n2 / n1</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">202</td>
+                    <td class="coverage">46<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            a &lt;- 1 + t</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">203</td>
+                    <td class="coverage">46<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            b &lt;- -(1 + t + p1 + t * p2 + dif * (t + 2))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">204</td>
+                    <td class="coverage">46<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            c &lt;- dif * dif + dif * (2 * p1 + t + 1) + p1 + t * p2</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">205</td>
+                    <td class="coverage">46<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            d &lt;- -p1 * dif * (1 + dif)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">206</td>
+                    <td class="coverage">46<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            v &lt;- (b / a / 3)^3 - b * c / (6 * a * a) + d / a / 2</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">207</td>
+                    <td class="coverage">46<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            s &lt;- sqrt((b / a / 3)^2 - c / a / 3)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">208</td>
+                    <td class="coverage">46<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            u &lt;- ifelse(v &gt; 0, 1, -1) * s</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">209</td>
+                    <td class="coverage">46<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            w &lt;- (3.141592654 + acos(v / u^3)) / 3</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">210</td>
+                    <td class="coverage">46<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            p1d &lt;- 2 * u * cos(w) - b / a / 3</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">211</td>
+                    <td class="coverage">46<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            p2d &lt;- p1d - dif</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">212</td>
+                    <td class="coverage">46<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            n &lt;- n1 + n2</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">213</td>
+                    <td class="coverage">46<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            var &lt;- (p1d * (1 - p1d) / n1 + p2d * (1 - p2d) / n2) * n / (n - 1)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">214</td>
+                    <td class="coverage">46<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            res &lt;- diff^2 / var</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Formats a fraction together with ratio in percent.</pre>
+                      <pre class="language-r">          }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">216</td>
+                    <td class="coverage">46<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          return(res)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">218</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        z &lt;- stats::qchisq(conf.level, 1)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">219</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        ci_lwr &lt;- max(-1, .conf(x1, n1, x2, n2, z, TRUE))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">220</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        ci_upr &lt;- min(1, .conf(x1, n1, x2, n2, z, FALSE))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (named `integer`)\cr vector with elements `num` and `denom`.</pre>
+                      <pre class="language-r">      },</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">222</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      beal = {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">223</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        a &lt;- p1_hat + p2_hat</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">224</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        b &lt;- p1_hat - p2_hat</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">225</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        u &lt;- ((1 / n1) + (1 / n2)) / 4</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">226</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        v &lt;- ((1 / n1) - (1 / n2)) / 4</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">227</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        V &lt;- u * ((2 - a) * a - b^2) + 2 * v * (1 - a) * b # nolint</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">228</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        z &lt;- stats::qchisq(p = 1 - alpha / 2, df = 1)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">229</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        A &lt;- sqrt(z * (V + z * u^2 * (2 - a) * a + z * v^2 * (1 - a)^2)) # nolint</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">230</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        B &lt;- (b + z * v * (1 - a)) / (1 + z * u) # nolint</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">231</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        ci_lwr &lt;- max(-1, B - A / (1 + z * u))</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">232</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        ci_upr &lt;- min(1, B + A / (1 + z * u))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... not used. Required for `rtables` interface.</pre>
+                      <pre class="language-r">      },</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">234</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      hal = {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">235</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        psi &lt;- (p1_hat + p2_hat) / 2</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">236</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        u &lt;- (1 / n1 + 1 / n2) / 4</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">237</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        v &lt;- (1 / n1 - 1 / n2) / 4</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">238</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        z &lt;- kappa</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">239</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        theta &lt;- ((p1_hat - p2_hat) + z^2 * v * (1 - 2 * psi)) / (1 + z^2 * u)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">240</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        w &lt;- z / (1 + z^2 * u) * sqrt(u * (4 * psi * (1 - psi) - (p1_hat - p2_hat)^2) + 2 * v * (1 - 2 * psi) *</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">241</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          (p1_hat - p2_hat) + 4 * z^2 * u^2 * (1 - psi) * psi + z^2 * v^2 * (1 - 2 * psi)^2) # nolint</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">242</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        c(theta + w, theta - w)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">243</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        ci_lwr &lt;- max(-1, theta - w)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">244</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        ci_upr &lt;- min(1, theta + w)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      },</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">246</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      jp = {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">247</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        psi &lt;- 0.5 * ((x1 + 0.5) / (n1 + 1) + (x2 + 0.5) / (n2 + 1))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">248</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        u &lt;- (1 / n1 + 1 / n2) / 4</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">249</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        v &lt;- (1 / n1 - 1 / n2) / 4</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">250</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        z &lt;- kappa</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">251</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        theta &lt;- ((p1_hat - p2_hat) + z^2 * v * (1 - 2 * psi)) / (1 + z^2 * u)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">252</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        w &lt;- z / (1 + z^2 * u) * sqrt(u * (4 * psi * (1 - psi) - (p1_hat - p2_hat)^2) + 2 * v * (1 - 2 * psi) *</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">253</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          (p1_hat - p2_hat) + 4 * z^2 * u^2 * (1 - psi) * psi + z^2 * v^2 * (1 - 2 * psi)^2) # nolint</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">254</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        c(theta + w, theta - w)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">255</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        ci_lwr &lt;- max(-1, theta - w)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">256</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        ci_upr &lt;- min(1, theta + w)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A string in the format `num / denom (ratio %)`. If `num` is 0, the format is `num / denom`.</pre>
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">258</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    )</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">259</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ci &lt;- c(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">260</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      est = est, lwr.ci = min(ci_lwr, ci_upr),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">261</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      upr.ci = max(ci_lwr, ci_upr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">262</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    )</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">263</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    if (sides == "left") {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">264</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      ci[3] &lt;- 1</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">265</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    } else if (sides == "right") {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">266</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      ci[2] &lt;- -1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">267</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' format_fraction(x = c(num = 2L, denom = 3L))</pre>
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">268</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    return(ci)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' format_fraction(x = c(num = 0L, denom = 3L))</pre>
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">270</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  method &lt;- match.arg(arg = method, several.ok = TRUE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">271</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  sides &lt;- match.arg(arg = sides, several.ok = TRUE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">272</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  lst &lt;- h_recycle(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">273</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    x1 = x1, n1 = n1, x2 = x2, n2 = n2, conf.level = conf.level,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">274</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    sides = sides, method = method</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">275</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">276</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  res &lt;- t(sapply(1:attr(lst, "maxdim"), function(i) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">277</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    iBinomDiffCI(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">278</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      x1 = lst$x1[i],</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">279</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      n1 = lst$n1[i], x2 = lst$x2[i], n2 = lst$n2[i], conf.level = lst$conf.level[i],</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">280</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      sides = lst$sides[i], method = lst$method[i]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">281</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @family formatting functions</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">282</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  }))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">283</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  lgn &lt;- h_recycle(x1 = if (is.null(names(x1))) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">284</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    paste("x1", seq_along(x1), sep = ".")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">format_fraction &lt;- function(x, ...) {</pre>
+                      <pre class="language-r">  } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">286</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    names(x1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">32</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">287</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attr(x, "label") &lt;- NULL</pre>
+                      <pre class="language-r">  }, n1 = if (is.null(names(n1))) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">288</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    paste("n1", seq_along(n1), sep = ".")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">289</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">34</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">290</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_vector(x)</pre>
+                      <pre class="language-r">    names(n1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">35</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">291</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_count(x["num"])</pre>
+                      <pre class="language-r">  }, x2 = if (is.null(names(x2))) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">36</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">292</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_count(x["denom"])</pre>
+                      <pre class="language-r">    paste("x2", seq_along(x2), sep = ".")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">294</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    names(x2)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">38</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">295</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result &lt;- if (x["num"] == 0) {</pre>
+                      <pre class="language-r">  }, n2 = if (is.null(names(n2))) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">39</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">296</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste0(x["num"], "/", x["denom"])</pre>
+                      <pre class="language-r">    paste("n2", seq_along(n2), sep = ".")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">297</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
+                  <tr class="missed">
+                    <td class="num">298</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    names(n2)</pre>
+                    </td>
+                  </tr>
                   <tr class="covered">
-                    <td class="num">41</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">299</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste0(</pre>
+                      <pre class="language-r">  }, conf.level = conf.level, sides = sides, method = method)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">42</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">300</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x["num"], "/", x["denom"],</pre>
+                      <pre class="language-r">  xn &lt;- apply(as.data.frame(lgn[sapply(lgn, function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">43</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">301</td>
+                    <td class="coverage">182<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      " (", round(x["num"] / x["denom"] * 100, 1), "%)"</pre>
+                      <pre class="language-r">    length(unique(x)) !=</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">302</td>
+                    <td class="coverage">182<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      1</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">303</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  })]), 1, paste, collapse = ":")</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">304</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  rownames(res) &lt;- xn</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">305</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  return(res)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">306</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">308</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @describeIn desctools_binom Compute confidence intervals for binomial proportions.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">47</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">309</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(result)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">310</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @param x (`integer(1)`)\cr number of successes.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">311</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param n (`integer(1)`)\cr number of trials.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">312</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Format fraction and percentage with fixed single decimal place</pre>
+                      <pre class="language-r">#' @param conf.level (`proportion`)\cr confidence level, defaults to 0.95.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param sides (`string`)\cr side of the confidence interval to compute. Must be one of `"two-sided"` (default),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#'   `"left"`, or `"right"`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">315</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param method (`string`)\cr method to use. Can be one out of: `"wald"`, `"wilson"`, `"wilsoncc"`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">316</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Formats a fraction together with ratio in percent with fixed single decimal place.</pre>
+                      <pre class="language-r">#' `"agresti-coull"`, `"jeffreys"`, `"modified wilson"`, `"modified jeffreys"`, `"clopper-pearson"`, `"arcsine"`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">317</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Includes trailing zero in case of whole number percentages to always keep one decimal place.</pre>
+                      <pre class="language-r">#' `"logit"`, `"witting"`, `"pratt"`, `"midp"`, `"lik"`, and `"blaker"`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">318</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">319</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams format_fraction</pre>
+                      <pre class="language-r">#' @return A `matrix` with 3 columns containing:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   * `est`: estimate of proportion difference.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A string in the format `num / denom (ratio %)`. If `num` is 0, the format is `num / denom`.</pre>
+                      <pre class="language-r">#'   * `lwr.ci`: lower end of the confidence interval.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">322</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   * `upr.ci`: upper end of the confidence interval.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">323</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">324</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">325</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' format_fraction_fixed_dp(x = c(num = 1L, denom = 2L))</pre>
+                      <pre class="language-r">desctools_binomci &lt;- function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">326</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' format_fraction_fixed_dp(x = c(num = 1L, denom = 4L))</pre>
+                      <pre class="language-r">                              n,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">327</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' format_fraction_fixed_dp(x = c(num = 0L, denom = 3L))</pre>
+                      <pre class="language-r">                              conf.level = 0.95, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">328</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                              sides = c("two.sided", "left", "right"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">329</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @family formatting functions</pre>
+                      <pre class="language-r">                              method = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">330</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                                "wilson", "wald", "waldcc", "agresti-coull",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">331</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">format_fraction_fixed_dp &lt;- function(x, ...) {</pre>
+                      <pre class="language-r">                                "jeffreys", "modified wilson", "wilsoncc", "modified jeffreys",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">69</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">332</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attr(x, "label") &lt;- NULL</pre>
+                      <pre class="language-r">                                "clopper-pearson", "arcsine", "logit", "witting", "pratt",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">70</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">333</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_vector(x)</pre>
+                      <pre class="language-r">                                "midp", "lik", "blaker"</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">334</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                              ),</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">335</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                              rand = 123,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">336</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                              tol = 1e-05) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">71</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">337</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_count(x["num"])</pre>
+                      <pre class="language-r">  if (missing(method)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">338</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_count(x["denom"])</pre>
+                      <pre class="language-r">    method &lt;- "wilson"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">339</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">340</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result &lt;- if (x["num"] == 0) {</pre>
+                      <pre class="language-r">  if (missing(sides)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">341</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste0(x["num"], "/", x["denom"])</pre>
+                      <pre class="language-r">    sides &lt;- "two.sided"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">342</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">343</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste0(</pre>
+                      <pre class="language-r">  iBinomCI &lt;- function(x, n, conf.level = 0.95, sides = c("two.sided", "left", "right"), # nolint</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">344</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x["num"], "/", x["denom"],</pre>
+                      <pre class="language-r">                       method = c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">345</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      " (", sprintf("%.1f", round(x["num"] / x["denom"] * 100, 1)), "%)"</pre>
+                      <pre class="language-r">                         "wilson", "wilsoncc", "wald",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">80</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">346</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">                         "waldcc", "agresti-coull", "jeffreys", "modified wilson",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">81</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">347</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                         "modified jeffreys", "clopper-pearson", "arcsine", "logit",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">82</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">348</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(result)</pre>
+                      <pre class="language-r">                         "witting", "pratt", "midp", "lik", "blaker"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">349</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">                       ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">84</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">350</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                       rand = 123,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">351</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Format count and fraction</pre>
+                      <pre class="language-r">                       tol = 1e-05) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">86</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">352</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    if (length(x) != 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">87</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">353</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">      stop("'x' has to be of length 1 (number of successes)")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">354</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">89</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">355</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Formats a count together with fraction with special consideration when count is `0`.</pre>
+                      <pre class="language-r">    if (length(n) != 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">90</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">356</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      stop("'n' has to be of length 1 (number of trials)")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">357</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`numeric(2)`)\cr vector of length 2 with count and fraction, respectively.</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">92</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">358</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... not used. Required for `rtables` interface.</pre>
+                      <pre class="language-r">    if (length(conf.level) != 1) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">359</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      stop("'conf.level' has to be of length 1 (confidence level)")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">360</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">361</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    if (conf.level &lt; 0.5 || conf.level &gt; 1) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">362</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      stop("'conf.level' has to be in [0.5, 1]")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">363</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A string in the format `count (fraction %)`. If `count` is 0, the format is `0`.</pre>
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">364</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    sides &lt;- match.arg(sides, choices = c(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">365</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      "two.sided", "left",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">366</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      "right"</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">367</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ), several.ok = FALSE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">368</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    if (sides != "two.sided") {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">369</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      conf.level &lt;- 1 - 2 * (1 - conf.level) # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">370</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">371</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    alpha &lt;- 1 - conf.level</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">372</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    kappa &lt;- stats::qnorm(1 - alpha / 2)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">373</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    p_hat &lt;- x / n</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">374</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    q_hat &lt;- 1 - p_hat</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">375</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    est &lt;- p_hat</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">376</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    switch(match.arg(arg = method, choices = c(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">377</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      "wilson",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">378</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      "wald", "waldcc", "wilsoncc", "agresti-coull", "jeffreys",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">379</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      "modified wilson", "modified jeffreys", "clopper-pearson",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">380</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      "arcsine", "logit", "witting", "pratt", "midp", "lik",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">381</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      "blaker"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">382</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    )),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">383</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    wald = {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">384</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      term2 &lt;- kappa * sqrt(p_hat * q_hat) / sqrt(n)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">385</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      ci_lwr &lt;- max(0, p_hat - term2)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">386</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      ci_upr &lt;- min(1, p_hat + term2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">387</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' format_count_fraction(x = c(2, 0.6667))</pre>
+                      <pre class="language-r">    },</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">388</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    waldcc = {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">389</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      term2 &lt;- kappa * sqrt(p_hat * q_hat) / sqrt(n)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">390</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      term2 &lt;- term2 + 1 / (2 * n)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">391</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      ci_lwr &lt;- max(0, p_hat - term2)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">392</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      ci_upr &lt;- min(1, p_hat + term2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">393</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' format_count_fraction(x = c(0, 0))</pre>
+                      <pre class="language-r">    },</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">394</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    wilson = {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">395</td>
+                    <td class="coverage">8<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      term1 &lt;- (x + kappa^2 / 2) / (n + kappa^2)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">396</td>
+                    <td class="coverage">8<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      term2 &lt;- kappa * sqrt(n) / (n + kappa^2) * sqrt(p_hat * q_hat + kappa^2 / (4 * n))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">397</td>
+                    <td class="coverage">8<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      ci_lwr &lt;- max(0, term1 - term2)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">398</td>
+                    <td class="coverage">8<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      ci_upr &lt;- min(1, term1 + term2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">399</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    },</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">400</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    wilsoncc = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">100</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">401</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @family formatting functions</pre>
+                      <pre class="language-r">      lci &lt;- (</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">101</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">402</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">        2 * x + kappa^2 - 1 - kappa * sqrt(kappa^2 - 2 - 1 / n + 4 * p_hat * (n * q_hat + 1))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">102</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">403</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">format_count_fraction &lt;- function(x, ...) {</pre>
+                      <pre class="language-r">      ) / (2 * (n + kappa^2))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">103</td>
+                    <td class="num">404</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attr(x, "label") &lt;- NULL</pre>
+                      <pre class="language-r">      uci &lt;- (</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">104</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">405</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        2 * x + kappa^2 + 1 + kappa * sqrt(kappa^2 + 2 - 1 / n + 4 * p_hat * (n * q_hat - 1))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">105</td>
+                    <td class="num">406</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any(is.na(x))) {</pre>
+                      <pre class="language-r">      ) / (2 * (n + kappa^2))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">407</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return("NA")</pre>
+                      <pre class="language-r">      ci_lwr &lt;- max(0, ifelse(p_hat == 0, 0, lci))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">107</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">408</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      ci_upr &lt;- min(1, ifelse(p_hat == 1, 1, uci))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">409</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">410</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_vector(x)</pre>
+                      <pre class="language-r">    `agresti-coull` = {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">411</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_integerish(x[1])</pre>
+                      <pre class="language-r">      x_tilde &lt;- x + kappa^2 / 2</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">412</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_proportion_value(x[2], include_boundaries = TRUE)</pre>
+                      <pre class="language-r">      n_tilde &lt;- n + kappa^2</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">112</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">413</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      p_tilde &lt;- x_tilde / n_tilde</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">414</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result &lt;- if (x[1] == 0) {</pre>
+                      <pre class="language-r">      q_tilde &lt;- 1 - p_tilde</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">114</td>
+                    <td class="num">415</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "0"</pre>
+                      <pre class="language-r">      est &lt;- p_tilde</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">115</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">416</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">      term2 &lt;- kappa * sqrt(p_tilde * q_tilde) / sqrt(n_tilde)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">116</td>
+                    <td class="num">417</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste0(x[1], " (", round(x[2] * 100, 1), "%)")</pre>
+                      <pre class="language-r">      ci_lwr &lt;- max(0, p_tilde - term2)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">117</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">418</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      ci_upr &lt;- min(1, p_tilde + term2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">419</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">420</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(result)</pre>
+                      <pre class="language-r">    jeffreys = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">120</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">421</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      if (x == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">121</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">422</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        ci_lwr &lt;- 0</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">423</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Format count and percentage with fixed single decimal place</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">123</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">424</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        ci_lwr &lt;- stats::qbeta(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">124</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">425</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">          alpha / 2,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">125</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">426</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          x + 0.5, n - x + 0.5</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">427</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Formats a count together with fraction with special consideration when count is `0`.</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">428</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">128</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">429</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams format_count_fraction</pre>
+                      <pre class="language-r">      if (x == n) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">129</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">430</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        ci_upr &lt;- 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">431</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A string in the format `count (fraction %)`. If `count` is 0, the format is `0`.</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">131</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">432</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        ci_upr &lt;- stats::qbeta(1 - alpha / 2, x + 0.5, n - x + 0.5)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">433</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">434</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' format_count_fraction_fixed_dp(x = c(2, 0.6667))</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">134</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">435</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' format_count_fraction_fixed_dp(x = c(2, 0.5))</pre>
+                      <pre class="language-r">    `modified wilson` = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">135</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">436</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' format_count_fraction_fixed_dp(x = c(0, 0))</pre>
+                      <pre class="language-r">      term1 &lt;- (x + kappa^2 / 2) / (n + kappa^2)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">136</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">437</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      term2 &lt;- kappa * sqrt(n) / (n + kappa^2) * sqrt(p_hat * q_hat + kappa^2 / (4 * n))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">137</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">438</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @family formatting functions</pre>
+                      <pre class="language-r">      if ((n &lt;= 50 &amp; x %in% c(1, 2)) | (n &gt;= 51 &amp; x %in% c(1:3))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">138</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">439</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">        ci_lwr &lt;- 0.5 * stats::qchisq(alpha, 2 * x) / n</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">440</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">format_count_fraction_fixed_dp &lt;- function(x, ...) {</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">503<em>x</em></td>
+                    <td class="num">441</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attr(x, "label") &lt;- NULL</pre>
+                      <pre class="language-r">        ci_lwr &lt;- max(0, term1 - term2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">442</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">503<em>x</em></td>
+                    <td class="num">443</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any(is.na(x))) {</pre>
+                      <pre class="language-r">      if ((n &lt;= 50 &amp; x %in% c(n - 1, n - 2)) | (n &gt;= 51 &amp; x %in% c(n - (1:3)))) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">143</td>
+                    <td class="num">444</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return("NA")</pre>
+                      <pre class="language-r">        ci_upr &lt;- 1 - 0.5 * stats::qchisq(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">144</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">445</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">          alpha,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">145</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">446</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          2 * (n - x)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">503<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">447</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_vector(x)</pre>
+                      <pre class="language-r">        ) / n</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">503<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">448</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_integerish(x[1])</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">503<em>x</em></td>
+                    <td class="num">449</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_proportion_value(x[2], include_boundaries = TRUE)</pre>
+                      <pre class="language-r">        ci_upr &lt;- min(1, term1 + term2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">450</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">150</td>
-                    <td class="coverage">503<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">451</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result &lt;- if (x[1] == 0) {</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">452</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "0"</pre>
+                      <pre class="language-r">    `modified jeffreys` = {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">503<em>x</em></td>
+                    <td class="num">453</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (.is_equal_float(x[2], 1)) {</pre>
+                      <pre class="language-r">      if (x == n) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">153</td>
-                    <td class="coverage">500<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">454</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    sprintf("%d (100%%)", x[1])</pre>
+                      <pre class="language-r">        ci_lwr &lt;- (alpha / 2)^(1 / n)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">455</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">456</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    sprintf("%d (%.1f%%)", x[1], x[2] * 100)</pre>
+                      <pre class="language-r">        if (x &lt;= 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">156</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">457</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">          ci_lwr &lt;- 0</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">458</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">503<em>x</em></td>
+                    <td class="num">459</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(result)</pre>
+                      <pre class="language-r">          ci_lwr &lt;- stats::qbeta(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">159</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">460</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">            alpha / 2,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">160</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">461</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            x + 0.5, n - x + 0.5</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">462</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Format count and fraction with special case for count &lt; 10</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">463</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">464</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">164</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">465</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      if (x == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">165</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">466</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Formats a count together with fraction with special consideration when count is less than 10.</pre>
+                      <pre class="language-r">        ci_upr &lt;- 1 - (alpha / 2)^(1 / n)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">467</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">167</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">468</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams format_count_fraction</pre>
+                      <pre class="language-r">        if (x &gt;= n - 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">168</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">469</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          ci_upr &lt;- 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">470</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A string in the format `count (fraction %)`. If `count` is less than 10, only `count` is printed.</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">170</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">471</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          ci_upr &lt;- stats::qbeta(1 - alpha / 2, x + 0.5, n - x + 0.5)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">472</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">473</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' format_count_fraction_lt10(x = c(275, 0.9673))</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">474</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' format_count_fraction_lt10(x = c(2, 0.6667))</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">174</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">475</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' format_count_fraction_lt10(x = c(9, 1))</pre>
+                      <pre class="language-r">    `clopper-pearson` = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">175</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">476</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      ci_lwr &lt;- stats::qbeta(alpha / 2, x, n - x + 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">176</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">477</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @family formatting functions</pre>
+                      <pre class="language-r">      ci_upr &lt;- stats::qbeta(1 - alpha / 2, x + 1, n - x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">478</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">178</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">479</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">format_count_fraction_lt10 &lt;- function(x, ...) {</pre>
+                      <pre class="language-r">    arcsine = {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">480</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attr(x, "label") &lt;- NULL</pre>
+                      <pre class="language-r">      p_tilde &lt;- (x + 0.375) / (n + 0.75)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">180</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">481</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      est &lt;- p_tilde</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">181</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">482</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any(is.na(x))) {</pre>
+                      <pre class="language-r">      ci_lwr &lt;- sin(asin(sqrt(p_tilde)) - 0.5 * kappa / sqrt(n))^2</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">182</td>
+                    <td class="num">483</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return("NA")</pre>
+                      <pre class="language-r">      ci_upr &lt;- sin(asin(sqrt(p_tilde)) + 0.5 * kappa / sqrt(n))^2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">484</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">184</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">485</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    logit = {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">486</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_vector(x)</pre>
+                      <pre class="language-r">      lambda_hat &lt;- log(x / (n - x))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">487</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_integerish(x[1])</pre>
+                      <pre class="language-r">      V_hat &lt;- n / (x * (n - x)) # nolint</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">488</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_proportion_value(x[2], include_boundaries = TRUE)</pre>
+                      <pre class="language-r">      lambda_lower &lt;- lambda_hat - kappa * sqrt(V_hat)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">188</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">489</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      lambda_upper &lt;- lambda_hat + kappa * sqrt(V_hat)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">490</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result &lt;- if (x[1] &lt; 10) {</pre>
+                      <pre class="language-r">      ci_lwr &lt;- exp(lambda_lower) / (1 + exp(lambda_lower))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">491</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste0(x[1])</pre>
+                      <pre class="language-r">      ci_upr &lt;- exp(lambda_upper) / (1 + exp(lambda_upper))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">492</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">493</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste0(x[1], " (", round(x[2] * 100, 1), "%)")</pre>
+                      <pre class="language-r">    witting = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">193</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">494</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      set.seed(rand)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">194</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">495</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      x_tilde &lt;- x + stats::runif(1, min = 0, max = 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">496</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(result)</pre>
+                      <pre class="language-r">      pbinom_abscont &lt;- function(q, size, prob) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">196</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">497</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        v &lt;- trunc(q)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">197</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">498</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        term1 &lt;- stats::pbinom(v - 1, size = size, prob = prob)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">198</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">499</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Format XX as a formatting function</pre>
+                      <pre class="language-r">        term2 &lt;- (q - v) * stats::dbinom(v, size = size, prob = prob)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">199</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">500</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        return(term1 + term2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">501</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Translate a string where x and dots are interpreted as number place</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">201</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">502</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' holders, and others as formatting elements.</pre>
+                      <pre class="language-r">      qbinom_abscont &lt;- function(p, size, x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">202</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">503</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        fun &lt;- function(prob, size, x, p) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">203</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">504</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param str (`string`)\cr template.</pre>
+                      <pre class="language-r">          pbinom_abscont(x, size, prob) - p</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">505</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">205</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">506</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return An `rtables` formatting function.</pre>
+                      <pre class="language-r">        stats::uniroot(fun,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">206</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">507</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          interval = c(0, 1), size = size,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">207</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">508</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">          x = x, p = p</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">208</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">509</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' test &lt;- list(c(1.658, 0.5761), c(1e1, 785.6))</pre>
+                      <pre class="language-r">        )$root</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">510</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">210</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">511</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' z &lt;- format_xx("xx (xx.x)")</pre>
+                      <pre class="language-r">      ci_lwr &lt;- qbinom_abscont(1 - alpha, size = n, x = x_tilde)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">211</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">512</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' sapply(test, z)</pre>
+                      <pre class="language-r">      ci_upr &lt;- qbinom_abscont(alpha, size = n, x = x_tilde)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">513</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">213</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">514</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' z &lt;- format_xx("xx.x - xx.x")</pre>
+                      <pre class="language-r">    pratt = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">214</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">515</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' sapply(test, z)</pre>
+                      <pre class="language-r">      if (x == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">215</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">516</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        ci_lwr &lt;- 0</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">216</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">517</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' z &lt;- format_xx("xx.x, incl. xx.x% NE")</pre>
+                      <pre class="language-r">        ci_upr &lt;- 1 - alpha^(1 / n)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">217</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">518</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' sapply(test, z)</pre>
+                      <pre class="language-r">      } else if (x == 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">218</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">519</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        ci_lwr &lt;- 1 - (1 - alpha / 2)^(1 / n)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">219</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">520</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @family formatting functions</pre>
+                      <pre class="language-r">        ci_upr &lt;- 1 - (alpha / 2)^(1 / n)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">220</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">521</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">      } else if (x == (n - 1)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">221</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">522</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">format_xx &lt;- function(str) {</pre>
+                      <pre class="language-r">        ci_lwr &lt;- (alpha / 2)^(1 / n)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">523</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        ci_upr &lt;- (1 - alpha / 2)^(1 / n)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">524</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      } else if (x == n) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">525</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        ci_lwr &lt;- alpha^(1 / n)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">526</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        ci_upr &lt;- 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</td>
+                    <td class="num">527</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Find position in the string.</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">223</td>
+                    <td class="num">528</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  positions &lt;- gregexpr(pattern = "x+\\.x+|x+", text = str, perl = TRUE)</pre>
+                      <pre class="language-r">        z &lt;- stats::qnorm(1 - alpha / 2)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">224</td>
+                    <td class="num">529</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_positions &lt;- regmatches(x = str, m = positions)[[1]]</pre>
+                      <pre class="language-r">        A &lt;- ((x + 1) / (n - x))^2 # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">225</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">530</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        B &lt;- 81 * (x + 1) * (n - x) - 9 * n - 8 # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">226</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">531</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Roundings depends on the number of x behind [.].</pre>
+                      <pre class="language-r">        C &lt;- (0 - 3) * z * sqrt(9 * (x + 1) * (n - x) * (9 * n + 5 - z^2) + n + 1) # nolint</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">227</td>
+                    <td class="num">532</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  roundings &lt;- lapply(</pre>
+                      <pre class="language-r">        D &lt;- 81 * (x + 1)^2 - 9 * (x + 1) * (2 + z^2) + 1 # nolint</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">228</td>
+                    <td class="num">533</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    X = x_positions,</pre>
+                      <pre class="language-r">        E &lt;- 1 + A * ((B + C) / D)^3 # nolint</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">229</td>
+                    <td class="num">534</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    function(x) {</pre>
+                      <pre class="language-r">        ci_upr &lt;- 1 / E</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">535</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y &lt;- strsplit(split = "\\.", x = x)[[1]]</pre>
+                      <pre class="language-r">        A &lt;- (x / (n - x - 1))^2 # nolint</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">231</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">536</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rounding &lt;- function(x) {</pre>
+                      <pre class="language-r">        B &lt;- 81 * x * (n - x - 1) - 9 * n - 8 # nolint</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">537</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        round(x, digits = ifelse(length(y) &gt; 1, nchar(y[2]), 0))</pre>
+                      <pre class="language-r">        C &lt;- 3 * z * sqrt(9 * x * (n - x - 1) * (9 * n + 5 - z^2) + n + 1) # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">233</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">538</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">        D &lt;- 81 * x^2 - 9 * x * (2 + z^2) + 1 # nolint</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">539</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      return(rounding)</pre>
+                      <pre class="language-r">        E &lt;- 1 + A * ((B + C) / D)^3 # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">235</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">540</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">        ci_lwr &lt;- 1 / E</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">541</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">237</td>
+                    <td class="num">542</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">238</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">543</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  rtable_format &lt;- function(x, output) {</pre>
+                      <pre class="language-r">    midp = {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">239</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">544</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    values &lt;- Map(y = x, fun = roundings, function(y, fun) fun(y))</pre>
+                      <pre class="language-r">      f_low &lt;- function(pi, x, n) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">240</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">545</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    regmatches(x = str, m = positions)[[1]] &lt;- values</pre>
+                      <pre class="language-r">        1 / 2 * stats::dbinom(x, size = n, prob = pi) + stats::pbinom(x,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">241</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">546</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(str)</pre>
+                      <pre class="language-r">          size = n, prob = pi, lower.tail = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">242</td>
+                    <td class="num">547</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        ) -</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">548</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          (1 - conf.level) / 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">549</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">244</td>
+                    <td class="num">550</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(rtable_format)</pre>
+                      <pre class="language-r">      f_up &lt;- function(pi, x, n) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">245</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">551</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        1 / 2 * stats::dbinom(x, size = n, prob = pi) + stats::pbinom(x - 1, size = n, prob = pi) - (1 - conf.level) / 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</td>
+                    <td class="num">552</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">247</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">553</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Format numeric values by significant figures</pre>
+                      <pre class="language-r">      ci_lwr &lt;- 0</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">248</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">554</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      ci_upr &lt;- 1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">249</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">555</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Format numeric values to print with a specified number of significant figures.</pre>
+                      <pre class="language-r">      if (x != 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">250</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">556</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        ci_lwr &lt;- stats::uniroot(f_low,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">557</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          interval = c(0, p_hat),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">558</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          x = x, n = n</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">559</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        )$root</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">560</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param sigfig (`integer(1)`)\cr number of significant figures to display.</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">252</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">561</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param format (`string`)\cr the format label (string) to apply when printing the value. Decimal</pre>
+                      <pre class="language-r">      if (x != n) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">253</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">562</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   places in string are ignored in favor of formatting by significant figures. Formats options are:</pre>
+                      <pre class="language-r">        ci_upr &lt;- stats::uniroot(f_up, interval = c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">254</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">563</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `"xx"`, `"xx / xx"`, `"(xx, xx)"`, `"xx - xx"`, and `"xx (xx)"`.</pre>
+                      <pre class="language-r">          p_hat,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">255</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">564</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param num_fmt (`string`)\cr numeric format modifiers to apply to the value. Defaults to `"fg"` for</pre>
+                      <pre class="language-r">          1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">256</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">565</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   standard significant figures formatting - fixed (non-scientific notation) format (`"f"`)</pre>
+                      <pre class="language-r">        ), x = x, n = n)$root</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">566</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and `sigfig` equal to number of significant figures instead of decimal places (`"g"`). See the</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">567</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   [formatC()] `format` argument for more options.</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">259</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">568</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    lik = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">260</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">569</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return An `rtables` formatting function.</pre>
+                      <pre class="language-r">      ci_lwr &lt;- 0</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">261</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">570</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      ci_upr &lt;- 1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">262</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">571</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">      z &lt;- stats::qnorm(1 - alpha * 0.5)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">263</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">572</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' fmt_3sf &lt;- format_sigfig(3)</pre>
+                      <pre class="language-r">      tol &lt;- .Machine$double.eps^0.5</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">264</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">573</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' fmt_3sf(1.658)</pre>
+                      <pre class="language-r">      BinDev &lt;- function(y, x, mu, wt, bound = 0, tol = .Machine$double.eps^0.5, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</td>
+                    <td class="num">574</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' fmt_3sf(1e1)</pre>
+                      <pre class="language-r">                         ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">266</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">575</td>
+                    <td class="coverage">40<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        ll_y &lt;- ifelse(y %in% c(0, 1), 0, stats::dbinom(x, wt,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">267</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">576</td>
+                    <td class="coverage">40<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' fmt_5sf &lt;- format_sigfig(5)</pre>
+                      <pre class="language-r">          y,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">268</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">577</td>
+                    <td class="coverage">40<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' fmt_5sf(0.57)</pre>
+                      <pre class="language-r">          log = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">578</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' fmt_5sf(0.000025645)</pre>
+                      <pre class="language-r">        ))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">270</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">579</td>
+                    <td class="coverage">40<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        ll_mu &lt;- ifelse(mu %in% c(0, 1), 0, stats::dbinom(x,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">271</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">580</td>
+                    <td class="coverage">40<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @family formatting functions</pre>
+                      <pre class="language-r">          wt, mu,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">272</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">581</td>
+                    <td class="coverage">40<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">          log = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">273</td>
+                    <td class="num">582</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">format_sigfig &lt;- function(sigfig, format = "xx", num_fmt = "fg") {</pre>
+                      <pre class="language-r">        ))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">274</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">583</td>
+                    <td class="coverage">40<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_integerish(sigfig)</pre>
+                      <pre class="language-r">        res &lt;- ifelse(abs(y - mu) &lt; tol, 0, sign(y - mu) * sqrt(-2 * (ll_y - ll_mu)))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">275</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">584</td>
+                    <td class="coverage">40<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  format &lt;- gsub("xx\\.|xx\\.x+", "xx", format)</pre>
+                      <pre class="language-r">        return(res - bound)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">276</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">585</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_choice(format, c("xx", "xx / xx", "(xx, xx)", "xx - xx", "xx (xx)"))</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">277</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">586</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  function(x, ...) {</pre>
+                      <pre class="language-r">      if (x != 0 &amp;&amp; tol &lt; p_hat) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">278</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">587</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.numeric(x)) stop("`format_sigfig` cannot be used for non-numeric values. Please choose another format.")</pre>
+                      <pre class="language-r">        ci_lwr &lt;- if (BinDev(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">279</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">588</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    num &lt;- formatC(signif(x, digits = sigfig), digits = sigfig, format = num_fmt, flag = "#")</pre>
+                      <pre class="language-r">          tol, x, p_hat, n, -z,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">280</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">589</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    num &lt;- gsub("\\.$", "", num) # remove trailing "."</pre>
+                      <pre class="language-r">          tol</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">281</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">590</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        ) &lt;= 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">282</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">591</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    format_value(num, format)</pre>
+                      <pre class="language-r">          stats::uniroot(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">283</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">592</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">            f = BinDev, interval = c(tol, if (p_hat &lt; tol || p_hat == 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">284</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">593</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">              1 - tol</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">285</td>
+                    <td class="num">594</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">286</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">595</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Format fraction with lower threshold</pre>
+                      <pre class="language-r">              p_hat</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">287</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">596</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            }), bound = -z,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">288</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">597</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">            x = x, mu = p_hat, wt = n</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">289</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">598</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          )$root</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</td>
+                    <td class="num">599</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Formats a fraction when the second element of the input `x` is the fraction. It applies</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">291</td>
+                    <td class="num">600</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' a lower threshold, below which it is just stated that the fraction is smaller than that.</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">292</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">601</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      if (x != n &amp;&amp; p_hat &lt; (1 - tol)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">293</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">602</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param threshold (`proportion`)\cr lower threshold.</pre>
+                      <pre class="language-r">        ci_upr &lt;- if (</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">294</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">603</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          BinDev(y = 1 - tol, x = x, mu = ifelse(p_hat &gt; 1 - tol, tol, p_hat), wt = n, bound = z, tol = tol) &lt; 0) { # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">295</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">604</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return An `rtables` formatting function that takes numeric input `x` where the second</pre>
+                      <pre class="language-r">          ci_lwr &lt;- if (BinDev(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">296</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">605</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   element is the fraction that is formatted. If the fraction is above or equal to the threshold,</pre>
+                      <pre class="language-r">            tol, x, if (p_hat &lt; tol || p_hat == 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">297</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">606</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   then it is displayed in percentage. If it is positive but below the threshold, it returns,</pre>
+                      <pre class="language-r">              1 - tol</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">298</td>
+                    <td class="num">607</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   e.g. "&lt;1" if the threshold is `0.01`. If it is zero, then just "0" is returned.</pre>
+                      <pre class="language-r">            } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">299</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">608</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">              p_hat</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">300</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">609</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">            }, n,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">301</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">610</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' format_fun &lt;- format_fraction_threshold(0.05)</pre>
+                      <pre class="language-r">            -z, tol</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">302</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">611</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' format_fun(x = c(20, 0.1))</pre>
+                      <pre class="language-r">          ) &lt;= 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">303</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">612</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' format_fun(x = c(2, 0.01))</pre>
+                      <pre class="language-r">            stats::uniroot(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">304</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">613</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' format_fun(x = c(0, 0))</pre>
+                      <pre class="language-r">              f = BinDev, interval = c(tol, p_hat),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">305</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">614</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">              bound = -z, x = x, mu = p_hat, wt = n</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">306</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">615</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @family formatting functions</pre>
+                      <pre class="language-r">            )$root</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">307</td>
+                    <td class="num">616</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">308</td>
+                    <td class="num">617</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">format_fraction_threshold &lt;- function(threshold) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">309</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  assert_proportion_value(threshold)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">310</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  string_below_threshold &lt;- paste0("&lt;", round(threshold * 100))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">311</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  function(x, ...) {</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">312</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">618</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    assert_proportion_value(x[2], include_boundaries = TRUE)</pre>
+                      <pre class="language-r">          stats::uniroot(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">313</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">619</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ifelse(</pre>
+                      <pre class="language-r">            f = BinDev, interval = c(if (p_hat &gt; 1 - tol) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">314</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">620</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x[2] &gt; 0.01,</pre>
+                      <pre class="language-r">              tol</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">315</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">621</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      round(x[2] * 100),</pre>
+                      <pre class="language-r">            } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">316</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">622</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ifelse(</pre>
+                      <pre class="language-r">              p_hat</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">317</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">623</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x[2] == 0,</pre>
+                      <pre class="language-r">            }, 1 - tol), bound = z,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">318</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">624</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "0",</pre>
+                      <pre class="language-r">            x = x, mu = p_hat, wt = n</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">319</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">625</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        string_below_threshold</pre>
+                      <pre class="language-r">          )$root</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">320</td>
+                    <td class="num">626</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">321</td>
+                    <td class="num">627</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">322</td>
+                    <td class="num">628</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">323</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">629</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    blaker = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">324</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">630</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      acceptbin &lt;- function(x, n, p) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">325</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">631</td>
+                    <td class="coverage">3954<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Format extreme values</pre>
+                      <pre class="language-r">        p1 &lt;- 1 - stats::pbinom(x - 1, n, p)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">326</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">632</td>
+                    <td class="coverage">3954<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        p2 &lt;- stats::pbinom(x, n, p)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">327</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">633</td>
+                    <td class="coverage">3954<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">        a1 &lt;- p1 + stats::pbinom(stats::qbinom(p1, n, p) - 1, n, p)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">328</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">634</td>
+                    <td class="coverage">3954<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        a2 &lt;- p2 + 1 - stats::pbinom(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">329</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">635</td>
+                    <td class="coverage">3954<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `rtables` formatting functions that handle extreme values.</pre>
+                      <pre class="language-r">          stats::qbinom(1 - p2, n, p), n,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">330</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">636</td>
+                    <td class="coverage">3954<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          p</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">331</td>
+                    <td class="num">637</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param digits (`integer(1)`)\cr number of decimal places to display.</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">332</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">638</td>
+                    <td class="coverage">3954<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        return(min(a1, a2))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">333</td>
+                    <td class="num">639</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details For each input, apply a format to the specified number of `digits`. If the value is</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">334</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">640</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    below a threshold, it returns "&lt;0.01" e.g. if the number of `digits` is 2. If the value is</pre>
+                      <pre class="language-r">      ci_lwr &lt;- 0</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">335</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">641</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    above a threshold, it returns "&gt;999.99" e.g. if the number of `digits` is 2.</pre>
+                      <pre class="language-r">      ci_upr &lt;- 1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">336</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">642</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    If it is zero, then returns "0.00".</pre>
+                      <pre class="language-r">      if (x != 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">337</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">643</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        ci_lwr &lt;- stats::qbeta((1 - conf.level) / 2, x, n - x + 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">338</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">644</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @family formatting functions</pre>
+                      <pre class="language-r">        while (acceptbin(x, n, ci_lwr + tol) &lt; (1 - conf.level)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">339</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">645</td>
+                    <td class="coverage">1976<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name extreme_format</pre>
+                      <pre class="language-r">          ci_lwr &lt;- ci_lwr + tol</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">340</td>
+                    <td class="num">646</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">341</td>
+                    <td class="num">647</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">342</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">648</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn extreme_format Internal helper function to calculate the threshold and create formatted strings</pre>
+                      <pre class="language-r">      if (x != n) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">343</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">649</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  used in Formatting Functions. Returns a list with elements `threshold` and `format_string`.</pre>
+                      <pre class="language-r">        ci_upr &lt;- stats::qbeta(1 - (1 - conf.level) / 2, x + 1, n - x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">344</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">650</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        while (acceptbin(x, n, ci_upr - tol) &lt; (1 - conf.level)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">345</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">651</td>
+                    <td class="coverage">1976<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">          ci_upr &lt;- ci_upr - tol</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">346</td>
+                    <td class="num">652</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_get_format_threshold()` returns a `list` of 2 elements: `threshold`, with `low` and `high` thresholds,</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">347</td>
+                    <td class="num">653</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and `format_string`, with thresholds formatted as strings.</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">348</td>
+                    <td class="num">654</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">349</td>
+                    <td class="num">655</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">350</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">656</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_get_format_threshold(2L)</pre>
+                      <pre class="language-r">    ci &lt;- c(est = est, lwr.ci = max(0, ci_lwr), upr.ci = min(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">351</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">657</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      1,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">352</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">658</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">      ci_upr</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">353</td>
+                    <td class="num">659</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_get_format_threshold &lt;- function(digits = 2L) {</pre>
+                      <pre class="language-r">    ))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">354</td>
-                    <td class="coverage">2113<em>x</em></td>
+                    <td class="num">660</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_integerish(digits)</pre>
+                      <pre class="language-r">    if (sides == "left") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">355</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">661</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      ci[3] &lt;- 1</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">356</td>
-                    <td class="coverage">2113<em>x</em></td>
+                    <td class="num">662</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  low_threshold &lt;- 1 / (10 ^ digits) # styler: off</pre>
+                      <pre class="language-r">    } else if (sides == "right") {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">357</td>
-                    <td class="coverage">2113<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">663</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  high_threshold &lt;- 1000 - (1 / (10 ^ digits)) # styler: off</pre>
+                      <pre class="language-r">      ci[2] &lt;- 0</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">358</td>
+                    <td class="num">664</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">359</td>
-                    <td class="coverage">2113<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  string_below_threshold &lt;- paste0("&lt;", low_threshold)</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">360</td>
-                    <td class="coverage">2113<em>x</em></td>
+                    <td class="num">665</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  string_above_threshold &lt;- paste0("&gt;", high_threshold)</pre>
+                      <pre class="language-r">    return(ci)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">361</td>
+                    <td class="num">666</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">362</td>
-                    <td class="coverage">2113<em>x</em></td>
+                    <td class="num">667</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">  lst &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">363</td>
-                    <td class="coverage">2113<em>x</em></td>
+                    <td class="num">668</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "threshold" = c(low = low_threshold, high = high_threshold),</pre>
+                      <pre class="language-r">    x = x, n = n, conf.level = conf.level, sides = sides,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">364</td>
-                    <td class="coverage">2113<em>x</em></td>
+                    <td class="num">669</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "format_string" = c(low = string_below_threshold, high = string_above_threshold)</pre>
+                      <pre class="language-r">    method = method, rand = rand</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">365</td>
+                    <td class="num">670</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">366</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">367</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">368</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">671</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn extreme_format Internal helper function to apply a threshold format to a value.</pre>
+                      <pre class="language-r">  maxdim &lt;- max(unlist(lapply(lst, length)))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">369</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">672</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Creates a formatted string to be used in Formatting Functions.</pre>
+                      <pre class="language-r">  lgp &lt;- lapply(lst, rep, length.out = maxdim)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">370</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">673</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  lgn &lt;- h_recycle(x = if (is.null(names(x))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">371</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">674</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`numeric(1)`)\cr value to format.</pre>
+                      <pre class="language-r">    paste("x", seq_along(x), sep = ".")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">372</td>
+                    <td class="num">675</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">373</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">676</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">    names(x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">374</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">677</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_format_threshold()` returns the given value, or if the value is not within the digit threshold the relation</pre>
+                      <pre class="language-r">  }, n = if (is.null(names(n))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">375</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">678</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   of the given value to the digit threshold, as a formatted string.</pre>
+                      <pre class="language-r">    paste("n", seq_along(n), sep = ".")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">376</td>
+                    <td class="num">679</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">377</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">680</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    names(n)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">378</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">681</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_format_threshold(0.001)</pre>
+                      <pre class="language-r">  }, conf.level = conf.level, sides = sides, method = method)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">379</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">682</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_format_threshold(1000)</pre>
+                      <pre class="language-r">  xn &lt;- apply(as.data.frame(lgn[sapply(lgn, function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">380</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">683</td>
+                    <td class="coverage">130<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    length(unique(x)) !=</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">381</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">684</td>
+                    <td class="coverage">130<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">      1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">382</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">685</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_format_threshold &lt;- function(x, digits = 2L) {</pre>
+                      <pre class="language-r">  })]), 1, paste, collapse = ":")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">383</td>
-                    <td class="coverage">2115<em>x</em></td>
+                    <td class="num">686</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.na(x)) {</pre>
+                      <pre class="language-r">  res &lt;- t(sapply(1:maxdim, function(i) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">384</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">687</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(x)</pre>
+                      <pre class="language-r">    iBinomCI(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">385</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">688</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      x = lgp$x[i],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">386</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">689</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      n = lgp$n[i], conf.level = lgp$conf.level[i], sides = lgp$sides[i],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">387</td>
-                    <td class="coverage">2111<em>x</em></td>
+                    <td class="num">690</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(x, lower = 0)</pre>
+                      <pre class="language-r">      method = lgp$method[i], rand = lgp$rand[i]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">388</td>
+                    <td class="num">691</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">389</td>
-                    <td class="coverage">2111<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  l_fmt &lt;- h_get_format_threshold(digits)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">390</td>
+                    <td class="num">692</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">391</td>
-                    <td class="coverage">2111<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  result &lt;- if (x &lt; l_fmt$threshold["low"] &amp;&amp; 0 &lt; x) {</pre>
+                      <pre class="language-r">  }))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">392</td>
-                    <td class="coverage">44<em>x</em></td>
+                    <td class="num">693</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    l_fmt$format_string["low"]</pre>
+                      <pre class="language-r">  colnames(res)[1] &lt;- c("est")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">393</td>
-                    <td class="coverage">2111<em>x</em></td>
+                    <td class="num">694</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (x &gt; l_fmt$threshold["high"]) {</pre>
+                      <pre class="language-r">  rownames(res) &lt;- xn</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">394</td>
-                    <td class="coverage">99<em>x</em></td>
+                    <td class="num">695</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    l_fmt$format_string["high"]</pre>
+                      <pre class="language-r">  return(res)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">395</td>
+                    <td class="num">696</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">396</td>
-                    <td class="coverage">1968<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/rtables_access.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
+                  <tr class="never">
+                    <td class="num">1</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    sprintf(fmt = paste0("%.", digits, "f"), x)</pre>
+                      <pre class="language-r">#' Helper functions for accessing information from `rtables`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">397</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">398</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">399</td>
-                    <td class="coverage">2111<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  unname(result)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">400</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' These are a couple of functions that help with accessing the data in `rtables` objects.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">401</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Currently these work for occurrence tables, which are defined as having a count as the first</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">402</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Format a single extreme value</pre>
+                      <pre class="language-r">#' element and a fraction as the second element in each cell.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">403</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">404</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' @seealso [prune_occurrences] for usage of these functions.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">405</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">406</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create a formatting function for a single extreme value.</pre>
+                      <pre class="language-r">#' @name rtables_access</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">407</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">408</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams extreme_format</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">409</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @describeIn rtables_access Helper function to extract the first values from each content</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">410</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return An `rtables` formatting function that uses threshold `digits` to return a formatted extreme value.</pre>
+                      <pre class="language-r">#'   cell and from specified columns in a `TableRow`. Defaults to all columns.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">411</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">412</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @param table_row (`TableRow`)\cr an analysis row in a occurrence table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">413</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' format_fun &lt;- format_extreme_values(2L)</pre>
+                      <pre class="language-r">#' @param col_names (`character`)\cr the names of the columns to extract from.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">414</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' format_fun(x = 0.127)</pre>
+                      <pre class="language-r">#' @param col_indices (`integer`)\cr the indices of the columns to extract from. If `col_names` are provided,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">415</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' format_fun(x = Inf)</pre>
+                      <pre class="language-r">#'   then these are inferred from the names of `table_row`. Note that this currently only works well with a single</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">416</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' format_fun(x = 0)</pre>
+                      <pre class="language-r">#'   column split.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">417</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' format_fun(x = 0.009)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">418</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">419</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @family formatting functions</pre>
+                      <pre class="language-r">#' * `h_row_first_values()` returns a `vector` of numeric values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">420</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">421</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">format_extreme_values &lt;- function(digits = 2L) {</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">422</td>
-                    <td class="coverage">63<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">27</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  function(x, ...) {</pre>
+                      <pre class="language-r">#' tbl &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">423</td>
-                    <td class="coverage">657<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">28</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_scalar(x, na.ok = TRUE)</pre>
+                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">424</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   split_rows_by("RACE") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">425</td>
-                    <td class="coverage">657<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">30</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    h_format_threshold(x = x, digits = digits)</pre>
+                      <pre class="language-r">#'   analyze("AGE", function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">426</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'     list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">427</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'       "mean (sd)" = rcell(c(mean(x), sd(x)), format = "xx.x (xx.x)"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">428</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       "n" = length(x),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">429</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Format extreme values part of a confidence interval</pre>
+                      <pre class="language-r">#'       "frac" = rcell(c(0.1, 0.1), format = "xx (xx)")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">430</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">431</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#'   }) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">432</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   build_table(tern_ex_adsl) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">433</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Formatting Function for extreme values part of a confidence interval. Values</pre>
+                      <pre class="language-r">#'   prune_table()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">434</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' are formatted as e.g. "(xx.xx, xx.xx)" if the number of `digits` is 2.</pre>
+                      <pre class="language-r">#' tree_row_elem &lt;- collect_leaves(tbl[2, ])[[1]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">435</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' result &lt;- max(h_row_first_values(tree_row_elem))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">436</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams extreme_format</pre>
+                      <pre class="language-r">#' result</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">437</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">438</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return An `rtables` formatting function that uses threshold `digits` to return a formatted extreme</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">439</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   values confidence interval.</pre>
+                      <pre class="language-r">h_row_first_values &lt;- function(table_row,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">440</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                               col_names = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">441</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">                               col_indices = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">442</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">47</td>
+                    <td class="coverage">745<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' format_fun &lt;- format_extreme_values_ci(2L)</pre>
+                      <pre class="language-r">  col_indices &lt;- check_names_indices(table_row, col_names, col_indices)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">443</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">48</td>
+                    <td class="coverage">744<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' format_fun(x = c(0.127, Inf))</pre>
+                      <pre class="language-r">  checkmate::assert_integerish(col_indices)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">444</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">49</td>
+                    <td class="coverage">744<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' format_fun(x = c(0, 0.009))</pre>
+                      <pre class="language-r">  checkmate::assert_subset(col_indices, seq_len(ncol(table_row)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">445</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">446</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @family formatting functions</pre>
+                      <pre class="language-r">  # Main values are extracted</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">447</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">52</td>
+                    <td class="coverage">744<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  row_vals &lt;- row_values(table_row)[col_indices]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">448</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">format_extreme_values_ci &lt;- function(digits = 2L) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">449</td>
-                    <td class="coverage">71<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">54</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  function(x, ...) {</pre>
+                      <pre class="language-r">  # Main return</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">450</td>
-                    <td class="coverage">726<em>x</em></td>
+                    <td class="num">55</td>
+                    <td class="coverage">744<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_vector(x, len = 2)</pre>
+                      <pre class="language-r">  vapply(row_vals, function(rv) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">451</td>
-                    <td class="coverage">726<em>x</em></td>
+                    <td class="num">56</td>
+                    <td class="coverage">2096<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    l_result &lt;- h_format_threshold(x = x[1], digits = digits)</pre>
+                      <pre class="language-r">    if (is.null(rv)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">452</td>
-                    <td class="coverage">726<em>x</em></td>
+                    <td class="num">57</td>
+                    <td class="coverage">744<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    h_result &lt;- h_format_threshold(x = x[2], digits = digits)</pre>
+                      <pre class="language-r">      NA_real_</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">453</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">454</td>
-                    <td class="coverage">726<em>x</em></td>
+                    <td class="num">59</td>
+                    <td class="coverage">2090<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste0("(", l_result, ", ", h_result, ")")</pre>
+                      <pre class="language-r">      rv[1L]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">455</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">61</td>
+                    <td class="coverage">744<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }, FUN.VALUE = numeric(1))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">456</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">457</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">458</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Format automatically using data significant digits</pre>
+                      <pre class="language-r">#' @describeIn rtables_access Helper function that extracts row values and checks if they are</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">459</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   convertible to integers (`integerish` values).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">460</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">461</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">462</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Formatting function for the majority of default methods used in [analyze_vars()].</pre>
+                      <pre class="language-r">#' * `h_row_counts()` returns a `vector` of numeric values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">463</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' For non-derived values, the significant digits of data is used (e.g. range), while derived</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">464</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' values have one more digits (measure of location and dispersion like mean, standard deviation).</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">465</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function can be called internally with "auto" like, for example,</pre>
+                      <pre class="language-r">#' # Row counts (integer values)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">466</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `.formats = c("mean" = "auto")`. See details to see how this works with the inner function.</pre>
+                      <pre class="language-r">#' # h_row_counts(tree_row_elem) # Fails because there are no integers</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">467</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' # Using values with integers</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">468</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param dt_var (`numeric`)\cr variable data the statistics were calculated from. Used only to</pre>
+                      <pre class="language-r">#' tree_row_elem &lt;- collect_leaves(tbl[3, ])[[1]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">469</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   find significant digits. In [analyze_vars] this comes from `.df_row` (see</pre>
+                      <pre class="language-r">#' result &lt;- h_row_counts(tree_row_elem)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">470</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   [rtables::additional_fun_params]), and it is the row data after the above row splits. No</pre>
+                      <pre class="language-r">#' # result</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">471</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   column split is considered.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">472</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x_stat (`string`)\cr string indicating the current statistical method used.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">473</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">h_row_counts &lt;- function(table_row,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">474</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A string that `rtables` prints in a table cell.</pre>
+                      <pre class="language-r">                         col_names = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">475</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                         col_indices = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">476</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">82</td>
+                    <td class="coverage">741<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details</pre>
+                      <pre class="language-r">  counts &lt;- h_row_first_values(table_row, col_names, col_indices)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">477</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">83</td>
+                    <td class="coverage">741<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The internal function is needed to work with `rtables` default structure for</pre>
+                      <pre class="language-r">  checkmate::assert_integerish(counts)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">478</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">84</td>
+                    <td class="coverage">741<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' format functions, i.e. `function(x, ...)`, where is x are results from statistical evaluation.</pre>
+                      <pre class="language-r">  counts</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">479</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' It can be more than one element (e.g. for `.stats = "mean_sd"`).</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">480</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">481</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @describeIn rtables_access Helper function to extract fractions from specified columns in a `TableRow`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">482</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x_todo &lt;- c(0.001, 0.2, 0.0011000, 3, 4)</pre>
+                      <pre class="language-r">#'   More specifically it extracts the second values from each content cell and checks it is a fraction.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">483</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' res &lt;- c(mean(x_todo[1:3]), sd(x_todo[1:3]))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">484</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">485</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # x is the result coming into the formatting function -&gt; res!!</pre>
+                      <pre class="language-r">#' * `h_row_fractions()` returns a `vector` of proportions.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">486</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' format_auto(dt_var = x_todo, x_stat = "mean_sd")(x = res)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">487</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' format_auto(x_todo, "range")(x = range(x_todo))</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">488</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' no_sc_x &lt;- c(0.0000001, 1)</pre>
+                      <pre class="language-r">#' # Row fractions</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">489</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' format_auto(no_sc_x, "range")(x = no_sc_x)</pre>
+                      <pre class="language-r">#' tree_row_elem &lt;- collect_leaves(tbl[4, ])[[1]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">490</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' h_row_fractions(tree_row_elem)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">491</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @family formatting functions</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">492</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">493</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">format_auto &lt;- function(dt_var, x_stat) {</pre>
+                      <pre class="language-r">h_row_fractions &lt;- function(table_row,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">494</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">100</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  function(x = "", ...) {</pre>
+                      <pre class="language-r">                            col_names = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">495</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">101</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_numeric(x, min.len = 1)</pre>
+                      <pre class="language-r">                            col_indices = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">496</td>
-                    <td class="coverage">18<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_numeric(dt_var, min.len = 1)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">497</td>
-                    <td class="coverage"></td>
+                    <td class="num">102</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Defaults - they may be a param in the future</pre>
+                      <pre class="language-r">  col_indices &lt;- check_names_indices(table_row, col_names, col_indices)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">498</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">103</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    der_stats &lt;- c(</pre>
+                      <pre class="language-r">  row_vals &lt;- row_values(table_row)[col_indices]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">499</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">104</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "mean", "sd", "se", "median", "geom_mean", "quantiles", "iqr",</pre>
+                      <pre class="language-r">  fractions &lt;- sapply(row_vals, "[", 2L)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">500</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">105</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "mean_sd", "mean_se", "mean_se", "mean_ci", "mean_sei", "mean_sdi",</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(fractions, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">501</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">106</td>
+                    <td class="coverage">250<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "median_ci"</pre>
+                      <pre class="language-r">  fractions</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">502</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">503</td>
-                    <td class="coverage">18<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    nonder_stats &lt;- c("n", "range", "min", "max")</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">504</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">505</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Safenet for miss-modifications</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">506</td>
-                    <td class="coverage">18<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    stopifnot(length(intersect(der_stats, nonder_stats)) == 0) # nolint</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">507</td>
-                    <td class="coverage">18<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_choice(x_stat, c(der_stats, nonder_stats))</pre>
+                      <pre class="language-r">#' @describeIn rtables_access Helper function to extract column counts from specified columns in a table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">508</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">509</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Finds the max number of digits in data</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">510</td>
-                    <td class="coverage">18<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    detect_dig &lt;- vapply(dt_var, count_decimalplaces, FUN.VALUE = numeric(1)) %&gt;%</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">511</td>
-                    <td class="coverage">18<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      max()</pre>
+                      <pre class="language-r">#' @param table (`VTableNodeInfo`)\cr an occurrence table or row.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">512</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">513</td>
-                    <td class="coverage">18<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    if (x_stat %in% der_stats) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">514</td>
-                    <td class="coverage">8<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      detect_dig &lt;- detect_dig + 1</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">515</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">516</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' * `h_col_counts()` returns a `vector` of column counts.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">517</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Render input</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">518</td>
-                    <td class="coverage">18<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    str_vals &lt;- formatC(x, digits = detect_dig, format = "f")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">519</td>
-                    <td class="coverage">18<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    def_fmt &lt;- get_formats_from_stats(x_stat)[[x_stat]]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">520</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">116</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    str_fmt &lt;- str_extract(def_fmt, invert = FALSE)[[1]]</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">521</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">117</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (length(str_fmt) != length(str_vals)) {</pre>
+                      <pre class="language-r">h_col_counts &lt;- function(table,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">522</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">118</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stop(</pre>
+                      <pre class="language-r">                         col_names = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">523</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">119</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Number of inserted values as result (", length(str_vals),</pre>
+                      <pre class="language-r">                         col_indices = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">524</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">120</td>
+                    <td class="coverage">307<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ") is not the same as there should be in the default tern formats for ",</pre>
+                      <pre class="language-r">  col_indices &lt;- check_names_indices(table, col_names, col_indices)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">525</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">121</td>
+                    <td class="coverage">307<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x_stat, " (-&gt; ", def_fmt, " needs ", length(str_fmt), " values). ",</pre>
+                      <pre class="language-r">  counts &lt;- col_counts(table)[col_indices]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">526</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">122</td>
+                    <td class="coverage">307<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "See tern_default_formats to check all of them."</pre>
+                      <pre class="language-r">  stats::setNames(counts, col_names)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">527</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">528</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">529</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @describeIn rtables_access Helper function to get first row of content table of current table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">530</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Squashing them together</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">531</td>
-                    <td class="coverage">16<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    inv_str_fmt &lt;- str_extract(def_fmt, invert = TRUE)[[1]]</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">532</td>
-                    <td class="coverage">16<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    stopifnot(length(inv_str_fmt) == length(str_vals) + 1) # nolint</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">533</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">534</td>
-                    <td class="coverage">16<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    out &lt;- vector("character", length = length(inv_str_fmt) + length(str_vals))</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">535</td>
-                    <td class="coverage">16<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">128</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is_even &lt;- seq_along(out) %% 2 == 0</pre>
+                      <pre class="language-r">#' * `h_content_first_row()` returns a row from an `rtables` table.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">536</td>
-                    <td class="coverage">16<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">129</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    out[is_even] &lt;- str_vals</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">537</td>
-                    <td class="coverage">16<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">130</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    out[!is_even] &lt;- inv_str_fmt</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">538</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">h_content_first_row &lt;- function(table) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">539</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="num">132</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(paste0(out, collapse = ""))</pre>
+                      <pre class="language-r">  ct &lt;- content_table(table)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">540</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">133</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  tree_children(ct)[[1]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">541</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">542</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">543</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># Utility function that could be useful in general</pre>
+                      <pre class="language-r">#' @describeIn rtables_access Helper function which says whether current table is a leaf in the tree.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">544</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">str_extract &lt;- function(string, pattern = "xx|xx\\.|xx\\.x+", invert = FALSE) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">545</td>
-                    <td class="coverage">34<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  regmatches(string, gregexpr(pattern, string), invert = invert)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">546</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">547</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' * `is_leaf_table()` returns a `logical` value indicating whether current table is a leaf.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">548</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># Helper function</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">549</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">count_decimalplaces &lt;- function(dec) {</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">550</td>
-                    <td class="coverage">161<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">142</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.na(dec)) {</pre>
+                      <pre class="language-r">is_leaf_table &lt;- function(table) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">551</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">143</td>
+                    <td class="coverage">168<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(0)</pre>
+                      <pre class="language-r">  children &lt;- tree_children(table)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">552</td>
-                    <td class="coverage">155<em>x</em></td>
+                    <td class="num">144</td>
+                    <td class="coverage">168<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (abs(dec - round(dec)) &gt; .Machine$double.eps^0.5) { # For precision</pre>
+                      <pre class="language-r">  child_classes &lt;- unique(sapply(children, class))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">553</td>
-                    <td class="coverage">122<em>x</em></td>
+                    <td class="num">145</td>
+                    <td class="coverage">168<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nchar(strsplit(format(dec, scientific = FALSE, trim = FALSE), ".", fixed = TRUE)[[1]][[2]])</pre>
+                      <pre class="language-r">  identical(child_classes, "ElementaryTable")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">554</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">555</td>
-                    <td class="coverage">33<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">147</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(0)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">556</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @describeIn rtables_access Internal helper function that tests standard inputs for column indices.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">557</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">558</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">559</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Apply automatic formatting</pre>
+                      <pre class="language-r">#' * `check_names_indices` returns column indices.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">560</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">561</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Checks if any of the listed formats in `.formats` are `"auto"`, and replaces `"auto"` with</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">562</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the correct implementation of `format_auto` for the given statistics, data, and variable.</pre>
+                      <pre class="language-r">check_names_indices &lt;- function(table_row,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">563</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                col_names = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">564</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">                                col_indices = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">565</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">157</td>
+                    <td class="coverage">1302<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x_stats (named `list`)\cr a named list of statistics where each element corresponds</pre>
+                      <pre class="language-r">  if (!is.null(col_names)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">566</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">158</td>
+                    <td class="coverage">1256<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to an element in `.formats`, with matching names.</pre>
+                      <pre class="language-r">    if (!is.null(col_indices)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">567</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">159</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      stop(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">160</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        "Inserted both col_names and col_indices when selecting row values. ",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">161</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        "Please choose one."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">568</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">569</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">apply_auto_formatting &lt;- function(.formats, x_stats, .df_row, .var) {</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">570</td>
-                    <td class="coverage">420<em>x</em></td>
+                    <td class="num">164</td>
+                    <td class="coverage">1255<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  is_auto_fmt &lt;- vapply(.formats, function(ii) is.character(ii) &amp;&amp; ii == "auto", logical(1))</pre>
+                      <pre class="language-r">    col_indices &lt;- h_col_indices(table_row, col_names)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">571</td>
-                    <td class="coverage">420<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">165</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any(is_auto_fmt)) {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">572</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">166</td>
+                    <td class="coverage">1301<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    auto_stats &lt;- x_stats[is_auto_fmt]</pre>
+                      <pre class="language-r">  if (is.null(col_indices)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">573</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">167</td>
+                    <td class="coverage">39<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_df &lt;- .df_row[[.var]] # xxx this can be extended for the WHOLE data or single facets</pre>
+                      <pre class="language-r">    ll &lt;- ifelse(is.null(ncol(table_row)), length(table_row), ncol(table_row))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">574</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">168</td>
+                    <td class="coverage">39<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .formats[is_auto_fmt] &lt;- lapply(names(auto_stats), format_auto, dt_var = var_df)</pre>
+                      <pre class="language-r">    col_indices &lt;- seq_len(ll)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">575</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
+                  <tr class="never">
+                    <td class="num">170</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
                   <tr class="covered">
-                    <td class="num">576</td>
-                    <td class="coverage">420<em>x</em></td>
+                    <td class="num">171</td>
+                    <td class="coverage">1301<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats</pre>
+                      <pre class="language-r">  return(col_indices)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">577</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -11601,14 +12435,14 @@ <h2>tern coverage - 95.64%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/coxph.R" class="hidden">
+            <div id="R/prune_occurrences.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Univariate formula special term</pre>
+                      <pre class="language-r">#' Occurrence table pruning</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -11636,28 +12470,28 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The special term `univariate` indicate that the model should be fitted individually for</pre>
+                      <pre class="language-r">#' Family of constructor and condition functions to flexibly prune occurrence tables.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' every variable included in univariate.</pre>
+                      <pre class="language-r">#' The condition functions always return whether the row result is higher than the threshold.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Since they are of class [CombinationFunction()] they can be logically combined with other condition</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`character`)\cr a vector of variable names separated by commas.</pre>
+                      <pre class="language-r">#' functions.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -11671,392 +12505,392 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return When used within a model formula, produces univariate models for each variable provided.</pre>
+                      <pre class="language-r">#' @note Since most table specifications are worded positively, we name our constructor and condition</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   functions positively, too. However, note that the result of [keep_rows()] says what</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details</pre>
+                      <pre class="language-r">#'   should be pruned, to conform with the [rtables::prune_table()] interface.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' If provided alongside with pairwise specification, the model</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `y ~ ARM + univariate(SEX, AGE, RACE)` lead to the study and comparison of the models</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' + `y ~ ARM`</pre>
+                      <pre class="language-r">#' \donttest{</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' + `y ~ ARM + SEX`</pre>
+                      <pre class="language-r">#' tab &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' + `y ~ ARM + AGE`</pre>
+                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' + `y ~ ARM + RACE`</pre>
+                      <pre class="language-r">#'   split_rows_by("RACE") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   split_rows_by("STRATA1") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'   summarize_row_groups() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">univariate &lt;- function(x) {</pre>
+                      <pre class="language-r">#'   analyze_vars("COUNTRY", .stats = "count_fraction") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">22</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  structure(x, varname = deparse(substitute(x)))</pre>
+                      <pre class="language-r">#'   build_table(DM)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># Get the right-hand-term of a formula</pre>
+                      <pre class="language-r">#' @name prune_occurrences</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">rht &lt;- function(x) {</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">27</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_formula(x)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">28</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- as.character(rev(x)[[1]])</pre>
+                      <pre class="language-r">#' @describeIn prune_occurrences Constructor for creating pruning functions based on</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">29</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(y)</pre>
+                      <pre class="language-r">#'   a row condition function. This removes all analysis rows (`TableRow`) that should be</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   pruned, i.e., don't fulfill the row condition. It removes the sub-tree if there are no</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   children left.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Hazard ratio estimation in interactions</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param row_condition (`CombinationFunction`)\cr condition function which works on individual</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function estimates the hazard ratios between arms when an interaction variable is given with</pre>
+                      <pre class="language-r">#'   analysis rows and flags whether these should be kept in the pruned table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' specific values.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param variable,given (`character(2)`)\cr names of the two variables in the interaction. We seek the estimation of</pre>
+                      <pre class="language-r">#' * `keep_rows()` returns a pruning function that can be used with [rtables::prune_table()]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the levels of `variable` given the levels of `given`.</pre>
+                      <pre class="language-r">#'   to prune an `rtables` table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param lvl_var,lvl_given (`character`)\cr corresponding levels given by [levels()].</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param mmat (named `numeric`) a vector filled with `0`s used as a template to obtain the design matrix.</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param coef (`numeric`)\cr vector of estimated coefficients.</pre>
+                      <pre class="language-r">#' \donttest{</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param vcov (`matrix`)\cr variance-covariance matrix of underlying model.</pre>
+                      <pre class="language-r">#' # `keep_rows`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param conf_level (`proportion`)\cr confidence level of estimate intervals.</pre>
+                      <pre class="language-r">#' is_non_empty &lt;- !CombinationFunction(all_zero_or_na)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' prune_table(tab, keep_rows(is_non_empty))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details Given the cox regression investigating the effect of Arm (A, B, C; reference A)</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and Sex (F, M; reference Female). The model is abbreviated: y ~ Arm + Sex + Arm x Sex.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   The cox regression estimates the coefficients along with a variance-covariance matrix for:</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">keep_rows &lt;- function(row_condition) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">49</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   - b1 (arm b), b2 (arm c)</pre>
+                      <pre class="language-r">  checkmate::assert_function(row_condition)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">50</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   - b3 (sex m)</pre>
+                      <pre class="language-r">  function(table_tree) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">51</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2256<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   - b4 (arm b: sex m), b5 (arm c: sex m)</pre>
+                      <pre class="language-r">    if (inherits(table_tree, "TableRow")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">52</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1872<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      return(!row_condition(table_tree))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Given that I want an estimation of the Hazard Ratio for arm C/sex M, the estimation</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">54</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">384<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   will be given in reference to arm A/Sex M by exp(b2 + b3 + b5)/ exp(b3) = exp(b2 + b5),</pre>
+                      <pre class="language-r">    children &lt;- tree_children(table_tree)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">55</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">384<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   therefore the interaction coefficient is given by b2 + b5 while the standard error is obtained</pre>
+                      <pre class="language-r">    identical(length(children), 0L)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   as $1.96 * sqrt(Var b2 + Var b5 + 2 * covariance (b2,b5))$ for a confidence level of 0.95.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A list of matrices (one per level of variable) with rows corresponding to the combinations of</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `variable` and `given`, with columns:</pre>
+                      <pre class="language-r">#' @describeIn prune_occurrences Constructor for creating pruning functions based on</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `coef_hat`: Estimation of the coefficient.</pre>
+                      <pre class="language-r">#'   a condition for the (first) content row in leaf tables. This removes all leaf tables where</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `coef_se`: Standard error of the estimation.</pre>
+                      <pre class="language-r">#'   the first content row does not fulfill the condition. It does not check individual rows.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `hr`: Hazard ratio.</pre>
+                      <pre class="language-r">#'   It then proceeds recursively by removing the sub tree if there are no children left.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `lcl, ucl`: Lower/upper confidence limit of the hazard ratio.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param content_row_condition (`CombinationFunction`)\cr condition function which works on individual</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [s_cox_multivariate()].</pre>
+                      <pre class="language-r">#'   first content rows of leaf tables and flags whether these leaf tables should be kept in the pruned table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -12070,21 +12904,21 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">#' * `keep_content_rows()` returns a pruning function that checks the condition on the first content</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(survival)</pre>
+                      <pre class="language-r">#'   row of leaf tables in the table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -12098,42 +12932,42 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ADSL &lt;- tern_ex_adsl %&gt;%</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(SEX %in% c("F", "M"))</pre>
+                      <pre class="language-r">#' # `keep_content_rows`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' \donttest{</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adtte &lt;- tern_ex_adtte %&gt;% filter(PARAMCD == "PFS")</pre>
+                      <pre class="language-r">#' more_than_twenty &lt;- has_count_in_cols(atleast = 20L, col_names = names(tab))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adtte$ARMCD &lt;- droplevels(adtte$ARMCD)</pre>
+                      <pre class="language-r">#' prune_table(tab, keep_content_rows(more_than_twenty))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adtte$SEX &lt;- droplevels(adtte$SEX)</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -12147,462 +12981,462 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' mod &lt;- coxph(</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   formula = Surv(time = AVAL, event = 1 - CNSR) ~ (SEX + ARMCD)^2,</pre>
+                      <pre class="language-r">keep_content_rows &lt;- function(content_row_condition) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">80</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adtte</pre>
+                      <pre class="language-r">  checkmate::assert_function(content_row_condition)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">81</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  function(table_tree) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">82</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">166<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    if (is_leaf_table(table_tree)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">83</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' mmat &lt;- stats::model.matrix(mod)[1, ]</pre>
+                      <pre class="language-r">      content_row &lt;- h_content_first_row(table_tree)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">84</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' mmat[!mmat == 0] &lt;- 0</pre>
+                      <pre class="language-r">      return(!content_row_condition(content_row))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">86</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">142<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    if (inherits(table_tree, "DataRow")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">87</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">120<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">estimate_coef &lt;- function(variable, given,</pre>
+                      <pre class="language-r">      return(FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          lvl_var, lvl_given,</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">89</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          coef,</pre>
+                      <pre class="language-r">    children &lt;- tree_children(table_tree)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">90</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          mmat,</pre>
+                      <pre class="language-r">    identical(length(children), 0L)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          vcov,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          conf_level = 0.95) {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">93</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  var_lvl &lt;- paste0(variable, lvl_var[-1]) # [-1]: reference level</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">94</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  giv_lvl &lt;- paste0(given, lvl_given)</pre>
+                      <pre class="language-r">#' @describeIn prune_occurrences Constructor for creating condition functions on total counts in the specified columns.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">96</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  design_mat &lt;- expand.grid(variable = var_lvl, given = giv_lvl)</pre>
+                      <pre class="language-r">#' @param atleast (`numeric(1)`)\cr threshold which should be met in order to keep the row.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">97</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  design_mat &lt;- design_mat[order(design_mat$variable, design_mat$given), ]</pre>
+                      <pre class="language-r">#' @param ... arguments for row or column access, see [`rtables_access`]: either `col_names` (`character`) including</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">98</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  design_mat &lt;- within(</pre>
+                      <pre class="language-r">#'   the names of the columns which should be used, or alternatively `col_indices` (`integer`) giving the indices</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">99</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data = design_mat,</pre>
+                      <pre class="language-r">#'   directly instead.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">100</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    expr = {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">101</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      inter &lt;- paste0(variable, ":", given)</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">102</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rev_inter &lt;- paste0(given, ":", variable)</pre>
+                      <pre class="language-r">#' * `has_count_in_cols()` returns a condition function that sums the counts in the specified column.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' \donttest{</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">106</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  split_by_variable &lt;- design_mat$variable</pre>
+                      <pre class="language-r">#' more_than_one &lt;- has_count_in_cols(atleast = 1L, col_names = names(tab))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">107</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  interaction_names &lt;- paste(design_mat$variable, design_mat$given, sep = "/")</pre>
+                      <pre class="language-r">#' prune_table(tab, keep_rows(more_than_one))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">109</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  design_mat &lt;- apply(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">110</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    X = design_mat, MARGIN = 1, FUN = function(x) {</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">111</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      mmat[names(mmat) %in% x[-which(names(x) == "given")]] &lt;- 1</pre>
+                      <pre class="language-r">has_count_in_cols &lt;- function(atleast, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">112</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      return(mmat)</pre>
+                      <pre class="language-r">  checkmate::assert_count(atleast)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">113</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  CombinationFunction(function(table_row) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">114</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">337<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    row_counts &lt;- h_row_counts(table_row, ...)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">115</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage">337<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  colnames(design_mat) &lt;- interaction_names</pre>
+                      <pre class="language-r">    total_count &lt;- sum(row_counts)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">116</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">337<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    total_count &gt;= atleast</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">117</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  betas &lt;- as.matrix(coef)</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">119</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  coef_hat &lt;- t(design_mat) %*% betas</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">120</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  dimnames(coef_hat)[2] &lt;- "coef"</pre>
+                      <pre class="language-r">#' @describeIn prune_occurrences Constructor for creating condition functions on any of the counts in</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   the specified columns satisfying a threshold.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">122</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  coef_se &lt;- apply(design_mat, 2, function(x) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">123</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vcov_el &lt;- as.logical(x)</pre>
+                      <pre class="language-r">#' @param atleast (`numeric(1)`)\cr threshold which should be met in order to keep the row.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">124</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y &lt;- vcov[vcov_el, vcov_el]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">125</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y &lt;- sum(y)</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">126</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y &lt;- sqrt(y)</pre>
+                      <pre class="language-r">#' * `has_count_in_any_col()` returns a condition function that compares the counts in the</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">127</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(y)</pre>
+                      <pre class="language-r">#'   specified columns with the threshold.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">130</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  q_norm &lt;- stats::qnorm((1 + conf_level) / 2)</pre>
+                      <pre class="language-r">#' \donttest{</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">131</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- cbind(coef_hat, `se(coef)` = coef_se)</pre>
+                      <pre class="language-r">#' # `has_count_in_any_col`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' any_more_than_one &lt;- has_count_in_any_col(atleast = 1L, col_names = names(tab))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">133</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- apply(y, 1, function(x) {</pre>
+                      <pre class="language-r">#' prune_table(tab, keep_rows(any_more_than_one))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">134</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x["hr"] &lt;- exp(x["coef"])</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">135</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x["lcl"] &lt;- exp(x["coef"] - q_norm * x["se(coef)"])</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">136</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x["ucl"] &lt;- exp(x["coef"] + q_norm * x["se(coef)"])</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">has_count_in_any_col &lt;- function(atleast, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">138</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(x)</pre>
+                      <pre class="language-r">  checkmate::assert_count(atleast)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">139</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">  CombinationFunction(function(table_row) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">140</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    row_counts &lt;- h_row_counts(table_row, ...)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">141</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- t(y)</pre>
+                      <pre class="language-r">    any(row_counts &gt;= atleast)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">142</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- by(y, split_by_variable, identity)</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">143</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- lapply(y, as.matrix)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -12612,95 +13446,95 @@ <h2>tern coverage - 95.64%</h2>
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">145</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attr(y, "details") &lt;- paste0(</pre>
+                      <pre class="language-r">#' @describeIn prune_occurrences Constructor for creating condition functions on total fraction in</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">146</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "Estimations of ", variable,</pre>
+                      <pre class="language-r">#'   the specified columns.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">147</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    " hazard ratio given the level of ", given, " compared to ",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">148</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    variable, " level ", lvl_var[1], "."</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' * `has_fraction_in_cols()` returns a condition function that sums the counts in the</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">150</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(y)</pre>
+                      <pre class="language-r">#'   specified column, and computes the fraction by dividing by the total column counts.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `tryCatch` around `car::Anova`</pre>
+                      <pre class="language-r">#' \donttest{</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' # `has_fraction_in_cols`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Captures warnings when executing [car::Anova].</pre>
+                      <pre class="language-r">#' more_than_five_percent &lt;- has_fraction_in_cols(atleast = 0.05, col_names = names(tab))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' prune_table(tab, keep_rows(more_than_five_percent))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams car::Anova</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -12714,343 +13548,343 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A list with item `aov` for the result of the model and `error_text` for the captured warnings.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">has_fraction_in_cols &lt;- function(atleast, ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">161</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  assert_proportion_value(atleast, include_boundaries = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">162</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `car::Anova` on cox regression model including strata and expected</pre>
+                      <pre class="language-r">  CombinationFunction(function(table_row) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">163</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">306<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # a likelihood ratio test triggers a warning as only Wald method is</pre>
+                      <pre class="language-r">    row_counts &lt;- h_row_counts(table_row, ...)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">164</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">306<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # accepted.</pre>
+                      <pre class="language-r">    total_count &lt;- sum(row_counts)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">165</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">306<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    col_counts &lt;- h_col_counts(table_row, ...)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">166</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">306<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(survival)</pre>
+                      <pre class="language-r">    total_n &lt;- sum(col_counts)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">167</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">306<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    total_percent &lt;- total_count / total_n</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">168</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">306<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' mod &lt;- coxph(</pre>
+                      <pre class="language-r">    total_percent &gt;= atleast</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   formula = Surv(time = futime, event = fustat) ~ factor(rx) + strata(ecog.ps),</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = ovarian</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @describeIn prune_occurrences Constructor for creating condition functions on any fraction in</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'   the specified columns.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">try_car_anova &lt;- function(mod,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          test.statistic) { # nolint</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">176</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- tryCatch(</pre>
+                      <pre class="language-r">#' * `has_fraction_in_any_col()` returns a condition function that looks at the fractions</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">177</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    withCallingHandlers(</pre>
+                      <pre class="language-r">#'  in the specified columns and checks whether any of them fulfill the threshold.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">178</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      expr = {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">179</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        warn_text &lt;- c()</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">180</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        list(</pre>
+                      <pre class="language-r">#' \donttest{</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">181</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          aov = car::Anova(</pre>
+                      <pre class="language-r">#' # `has_fraction_in_any_col`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">182</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            mod,</pre>
+                      <pre class="language-r">#' any_atleast_five_percent &lt;- has_fraction_in_any_col(atleast = 0.05, col_names = names(tab))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">183</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            test.statistic = test.statistic,</pre>
+                      <pre class="language-r">#' prune_table(tab, keep_rows(any_atleast_five_percent))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">184</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            type = "III"</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">186</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          warn_text = warn_text</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">has_fraction_in_any_col &lt;- function(atleast, ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">188</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r">  assert_proportion_value(atleast, include_boundaries = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">189</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      warning = function(w) {</pre>
+                      <pre class="language-r">  CombinationFunction(function(table_row) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">190</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # If a warning is detected it is handled as "w".</pre>
+                      <pre class="language-r">    row_fractions &lt;- h_row_fractions(table_row, ...)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">191</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        warn_text &lt;&lt;- trimws(paste0("Warning in `try_car_anova`: ", w))</pre>
+                      <pre class="language-r">    any(row_fractions &gt;= atleast)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # A warning is sometimes expected, then, we want to restart</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # the execution while ignoring the warning.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">195</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        invokeRestart("muffleWarning")</pre>
+                      <pre class="language-r">#' @describeIn prune_occurrences Constructor for creating condition function that checks the difference</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'   between the fractions reported in each specified column.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">198</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    finally = {</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' * `has_fractions_difference()` returns a condition function that extracts the fractions of each</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'   specified column, and computes the difference of the minimum and maximum.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">202</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(y)</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' \donttest{</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' # `has_fractions_difference`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">205</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Fit a Cox regression model and ANOVA</pre>
+                      <pre class="language-r">#' more_than_five_percent_diff &lt;- has_fractions_difference(atleast = 0.05, col_names = names(tab))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' prune_table(tab, keep_rows(more_than_five_percent_diff))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The functions derives the effect p-values using [car::Anova()] from [survival::coxph()] results.</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -13064,38066 +13898,38061 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams t_coxreg</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">has_fractions_difference &lt;- function(atleast, ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">211</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A list with items `mod` (results of [survival::coxph()]), `msum` (result of `summary`) and</pre>
+                      <pre class="language-r">  assert_proportion_value(atleast, include_boundaries = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">212</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `aov` (result of [car::Anova()]).</pre>
+                      <pre class="language-r">  CombinationFunction(function(table_row) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">213</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">246<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    fractions &lt;- h_row_fractions(table_row, ...)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">214</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">246<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">    difference &lt;- diff(range(fractions))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">215</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">246<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">fit_n_aov &lt;- function(formula,</pre>
+                      <pre class="language-r">    difference &gt;= atleast</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">216</td>
                     <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                      data = data,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">217</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                      conf_level = conf_level,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">218</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                      pval_method = c("wald", "likelihood"),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">219</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                      ...) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  pval_method &lt;- match.arg(pval_method)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">221</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  environment(formula) &lt;- environment()</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  suppressWarnings({</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">224</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    # We expect some warnings due to coxph which fails strict programming.</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">225</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    mod &lt;- survival::coxph(formula, data = data, ...)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    msum &lt;- summary(mod, conf.int = conf_level)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">227</td>
-                    <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">229</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  aov &lt;- try_car_anova(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    mod,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">231</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    test.statistic = switch(pval_method,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      "wald" = "Wald",</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">233</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      "likelihood" = "LR"</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">234</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">235</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">236</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">237</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  warn_attr &lt;- aov$warn_text</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">238</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(aov$warn_text)) message(warn_attr)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">239</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">240</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  aov &lt;- aov$aov</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">241</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- list(mod = mod, msum = msum, aov = aov)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">242</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  attr(y, "message") &lt;- warn_attr</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">243</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">244</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  return(y)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">247</td>
+                    <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># argument_checks</pre>
+                      <pre class="language-r">#' @describeIn prune_occurrences Constructor for creating condition function that checks the difference</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">check_formula &lt;- function(formula) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">249</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (!(inherits(formula, "formula"))) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">250</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    stop("Check `formula`. A formula should resemble `Surv(time = AVAL, event = 1 - CNSR) ~ study_arm(ARMCD)`.")</pre>
+                      <pre class="language-r">#'   between the counts reported in each specified column.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</td>
+                    <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">253</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  invisible()</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</td>
+                    <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' * `has_counts_difference()` returns a condition function that extracts the counts of each</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">255</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   specified column, and computes the difference of the minimum and maximum.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">256</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">check_covariate_formulas &lt;- function(covariates) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">257</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (!all(vapply(X = covariates, FUN = inherits, what = "formula", FUN.VALUE = TRUE)) || is.null(covariates)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">258</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    stop("Check `covariates`, it should be a list of right-hand-term formulas, e.g. list(Age = ~AGE).")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">259</td>
+                    <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">260</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">261</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  invisible()</pre>
+                      <pre class="language-r">#' \donttest{</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</td>
+                    <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' more_than_one_diff &lt;- has_counts_difference(atleast = 1L, col_names = names(tab))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">263</td>
+                    <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' prune_table(tab, keep_rows(more_than_one_diff))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">264</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">name_covariate_names &lt;- function(covariates) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">265</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  miss_names &lt;- names(covariates) == ""</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">266</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  no_names &lt;- is.null(names(covariates))</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">267</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (any(miss_names)) names(covariates)[miss_names] &lt;- vapply(covariates[miss_names], FUN = rht, FUN.VALUE = "name")</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">268</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (no_names) names(covariates) &lt;- vapply(covariates, FUN = rht, FUN.VALUE = "name")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">269</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  return(covariates)</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">271</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">check_increments &lt;- function(increments, covariates) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">273</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(increments)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">274</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    covariates &lt;- vapply(covariates, FUN = rht, FUN.VALUE = "name")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">275</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    lapply(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">276</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      X = names(increments), FUN = function(x) {</pre>
+                      <pre class="language-r">has_counts_difference &lt;- function(atleast, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">277</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">234</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!x %in% covariates) {</pre>
+                      <pre class="language-r">  checkmate::assert_count(atleast)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">278</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">235</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          warning(</pre>
+                      <pre class="language-r">  CombinationFunction(function(table_row) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">279</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">236</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            paste(</pre>
+                      <pre class="language-r">    counts &lt;- h_row_counts(table_row, ...)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">280</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">237</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "Check `increments`, the `increment` for ", x,</pre>
+                      <pre class="language-r">    difference &lt;- diff(range(counts))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">281</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">238</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              "doesn't match any names in investigated covariate(s)."</pre>
+                      <pre class="language-r">    difference &gt;= atleast</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">282</td>
+                    <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">283</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/summarize_coxreg.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">284</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#' Cox proportional hazards regression</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">285</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Fits a Cox regression model and estimates hazard ratio to describe the effect size in a survival analysis.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">289</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  invisible()</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">291</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("summarize_coxreg")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">292</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Multivariate Cox model - summarized results</pre>
+                      <pre class="language-r">#'   to see available statistics for this function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">293</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">294</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Analyses based on multivariate Cox model are usually not performed for the Controlled Substance Reporting or</pre>
+                      <pre class="language-r">#' @details Cox models are the most commonly used methods to estimate the magnitude of</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">295</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' regulatory documents but serve exploratory purposes only (e.g., for publication). In practice, the model usually</pre>
+                      <pre class="language-r">#'   the effect in survival analysis. It assumes proportional hazards: the ratio</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' includes only the main effects (without interaction terms). It produces the hazard ratio estimates for each of the</pre>
+                      <pre class="language-r">#'   of the hazards between groups (e.g., two arms) is constant over time.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' covariates included in the model.</pre>
+                      <pre class="language-r">#'   This ratio is referred to as the "hazard ratio" (HR) and is one of the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">298</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The analysis follows the same principles (e.g., stratified vs. unstratified analysis and tie handling) as the</pre>
+                      <pre class="language-r">#'   most commonly reported metrics to describe the effect size in survival</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">299</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' usual Cox model analysis. Since there is usually no pre-specified hypothesis testing for such analysis,</pre>
+                      <pre class="language-r">#'   analysis (NEST Team, 2020).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">300</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the p.values need to be interpreted with caution. (**Statistical Analysis of Clinical Trials Data with R**,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">301</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `NEST's bookdown`)</pre>
+                      <pre class="language-r">#' @seealso [fit_coxreg] for relevant fitting functions, [h_cox_regression] for relevant</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">302</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   helper functions, and [tidy_coxreg] for custom tidy methods.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">303</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param formula (`formula`)\cr a formula corresponding to the investigated [survival::Surv()] survival model</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">304</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   including covariates.</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">305</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data (`data.frame`)\cr a data frame which includes the variable in formula and covariates.</pre>
+                      <pre class="language-r">#' library(survival)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">306</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param conf_level (`proportion`)\cr the confidence level for the hazard ratio interval estimations. Default is 0.95.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">307</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param pval_method (`string`)\cr the method used for the estimation of p-values, should be one of</pre>
+                      <pre class="language-r">#' # Testing dataset [survival::bladder].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">308</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `"wald"` (default) or `"likelihood"`.</pre>
+                      <pre class="language-r">#' set.seed(1, kind = "Mersenne-Twister")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">309</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... optional parameters passed to [survival::coxph()]. Can include `ties`, a character string specifying the</pre>
+                      <pre class="language-r">#' dta_bladder &lt;- with(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">310</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   method for tie handling, one of `exact` (default), `efron`, `breslow`.</pre>
+                      <pre class="language-r">#'   data = bladder[bladder$enum &lt; 5, ],</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">311</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   tibble::tibble(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">312</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `list` with elements `mod`, `msum`, `aov`, and `coef_inter`.</pre>
+                      <pre class="language-r">#'     TIME = stop,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">313</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     STATUS = event,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">314</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details The output is limited to single effect terms. Work in ongoing for estimation of interaction terms</pre>
+                      <pre class="language-r">#'     ARM = as.factor(rx),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">315</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   but is out of scope as defined by the  Global Data Standards Repository</pre>
+                      <pre class="language-r">#'     COVAR1 = as.factor(enum) %&gt;% formatters::with_label("A Covariate Label"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">316</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   (**`GDS_Standard_TLG_Specs_Tables_2.doc`**).</pre>
+                      <pre class="language-r">#'     COVAR2 = factor(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">317</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'       sample(as.factor(enum)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">318</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [estimate_coef()].</pre>
+                      <pre class="language-r">#'       levels = 1:4, labels = c("F", "F", "M", "M")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">319</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     ) %&gt;% formatters::with_label("Sex (F/M)")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">320</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">321</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">322</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' dta_bladder$AGE &lt;- sample(20:60, size = nrow(dta_bladder), replace = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">323</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adtte &lt;- tern_ex_adtte</pre>
+                      <pre class="language-r">#' dta_bladder$STUDYID &lt;- factor("X")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">324</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adtte_f &lt;- subset(adtte, PARAMCD == "OS") # _f: filtered</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">325</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adtte_f &lt;- filter(</pre>
+                      <pre class="language-r">#' u1_variables &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">326</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   adtte_f,</pre>
+                      <pre class="language-r">#'   time = "TIME", event = "STATUS", arm = "ARM", covariates = c("COVAR1", "COVAR2")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">327</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   PARAMCD == "OS" &amp;</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">328</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     SEX %in% c("F", "M") &amp;</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">329</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     RACE %in% c("ASIAN", "BLACK OR AFRICAN AMERICAN", "WHITE")</pre>
+                      <pre class="language-r">#' u2_variables &lt;- list(time = "TIME", event = "STATUS", covariates = c("COVAR1", "COVAR2"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">330</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">331</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adtte_f$SEX &lt;- droplevels(adtte_f$SEX)</pre>
+                      <pre class="language-r">#' m1_variables &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">332</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adtte_f$RACE &lt;- droplevels(adtte_f$RACE)</pre>
+                      <pre class="language-r">#'   time = "TIME", event = "STATUS", arm = "ARM", covariates = c("COVAR1", "COVAR2")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">333</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">334</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">335</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_cox_multivariate &lt;- function(formula, data,</pre>
+                      <pre class="language-r">#' m2_variables &lt;- list(time = "TIME", event = "STATUS", covariates = c("COVAR1", "COVAR2"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">336</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               conf_level = 0.95,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">337</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               pval_method = c("wald", "likelihood"),</pre>
+                      <pre class="language-r">#' @name cox_regression</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">338</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               ...) {</pre>
+                      <pre class="language-r">#' @order 1</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">339</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">56</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tf &lt;- stats::terms(formula, specials = c("strata"))</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">340</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">57</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  covariates &lt;- rownames(attr(tf, "factors"))[-c(1, unlist(attr(tf, "specials")))]</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">341</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">58</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lapply(</pre>
+                      <pre class="language-r">#' @describeIn cox_regression Statistics function that transforms results tabulated</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">342</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">59</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    X = covariates,</pre>
+                      <pre class="language-r">#'   from [fit_coxreg_univar()] or [fit_coxreg_multivar()] into a list.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">343</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">60</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    FUN = function(x) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">344</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">61</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (is.character(data[[x]])) {</pre>
+                      <pre class="language-r">#' @param model_df (`data.frame`)\cr contains the resulting model fit from a [fit_coxreg]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">345</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">62</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data[[x]] &lt;&lt;- as.factor(data[[x]])</pre>
+                      <pre class="language-r">#'   function with tidying applied via [broom::tidy()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">346</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' @param .stats (`character`)\cr the names of statistics to be reported among:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">347</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">64</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      invisible()</pre>
+                      <pre class="language-r">#'   * `n`: number of observations (univariate only)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">348</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'   * `hr`: hazard ratio</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">349</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'   * `ci`: confidence interval</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">350</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">67</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  pval_method &lt;- match.arg(pval_method)</pre>
+                      <pre class="language-r">#'   * `pval`: p-value of the treatment effect</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">351</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   * `pval_inter`: p-value of the interaction effect between the treatment and the covariate (univariate only)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">352</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Results directly exported from environment(fit_n_aov) to environment(s_function_draft)</pre>
+                      <pre class="language-r">#' @param .which_vars (`character`)\cr which rows should statistics be returned for from the given model.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">353</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- fit_n_aov(</pre>
+                      <pre class="language-r">#'   Defaults to `"all"`. Other options include `"var_main"` for main effects, `"inter"` for interaction effects,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">354</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">71</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    formula = formula,</pre>
+                      <pre class="language-r">#'   and `"multi_lvl"` for multivariate model covariate level rows. When `.which_vars` is `"all"`, specific</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">355</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">72</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data = data,</pre>
+                      <pre class="language-r">#'   variables can be selected by specifying `.var_nms`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">356</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">73</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    conf_level = conf_level,</pre>
+                      <pre class="language-r">#' @param .var_nms (`character`)\cr the `term` value of rows in `df` for which `.stats` should be returned. Typically</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">357</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">74</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pval_method = pval_method,</pre>
+                      <pre class="language-r">#'   this is the name of a variable. If using variable labels, `var` should be a vector of both the desired</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">358</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ...</pre>
+                      <pre class="language-r">#'   variable name and the variable label in that order to see all `.stats` related to that variable. When `.which_vars`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">359</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'   is `"var_main"`, `.var_nms` should be only the variable name.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">360</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">77</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mod &lt;- y$mod</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">361</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">78</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  aov &lt;- y$aov</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">362</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">79</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  msum &lt;- y$msum</pre>
+                      <pre class="language-r">#' * `s_coxreg()` returns the selected statistic for from the Cox regression model for the selected variable(s).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">363</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">80</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list2env(as.list(y), environment())</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">364</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">365</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">82</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  all_term_labs &lt;- attr(mod$terms, "term.labels")</pre>
+                      <pre class="language-r">#' # s_coxreg</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">366</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">83</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  term_labs &lt;- all_term_labs[which(attr(mod$terms, "order") == 1)]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">367</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">84</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  names(term_labs) &lt;- term_labs</pre>
+                      <pre class="language-r">#' # Univariate</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">368</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' univar_model &lt;- fit_coxreg_univar(variables = u1_variables, data = dta_bladder)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">369</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">86</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  coef_inter &lt;- NULL</pre>
+                      <pre class="language-r">#' df1 &lt;- broom::tidy(univar_model)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">370</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">87</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any(attr(mod$terms, "order") &gt; 1)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">371</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">88</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    for_inter &lt;- all_term_labs[attr(mod$terms, "order") &gt; 1]</pre>
+                      <pre class="language-r">#' s_coxreg(model_df = df1, .stats = "hr")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">372</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">89</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    names(for_inter) &lt;- for_inter</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">373</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">90</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mmat &lt;- stats::model.matrix(mod)[1, ]</pre>
+                      <pre class="language-r">#' # Univariate with interactions</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">374</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">91</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mmat[!mmat == 0] &lt;- 0</pre>
+                      <pre class="language-r">#' univar_model_inter &lt;- fit_coxreg_univar(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">375</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">92</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mcoef &lt;- stats::coef(mod)</pre>
+                      <pre class="language-r">#'   variables = u1_variables, control = control_coxreg(interaction = TRUE), data = dta_bladder</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">376</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">93</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mvcov &lt;- stats::vcov(mod)</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">377</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' df1_inter &lt;- broom::tidy(univar_model_inter)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">378</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">95</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    estimate_coef_local &lt;- function(variable, given) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">379</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">96</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      estimate_coef(</pre>
+                      <pre class="language-r">#' s_coxreg(model_df = df1_inter, .stats = "hr", .which_vars = "inter", .var_nms = "COVAR1")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">380</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">97</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        variable, given,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">381</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">98</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        coef = mcoef, mmat = mmat, vcov = mvcov, conf_level = conf_level,</pre>
+                      <pre class="language-r">#' # Univariate without treatment arm - only "COVAR2" covariate effects</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">382</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">99</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        lvl_var = levels(data[[variable]]), lvl_given = levels(data[[given]])</pre>
+                      <pre class="language-r">#' univar_covs_model &lt;- fit_coxreg_univar(variables = u2_variables, data = dta_bladder)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">383</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' df1_covs &lt;- broom::tidy(univar_covs_model)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">384</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">385</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' s_coxreg(model_df = df1_covs, .stats = "hr", .var_nms = c("COVAR2", "Sex (F/M)"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">386</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">103</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    coef_inter &lt;- lapply(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">387</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">104</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      for_inter, function(x) {</pre>
+                      <pre class="language-r">#' # Multivariate.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">388</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">105</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        y &lt;- attr(mod$terms, "factors")[, x]</pre>
+                      <pre class="language-r">#' multivar_model &lt;- fit_coxreg_multivar(variables = m1_variables, data = dta_bladder)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">389</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">106</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        y &lt;- names(y[y &gt; 0])</pre>
+                      <pre class="language-r">#' df2 &lt;- broom::tidy(multivar_model)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">390</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">107</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        Map(estimate_coef_local, variable = y, given = rev(y))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">391</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' s_coxreg(model_df = df2, .stats = "pval", .which_vars = "var_main", .var_nms = "COVAR1")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">392</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' s_coxreg(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">393</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   model_df = df2, .stats = "pval", .which_vars = "multi_lvl",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">394</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   .var_nms = c("COVAR1", "A Covariate Label")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">395</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">112</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(mod = mod, msum = msum, aov = aov, coef_inter = coef_inter)</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">396</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/prop_diff.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Proportion difference estimation</pre>
+                      <pre class="language-r">#' # Multivariate without treatment arm - only "COVAR1" main effect</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' multivar_covs_model &lt;- fit_coxreg_multivar(variables = m2_variables, data = dta_bladder)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' df2_covs &lt;- broom::tidy(multivar_covs_model)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The analysis function [estimate_proportion_diff()] creates a layout element to estimate the difference in proportion</pre>
+                      <pre class="language-r">#' s_coxreg(model_df = df2_covs, .stats = "hr")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' of responders within a studied population. The primary analysis variable, `vars`, is a logical variable indicating</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' whether a response has occurred for each record. See the `method` parameter for options of methods to use when</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' constructing the confidence interval of the proportion difference. A stratification variable can be supplied via the</pre>
+                      <pre class="language-r">s_coxreg &lt;- function(model_df, .stats, .which_vars = "all", .var_nms = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">122</td>
+                    <td class="coverage">291<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `strata` element of the `variables` argument.</pre>
+                      <pre class="language-r">  assert_df_with_variables(model_df, list(term = "term", stat = .stats))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">123</td>
+                    <td class="coverage">291<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(model_df$term, classes = c("factor", "character"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">124</td>
+                    <td class="coverage">291<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  model_df$term &lt;- as.character(model_df$term)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">125</td>
+                    <td class="coverage">291<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams prop_diff_strat_nc</pre>
+                      <pre class="language-r">  .var_nms &lt;- .var_nms[!is.na(.var_nms)]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">127</td>
+                    <td class="coverage">289<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param method (`string`)\cr the method used for the confidence interval estimation.</pre>
+                      <pre class="language-r">  if (length(.var_nms) &gt; 0) model_df &lt;- model_df[model_df$term %in% .var_nms, ]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">128</td>
+                    <td class="coverage">69<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("estimate_proportion_diff")`</pre>
+                      <pre class="language-r">  if (.which_vars == "multi_lvl") model_df$term &lt;- tail(.var_nms, 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to see available statistics for this function.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  # We need a list with names corresponding to the stats to display of equal length to the list of stats.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">131</td>
+                    <td class="coverage">291<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [d_proportion_diff()]</pre>
+                      <pre class="language-r">  y &lt;- split(model_df, f = model_df$term, drop = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">132</td>
+                    <td class="coverage">291<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  y &lt;- stats::setNames(y, nm = rep(.stats, length(y)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name prop_diff</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">134</td>
+                    <td class="coverage">291<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (.which_vars == "var_main") {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">135</td>
+                    <td class="coverage">128<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    y &lt;- lapply(y, function(x) x[1, ]) # only main effect</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">136</td>
+                    <td class="coverage">163<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  } else if (.which_vars %in% c("inter", "multi_lvl")) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">137</td>
+                    <td class="coverage">120<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    y &lt;- lapply(y, function(x) if (nrow(y[[1]]) &gt; 1) x[-1, ] else x) # exclude main effect</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 1</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">140</td>
+                    <td class="coverage">291<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  lapply(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">141</td>
+                    <td class="coverage">291<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    X = y,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">142</td>
+                    <td class="coverage">291<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    FUN = function(x) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">143</td>
+                    <td class="coverage">295<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      z &lt;- as.list(x[[.stats]])</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">144</td>
+                    <td class="coverage">295<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      stats::setNames(z, nm = x$term_label)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn prop_diff Statistics function estimating the difference</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   in terms of responder proportion.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' @describeIn cox_regression Analysis function which is used as `afun` in [rtables::analyze()]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_proportion_diff()` returns a named list of elements `diff` and `diff_ci`.</pre>
+                      <pre class="language-r">#'   and `cfun` in [rtables::summarize_row_groups()] within `summarize_coxreg()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note When performing an unstratified analysis, methods `"cmh"`, `"strat_newcombe"`, and `"strat_newcombecc"` are</pre>
+                      <pre class="language-r">#' @param eff (`flag`)\cr whether treatment effect should be calculated. Defaults to `FALSE`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   not permitted.</pre>
+                      <pre class="language-r">#' @param var_main (`flag`)\cr whether main effects should be calculated. Defaults to `FALSE`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param na_str (`string`)\cr custom string to replace all `NA` values with. Defaults to `""`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @param cache_env (`environment`)\cr an environment object used to cache the regression model in order to</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_proportion_diff(</pre>
+                      <pre class="language-r">#'   avoid repeatedly fitting the same model for every row in the table. Defaults to `NULL` (no caching).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   df = subset(dta, grp == "A"),</pre>
+                      <pre class="language-r">#' @param varlabels (`list`)\cr a named list corresponds to the names of variables found in data, passed</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .var = "rsp",</pre>
+                      <pre class="language-r">#'   as a named list and corresponding to time, event, arm, strata, and covariates terms. If arm is missing</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .ref_group = subset(dta, grp == "B"),</pre>
+                      <pre class="language-r">#'   from variables, then only Cox model(s) including the covariates will be fitted and the corresponding</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .in_ref_col = FALSE,</pre>
+                      <pre class="language-r">#'   effect estimates will be tabulated later.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   conf_level = 0.90,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   method = "ha"</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' * `a_coxreg()` returns formatted [rtables::CellValue()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # CMH example with strata</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_proportion_diff(</pre>
+                      <pre class="language-r">#' a_coxreg(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   df = subset(dta, grp == "A"),</pre>
+                      <pre class="language-r">#'   df = dta_bladder,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .var = "rsp",</pre>
+                      <pre class="language-r">#'   labelstr = "Label 1",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .ref_group = subset(dta, grp == "B"),</pre>
+                      <pre class="language-r">#'   variables = u1_variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .in_ref_col = FALSE,</pre>
+                      <pre class="language-r">#'   .spl_context = list(value = "COVAR1"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(strata = c("f1", "f2")),</pre>
+                      <pre class="language-r">#'   .stats = "n",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   conf_level = 0.90,</pre>
+                      <pre class="language-r">#'   .formats = "xx"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   method = "cmh"</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' a_coxreg(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'   df = dta_bladder,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_proportion_diff &lt;- function(df,</pre>
+                      <pre class="language-r">#'   labelstr = "",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              .var,</pre>
+                      <pre class="language-r">#'   variables = u1_variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              .ref_group,</pre>
+                      <pre class="language-r">#'   .spl_context = list(value = "COVAR2"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              .in_ref_col,</pre>
+                      <pre class="language-r">#'   .stats = "pval",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              variables = list(strata = NULL),</pre>
+                      <pre class="language-r">#'   .formats = "xx.xxxx"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              conf_level = 0.95,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              method = c(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                "waldcc", "wald", "cmh",</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                "ha", "newcombe", "newcombecc",</pre>
+                      <pre class="language-r">a_coxreg &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                "strat_newcombe", "strat_newcombecc"</pre>
+                      <pre class="language-r">                     labelstr,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              ),</pre>
+                      <pre class="language-r">                     eff = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              weights_method = "cmh") {</pre>
+                      <pre class="language-r">                     var_main = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">67</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">189</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  method &lt;- match.arg(method)</pre>
+                      <pre class="language-r">                     multivar = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">190</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(variables$strata) &amp;&amp; checkmate::test_subset(method, c("cmh", "strat_newcombe", "strat_newcombecc"))) {</pre>
+                      <pre class="language-r">                     variables,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">69</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">191</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop(paste(</pre>
+                      <pre class="language-r">                     at = list(),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">70</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">192</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "When performing an unstratified analysis, methods 'cmh', 'strat_newcombe', and 'strat_newcombecc' are not",</pre>
+                      <pre class="language-r">                     control = control_coxreg(),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">71</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">193</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "permitted. Please choose a different method."</pre>
+                      <pre class="language-r">                     .spl_context,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))</pre>
+                      <pre class="language-r">                     .stats,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                     .formats,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">196</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- list(diff = "", diff_ci = "")</pre>
+                      <pre class="language-r">                     .indent_mods = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                     na_str = "",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">198</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!.in_ref_col) {</pre>
+                      <pre class="language-r">                     cache_env = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">199</td>
+                    <td class="coverage">288<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rsp &lt;- c(.ref_group[[.var]], df[[.var]])</pre>
+                      <pre class="language-r">  cov_no_arm &lt;- !multivar &amp;&amp; !"arm" %in% names(variables) &amp;&amp; control$interaction # special case: univar no arm</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">200</td>
+                    <td class="coverage">288<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    grp &lt;- factor(</pre>
+                      <pre class="language-r">  cov &lt;- tail(.spl_context$value, 1) # current variable/covariate</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">201</td>
+                    <td class="coverage">288<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rep(</pre>
+                      <pre class="language-r">  var_lbl &lt;- formatters::var_labels(df)[cov] # check for df labels</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">202</td>
+                    <td class="coverage">288<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        c("ref", "Not-ref"),</pre>
+                      <pre class="language-r">  if (length(labelstr) &gt; 1) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">203</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        c(nrow(.ref_group), nrow(df))</pre>
+                      <pre class="language-r">    labelstr &lt;- if (cov %in% names(labelstr)) labelstr[[cov]] else var_lbl # use df labels if none</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">204</td>
+                    <td class="coverage">280<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">  } else if (!is.na(var_lbl) &amp;&amp; labelstr == cov &amp;&amp; cov %in% variables$covariates) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">83</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">205</td>
+                    <td class="coverage">67<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      levels = c("ref", "Not-ref")</pre>
+                      <pre class="language-r">    labelstr &lt;- var_lbl</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">207</td>
+                    <td class="coverage">288<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if (eff || multivar || cov_no_arm) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">208</td>
+                    <td class="coverage">143<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.null(variables$strata)) {</pre>
+                      <pre class="language-r">    control$interaction &lt;- FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">209</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      strata_colnames &lt;- variables$strata</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">88</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">210</td>
+                    <td class="coverage">145<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_character(strata_colnames, null.ok = FALSE)</pre>
+                      <pre class="language-r">    variables$covariates &lt;- cov</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">89</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">211</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      strata_vars &lt;- stats::setNames(as.list(strata_colnames), strata_colnames)</pre>
+                      <pre class="language-r">    if (var_main) control$interaction &lt;- TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">212</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">91</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">214</td>
+                    <td class="coverage">288<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      assert_df_with_variables(df, strata_vars)</pre>
+                      <pre class="language-r">  if (is.null(cache_env[[cov]])) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">215</td>
+                    <td class="coverage">47<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      assert_df_with_variables(.ref_group, strata_vars)</pre>
+                      <pre class="language-r">    if (!multivar) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">93</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">216</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      model &lt;- fit_coxreg_univar(variables = variables, data = df, at = at, control = control) %&gt;% broom::tidy()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Merging interaction strata for reference group rows data and remaining</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">218</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      strata &lt;- c(</pre>
+                      <pre class="language-r">      model &lt;- fit_coxreg_multivar(variables = variables, data = df, control = control) %&gt;% broom::tidy()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">96</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">219</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        interaction(.ref_group[strata_colnames]),</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">97</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">220</td>
+                    <td class="coverage">47<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        interaction(df[strata_colnames])</pre>
+                      <pre class="language-r">    cache_env[[cov]] &lt;- model</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">99</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">222</td>
+                    <td class="coverage">241<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      strata &lt;- as.factor(strata)</pre>
+                      <pre class="language-r">    model &lt;- cache_env[[cov]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">101</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">224</td>
+                    <td class="coverage">148<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if (!multivar &amp;&amp; !var_main) model[, "pval_inter"] &lt;- NA_real_</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Defining the std way to calculate weights for strat_newcombe</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.null(variables$weights_method)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">104</td>
-                    <td class="coverage">!</td>
+                    <td class="num">226</td>
+                    <td class="coverage">288<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      weights_method &lt;- variables$weights_method</pre>
+                      <pre class="language-r">  if (cov_no_arm || (!cov_no_arm &amp;&amp; !"arm" %in% names(variables) &amp;&amp; is.numeric(df[[cov]]))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">105</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">227</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">    multivar &lt;- TRUE</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">228</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      weights_method &lt;- "cmh"</pre>
+                      <pre class="language-r">    if (!cov_no_arm) var_main &lt;- TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">231</td>
+                    <td class="coverage">288<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y &lt;- switch(method,</pre>
+                      <pre class="language-r">  vars_coxreg &lt;- list(which_vars = "all", var_nms = NULL)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">232</td>
+                    <td class="coverage">288<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "wald" = prop_diff_wald(rsp, grp, conf_level, correct = FALSE),</pre>
+                      <pre class="language-r">  if (eff) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">233</td>
+                    <td class="coverage">65<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "waldcc" = prop_diff_wald(rsp, grp, conf_level, correct = TRUE),</pre>
+                      <pre class="language-r">    if (multivar &amp;&amp; !var_main) { # multivar treatment level</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">234</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "ha" = prop_diff_ha(rsp, grp, conf_level),</pre>
+                      <pre class="language-r">      var_lbl_arm &lt;- formatters::var_labels(df)[[variables$arm]]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">235</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "newcombe" = prop_diff_nc(rsp, grp, conf_level, correct = FALSE),</pre>
+                      <pre class="language-r">      vars_coxreg[c("var_nms", "which_vars")] &lt;- list(c(variables$arm, var_lbl_arm), "multi_lvl")</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">236</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    } else { # treatment effect</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">114</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">237</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "newcombecc" = prop_diff_nc(rsp, grp, conf_level, correct = TRUE),</pre>
+                      <pre class="language-r">      vars_coxreg["var_nms"] &lt;- variables$arm</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">238</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "strat_newcombe" = prop_diff_strat_nc(rsp,</pre>
+                      <pre class="language-r">      if (var_main) vars_coxreg["which_vars"] &lt;- "var_main"</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">239</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">240</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">241</td>
+                    <td class="coverage">223<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        grp,</pre>
+                      <pre class="language-r">    if (!multivar || (multivar &amp;&amp; var_main &amp;&amp; !is.numeric(df[[cov]]))) { # covariate effect/level</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">242</td>
+                    <td class="coverage">166<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        strata,</pre>
+                      <pre class="language-r">      vars_coxreg[c("var_nms", "which_vars")] &lt;- list(cov, "var_main")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">118</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">243</td>
+                    <td class="coverage">57<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        weights_method,</pre>
+                      <pre class="language-r">    } else if (multivar) { # multivar covariate level</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">244</td>
+                    <td class="coverage">57<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        conf_level,</pre>
+                      <pre class="language-r">      vars_coxreg[c("var_nms", "which_vars")] &lt;- list(c(cov, var_lbl), "multi_lvl")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">120</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">245</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        correct = FALSE</pre>
+                      <pre class="language-r">      if (var_main) model[cov, .stats] &lt;- NA_real_</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">122</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">247</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "strat_newcombecc" = prop_diff_strat_nc(rsp,</pre>
+                      <pre class="language-r">    if (!multivar &amp;&amp; !var_main &amp;&amp; control$interaction) vars_coxreg["which_vars"] &lt;- "inter" # interaction effect</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">248</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        grp,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">249</td>
+                    <td class="coverage">288<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        strata,</pre>
+                      <pre class="language-r">  var_vals &lt;- s_coxreg(model, .stats, .which_vars = vars_coxreg$which_vars, .var_nms = vars_coxreg$var_nms)[[1]]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">250</td>
+                    <td class="coverage">288<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        weights_method,</pre>
+                      <pre class="language-r">  var_names &lt;- if (all(grepl("\\(reference = ", names(var_vals))) &amp;&amp; labelstr != tail(.spl_context$value, 1)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">251</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        conf_level,</pre>
+                      <pre class="language-r">    paste(c(labelstr, tail(strsplit(names(var_vals), " ")[[1]], 3)), collapse = " ") # "reference" main effect labels</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">252</td>
+                    <td class="coverage">288<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        correct = TRUE</pre>
+                      <pre class="language-r">  } else if ((!multivar &amp;&amp; !eff &amp;&amp; !(!var_main &amp;&amp; control$interaction) &amp;&amp; nchar(labelstr) &gt; 0) ||</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">128</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">253</td>
+                    <td class="coverage">288<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">    (multivar &amp;&amp; var_main &amp;&amp; is.numeric(df[[cov]]))) { # nolint</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">254</td>
+                    <td class="coverage">71<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "cmh" = prop_diff_cmh(rsp, grp, strata, conf_level)[c("diff", "diff_ci")]</pre>
+                      <pre class="language-r">    labelstr # other main effect labels</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">130</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">255</td>
+                    <td class="coverage">288<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  } else if (multivar &amp;&amp; !eff &amp;&amp; !var_main &amp;&amp; is.numeric(df[[cov]])) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">131</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">256</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    "All" # multivar numeric covariate</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">257</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y$diff &lt;- y$diff * 100</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">258</td>
+                    <td class="coverage">178<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y$diff_ci &lt;- y$diff_ci * 100</pre>
+                      <pre class="language-r">    names(var_vals)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">135</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">260</td>
+                    <td class="coverage">288<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  in_rows(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">136</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">261</td>
+                    <td class="coverage">288<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attr(y$diff, "label") &lt;- "Difference in Response rate (%)"</pre>
+                      <pre class="language-r">    .list = var_vals, .names = var_names, .labels = var_names, .indent_mods = .indent_mods,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">262</td>
+                    <td class="coverage">288<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attr(y$diff_ci, "label") &lt;- d_proportion_diff(</pre>
+                      <pre class="language-r">    .formats = stats::setNames(rep(.formats, length(var_names)), var_names),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">263</td>
+                    <td class="coverage">288<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    conf_level, method,</pre>
+                      <pre class="language-r">    .format_na_strs = stats::setNames(rep(na_str, length(var_names)), var_names)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">264</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    long = FALSE</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">265</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">266</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">267</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y</pre>
+                      <pre class="language-r">#' @describeIn cox_regression Layout-creating function which creates a Cox regression summary table</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">268</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   layout. This function is a wrapper for several `rtables` layouting functions. This function</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   is a wrapper for [rtables::analyze_colvars()] and [rtables::summarize_row_groups()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">270</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn prop_diff Formatted analysis function which is used as `afun` in `estimate_proportion_diff()`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">271</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @inheritParams fit_coxreg_univar</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">272</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' @param multivar (`flag`)\cr whether multivariate Cox regression should run (defaults to `FALSE`), otherwise</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">273</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `a_proportion_diff()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
+                      <pre class="language-r">#'   univariate Cox regression will run.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">274</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param common_var (`string`)\cr the name of a factor variable in the dataset which takes the same value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">275</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   for all rows. This should be created during pre-processing if no such variable currently exists.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">276</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' a_proportion_diff(</pre>
+                      <pre class="language-r">#' @param .section_div (`string` or `NA`)\cr string which should be repeated as a section divider between sections.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">277</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   df = subset(dta, grp == "A"),</pre>
+                      <pre class="language-r">#'   Defaults to `NA` for no section divider. If a vector of two strings are given, the first will be used between</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .var = "rsp",</pre>
+                      <pre class="language-r">#'   treatment and covariate sections and the second between different covariates.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">279</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .ref_group = subset(dta, grp == "B"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">280</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .in_ref_col = FALSE,</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">281</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   conf_level = 0.90,</pre>
+                      <pre class="language-r">#' * `summarize_coxreg()` returns a layout object suitable for passing to further layouting functions,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">282</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   method = "ha"</pre>
+                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add a Cox regression table</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">283</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   containing the chosen statistics to the table layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @seealso [fit_coxreg_univar()] and [fit_coxreg_multivar()] which also take the `variables`, `data`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">a_proportion_diff &lt;- make_afun(</pre>
+                      <pre class="language-r">#'   `at` (univariate only), and `control` arguments but return unformatted univariate and multivariate</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_proportion_diff,</pre>
+                      <pre class="language-r">#'   Cox regression models, respectively.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">288</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats = c(diff = "xx.x", diff_ci = "(xx.x, xx.x)"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">289</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .indent_mods = c(diff = 0L, diff_ci = 1L)</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">#' # summarize_coxreg</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">292</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn prop_diff Layout-creating function which can take statistics function arguments</pre>
+                      <pre class="language-r">#' result_univar &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
+                      <pre class="language-r">#'   summarize_coxreg(variables = u1_variables) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   build_table(dta_bladder)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">295</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' result_univar</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">296</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `estimate_proportion_diff()` returns a layout object suitable for passing to further layouting functions,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">297</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
+                      <pre class="language-r">#' result_univar_covs &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">298</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the statistics from `s_proportion_diff()` to the table layout.</pre>
+                      <pre class="language-r">#'   summarize_coxreg(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     variables = u2_variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">300</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">301</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## "Mid" case: 4/4 respond in group A, 1/2 respond in group B.</pre>
+                      <pre class="language-r">#'   build_table(dta_bladder)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">302</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' nex &lt;- 100 # Number of example rows</pre>
+                      <pre class="language-r">#' result_univar_covs</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dta &lt;- data.frame(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "rsp" = sample(c(TRUE, FALSE), nex, TRUE),</pre>
+                      <pre class="language-r">#' result_multivar &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">305</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "grp" = sample(c("A", "B"), nex, TRUE),</pre>
+                      <pre class="language-r">#'   summarize_coxreg(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">306</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "f1" = sample(c("a1", "a2"), nex, TRUE),</pre>
+                      <pre class="language-r">#'     variables = m1_variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "f2" = sample(c("x", "y", "z"), nex, TRUE),</pre>
+                      <pre class="language-r">#'     multivar = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">308</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   stringsAsFactors = TRUE</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">309</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   build_table(dta_bladder)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">310</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' result_multivar</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">311</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' l &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">312</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by(var = "grp", ref_group = "B") %&gt;%</pre>
+                      <pre class="language-r">#' result_multivar_covs &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   estimate_proportion_diff(</pre>
+                      <pre class="language-r">#'   summarize_coxreg(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     vars = "rsp",</pre>
+                      <pre class="language-r">#'     variables = m2_variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">315</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     conf_level = 0.90,</pre>
+                      <pre class="language-r">#'     multivar = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">316</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     method = "ha"</pre>
+                      <pre class="language-r">#'     varlabels = c("Covariate 1", "Covariate 2") # custom labels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">317</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">318</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   build_table(dta_bladder)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">319</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' build_table(l, df = dta)</pre>
+                      <pre class="language-r">#' result_multivar_covs</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">322</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @order 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">323</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">estimate_proportion_diff &lt;- function(lyt,</pre>
+                      <pre class="language-r">summarize_coxreg &lt;- function(lyt,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">324</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     vars,</pre>
+                      <pre class="language-r">                             variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">325</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     variables = list(strata = NULL),</pre>
+                      <pre class="language-r">                             control = control_coxreg(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">326</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     conf_level = 0.95,</pre>
+                      <pre class="language-r">                             at = list(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">327</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     method = c(</pre>
+                      <pre class="language-r">                             multivar = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">328</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       "waldcc", "wald", "cmh",</pre>
+                      <pre class="language-r">                             common_var = "STUDYID",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">329</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       "ha", "newcombe", "newcombecc",</pre>
+                      <pre class="language-r">                             .stats = c("n", "hr", "ci", "pval", "pval_inter"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">205</td>
+                    <td class="num">330</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       "strat_newcombe", "strat_newcombecc"</pre>
+                      <pre class="language-r">                             .formats = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">331</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     ),</pre>
+                      <pre class="language-r">                               n = "xx", hr = "xx.xx", ci = "(xx.xx, xx.xx)",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">332</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     weights_method = "cmh",</pre>
+                      <pre class="language-r">                               pval = "x.xxxx | (&lt;0.0001)", pval_inter = "x.xxxx | (&lt;0.0001)"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">333</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     na_str = default_na_str(),</pre>
+                      <pre class="language-r">                             ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">334</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     nested = TRUE,</pre>
+                      <pre class="language-r">                             varlabels = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">335</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     ...,</pre>
+                      <pre class="language-r">                             .indent_mods = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</td>
+                    <td class="num">336</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     var_labels = vars,</pre>
+                      <pre class="language-r">                             na_str = "",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">337</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     show_labels = "hidden",</pre>
+                      <pre class="language-r">                             .section_div = NA_character_) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">338</td>
+                    <td class="coverage">16<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (multivar &amp;&amp; control$interaction) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">339</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    warning(paste(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">340</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      "Interactions are not available for multivariate cox regression using summarize_coxreg.",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">341</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      "The model will be calculated without interaction effects."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">342</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     table_names = vars,</pre>
+                      <pre class="language-r">    ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">343</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     .stats = NULL,</pre>
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">344</td>
+                    <td class="coverage">16<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (control$interaction &amp;&amp; !"arm" %in% names(variables)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">345</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    stop("To include interactions please specify 'arm' in variables.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">346</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     .formats = NULL,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">347</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     .labels = NULL,</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">348</td>
+                    <td class="coverage">15<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  .stats &lt;- if (!"arm" %in% names(variables) || multivar) { # only valid statistics</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">349</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    intersect(c("hr", "ci", "pval"), .stats)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">350</td>
+                    <td class="coverage">15<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  } else if (control$interaction) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">351</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    intersect(c("n", "hr", "ci", "pval", "pval_inter"), .stats)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">352</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     .indent_mods = NULL) {</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">218</td>
+                    <td class="num">353</td>
                     <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(</pre>
+                      <pre class="language-r">    intersect(c("n", "hr", "ci", "pval"), .stats)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">354</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">355</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    variables = variables, conf_level = conf_level, method = method, weights_method = weights_method, ...</pre>
+                      <pre class="language-r">  stat_labels &lt;- c(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">356</td>
+                    <td class="coverage">15<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    n = "n", hr = "Hazard Ratio", ci = paste0(control$conf_level * 100, "% CI"),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">357</td>
+                    <td class="coverage">15<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    pval = "p-value", pval_inter = "Interaction p-value"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">358</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
+                  <tr class="covered">
+                    <td class="num">359</td>
+                    <td class="coverage">15<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  stat_labels &lt;- stat_labels[names(stat_labels) %in% .stats]</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">360</td>
+                    <td class="coverage">15<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  .formats &lt;- .formats[names(.formats) %in% .stats]</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">361</td>
+                    <td class="coverage">15<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  env &lt;- new.env() # create caching environment</pre>
+                    </td>
+                  </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">362</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">363</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  afun &lt;- make_afun(</pre>
+                      <pre class="language-r">  lyt &lt;- lyt %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">364</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    a_proportion_diff,</pre>
+                      <pre class="language-r">    split_cols_by_multivar(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">365</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .stats = .stats,</pre>
+                      <pre class="language-r">      vars = rep(common_var, length(.stats)),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">225</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">366</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .formats = .formats,</pre>
+                      <pre class="language-r">      varlabels = stat_labels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">367</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .labels = .labels,</pre>
+                      <pre class="language-r">      extra_args = list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">368</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .indent_mods = .indent_mods</pre>
+                      <pre class="language-r">        .stats = .stats, .formats = .formats, .indent_mods = .indent_mods, na_str = rep(na_str, length(.stats)),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">369</td>
+                    <td class="coverage">15<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        cache_env = replicate(length(.stats), list(env))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</td>
+                    <td class="num">370</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</td>
+                    <td class="num">371</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">372</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">373</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  analyze(</pre>
+                      <pre class="language-r">  if ("arm" %in% names(variables)) { # treatment effect</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">231</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">374</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt,</pre>
+                      <pre class="language-r">    lyt &lt;- lyt %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">375</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars,</pre>
+                      <pre class="language-r">      split_rows_by(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">233</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">376</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    afun = afun,</pre>
+                      <pre class="language-r">        common_var,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">377</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_labels = var_labels,</pre>
+                      <pre class="language-r">        split_label = "Treatment:",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">235</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">378</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">        label_pos = "visible",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">236</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">379</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nested = nested,</pre>
+                      <pre class="language-r">        child_labels = "hidden",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">237</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">380</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args = extra_args,</pre>
+                      <pre class="language-r">        section_div = head(.section_div, 1)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">381</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">238</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">382</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    show_labels = show_labels,</pre>
+                      <pre class="language-r">    if (!multivar) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">239</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">383</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table_names = table_names</pre>
+                      <pre class="language-r">      lyt &lt;- lyt %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">240</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">384</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        analyze_colvars(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">241</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">385</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">          afun = a_coxreg,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">242</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">386</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          na_str = na_str,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">243</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">387</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Check proportion difference arguments</pre>
+                      <pre class="language-r">          extra_args = list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">244</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">388</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            variables = variables, control = control, multivar = multivar, eff = TRUE, var_main = multivar,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">245</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">389</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Verifies that and/or convert arguments into valid values to be used in the</pre>
+                      <pre class="language-r">            labelstr = ""</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</td>
+                    <td class="num">390</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' estimation of difference in responder proportions.</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">247</td>
+                    <td class="num">391</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">392</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams prop_diff</pre>
+                      <pre class="language-r">    } else { # treatment level effects</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">249</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">393</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams prop_diff_wald</pre>
+                      <pre class="language-r">      lyt &lt;- lyt %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">250</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">394</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        summarize_row_groups(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">251</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">395</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">          cfun = a_coxreg,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">252</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">396</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">check_diff_prop_ci &lt;- function(rsp,</pre>
+                      <pre class="language-r">          na_str = na_str,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">253</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">397</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               grp,</pre>
+                      <pre class="language-r">          extra_args = list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">254</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">398</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               strata = NULL,</pre>
+                      <pre class="language-r">            variables = variables, control = control, multivar = multivar, eff = TRUE, var_main = multivar</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">255</td>
+                    <td class="num">399</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               conf_level,</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">256</td>
+                    <td class="num">400</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               correct = NULL) {</pre>
+                      <pre class="language-r">        ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">257</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">401</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_logical(rsp, any.missing = FALSE)</pre>
+                      <pre class="language-r">        analyze_colvars(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">258</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">402</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_factor(grp, len = length(rsp), any.missing = FALSE, n.levels = 2)</pre>
+                      <pre class="language-r">          afun = a_coxreg,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">259</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">403</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(conf_level, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">          na_str = na_str,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">260</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">404</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(correct, null.ok = TRUE)</pre>
+                      <pre class="language-r">          extra_args = list(eff = TRUE, control = control, variables = variables, multivar = multivar, labelstr = "")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">261</td>
+                    <td class="num">405</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">262</td>
-                    <td class="coverage">26<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(strata)) {</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">263</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">406</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_factor(strata, len = length(rsp))</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">264</td>
+                    <td class="num">407</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</td>
+                    <td class="num">408</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">266</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">409</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  invisible()</pre>
+                      <pre class="language-r">  if ("covariates" %in% names(variables)) { # covariate main effects</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">267</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">410</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    lyt &lt;- lyt %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">268</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">411</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      split_rows_by_multivar(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">269</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">412</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Description of method used for proportion comparison</pre>
+                      <pre class="language-r">        vars = variables$covariates,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">270</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">413</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        varlabels = varlabels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">271</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">414</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">        split_label = "Covariate:",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">272</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">415</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        nested = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">273</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">416</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This is an auxiliary function that describes the analysis in</pre>
+                      <pre class="language-r">        child_labels = if (multivar || control$interaction || !"arm" %in% names(variables)) "default" else "hidden",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">274</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">417</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' [s_proportion_diff()].</pre>
+                      <pre class="language-r">        section_div = tail(.section_div, 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">418</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">276</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">419</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams s_proportion_diff</pre>
+                      <pre class="language-r">    if (multivar || control$interaction || !"arm" %in% names(variables)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">277</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">420</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param long (`flag`)\cr whether a long (`TRUE`) or a short (`FALSE`, default) description is required.</pre>
+                      <pre class="language-r">      lyt &lt;- lyt %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">278</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">421</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        summarize_row_groups(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">279</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">422</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `string` describing the analysis.</pre>
+                      <pre class="language-r">          cfun = a_coxreg,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">280</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">423</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          na_str = na_str,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">281</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">424</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [prop_diff]</pre>
+                      <pre class="language-r">          extra_args = list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">282</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">425</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            variables = variables, at = at, control = control, multivar = multivar,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">283</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">426</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">            var_main = if (multivar) multivar else control$interaction</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">284</td>
+                    <td class="num">427</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">d_proportion_diff &lt;- function(conf_level,</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">285</td>
+                    <td class="num">428</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              method,</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">429</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              long = FALSE) {</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">287</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">430</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  label &lt;- paste0(conf_level * 100, "% CI")</pre>
+                      <pre class="language-r">      if (!is.null(varlabels)) names(varlabels) &lt;- variables$covariates</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">288</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">431</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (long) {</pre>
+                      <pre class="language-r">      lyt &lt;- lyt %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">289</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">432</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label &lt;- paste(</pre>
+                      <pre class="language-r">        analyze_colvars(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">290</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">433</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      label,</pre>
+                      <pre class="language-r">          afun = a_coxreg,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">291</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">434</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ifelse(</pre>
+                      <pre class="language-r">          na_str = na_str,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">292</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">435</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        method == "cmh",</pre>
+                      <pre class="language-r">          extra_args = list(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">293</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">436</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "for adjusted difference",</pre>
+                      <pre class="language-r">            variables = variables, at = at, control = control, multivar = multivar,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">294</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">437</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "for difference"</pre>
+                      <pre class="language-r">            var_main = if (multivar) multivar else control$interaction,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">438</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            labelstr = if (is.null(varlabels)) "" else varlabels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">295</td>
+                    <td class="num">439</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">440</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">441</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">298</td>
+                    <td class="num">442</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">299</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">443</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  method_part &lt;- switch(method,</pre>
+                      <pre class="language-r">    if (!"arm" %in% names(variables)) control$interaction &lt;- TRUE # special case: univar no arm</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">300</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">444</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "cmh" = "CMH, without correction",</pre>
+                      <pre class="language-r">    if (multivar || control$interaction) { # covariate level effects</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">301</td>
+                    <td class="num">445</td>
                     <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "waldcc" = "Wald, with correction",</pre>
+                      <pre class="language-r">      lyt &lt;- lyt %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">302</td>
+                    <td class="num">446</td>
                     <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "wald" = "Wald, without correction",</pre>
+                      <pre class="language-r">        analyze_colvars(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">303</td>
+                    <td class="num">447</td>
                     <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "ha" = "Anderson-Hauck",</pre>
+                      <pre class="language-r">          afun = a_coxreg,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">304</td>
+                    <td class="num">448</td>
                     <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "newcombe" = "Newcombe, without correction",</pre>
+                      <pre class="language-r">          na_str = na_str,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">305</td>
+                    <td class="num">449</td>
                     <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "newcombecc" = "Newcombe, with correction",</pre>
+                      <pre class="language-r">          extra_args = list(variables = variables, at = at, control = control, multivar = multivar, labelstr = ""),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">306</td>
+                    <td class="num">450</td>
                     <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "strat_newcombe" = "Stratified Newcombe, without correction",</pre>
+                      <pre class="language-r">          indent_mod = if (!"arm" %in% names(variables) || multivar) 0L else -1L</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">307</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">451</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "strat_newcombecc" = "Stratified Newcombe, with correction",</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">308</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">452</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop(paste(method, "does not have a description"))</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">309</td>
+                    <td class="num">453</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">454</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">310</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">455</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  paste0(label, " (", method_part, ")")</pre>
+                      <pre class="language-r">  lyt</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">311</td>
+                    <td class="num">456</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/stat.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">312</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Confidence interval for mean</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">313</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper functions to calculate proportion difference</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">314</td>
+                    <td class="num">3</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">315</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' Convenient function for calculating the mean confidence interval. It calculates the arithmetic as well as the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">316</td>
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' geometric mean. It can be used as a `ggplot` helper function for plotting.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">317</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">318</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams prop_diff</pre>
+                      <pre class="language-r">#' @param n_min (`numeric(1)`)\cr a minimum number of non-missing `x` to estimate the confidence interval for mean.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">319</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param grp (`factor`)\cr vector assigning observations to one out of two groups</pre>
+                      <pre class="language-r">#' @param gg_helper (`flag`)\cr whether output should be aligned for use with `ggplot`s.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">320</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   (e.g. reference and treatment group).</pre>
+                      <pre class="language-r">#' @param geom_mean (`flag`)\cr whether the geometric mean should be calculated.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">321</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">322</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A named `list` of elements `diff` (proportion difference) and `diff_ci`</pre>
+                      <pre class="language-r">#' @return A named `vector` of values `mean_ci_lwr` and `mean_ci_upr`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">323</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   (proportion difference confidence interval).</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">324</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">325</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [prop_diff()] for implementation of these helper functions.</pre>
+                      <pre class="language-r">#' stat_mean_ci(sample(10), gg_helper = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">326</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">327</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name h_prop_diff</pre>
+                      <pre class="language-r">#' p &lt;- ggplot2::ggplot(mtcars, ggplot2::aes(cyl, mpg)) +</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">328</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#'   ggplot2::geom_point()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">329</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">330</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_prop_diff The Wald interval follows the usual textbook</pre>
+                      <pre class="language-r">#' p + ggplot2::stat_summary(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">331</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   definition for a single proportion confidence interval using the normal</pre>
+                      <pre class="language-r">#'   fun.data = stat_mean_ci,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">332</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   approximation. It is possible to include a continuity correction for Wald's</pre>
+                      <pre class="language-r">#'   geom = "errorbar"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">333</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   interval.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">334</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">335</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param correct (`flag`)\cr whether to include the continuity correction. For further</pre>
+                      <pre class="language-r">#' p + ggplot2::stat_summary(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">336</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   information, see [stats::prop.test()].</pre>
+                      <pre class="language-r">#'   fun.data = stat_mean_ci,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">337</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   fun.args = list(conf_level = 0.5),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">338</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   geom = "errorbar"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">339</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Wald confidence interval</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">340</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' set.seed(2)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">341</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' rsp &lt;- sample(c(TRUE, FALSE), replace = TRUE, size = 20)</pre>
+                      <pre class="language-r">#' p + ggplot2::stat_summary(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">342</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grp &lt;- factor(c(rep("A", 10), rep("B", 10)))</pre>
+                      <pre class="language-r">#'   fun.data = stat_mean_ci,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">343</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   fun.args = list(conf_level = 0.5, geom_mean = TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">344</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' prop_diff_wald(rsp = rsp, grp = grp, conf_level = 0.95, correct = FALSE)</pre>
+                      <pre class="language-r">#'   geom = "errorbar"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">345</td>
+                    <td class="num">36</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">346</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">347</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">prop_diff_wald &lt;- function(rsp,</pre>
+                      <pre class="language-r">stat_mean_ci &lt;- function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">348</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           grp,</pre>
+                      <pre class="language-r">                         conf_level = 0.95,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">349</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           conf_level = 0.95,</pre>
+                      <pre class="language-r">                         na.rm = TRUE, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">350</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           correct = FALSE) {</pre>
+                      <pre class="language-r">                         n_min = 2,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">43</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                         gg_helper = TRUE,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">44</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                         geom_mean = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">351</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">45</td>
+                    <td class="coverage">2211<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (isTRUE(correct)) {</pre>
+                      <pre class="language-r">  if (na.rm) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">352</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">46</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mthd &lt;- "waldcc"</pre>
+                      <pre class="language-r">    x &lt;- stats::na.omit(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">353</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">354</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">48</td>
+                    <td class="coverage">2211<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mthd &lt;- "wald"</pre>
+                      <pre class="language-r">  n &lt;- length(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">355</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">356</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">50</td>
+                    <td class="coverage">2211<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  grp &lt;- as_factor_keep_attributes(grp)</pre>
+                      <pre class="language-r">  if (!geom_mean) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">357</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">51</td>
+                    <td class="coverage">1113<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  check_diff_prop_ci(</pre>
+                      <pre class="language-r">    m &lt;- mean(x)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">52</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">358</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">53</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rsp = rsp, grp = grp, conf_level = conf_level, correct = correct</pre>
+                      <pre class="language-r">    negative_values_exist &lt;- any(is.na(x[!is.na(x)]) &lt;- x[!is.na(x)] &lt;= 0)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">359</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">54</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    if (negative_values_exist) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">360</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">55</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      m &lt;- NA_real_</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">361</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # check if binary response is coded as logical</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">362</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">57</td>
+                    <td class="coverage">1076<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_logical(rsp, any.missing = FALSE)</pre>
+                      <pre class="language-r">      x &lt;- log(x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">363</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">58</td>
+                    <td class="coverage">1076<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_factor(grp, len = length(rsp), any.missing = FALSE, n.levels = 2)</pre>
+                      <pre class="language-r">      m &lt;- mean(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">364</td>
+                    <td class="num">59</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">60</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">365</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">62</td>
+                    <td class="coverage">2211<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tbl &lt;- table(grp, factor(rsp, levels = c(TRUE, FALSE)))</pre>
+                      <pre class="language-r">  if (n &lt; n_min || is.na(m)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">63</td>
+                    <td class="coverage">302<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ci &lt;- c(mean_ci_lwr = NA_real_, mean_ci_upr = NA_real_)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">366</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # x1 and n1 are non-reference groups.</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">367</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">65</td>
+                    <td class="coverage">1909<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  diff_ci &lt;- desctools_binom(</pre>
+                      <pre class="language-r">    hci &lt;- stats::qt((1 + conf_level) / 2, df = n - 1) * stats::sd(x) / sqrt(n)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">368</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">66</td>
+                    <td class="coverage">1909<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x1 = tbl[2], n1 = sum(tbl[2], tbl[4]),</pre>
+                      <pre class="language-r">    ci &lt;- c(mean_ci_lwr = m - hci, mean_ci_upr = m + hci)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">369</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">67</td>
+                    <td class="coverage">1909<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x2 = tbl[1], n2 = sum(tbl[1], tbl[3]),</pre>
+                      <pre class="language-r">    if (geom_mean) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">370</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">68</td>
+                    <td class="coverage">945<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    conf.level = conf_level,</pre>
+                      <pre class="language-r">      ci &lt;- exp(ci)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">371</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">69</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    method = mthd</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">372</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">373</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">374</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">72</td>
+                    <td class="coverage">2211<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">  if (gg_helper) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">375</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">73</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "diff" = unname(diff_ci[, "est"]),</pre>
+                      <pre class="language-r">    m &lt;- ifelse(is.na(m), NA_real_, m)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">376</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">74</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "diff_ci" = unname(diff_ci[, c("lwr.ci", "upr.ci")])</pre>
+                      <pre class="language-r">    ci &lt;- data.frame(y = ifelse(geom_mean, exp(m), m), ymin = ci[[1]], ymax = ci[[2]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">377</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">378</td>
+                    <td class="num">76</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">77</td>
+                    <td class="coverage">2211<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  return(ci)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">379</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">380</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_prop_diff Anderson-Hauck confidence interval.</pre>
+                      <pre class="language-r">#' Confidence interval for median</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">381</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">382</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">383</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Anderson-Hauck confidence interval</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">384</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## "Mid" case: 3/4 respond in group A, 1/2 respond in group B.</pre>
+                      <pre class="language-r">#' Convenient function for calculating the median confidence interval. It can be used as a `ggplot` helper</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">385</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' rsp &lt;- c(TRUE, FALSE, FALSE, TRUE, TRUE, TRUE)</pre>
+                      <pre class="language-r">#' function for plotting.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">386</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grp &lt;- factor(c("A", "B", "A", "B", "A", "A"), levels = c("B", "A"))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">387</td>
+                    <td class="num">87</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">88</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @param gg_helper (`flag`)\cr whether output should be aligned for use with `ggplot`s.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">388</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' prop_diff_ha(rsp = rsp, grp = grp, conf_level = 0.90)</pre>
+                      <pre class="language-r">#' @details This function was adapted from `DescTools/versions/0.99.35/source`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">389</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">390</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Edge case: Same proportion of response in A and B.</pre>
+                      <pre class="language-r">#' @return A named `vector` of values `median_ci_lwr` and `median_ci_upr`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">391</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' rsp &lt;- c(TRUE, FALSE, TRUE, FALSE)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">392</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grp &lt;- factor(c("A", "A", "B", "B"), levels = c("A", "B"))</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">393</td>
+                    <td class="num">95</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' stat_median_ci(sample(10), gg_helper = FALSE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">394</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' prop_diff_ha(rsp = rsp, grp = grp, conf_level = 0.6)</pre>
+                      <pre class="language-r">#' p &lt;- ggplot2::ggplot(mtcars, ggplot2::aes(cyl, mpg)) +</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">395</td>
+                    <td class="num">98</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   ggplot2::geom_point()</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">99</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' p + ggplot2::stat_summary(</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">100</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   fun.data = stat_median_ci,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">101</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   geom = "errorbar"</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">102</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">396</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">397</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">prop_diff_ha &lt;- function(rsp,</pre>
+                      <pre class="language-r">stat_median_ci &lt;- function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">398</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         grp,</pre>
+                      <pre class="language-r">                           conf_level = 0.95,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">399</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         conf_level) {</pre>
+                      <pre class="language-r">                           na.rm = TRUE, # nolint</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">108</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                           gg_helper = TRUE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">400</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">109</td>
+                    <td class="coverage">1111<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  grp &lt;- as_factor_keep_attributes(grp)</pre>
+                      <pre class="language-r">  x &lt;- unname(x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">401</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">110</td>
+                    <td class="coverage">1111<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  check_diff_prop_ci(rsp = rsp, grp = grp, conf_level = conf_level)</pre>
+                      <pre class="language-r">  if (na.rm) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">111</td>
+                    <td class="coverage">9<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    x &lt;- x[!is.na(x)]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">402</td>
+                    <td class="num">112</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">113</td>
+                    <td class="coverage">1111<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  n &lt;- length(x)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">114</td>
+                    <td class="coverage">1111<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  med &lt;- stats::median(x)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">403</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">116</td>
+                    <td class="coverage">1111<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tbl &lt;- table(grp, factor(rsp, levels = c(TRUE, FALSE)))</pre>
+                      <pre class="language-r">  k &lt;- stats::qbinom(p = (1 - conf_level) / 2, size = n, prob = 0.5, lower.tail = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">404</td>
+                    <td class="num">117</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # x1 and n1 are non-reference groups.</pre>
+                      <pre class="language-r">  # k == 0 - for small samples (e.g. n &lt;= 5) ci can be outside the observed range</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">119</td>
+                    <td class="coverage">1111<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (k == 0 || is.na(med)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">120</td>
+                    <td class="coverage">242<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ci &lt;- c(median_ci_lwr = NA_real_, median_ci_upr = NA_real_)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">405</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">121</td>
+                    <td class="coverage">242<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ci &lt;- desctools_binom(</pre>
+                      <pre class="language-r">    empir_conf_level &lt;- NA_real_</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">406</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">122</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x1 = tbl[2], n1 = sum(tbl[2], tbl[4]),</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">407</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">123</td>
+                    <td class="coverage">869<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x2 = tbl[1], n2 = sum(tbl[1], tbl[3]),</pre>
+                      <pre class="language-r">    x_sort &lt;- sort(x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">408</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">124</td>
+                    <td class="coverage">869<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    conf.level = conf_level,</pre>
+                      <pre class="language-r">    ci &lt;- c(median_ci_lwr = x_sort[k], median_ci_upr = x_sort[n - k + 1])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">409</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">125</td>
+                    <td class="coverage">869<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    method = "ha"</pre>
+                      <pre class="language-r">    empir_conf_level &lt;- 1 - 2 * stats::pbinom(k - 1, size = n, prob = 0.5)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">410</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">411</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">127</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">412</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">128</td>
+                    <td class="coverage">1111<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "diff" = unname(ci[, "est"]),</pre>
+                      <pre class="language-r">  if (gg_helper) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">413</td>
+                    <td class="num">129</td>
                     <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "diff_ci" = unname(ci[, c("lwr.ci", "upr.ci")])</pre>
+                      <pre class="language-r">    ci &lt;- data.frame(y = med, ymin = ci[[1]], ymax = ci[[2]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">414</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">415</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">416</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">132</td>
+                    <td class="coverage">1111<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  attr(ci, "conf_level") &lt;- empir_conf_level</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">417</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_prop_diff Newcombe confidence interval. It is based on</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">418</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">134</td>
+                    <td class="coverage">1111<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the Wilson score confidence interval for a single binomial proportion.</pre>
+                      <pre class="language-r">  return(ci)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">419</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">420</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">421</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Newcombe confidence interval</pre>
+                      <pre class="language-r">#' p-Value of the mean</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">422</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">423</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' set.seed(1)</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">424</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' rsp &lt;- c(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">425</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   sample(c(TRUE, FALSE), size = 40, prob = c(3 / 4, 1 / 4), replace = TRUE),</pre>
+                      <pre class="language-r">#' Convenient function for calculating the two-sided p-value of the mean.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">426</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   sample(c(TRUE, FALSE), size = 40, prob = c(1 / 2, 1 / 2), replace = TRUE)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">427</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">428</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grp &lt;- factor(rep(c("A", "B"), each = 40), levels = c("B", "A"))</pre>
+                      <pre class="language-r">#' @param n_min (`numeric(1)`)\cr a minimum number of non-missing `x` to estimate the p-value of the mean.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">429</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' table(rsp, grp)</pre>
+                      <pre class="language-r">#' @param test_mean (`numeric(1)`)\cr mean value to test under the null hypothesis.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">430</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">431</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' prop_diff_nc(rsp = rsp, grp = grp, conf_level = 0.9)</pre>
+                      <pre class="language-r">#' @return A p-value.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">432</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">433</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">434</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">prop_diff_nc &lt;- function(rsp,</pre>
+                      <pre class="language-r">#' stat_mean_pval(sample(10))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">435</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         grp,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">436</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         conf_level,</pre>
+                      <pre class="language-r">#' stat_mean_pval(rnorm(10), test_mean = 0.5)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">437</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         correct = FALSE) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">438</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">154</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (isTRUE(correct)) {</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">439</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">155</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mthd &lt;- "scorecc"</pre>
+                      <pre class="language-r">stat_mean_pval &lt;- function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">440</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">                           na.rm = TRUE, # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">441</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">157</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mthd &lt;- "score"</pre>
+                      <pre class="language-r">                           n_min = 2,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">442</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                           test_mean = 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">443</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">159</td>
+                    <td class="coverage">1111<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  grp &lt;- as_factor_keep_attributes(grp)</pre>
+                      <pre class="language-r">  if (na.rm) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">444</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">160</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  check_diff_prop_ci(rsp = rsp, grp = grp, conf_level = conf_level)</pre>
+                      <pre class="language-r">    x &lt;- stats::na.omit(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">445</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">446</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">162</td>
+                    <td class="coverage">1111<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  p_grp &lt;- tapply(rsp, grp, mean)</pre>
+                      <pre class="language-r">  n &lt;- length(x)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">447</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">163</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  diff_p &lt;- unname(diff(p_grp))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">448</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">164</td>
+                    <td class="coverage">1111<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tbl &lt;- table(grp, factor(rsp, levels = c(TRUE, FALSE)))</pre>
+                      <pre class="language-r">  x_mean &lt;- mean(x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">449</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">165</td>
+                    <td class="coverage">1111<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ci &lt;- desctools_binom(</pre>
+                      <pre class="language-r">  x_sd &lt;- stats::sd(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">450</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # x1 and n1 are non-reference groups.</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">451</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    x1 = tbl[2], n1 = sum(tbl[2], tbl[4]),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">452</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    x2 = tbl[1], n2 = sum(tbl[1], tbl[3]),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">453</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">167</td>
+                    <td class="coverage">1111<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    conf.level = conf_level,</pre>
+                      <pre class="language-r">  if (n &lt; n_min) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">454</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">168</td>
+                    <td class="coverage">140<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    method = mthd</pre>
+                      <pre class="language-r">    pv &lt;- c(p_value = NA_real_)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">455</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">456</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">170</td>
+                    <td class="coverage">971<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">    x_se &lt;- stats::sd(x) / sqrt(n)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">457</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">171</td>
+                    <td class="coverage">971<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "diff" = unname(ci[, "est"]),</pre>
+                      <pre class="language-r">    ttest &lt;- (x_mean - test_mean) / x_se</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">458</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    "diff_ci" = unname(ci[, c("lwr.ci", "upr.ci")])</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">459</td>
-                    <td class="coverage"></td>
+                    <td class="num">172</td>
+                    <td class="coverage">971<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    pv &lt;- c(p_value = 2 * stats::pt(-abs(ttest), df = n - 1))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">460</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">461</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">462</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">175</td>
+                    <td class="coverage">1111<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_prop_diff Calculates the weighted difference. This is defined as the difference in</pre>
+                      <pre class="language-r">  return(pv)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">463</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   response rates between the experimental treatment group and the control treatment group, adjusted</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">464</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   for stratification factors by applying Cochran-Mantel-Haenszel (CMH) weights. For the CMH chi-squared</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">465</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   test, use [stats::mantelhaen.test()].</pre>
+                      <pre class="language-r">#' Proportion difference and confidence interval</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">466</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">467</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param strata (`factor`)\cr variable with one level per stratum and same length as `rsp`.</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">468</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">469</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' Function for calculating the proportion (or risk) difference and confidence interval between arm</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">470</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Cochran-Mantel-Haenszel confidence interval</pre>
+                      <pre class="language-r">#' X (reference group) and arm Y. Risk difference is calculated by subtracting cumulative incidence</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">471</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' in arm Y from cumulative incidence in arm X.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">472</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' set.seed(2)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">473</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' rsp &lt;- sample(c(TRUE, FALSE), 100, TRUE)</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">474</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grp &lt;- sample(c("Placebo", "Treatment"), 100, TRUE)</pre>
+                      <pre class="language-r">#' @param x (`list` of `integer`)\cr list of number of occurrences in arm X (reference group).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">475</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grp &lt;- factor(grp, levels = c("Placebo", "Treatment"))</pre>
+                      <pre class="language-r">#' @param y (`list` of `integer`)\cr list of number of occurrences in arm Y. Must be of equal length to `x`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">476</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' strata_data &lt;- data.frame(</pre>
+                      <pre class="language-r">#' @param N_x (`numeric(1)`)\cr total number of records in arm X.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">477</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "f1" = sample(c("a", "b"), 100, TRUE),</pre>
+                      <pre class="language-r">#' @param N_y (`numeric(1)`)\cr total number of records in arm Y.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">478</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "f2" = sample(c("x", "y", "z"), 100, TRUE),</pre>
+                      <pre class="language-r">#' @param list_names (`character`)\cr names of each variable/level corresponding to pair of proportions in</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">479</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   stringsAsFactors = TRUE</pre>
+                      <pre class="language-r">#'   `x` and `y`. Must be of equal length to `x` and `y`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">480</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' @param pct (`flag`)\cr whether output should be returned as percentages. Defaults to `TRUE`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">481</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">482</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' prop_diff_cmh(</pre>
+                      <pre class="language-r">#' @return List of proportion differences and CIs corresponding to each pair of number of occurrences in `x` and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">483</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   rsp = rsp, grp = grp, strata = interaction(strata_data),</pre>
+                      <pre class="language-r">#'   `y`. Each list element consists of 3 statistics: proportion difference, CI lower bound, and CI upper bound.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">484</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   conf_level = 0.90</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">485</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' @seealso Split function [add_riskdiff()] which, when used as `split_fun` within [rtables::split_cols_by()]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">486</td>
+                    <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   with `riskdiff` argument is set to `TRUE` in subsequent analyze functions, adds a column containing</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">487</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'   proportion (risk) difference to an `rtables` layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">488</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">prop_diff_cmh &lt;- function(rsp,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">489</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          grp,</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">490</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          strata,</pre>
+                      <pre class="language-r">#' stat_propdiff_ci(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">491</td>
+                    <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          conf_level = 0.95) {</pre>
+                      <pre class="language-r">#'   x = list(0.375), y = list(0.01), N_x = 5, N_y = 5, list_names = "x", conf_level = 0.9</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">492</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">205</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  grp &lt;- as_factor_keep_attributes(grp)</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">493</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">206</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  strata &lt;- as_factor_keep_attributes(strata)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">494</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">207</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  check_diff_prop_ci(</pre>
+                      <pre class="language-r">#' stat_propdiff_ci(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">495</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">208</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rsp = rsp, grp = grp, conf_level = conf_level, strata = strata</pre>
+                      <pre class="language-r">#'   x = list(0.5, 0.75, 1), y = list(0.25, 0.05, 0.5), N_x = 10, N_y = 20, pct = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">496</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">497</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">498</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">211</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any(tapply(rsp, strata, length) &lt; 5)) {</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">499</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">212</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning("Less than 5 observations in some strata.")</pre>
+                      <pre class="language-r">stat_propdiff_ci &lt;- function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">500</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                             y,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">501</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                             N_x, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">502</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # first dimension: FALSE, TRUE</pre>
+                      <pre class="language-r">                             N_y, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">503</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # 2nd dimension: CONTROL, TX</pre>
+                      <pre class="language-r">                             list_names = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">504</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # 3rd dimension: levels of strata</pre>
+                      <pre class="language-r">                             conf_level = 0.95,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">505</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # rsp as factor rsp to handle edge case of no FALSE (or TRUE) rsp records</pre>
+                      <pre class="language-r">                             pct = TRUE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">506</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">219</td>
+                    <td class="coverage">47<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  t_tbl &lt;- table(</pre>
+                      <pre class="language-r">  checkmate::assert_list(x, types = "numeric")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">507</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">220</td>
+                    <td class="coverage">47<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    factor(rsp, levels = c("FALSE", "TRUE")),</pre>
+                      <pre class="language-r">  checkmate::assert_list(y, types = "numeric", len = length(x))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">508</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">221</td>
+                    <td class="coverage">47<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    grp,</pre>
+                      <pre class="language-r">  checkmate::assert_character(list_names, len = length(x), null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">509</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">222</td>
+                    <td class="coverage">47<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    strata</pre>
+                      <pre class="language-r">  rd_list &lt;- lapply(seq_along(x), function(i) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">510</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">223</td>
+                    <td class="coverage">120<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    p_x &lt;- x[[i]] / N_x</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">511</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">224</td>
+                    <td class="coverage">120<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n1 &lt;- colSums(t_tbl[1:2, 1, ])</pre>
+                      <pre class="language-r">    p_y &lt;- y[[i]] / N_y</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">512</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">225</td>
+                    <td class="coverage">120<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n2 &lt;- colSums(t_tbl[1:2, 2, ])</pre>
+                      <pre class="language-r">    rd_ci &lt;- p_x - p_y + c(-1, 1) * stats::qnorm((1 + conf_level) / 2) *</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">513</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">226</td>
+                    <td class="coverage">120<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  p1 &lt;- t_tbl[2, 1, ] / n1</pre>
+                      <pre class="language-r">      sqrt(p_x * (1 - p_x) / N_x + p_y * (1 - p_y) / N_y)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">514</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">227</td>
+                    <td class="coverage">120<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  p2 &lt;- t_tbl[2, 2, ] / n2</pre>
+                      <pre class="language-r">    c(p_x - p_y, rd_ci) * ifelse(pct, 100, 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">515</td>
+                    <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # CMH weights</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">516</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">229</td>
+                    <td class="coverage">47<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  use_stratum &lt;- (n1 &gt; 0) &amp; (n2 &gt; 0)</pre>
+                      <pre class="language-r">  names(rd_list) &lt;- list_names</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">517</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">230</td>
+                    <td class="coverage">47<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n1 &lt;- n1[use_stratum]</pre>
+                      <pre class="language-r">  rd_list</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">518</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">231</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n2 &lt;- n2[use_stratum]</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">519</td>
-                    <td class="coverage">8<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/utils_default_stats_formats_labels.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
+                  <tr class="never">
+                    <td class="num">1</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  p1 &lt;- p1[use_stratum]</pre>
+                      <pre class="language-r">#' Get default statistical methods and their associated formats, labels, and indent modifiers</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">520</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">2</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  p2 &lt;- p2[use_stratum]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">521</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">3</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  wt &lt;- (n1 * n2 / (n1 + n2))</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">522</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  wt_normalized &lt;- wt / sum(wt)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">523</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  est1 &lt;- sum(wt_normalized * p1)</pre>
+                      <pre class="language-r">#' Utility functions to get valid statistic methods for different method groups</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">524</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  est2 &lt;- sum(wt_normalized * p2)</pre>
+                      <pre class="language-r">#' (`.stats`) and their associated formats (`.formats`), labels (`.labels`), and indent modifiers</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">525</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">7</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  estimate &lt;- c(est1, est2)</pre>
+                      <pre class="language-r">#' (`.indent_mods`). This utility is used across `tern`, but some of its working principles can be</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">526</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  names(estimate) &lt;- levels(grp)</pre>
+                      <pre class="language-r">#' seen in [analyze_vars()]. See notes to understand why this is experimental.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">527</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  se1 &lt;- sqrt(sum(wt_normalized^2 * p1 * (1 - p1) / n1))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">528</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  se2 &lt;- sqrt(sum(wt_normalized^2 * p2 * (1 - p2) / n2))</pre>
+                      <pre class="language-r">#' @param stats (`character`)\cr statistical methods to get defaults for.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">529</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  z &lt;- stats::qnorm((1 + conf_level) / 2)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">530</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  err1 &lt;- z * se1</pre>
+                      <pre class="language-r">#' @details</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">531</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">13</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  err2 &lt;- z * se2</pre>
+                      <pre class="language-r">#' Current choices for `type` are `counts` and `numeric` for [analyze_vars()] and affect `get_stats()`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">532</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">14</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ci1 &lt;- c((est1 - err1), (est1 + err1))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">533</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">15</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ci2 &lt;- c((est2 - err2), (est2 + err2))</pre>
+                      <pre class="language-r">#' @note</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">534</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">16</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  estimate_ci &lt;- list(ci1, ci2)</pre>
+                      <pre class="language-r">#' These defaults are experimental because we use the names of functions to retrieve the default</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">535</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  names(estimate_ci) &lt;- levels(grp)</pre>
+                      <pre class="language-r">#' statistics. This should be generalized in groups of methods according to more reasonable groupings.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">536</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  diff_est &lt;- est2 - est1</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">537</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  se_diff &lt;- sqrt(sum(((p1 * (1 - p1) / n1) + (p2 * (1 - p2) / n2)) * wt_normalized^2))</pre>
+                      <pre class="language-r">#' @name default_stats_formats_labels</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">538</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">20</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  diff_ci &lt;- c(diff_est - z * se_diff, diff_est + z * se_diff)</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">539</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">540</td>
-                    <td class="coverage">8<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">541</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">22</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    prop = estimate,</pre>
+                      <pre class="language-r">#' @describeIn default_stats_formats_labels Get statistics available for a given method</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">542</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">23</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    prop_ci = estimate_ci,</pre>
+                      <pre class="language-r">#'   group (analyze function). To check available defaults see `tern::tern_default_stats` list.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">543</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    diff = diff_est,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">544</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">25</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    diff_ci = diff_ci,</pre>
+                      <pre class="language-r">#' @param method_groups (`character`)\cr indicates the statistical method group (`tern` analyze function)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">545</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">26</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    weights = wt_normalized,</pre>
+                      <pre class="language-r">#'   to retrieve default statistics for. A character vector can be used to specify more than one statistical</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">546</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">27</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n1 = n1,</pre>
+                      <pre class="language-r">#'   method group.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">547</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">28</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n2 = n2</pre>
+                      <pre class="language-r">#' @param stats_in (`character`)\cr statistics to retrieve for the selected method group.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">548</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @param add_pval (`flag`)\cr should `"pval"` (or `"pval_counts"` if `method_groups` contains</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">549</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   `"analyze_vars_counts"`) be added to the statistical methods?</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">550</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">551</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_prop_diff Calculates the stratified Newcombe confidence interval and difference in response</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">552</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   rates between the experimental treatment group and the control treatment group, adjusted for stratification</pre>
+                      <pre class="language-r">#' * `get_stats()` returns a `character` vector of statistical methods.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">553</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   factors. This implementation follows closely the one proposed by \insertCite{Yan2010-jt;textual}{tern}.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">554</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Weights can be estimated from the heuristic proposed in [prop_strat_wilson()] or from CMH-derived weights</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">555</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   (see [prop_diff_cmh()]).</pre>
+                      <pre class="language-r">#' # analyze_vars is numeric</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">556</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' num_stats &lt;- get_stats("analyze_vars_numeric") # also the default</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">557</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param strata (`factor`)\cr variable with one level per stratum and same length as `rsp`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">558</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param weights_method (`string`)\cr weights method. Can be either `"cmh"` or `"heuristic"`</pre>
+                      <pre class="language-r">#' # Other type</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">559</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and directs the way weights are estimated.</pre>
+                      <pre class="language-r">#' cnt_stats &lt;- get_stats("analyze_vars_counts")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">560</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">561</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @references</pre>
+                      <pre class="language-r">#' # Weirdly taking the pval from count_occurrences</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">562</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' \insertRef{Yan2010-jt}{tern}</pre>
+                      <pre class="language-r">#' only_pval &lt;- get_stats("count_occurrences", add_pval = TRUE, stats_in = "pval")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">563</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">564</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' # All count_occurrences</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">565</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Stratified Newcombe confidence interval</pre>
+                      <pre class="language-r">#' all_cnt_occ &lt;- get_stats("count_occurrences")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">566</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">567</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' set.seed(2)</pre>
+                      <pre class="language-r">#' # Multiple</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">568</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data_set &lt;- data.frame(</pre>
+                      <pre class="language-r">#' get_stats(c("count_occurrences", "analyze_vars_counts"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">569</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "rsp" = sample(c(TRUE, FALSE), 100, TRUE),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">570</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "f1" = sample(c("a", "b"), 100, TRUE),</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">571</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "f2" = sample(c("x", "y", "z"), 100, TRUE),</pre>
+                      <pre class="language-r">get_stats &lt;- function(method_groups = "analyze_vars_numeric", stats_in = NULL, add_pval = FALSE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">572</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">53</td>
+                    <td class="coverage">505<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "grp" = sample(c("Placebo", "Treatment"), 100, TRUE),</pre>
+                      <pre class="language-r">  checkmate::assert_character(method_groups)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">573</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">54</td>
+                    <td class="coverage">505<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   stringsAsFactors = TRUE</pre>
+                      <pre class="language-r">  checkmate::assert_character(stats_in, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">574</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">55</td>
+                    <td class="coverage">505<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  checkmate::assert_flag(add_pval)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">575</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">576</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' prop_diff_strat_nc(</pre>
+                      <pre class="language-r">  # Default is still numeric</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">577</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">58</td>
+                    <td class="coverage">505<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   rsp = data_set$rsp, grp = data_set$grp, strata = interaction(data_set[2:3]),</pre>
+                      <pre class="language-r">  if (any(method_groups == "analyze_vars")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">578</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">59</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   weights_method = "cmh",</pre>
+                      <pre class="language-r">    method_groups[method_groups == "analyze_vars"] &lt;- "analyze_vars_numeric"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">579</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   conf_level = 0.90</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">580</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">581</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">62</td>
+                    <td class="coverage">505<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  type_tmp &lt;- ifelse(any(grepl("counts", method_groups)), "counts", "numeric") # for pval checks</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">582</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' prop_diff_strat_nc(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">583</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   rsp = data_set$rsp, grp = data_set$grp, strata = interaction(data_set[2:3]),</pre>
+                      <pre class="language-r">  # Defaults for loop</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">65</td>
+                    <td class="coverage">505<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  out &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">584</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   weights_method = "wilson_h",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">585</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   conf_level = 0.90</pre>
+                      <pre class="language-r">  # Loop for multiple method groups</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">68</td>
+                    <td class="coverage">505<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  for (mgi in method_groups) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">69</td>
+                    <td class="coverage">532<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    out_tmp &lt;- if (mgi %in% names(tern_default_stats)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">70</td>
+                    <td class="coverage">531<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      tern_default_stats[[mgi]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">586</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">72</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      stop("The selected method group (", mgi, ") has no default statistical method.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">587</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">74</td>
+                    <td class="coverage">531<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    out &lt;- unique(c(out, out_tmp))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">588</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">589</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">prop_diff_strat_nc &lt;- function(rsp,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">590</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               grp,</pre>
+                      <pre class="language-r">  # If you added pval to the stats_in you certainly want it</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">591</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">78</td>
+                    <td class="coverage">504<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               strata,</pre>
+                      <pre class="language-r">  if (!is.null(stats_in) &amp;&amp; any(grepl("^pval", stats_in))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">592</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">79</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               weights_method = c("cmh", "wilson_h"),</pre>
+                      <pre class="language-r">    stats_in_pval_value &lt;- stats_in[grepl("^pval", stats_in)]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">593</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               conf_level = 0.95,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">594</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               correct = FALSE) {</pre>
+                      <pre class="language-r">    # Must be only one value between choices</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">595</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">82</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  weights_method &lt;- match.arg(weights_method)</pre>
+                      <pre class="language-r">    checkmate::assert_choice(stats_in_pval_value, c("pval", "pval_counts"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">596</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">83</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  grp &lt;- as_factor_keep_attributes(grp)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">597</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">84</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  strata &lt;- as_factor_keep_attributes(strata)</pre>
+                      <pre class="language-r">    # Mismatch with counts and numeric</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">598</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">85</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  check_diff_prop_ci(</pre>
+                      <pre class="language-r">    if (any(grepl("counts", method_groups)) &amp;&amp; stats_in_pval_value != "pval_counts" ||</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">599</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">86</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rsp = rsp, grp = grp, conf_level = conf_level, strata = strata</pre>
+                      <pre class="language-r">      any(grepl("numeric", method_groups)) &amp;&amp; stats_in_pval_value != "pval") { # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">600</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">87</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      stop(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">601</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">88</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(conf_level, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">        "Inserted p-value (", stats_in_pval_value, ") is not valid for type ",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">602</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">89</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(correct)</pre>
+                      <pre class="language-r">        type_tmp, ". Use ", paste(ifelse(stats_in_pval_value == "pval", "pval_counts", "pval")),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">603</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">90</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any(tapply(rsp, strata, length) &lt; 5)) {</pre>
+                      <pre class="language-r">        " instead."</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">604</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">91</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning("Less than 5 observations in some strata.")</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">605</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">606</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">607</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">94</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  rsp_by_grp &lt;- split(rsp, f = grp)</pre>
+                      <pre class="language-r">    # Lets add it even if present (thanks to unique)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">608</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">95</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  strata_by_grp &lt;- split(strata, f = grp)</pre>
+                      <pre class="language-r">    add_pval &lt;- TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">609</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">610</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Finding the weights</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">611</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">98</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  weights &lt;- if (identical(weights_method, "cmh")) {</pre>
+                      <pre class="language-r">  # Mainly used in "analyze_vars" but it could be necessary elsewhere</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">612</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">99</td>
+                    <td class="coverage">501<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    prop_diff_cmh(rsp = rsp, grp = grp, strata = strata)$weights</pre>
+                      <pre class="language-r">  if (isTRUE(add_pval)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">613</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">100</td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (identical(weights_method, "wilson_h")) {</pre>
+                      <pre class="language-r">    if (any(grepl("counts", method_groups))) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">614</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">101</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    prop_strat_wilson(rsp, strata, conf_level = conf_level, correct = correct)$weights</pre>
+                      <pre class="language-r">      out &lt;- unique(c(out, "pval_counts"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">615</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">616</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">103</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  weights[levels(strata)[!levels(strata) %in% names(weights)]] &lt;- 0</pre>
+                      <pre class="language-r">      out &lt;- unique(c(out, "pval"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">617</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">618</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Calculating lower (`l`) and upper (`u`) confidence bounds per group.</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">619</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  strat_wilson_by_grp &lt;- Map(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">620</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    prop_strat_wilson,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">621</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    rsp = rsp_by_grp,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">622</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">106</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    strata = strata_by_grp,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">623</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">107</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    weights = list(weights, weights),</pre>
+                      <pre class="language-r">  # Filtering for stats_in (character vector)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">624</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">108</td>
+                    <td class="coverage">501<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    conf_level = conf_level,</pre>
+                      <pre class="language-r">  if (!is.null(stats_in)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">625</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">109</td>
+                    <td class="coverage">452<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    correct = correct</pre>
+                      <pre class="language-r">    out &lt;- intersect(stats_in, out) # It orders them too</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">626</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">627</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">628</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">112</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ci_ref &lt;- strat_wilson_by_grp[[1]]</pre>
+                      <pre class="language-r">  # If intersect did not find matches (and no pval?) -&gt; error</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">629</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">113</td>
+                    <td class="coverage">501<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ci_trt &lt;- strat_wilson_by_grp[[2]]</pre>
+                      <pre class="language-r">  if (length(out) == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">630</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">114</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  l_ref &lt;- as.numeric(ci_ref$conf_int[1])</pre>
+                      <pre class="language-r">    stop(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">631</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">115</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  u_ref &lt;- as.numeric(ci_ref$conf_int[2])</pre>
+                      <pre class="language-r">      "The selected method group(s) (", paste0(method_groups, collapse = ", "), ")",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">632</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">116</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  l_trt &lt;- as.numeric(ci_trt$conf_int[1])</pre>
+                      <pre class="language-r">      " do not have the required default statistical methods:\n",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">633</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">117</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  u_trt &lt;- as.numeric(ci_trt$conf_int[2])</pre>
+                      <pre class="language-r">      paste0(stats_in, collapse = " ")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">634</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">635</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Estimating the diff and n_ref, n_trt (it allows different weights to be used)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">636</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  t_tbl &lt;- table(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">637</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">120</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    factor(rsp, levels = c("FALSE", "TRUE")),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">638</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">121</td>
+                    <td class="coverage">499<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    grp,</pre>
+                      <pre class="language-r">  out</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">639</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">122</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    strata</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">640</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">641</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">124</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n_ref &lt;- colSums(t_tbl[1:2, 1, ])</pre>
+                      <pre class="language-r">#' @describeIn default_stats_formats_labels Get formats corresponding to a list of statistics.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">642</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">125</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n_trt &lt;- colSums(t_tbl[1:2, 2, ])</pre>
+                      <pre class="language-r">#'   To check available defaults see `tern::tern_default_formats` list.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">643</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">126</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  use_stratum &lt;- (n_ref &gt; 0) &amp; (n_trt &gt; 0)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">644</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">127</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n_ref &lt;- n_ref[use_stratum]</pre>
+                      <pre class="language-r">#' @param formats_in (named `vector`)\cr inserted formats to replace defaults. It can be a</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">645</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">128</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n_trt &lt;- n_trt[use_stratum]</pre>
+                      <pre class="language-r">#'   character vector from [formatters::list_valid_format_labels()] or a custom format function.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">646</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">129</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  p_ref &lt;- t_tbl[2, 1, use_stratum] / n_ref</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">647</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">130</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  p_trt &lt;- t_tbl[2, 2, use_stratum] / n_trt</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">648</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">131</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  est1 &lt;- sum(weights * p_ref)</pre>
+                      <pre class="language-r">#' * `get_formats_from_stats()` returns a named vector of formats (if present in either</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">649</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">132</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  est2 &lt;- sum(weights * p_trt)</pre>
+                      <pre class="language-r">#'   `tern_default_formats` or `formats_in`, otherwise `NULL`). Values can be taken from</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">650</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">133</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  diff_est &lt;- est2 - est1</pre>
+                      <pre class="language-r">#'   [formatters::list_valid_format_labels()] or a custom function (e.g. [formatting_functions]).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">651</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">652</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">135</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lambda1 &lt;- sum(weights^2 / n_ref)</pre>
+                      <pre class="language-r">#' @note Formats in `tern` and `rtables` can be functions that take in the table cell value and</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">653</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">136</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lambda2 &lt;- sum(weights^2 / n_trt)</pre>
+                      <pre class="language-r">#'   return a string. This is well documented in `vignette("custom_appearance", package = "rtables")`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">654</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">137</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  z &lt;- stats::qnorm((1 + conf_level) / 2)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">655</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">656</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">139</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lower &lt;- diff_est - z * sqrt(lambda2 * l_trt * (1 - l_trt) + lambda1 * u_ref * (1 - u_ref))</pre>
+                      <pre class="language-r">#' # Defaults formats</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">657</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">140</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  upper &lt;- diff_est + z * sqrt(lambda1 * l_ref * (1 - l_ref) + lambda2 * u_trt * (1 - u_trt))</pre>
+                      <pre class="language-r">#' get_formats_from_stats(num_stats)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">658</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' get_formats_from_stats(cnt_stats)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">659</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">142</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">#' get_formats_from_stats(only_pval)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">660</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">143</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "diff" = diff_est,</pre>
+                      <pre class="language-r">#' get_formats_from_stats(all_cnt_occ)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">661</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">144</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "diff_ci" = c("lower" = lower, "upper" = upper)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">662</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' # Addition of customs</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">663</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' get_formats_from_stats(all_cnt_occ, formats_in = c("fraction" = c("xx")))</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/estimate_proportion.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Proportion estimation</pre>
+                      <pre class="language-r">#' get_formats_from_stats(all_cnt_occ, formats_in = list("fraction" = c("xx.xx", "xx")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' @seealso [formatting_functions]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The analyze function [estimate_proportion()] creates a layout element to estimate the proportion of responders</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' within a studied population. The primary analysis variable, `vars`, indicates whether a response has occurred for</pre>
+                      <pre class="language-r">get_formats_from_stats &lt;- function(stats, formats_in = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">153</td>
+                    <td class="coverage">494<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' each record. See the `method` parameter for options of methods to use when constructing the confidence interval of</pre>
+                      <pre class="language-r">  checkmate::assert_character(stats, min.len = 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the proportion. Additionally, a stratification variable can be supplied via the `strata` element of the `variables`</pre>
+                      <pre class="language-r">  # It may be a list if there is a function in the formats</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">155</td>
+                    <td class="coverage">494<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' argument.</pre>
+                      <pre class="language-r">  if (checkmate::test_list(formats_in, null.ok = TRUE)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">156</td>
+                    <td class="coverage">432<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    checkmate::assert_list(formats_in, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    # Or it may be a vector of characters</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams prop_strat_wilson</pre>
+                      <pre class="language-r">  } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">159</td>
+                    <td class="coverage">62<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    checkmate::assert_character(formats_in, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("estimate_proportion")`</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to see available statistics for this function.</pre>
+                      <pre class="language-r">  # Extract global defaults</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">163</td>
+                    <td class="coverage">494<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  which_fmt &lt;- match(stats, names(tern_default_formats))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param method (`string`)\cr the method used to construct the confidence interval</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   for proportion of successful outcomes; one of `waldcc`, `wald`, `clopper-pearson`,</pre>
+                      <pre class="language-r">  # Select only needed formats from stats</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">166</td>
+                    <td class="coverage">494<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  ret &lt;- vector("list", length = length(stats)) # Returning a list is simpler</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">167</td>
+                    <td class="coverage">494<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  ret[!is.na(which_fmt)] &lt;- tern_default_formats[which_fmt[!is.na(which_fmt)]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `wilson`, `wilsonc`, `strat_wilson`, `strat_wilsonc`, `agresti-coull` or `jeffreys`.</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">169</td>
+                    <td class="coverage">494<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  out &lt;- setNames(ret, stats)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param long (`flag`)\cr whether a long description is required.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  # Modify some with custom formats</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">172</td>
+                    <td class="coverage">494<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (!is.null(formats_in)) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [h_proportions]</pre>
+                      <pre class="language-r">    # Stats is the main</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">174</td>
+                    <td class="coverage">64<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    common_names &lt;- intersect(names(out), names(formats_in))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">175</td>
+                    <td class="coverage">64<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    out[common_names] &lt;- formats_in[common_names]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name estimate_proportion</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">178</td>
+                    <td class="coverage">494<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  out</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 1</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @describeIn default_stats_formats_labels Get labels corresponding to a list of statistics.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn estimate_proportion Statistics function estimating a</pre>
+                      <pre class="language-r">#'   To check for available defaults see `tern::tern_default_labels` list. If not available there,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   proportion along with its confidence interval.</pre>
+                      <pre class="language-r">#'   the statistics name will be used as label.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param df (`logical` or `data.frame`)\cr if only a logical vector is used,</pre>
+                      <pre class="language-r">#' @param labels_in (named `character`)\cr inserted labels to replace defaults.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   it indicates whether each subject is a responder or not. `TRUE` represents</pre>
+                      <pre class="language-r">#' @param row_nms (`character`)\cr row names. Levels of a `factor` or `character` variable, each</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   a successful outcome. If a `data.frame` is provided, also the `strata` variable</pre>
+                      <pre class="language-r">#'   of which the statistics in `.stats` will be calculated for. If this parameter is set, these</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   names must be provided in `variables` as a list element with the strata strings.</pre>
+                      <pre class="language-r">#'   variable levels will be used as the defaults, and the names of the given custom values should</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   In the case of `data.frame`, the logical vector of responses must be indicated as a</pre>
+                      <pre class="language-r">#'   correspond to levels (or have format `statistic.level`) instead of statistics. Can also be</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variable name in `.var`.</pre>
+                      <pre class="language-r">#'   variable names if rows correspond to different variables instead of levels. Defaults to `NULL`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_proportion()` returns statistics `n_prop` (`n` and proportion) and `prop_ci` (proportion CI) for a</pre>
+                      <pre class="language-r">#' * `get_labels_from_stats()` returns a named `character` vector of labels (if present in either</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   given variable.</pre>
+                      <pre class="language-r">#'   `tern_default_labels` or `labels_in`, otherwise `NULL`).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Case with only logical vector.</pre>
+                      <pre class="language-r">#' # Defaults labels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' rsp_v &lt;- c(1, 0, 1, 0, 1, 1, 0, 0)</pre>
+                      <pre class="language-r">#' get_labels_from_stats(num_stats)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_proportion(rsp_v)</pre>
+                      <pre class="language-r">#' get_labels_from_stats(cnt_stats)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' get_labels_from_stats(only_pval)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Example for Stratified Wilson CI</pre>
+                      <pre class="language-r">#' get_labels_from_stats(all_cnt_occ)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' nex &lt;- 100 # Number of example rows</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dta &lt;- data.frame(</pre>
+                      <pre class="language-r">#' # Addition of customs</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "rsp" = sample(c(TRUE, FALSE), nex, TRUE),</pre>
+                      <pre class="language-r">#' get_labels_from_stats(all_cnt_occ, labels_in = c("fraction" = "Fraction"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">205</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "grp" = sample(c("A", "B"), nex, TRUE),</pre>
+                      <pre class="language-r">#' get_labels_from_stats(all_cnt_occ, labels_in = list("fraction" = c("Some more fractions")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "f1" = sample(c("a1", "a2"), nex, TRUE),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "f2" = sample(c("x", "y", "z"), nex, TRUE),</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   stringsAsFactors = TRUE</pre>
+                      <pre class="language-r">get_labels_from_stats &lt;- function(stats, labels_in = NULL, row_nms = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">209</td>
+                    <td class="coverage">483<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  checkmate::assert_character(stats, min.len = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">210</td>
+                    <td class="coverage">483<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_character(row_nms, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_proportion(</pre>
+                      <pre class="language-r">  # It may be a list</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">212</td>
+                    <td class="coverage">483<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   df = dta,</pre>
+                      <pre class="language-r">  if (checkmate::test_list(labels_in, null.ok = TRUE)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">57</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">213</td>
+                    <td class="coverage">392<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .var = "rsp",</pre>
+                      <pre class="language-r">    checkmate::assert_list(labels_in, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(strata = c("f1", "f2")),</pre>
+                      <pre class="language-r">    # Or it may be a vector of characters</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   conf_level = 0.90,</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">216</td>
+                    <td class="coverage">91<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   method = "strat_wilson"</pre>
+                      <pre class="language-r">    checkmate::assert_character(labels_in, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">219</td>
+                    <td class="coverage">483<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  if (!is.null(row_nms)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">64</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">220</td>
+                    <td class="coverage">83<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_proportion &lt;- function(df,</pre>
+                      <pre class="language-r">    ret &lt;- rep(row_nms, length(stats))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">221</td>
+                    <td class="coverage">83<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         .var,</pre>
+                      <pre class="language-r">    out &lt;- setNames(ret, paste(rep(stats, each = length(row_nms)), ret, sep = "."))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         conf_level = 0.95,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">223</td>
+                    <td class="coverage">83<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         method = c(</pre>
+                      <pre class="language-r">    if (!is.null(labels_in)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">224</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      lvl_lbls &lt;- intersect(names(labels_in), row_nms)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">225</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      for (i in lvl_lbls) out[paste(stats, i, sep = ".")] &lt;- labels_in[[i]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           "waldcc", "wald", "clopper-pearson",</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           "wilson", "wilsonc", "strat_wilson", "strat_wilsonc",</pre>
+                      <pre class="language-r">  } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">228</td>
+                    <td class="coverage">400<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    which_lbl &lt;- match(stats, names(tern_default_labels))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           "agresti-coull", "jeffreys"</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">230</td>
+                    <td class="coverage">400<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ret &lt;- stats # The default</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">231</td>
+                    <td class="coverage">400<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ret[!is.na(which_lbl)] &lt;- tern_default_labels[which_lbl[!is.na(which_lbl)]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         ),</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">233</td>
+                    <td class="coverage">400<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    out &lt;- setNames(ret, stats)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         weights = NULL,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         max_iterations = 50,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         variables = list(strata = NULL),</pre>
+                      <pre class="language-r">  # Modify some with custom labels</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">237</td>
+                    <td class="coverage">483<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (!is.null(labels_in)) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">238</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         long = FALSE) {</pre>
+                      <pre class="language-r">    # Stats is the main</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">167<em>x</em></td>
+                    <td class="num">239</td>
+                    <td class="coverage">93<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  method &lt;- match.arg(method)</pre>
+                      <pre class="language-r">    common_names &lt;- intersect(names(out), names(labels_in))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">167<em>x</em></td>
+                    <td class="num">240</td>
+                    <td class="coverage">93<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(long)</pre>
+                      <pre class="language-r">    out[common_names] &lt;- labels_in[common_names]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">167<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">241</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_proportion_value(conf_level)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">167<em>x</em></td>
+                    <td class="num">243</td>
+                    <td class="coverage">483<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(variables$strata)) {</pre>
+                      <pre class="language-r">  out</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Checks for strata</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">82</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    if (missing(df)) stop("When doing stratified analysis a data.frame with specific columns is needed.")</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">83</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">245</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    strata_colnames &lt;- variables$strata</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">84</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">246</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_character(strata_colnames, null.ok = FALSE)</pre>
+                      <pre class="language-r">#' @describeIn default_stats_formats_labels Format indent modifiers for a given vector/list of statistics.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">85</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">247</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    strata_vars &lt;- stats::setNames(as.list(strata_colnames), strata_colnames)</pre>
+                      <pre class="language-r">#'   It defaults to 0L for all values.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">86</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">248</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    assert_df_with_variables(df, strata_vars)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param indents_in (named `vector`)\cr inserted indent modifiers to replace defaults (default is `0L`).</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">88</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">250</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    strata &lt;- interaction(df[strata_colnames])</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">89</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">251</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    strata &lt;- as.factor(strata)</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' * `get_indents_from_stats()` returns a single indent modifier value to apply to all rows</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Pushing down checks to prop_strat_wilson</pre>
+                      <pre class="language-r">#'   or a named numeric vector of indent modifiers (if present, otherwise `NULL`).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">167<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">254</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (checkmate::test_subset(method, c("strat_wilson", "strat_wilsonc"))) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">93</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">255</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("To use stratified methods you need to specify the strata variables.")</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' get_indents_from_stats(all_cnt_occ, indents_in = 3L)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">167<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">257</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (checkmate::test_atomic_vector(df)) {</pre>
+                      <pre class="language-r">#' get_indents_from_stats(all_cnt_occ, indents_in = list(count = 2L, count_fraction = 5L))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">96</td>
-                    <td class="coverage">167<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">258</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rsp &lt;- as.logical(df)</pre>
+                      <pre class="language-r">#' get_indents_from_stats(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#'   all_cnt_occ,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">98</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">260</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rsp &lt;- as.logical(df[[.var]])</pre>
+                      <pre class="language-r">#'   indents_in = list(a = 2L, count.a = 1L, count.b = 5L), row_nms = c("a", "b")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">100</td>
-                    <td class="coverage">167<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">262</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n &lt;- sum(rsp)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">167<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">263</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  p_hat &lt;- mean(rsp)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">get_indents_from_stats &lt;- function(stats, indents_in = NULL, row_nms = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">167<em>x</em></td>
+                    <td class="num">265</td>
+                    <td class="coverage">444<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  prop_ci &lt;- switch(method,</pre>
+                      <pre class="language-r">  checkmate::assert_character(stats, min.len = 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">104</td>
-                    <td class="coverage">167<em>x</em></td>
+                    <td class="num">266</td>
+                    <td class="coverage">444<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "clopper-pearson" = prop_clopper_pearson(rsp, conf_level),</pre>
+                      <pre class="language-r">  checkmate::assert_character(row_nms, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">167<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">267</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "wilson" = prop_wilson(rsp, conf_level),</pre>
+                      <pre class="language-r">  # It may be a list</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">167<em>x</em></td>
+                    <td class="num">268</td>
+                    <td class="coverage">444<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "wilsonc" = prop_wilson(rsp, conf_level, correct = TRUE),</pre>
+                      <pre class="language-r">  if (checkmate::test_list(indents_in, null.ok = TRUE)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">167<em>x</em></td>
+                    <td class="num">269</td>
+                    <td class="coverage">402<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "strat_wilson" = prop_strat_wilson(rsp,</pre>
+                      <pre class="language-r">    checkmate::assert_list(indents_in, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">167<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">270</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      strata,</pre>
+                      <pre class="language-r">    # Or it may be a vector of integers</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">167<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">271</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      weights,</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">167<em>x</em></td>
+                    <td class="num">272</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      conf_level,</pre>
+                      <pre class="language-r">    checkmate::assert_integerish(indents_in, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">167<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">273</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      max_iterations,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">167<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">274</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      correct = FALSE</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">167<em>x</em></td>
+                    <td class="num">275</td>
+                    <td class="coverage">444<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )$conf_int,</pre>
+                      <pre class="language-r">  if (is.null(names(indents_in)) &amp;&amp; length(indents_in) == 1) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">114</td>
-                    <td class="coverage">167<em>x</em></td>
+                    <td class="num">276</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "strat_wilsonc" = prop_strat_wilson(rsp,</pre>
+                      <pre class="language-r">    out &lt;- rep(indents_in, length(stats) * if (!is.null(row_nms)) length(row_nms) else 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">167<em>x</em></td>
+                    <td class="num">277</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      strata,</pre>
+                      <pre class="language-r">    return(out)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">167<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">278</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      weights,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">167<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">279</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      conf_level,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">118</td>
-                    <td class="coverage">167<em>x</em></td>
+                    <td class="num">280</td>
+                    <td class="coverage">435<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      max_iterations,</pre>
+                      <pre class="language-r">  if (!is.null(row_nms)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">167<em>x</em></td>
+                    <td class="num">281</td>
+                    <td class="coverage">77<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      correct = TRUE</pre>
+                      <pre class="language-r">    ret &lt;- rep(0L, length(stats) * length(row_nms))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">120</td>
-                    <td class="coverage">167<em>x</em></td>
+                    <td class="num">282</td>
+                    <td class="coverage">77<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )$conf_int,</pre>
+                      <pre class="language-r">    out &lt;- setNames(ret, paste(rep(stats, each = length(row_nms)), rep(row_nms, length(stats)), sep = "."))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">121</td>
-                    <td class="coverage">167<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">283</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "wald" = prop_wald(rsp, conf_level),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">122</td>
-                    <td class="coverage">167<em>x</em></td>
+                    <td class="num">284</td>
+                    <td class="coverage">77<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "waldcc" = prop_wald(rsp, conf_level, correct = TRUE),</pre>
+                      <pre class="language-r">    if (!is.null(indents_in)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">167<em>x</em></td>
+                    <td class="num">285</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "agresti-coull" = prop_agresti_coull(rsp, conf_level),</pre>
+                      <pre class="language-r">      lvl_lbls &lt;- intersect(names(indents_in), row_nms)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">167<em>x</em></td>
+                    <td class="num">286</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "jeffreys" = prop_jeffreys(rsp, conf_level)</pre>
+                      <pre class="language-r">      for (i in lvl_lbls) out[paste(stats, i, sep = ".")] &lt;- indents_in[[i]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">288</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">167<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">167<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    "n_prop" = formatters::with_label(c(n, p_hat), "Responders"),</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">167<em>x</em></td>
+                    <td class="num">289</td>
+                    <td class="coverage">358<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "prop_ci" = formatters::with_label(</pre>
+                      <pre class="language-r">    ret &lt;- rep(0L, length(stats))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">167<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      x = 100 * prop_ci, label = d_proportion(conf_level, method, long = long)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">131</td>
-                    <td class="coverage"></td>
+                    <td class="num">290</td>
+                    <td class="coverage">358<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    out &lt;- setNames(ret, stats)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">292</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  # Modify some with custom labels</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">135</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">294</td>
+                    <td class="coverage">435<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn estimate_proportion Formatted analysis function which is used as `afun`</pre>
+                      <pre class="language-r">  if (!is.null(indents_in)) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">295</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   in `estimate_proportion()`.</pre>
+                      <pre class="language-r">    # Stats is the main</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">137</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">296</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    common_names &lt;- intersect(names(out), names(indents_in))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">138</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">297</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">    out[common_names] &lt;- indents_in[common_names]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">298</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `a_proportion()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">141</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">300</td>
+                    <td class="coverage">435<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  out</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">301</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">a_proportion &lt;- make_afun(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">302</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_proportion,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats = c(n_prop = "xx (xx.x%)", prop_ci = "(xx.x, xx.x)")</pre>
+                      <pre class="language-r">#' Update labels according to control specifications</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">305</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">306</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn estimate_proportion Layout-creating function which can take statistics function arguments</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
+                      <pre class="language-r">#' Given a list of statistic labels and and a list of control parameters, updates labels with a relevant</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">308</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' control specification. For example, if control has element `conf_level` set to `0.9`, the default</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">309</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' label for statistic `mean_ci` will be updated to `"Mean 90% CI"`. Any labels that are supplied</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">310</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `estimate_proportion()` returns a layout object suitable for passing to further layouting functions,</pre>
+                      <pre class="language-r">#' via `labels_custom` will not be updated regardless of `control`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">311</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">312</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the statistics from `s_proportion()` to the table layout.</pre>
+                      <pre class="language-r">#' @param labels_default (named `character`)\cr a named vector of statistic labels to modify</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   according to the control specifications. Labels that are explicitly defined in `labels_custom` will</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   not be affected.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">315</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dta_test &lt;- data.frame(</pre>
+                      <pre class="language-r">#' @param labels_custom (named `character`)\cr named vector of labels that are customized by</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">316</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   USUBJID = paste0("S", 1:12),</pre>
+                      <pre class="language-r">#'   the user and should not be affected by `control`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">317</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ARM     = rep(LETTERS[1:3], each = 4),</pre>
+                      <pre class="language-r">#' @param control (named `list`)\cr list of control parameters to apply to adjust default labels.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">318</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   AVAL    = rep(LETTERS[1:3], each = 4)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">319</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' @return A named character vector of labels with control specifications applied to relevant labels.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">322</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
+                      <pre class="language-r">#' control &lt;- list(conf_level = 0.80, quantiles = c(0.1, 0.83), test_mean = 0.57)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">323</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   estimate_proportion(vars = "AVAL") %&gt;%</pre>
+                      <pre class="language-r">#' get_labels_from_stats(c("mean_ci", "quantiles", "mean_pval")) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">324</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(df = dta_test)</pre>
+                      <pre class="language-r">#'   labels_use_control(control = control)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">325</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">326</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">327</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 2</pre>
+                      <pre class="language-r">labels_use_control &lt;- function(labels_default, control, labels_custom = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">169</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">328</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">estimate_proportion &lt;- function(lyt,</pre>
+                      <pre class="language-r">  if ("conf_level" %in% names(control)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">170</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">329</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                vars,</pre>
+                      <pre class="language-r">    labels_default &lt;- sapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">171</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">330</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                conf_level = 0.95,</pre>
+                      <pre class="language-r">      names(labels_default),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">172</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">331</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                method = c(</pre>
+                      <pre class="language-r">      function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">173</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">332</td>
+                    <td class="coverage">91<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  "waldcc", "wald", "clopper-pearson",</pre>
+                      <pre class="language-r">        if (!x %in% names(labels_custom)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">174</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">333</td>
+                    <td class="coverage">88<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  "wilson", "wilsonc", "strat_wilson", "strat_wilsonc",</pre>
+                      <pre class="language-r">          gsub(labels_default[[x]], pattern = "[0-9]+% CI", replacement = f_conf_level(control[["conf_level"]]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">334</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  "agresti-coull", "jeffreys"</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">176</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">335</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                ),</pre>
+                      <pre class="language-r">          labels_default[[x]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">336</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                weights = NULL,</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">337</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                max_iterations = 50,</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">338</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                variables = list(strata = NULL),</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">339</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                long = FALSE,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">181</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">340</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                na_str = default_na_str(),</pre>
+                      <pre class="language-r">  if ("quantiles" %in% names(control) &amp;&amp; "quantiles" %in% names(labels_default) &amp;&amp;</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">182</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">341</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                nested = TRUE,</pre>
+                      <pre class="language-r">    !"quantiles" %in% names(labels_custom)) { # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">183</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">342</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                ...,</pre>
+                      <pre class="language-r">    labels_default["quantiles"] &lt;- gsub(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">184</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">343</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                show_labels = "hidden",</pre>
+                      <pre class="language-r">      "[0-9]+% and [0-9]+", paste0(control[["quantiles"]][1] * 100, "% and ", control[["quantiles"]][2] * 100, ""),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">185</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">344</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                table_names = vars,</pre>
+                      <pre class="language-r">      labels_default["quantiles"]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">345</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                .stats = NULL,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">346</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                .formats = NULL,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">188</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">347</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                .labels = NULL,</pre>
+                      <pre class="language-r">  if ("test_mean" %in% names(control) &amp;&amp; "mean_pval" %in% names(labels_default) &amp;&amp;</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">189</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">348</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                .indent_mods = NULL) {</pre>
+                      <pre class="language-r">    !"mean_pval" %in% names(labels_custom)) { # nolint</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">349</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(</pre>
+                      <pre class="language-r">    labels_default["mean_pval"] &lt;- gsub(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">350</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    conf_level = conf_level, method = method, weights = weights, max_iterations = max_iterations,</pre>
+                      <pre class="language-r">      "p-value \\(H0: mean = [0-9\\.]+\\)", f_pval(control[["test_mean"]]), labels_default["mean_pval"]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">351</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    variables = variables, long = long, ...</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">352</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">353</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">354</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  afun &lt;- make_afun(</pre>
+                      <pre class="language-r">  labels_default</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">355</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    a_proportion,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">197</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">356</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .stats = .stats,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">198</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">357</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .formats = .formats,</pre>
+                      <pre class="language-r">#' @describeIn default_stats_formats_labels Named list of available statistics by method group for `tern`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">358</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .labels = .labels,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">200</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">359</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .indent_mods = .indent_mods</pre>
+                      <pre class="language-r">#' @format</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">360</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' * `tern_default_stats` is a named list of available statistics, with each element</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">361</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  analyze(</pre>
+                      <pre class="language-r">#'   named for their corresponding statistical method group.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">203</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">362</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">204</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">363</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">364</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    afun = afun,</pre>
+                      <pre class="language-r">tern_default_stats &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">365</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">  abnormal = c("fraction"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">366</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nested = nested,</pre>
+                      <pre class="language-r">  abnormal_by_baseline = c("fraction"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">367</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args = extra_args,</pre>
+                      <pre class="language-r">  abnormal_by_marked = c("count_fraction", "count_fraction_fixed_dp"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">209</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">368</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    show_labels = show_labels,</pre>
+                      <pre class="language-r">  abnormal_by_worst_grade = c("count_fraction", "count_fraction_fixed_dp"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">369</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table_names = table_names</pre>
+                      <pre class="language-r">  abnormal_by_worst_grade_worsen = c("fraction"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</td>
+                    <td class="num">370</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  analyze_patients_exposure_in_cols = c("n_patients", "sum_exposure"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">371</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  analyze_vars_counts = c("n", "count", "count_fraction", "count_fraction_fixed_dp", "fraction", "n_blq"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">372</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  analyze_vars_numeric = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">373</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper functions for calculating proportion confidence intervals</pre>
+                      <pre class="language-r">    "n", "sum", "mean", "sd", "se", "mean_sd", "mean_se", "mean_ci", "mean_sei", "mean_sdi", "mean_pval",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">374</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    "median", "mad", "median_ci", "quantiles", "iqr", "range", "min", "max", "median_range", "cv",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">375</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">    "geom_mean", "geom_mean_ci", "geom_cv"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">376</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">218</td>
+                    <td class="num">377</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Functions to calculate different proportion confidence intervals for use in [estimate_proportion()].</pre>
+                      <pre class="language-r">  count_cumulative = c("count_fraction", "count_fraction_fixed_dp"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">219</td>
+                    <td class="num">378</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  count_missed_doses = c("n", "count_fraction", "count_fraction_fixed_dp"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">379</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">  count_occurrences = c("count", "count_fraction", "count_fraction_fixed_dp", "fraction"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">380</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams estimate_proportion</pre>
+                      <pre class="language-r">  count_occurrences_by_grade = c("count_fraction", "count_fraction_fixed_dp"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</td>
+                    <td class="num">381</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  count_patients_with_event = c("n", "count", "count_fraction", "count_fraction_fixed_dp", "n_blq"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">223</td>
+                    <td class="num">382</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Confidence interval of a proportion.</pre>
+                      <pre class="language-r">  count_patients_with_flags = c("n", "count", "count_fraction", "count_fraction_fixed_dp", "n_blq"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">383</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  count_values = c("n", "count", "count_fraction", "count_fraction_fixed_dp", "n_blq"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">384</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [estimate_proportion], descriptive function [d_proportion()],</pre>
+                      <pre class="language-r">  coxph_pairwise = c("pvalue", "hr", "hr_ci", "n_tot", "n_tot_events"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">385</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  and helper functions [strata_normal_quantile()] and [update_weights_strat_wilson()].</pre>
+                      <pre class="language-r">  estimate_incidence_rate = c("person_years", "n_events", "rate", "rate_ci", "n_unique", "n_rate"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</td>
+                    <td class="num">386</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  estimate_multinomial_response = c("n_prop", "prop_ci"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</td>
+                    <td class="num">387</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name h_proportions</pre>
+                      <pre class="language-r">  estimate_odds_ratio = c("or_ci", "n_tot"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</td>
+                    <td class="num">388</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">  estimate_proportion = c("n_prop", "prop_ci"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</td>
+                    <td class="num">389</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  estimate_proportion_diff = c("diff", "diff_ci"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">231</td>
+                    <td class="num">390</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_proportions Calculates the Wilson interval by calling [stats::prop.test()].</pre>
+                      <pre class="language-r">  summarize_ancova = c("n", "lsmean", "lsmean_diff", "lsmean_diff_ci", "pval"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</td>
+                    <td class="num">391</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  Also referred to as Wilson score interval.</pre>
+                      <pre class="language-r">  summarize_coxreg = c("n", "hr", "ci", "pval", "pval_inter"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</td>
+                    <td class="num">392</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  summarize_glm_count = c("n", "rate", "rate_ci", "rate_ratio", "rate_ratio_ci", "pval"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">234</td>
+                    <td class="num">393</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  summarize_num_patients = c("unique", "nonunique", "unique_count"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</td>
+                    <td class="num">394</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' rsp &lt;- c(</pre>
+                      <pre class="language-r">  summarize_patients_events_in_cols = c("unique", "all"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">395</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   TRUE, TRUE, TRUE, TRUE, TRUE,</pre>
+                      <pre class="language-r">  surv_time = c("median", "median_ci", "quantiles", "range_censor", "range_event", "range"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">237</td>
+                    <td class="num">396</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   FALSE, FALSE, FALSE, FALSE, FALSE</pre>
+                      <pre class="language-r">  surv_timepoint = c("pt_at_risk", "event_free_rate", "rate_se", "rate_ci", "rate_diff", "rate_diff_ci", "ztest_pval"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">238</td>
+                    <td class="num">397</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  tabulate_rsp_biomarkers = c("n_tot", "n_rsp", "prop", "or", "ci", "pval"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</td>
+                    <td class="num">398</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' prop_wilson(rsp, conf_level = 0.9)</pre>
+                      <pre class="language-r">  tabulate_rsp_subgroups = c("n", "n_rsp", "prop", "n_tot", "or", "ci", "pval"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">399</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  tabulate_survival_biomarkers = c("n_tot", "n_tot_events", "median", "hr", "ci", "pval"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">241</td>
+                    <td class="num">400</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  tabulate_survival_subgroups = c("n_tot_events", "n_events", "n_tot", "n", "median", "hr", "ci", "pval"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">242</td>
+                    <td class="num">401</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">prop_wilson &lt;- function(rsp, conf_level, correct = FALSE) {</pre>
+                      <pre class="language-r">  test_proportion_diff = c("pval")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">243</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">402</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- stats::prop.test(</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">244</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">403</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    sum(rsp),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">245</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">404</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    length(rsp),</pre>
+                      <pre class="language-r">#' @describeIn default_stats_formats_labels Named vector of default formats for `tern`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">246</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">405</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    correct = correct,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">247</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">406</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    conf.level = conf_level</pre>
+                      <pre class="language-r">#' @format</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">407</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' * `tern_default_formats` is a named vector of available default formats, with each element</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">249</td>
+                    <td class="num">408</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   named for their corresponding statistic.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">250</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">409</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  as.numeric(y$conf.int)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">410</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</td>
+                    <td class="num">411</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">tern_default_formats &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">253</td>
+                    <td class="num">412</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_proportions Calculates the stratified Wilson confidence</pre>
+                      <pre class="language-r">  fraction = format_fraction_fixed_dp,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</td>
+                    <td class="num">413</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   interval for unequal proportions as described in \insertCite{Yan2010-jt;textual}{tern}</pre>
+                      <pre class="language-r">  unique = format_count_fraction_fixed_dp,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">255</td>
+                    <td class="num">414</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  nonunique = "xx",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">256</td>
+                    <td class="num">415</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param strata (`factor`)\cr variable with one level per stratum and same length as `rsp`.</pre>
+                      <pre class="language-r">  unique_count = "xx",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">416</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param weights (`numeric` or `NULL`)\cr weights for each level of the strata. If `NULL`, they are</pre>
+                      <pre class="language-r">  n = "xx.",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">417</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   estimated using the iterative algorithm proposed in \insertCite{Yan2010-jt;textual}{tern} that</pre>
+                      <pre class="language-r">  count = "xx.",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">259</td>
+                    <td class="num">418</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   minimizes the weighted squared length of the confidence interval.</pre>
+                      <pre class="language-r">  count_fraction = format_count_fraction,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">260</td>
+                    <td class="num">419</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param max_iterations (`count`)\cr maximum number of iterations for the iterative procedure used</pre>
+                      <pre class="language-r">  count_fraction_fixed_dp = format_count_fraction_fixed_dp,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">261</td>
+                    <td class="num">420</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to find estimates of optimal weights.</pre>
+                      <pre class="language-r">  n_blq = "xx.",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</td>
+                    <td class="num">421</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param correct (`flag`)\cr whether to include the continuity correction. For further information, see for example</pre>
+                      <pre class="language-r">  sum = "xx.x",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">263</td>
+                    <td class="num">422</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   for [stats::prop.test()].</pre>
+                      <pre class="language-r">  mean = "xx.x",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">264</td>
+                    <td class="num">423</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  sd = "xx.x",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</td>
+                    <td class="num">424</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @references</pre>
+                      <pre class="language-r">  se = "xx.x",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">266</td>
+                    <td class="num">425</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' \insertRef{Yan2010-jt}{tern}</pre>
+                      <pre class="language-r">  mean_sd = "xx.x (xx.x)",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">426</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  mean_se = "xx.x (xx.x)",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</td>
+                    <td class="num">427</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  mean_ci = "(xx.xx, xx.xx)",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">428</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Stratified Wilson confidence interval with unequal probabilities</pre>
+                      <pre class="language-r">  mean_sei = "(xx.xx, xx.xx)",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</td>
+                    <td class="num">429</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  mean_sdi = "(xx.xx, xx.xx)",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">271</td>
+                    <td class="num">430</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' set.seed(1)</pre>
+                      <pre class="language-r">  mean_pval = "x.xxxx | (&lt;0.0001)",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</td>
+                    <td class="num">431</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' rsp &lt;- sample(c(TRUE, FALSE), 100, TRUE)</pre>
+                      <pre class="language-r">  median = "xx.x",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">273</td>
+                    <td class="num">432</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' strata_data &lt;- data.frame(</pre>
+                      <pre class="language-r">  mad = "xx.x",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">274</td>
+                    <td class="num">433</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "f1" = sample(c("a", "b"), 100, TRUE),</pre>
+                      <pre class="language-r">  median_ci = "(xx.xx, xx.xx)",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">434</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "f2" = sample(c("x", "y", "z"), 100, TRUE),</pre>
+                      <pre class="language-r">  quantiles = "xx.x - xx.x",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">276</td>
+                    <td class="num">435</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   stringsAsFactors = TRUE</pre>
+                      <pre class="language-r">  iqr = "xx.x",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">277</td>
+                    <td class="num">436</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  range = "xx.x - xx.x",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</td>
+                    <td class="num">437</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' strata &lt;- interaction(strata_data)</pre>
+                      <pre class="language-r">  min = "xx.x",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</td>
+                    <td class="num">438</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' n_strata &lt;- ncol(table(rsp, strata)) # Number of strata</pre>
+                      <pre class="language-r">  max = "xx.x",</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">439</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  median_range = "xx.x (xx.x - xx.x)",</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">440</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  cv = "xx.x",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">441</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  geom_mean = "xx.x",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">281</td>
+                    <td class="num">442</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' prop_strat_wilson(</pre>
+                      <pre class="language-r">  geom_mean_ci = "(xx.xx, xx.xx)",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">282</td>
+                    <td class="num">443</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   rsp = rsp, strata = strata,</pre>
+                      <pre class="language-r">  geom_cv = "xx.x",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">283</td>
+                    <td class="num">444</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   conf_level = 0.90</pre>
+                      <pre class="language-r">  pval = "x.xxxx | (&lt;0.0001)",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">284</td>
+                    <td class="num">445</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  pval_counts = "x.xxxx | (&lt;0.0001)",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">285</td>
+                    <td class="num">446</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  range_censor = "xx.x to xx.x",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">447</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Not automatic setting of weights</pre>
+                      <pre class="language-r">  range_event = "xx.x to xx.x",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">448</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' prop_strat_wilson(</pre>
+                      <pre class="language-r">  rate = "xx.xxxx",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">449</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   rsp = rsp, strata = strata,</pre>
+                      <pre class="language-r">  rate_ci = "(xx.xxxx, xx.xxxx)",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">289</td>
+                    <td class="num">450</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   weights = rep(1 / n_strata, n_strata),</pre>
+                      <pre class="language-r">  rate_ratio = "xx.xxxx",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</td>
+                    <td class="num">451</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   conf_level = 0.90</pre>
+                      <pre class="language-r">  rate_ratio_ci = "(xx.xxxx, xx.xxxx)"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">291</td>
+                    <td class="num">452</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">292</td>
+                    <td class="num">453</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">293</td>
+                    <td class="num">454</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @describeIn default_stats_formats_labels Named `character` vector of default labels for `tern`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">294</td>
+                    <td class="num">455</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">prop_strat_wilson &lt;- function(rsp,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">295</td>
+                    <td class="num">456</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              strata,</pre>
+                      <pre class="language-r">#' @format</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">457</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              weights = NULL,</pre>
+                      <pre class="language-r">#' * `tern_default_labels` is a named `character` vector of available default labels, with each element</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">458</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              conf_level = 0.95,</pre>
+                      <pre class="language-r">#'   named for their corresponding statistic.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">298</td>
+                    <td class="num">459</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              max_iterations = NULL,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">299</td>
+                    <td class="num">460</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              correct = FALSE) {</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">300</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">461</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_logical(rsp, any.missing = FALSE)</pre>
+                      <pre class="language-r">tern_default_labels &lt;- c(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">301</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">462</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_factor(strata, len = length(rsp))</pre>
+                      <pre class="language-r">  fraction = "fraction",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">302</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">463</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_proportion_value(conf_level)</pre>
+                      <pre class="language-r">  unique = "Number of patients with at least one event",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">303</td>
+                    <td class="num">464</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  nonunique = "Number of events",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">304</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">465</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tbl &lt;- table(rsp, strata)</pre>
+                      <pre class="language-r">  n = "n",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">305</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">466</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n_strata &lt;- length(unique(strata))</pre>
+                      <pre class="language-r">  count = "count",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">306</td>
+                    <td class="num">467</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  count_fraction = "count_fraction",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">307</td>
+                    <td class="num">468</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Checking the weights and maximum number of iterations.</pre>
+                      <pre class="language-r">  count_fraction_fixed_dp = "count_fraction",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">308</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">469</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  do_iter &lt;- FALSE</pre>
+                      <pre class="language-r">  n_blq = "n_blq",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">309</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">470</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(weights)) {</pre>
+                      <pre class="language-r">  sum = "Sum",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">310</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">471</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    weights &lt;- rep(1 / n_strata, n_strata) # Initialization for iterative procedure</pre>
+                      <pre class="language-r">  mean = "Mean",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">311</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">472</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    do_iter &lt;- TRUE</pre>
+                      <pre class="language-r">  sd = "SD",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">312</td>
+                    <td class="num">473</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  se = "SE",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">313</td>
+                    <td class="num">474</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Iteration parameters</pre>
+                      <pre class="language-r">  mean_sd = "Mean (SD)",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">314</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">475</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.null(max_iterations)) max_iterations &lt;- 10</pre>
+                      <pre class="language-r">  mean_se = "Mean (SE)",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">315</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">476</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_int(max_iterations, na.ok = FALSE, null.ok = FALSE, lower = 1)</pre>
+                      <pre class="language-r">  mean_ci = "Mean 95% CI",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">316</td>
+                    <td class="num">477</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  mean_sei = "Mean -/+ 1xSE",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">317</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">478</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(weights, lower = 0, upper = 1, any.missing = FALSE, len = n_strata)</pre>
+                      <pre class="language-r">  mean_sdi = "Mean -/+ 1xSD",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">318</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">479</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  sum_weights &lt;- checkmate::assert_int(sum(weights))</pre>
+                      <pre class="language-r">  mean_pval = "Mean p-value (H0: mean = 0)",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">319</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">480</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (as.integer(sum_weights + 0.5) != 1L) stop("Sum of weights must be 1L.")</pre>
+                      <pre class="language-r">  median = "Median",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">320</td>
+                    <td class="num">481</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  mad = "Median Absolute Deviation",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">321</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">482</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  xs &lt;- tbl["TRUE", ]</pre>
+                      <pre class="language-r">  median_ci = "Median 95% CI",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">322</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">483</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- colSums(tbl)</pre>
+                      <pre class="language-r">  quantiles = "25% and 75%-ile",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">323</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">484</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  use_stratum &lt;- (ns &gt; 0)</pre>
+                      <pre class="language-r">  iqr = "IQR",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">324</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">485</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ns &lt;- ns[use_stratum]</pre>
+                      <pre class="language-r">  range = "Min - Max",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">325</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">486</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  xs &lt;- xs[use_stratum]</pre>
+                      <pre class="language-r">  min = "Minimum",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">326</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">487</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ests &lt;- xs / ns</pre>
+                      <pre class="language-r">  max = "Maximum",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">327</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">488</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  vars &lt;- ests * (1 - ests) / ns</pre>
+                      <pre class="language-r">  median_range = "Median (Min - Max)",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">328</td>
+                    <td class="num">489</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  cv = "CV (%)",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">329</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">490</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  strata_qnorm &lt;- strata_normal_quantile(vars, weights, conf_level)</pre>
+                      <pre class="language-r">  geom_mean = "Geometric Mean",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">330</td>
+                    <td class="num">491</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  geom_mean_ci = "Geometric Mean 95% CI",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">331</td>
+                    <td class="num">492</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Iterative setting of weights if they were not set externally</pre>
+                      <pre class="language-r">  geom_cv = "CV % Geometric Mean",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">332</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">493</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  weights_new &lt;- if (do_iter) {</pre>
+                      <pre class="language-r">  pval = "p-value (t-test)", # Default for numeric</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">333</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">494</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    update_weights_strat_wilson(vars, strata_qnorm, weights, ns, max_iterations, conf_level)$weights</pre>
+                      <pre class="language-r">  pval_counts = "p-value (chi-squared test)", # Default for counts</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">334</td>
+                    <td class="num">495</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">  rate = "Adjusted Rate",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">335</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">496</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    weights</pre>
+                      <pre class="language-r">  rate_ratio = "Adjusted Rate Ratio"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">336</td>
+                    <td class="num">497</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">337</td>
+                    <td class="num">498</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">338</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">499</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  strata_conf_level &lt;- 2 * stats::pnorm(strata_qnorm) - 1</pre>
+                      <pre class="language-r"># To deprecate ---------</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">339</td>
+                    <td class="num">500</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">340</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">501</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ci_by_strata &lt;- Map(</pre>
+                      <pre class="language-r">#' @describeIn default_stats_formats_labels `r lifecycle::badge("deprecated")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">341</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">502</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    function(x, n) {</pre>
+                      <pre class="language-r">#'   Quick function to retrieve default formats for summary statistics:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">342</td>
+                    <td class="num">503</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Classic Wilson's confidence interval</pre>
+                      <pre class="language-r">#'   [analyze_vars()] and [analyze_vars_in_cols()] principally.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">343</td>
-                    <td class="coverage">139<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">504</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      suppressWarnings(stats::prop.test(x, n, correct = correct, conf.level = strata_conf_level)$conf.int)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">344</td>
+                    <td class="num">505</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' @param type (`string`)\cr `"numeric"` or `"counts"`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">345</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">506</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = xs,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">346</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">507</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n = ns</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">347</td>
+                    <td class="num">508</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' * `summary_formats()` returns a named `vector` of default statistic formats for the given data type.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">348</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">509</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lower_by_strata &lt;- sapply(ci_by_strata, "[", 1L)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">349</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">510</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  upper_by_strata &lt;- sapply(ci_by_strata, "[", 2L)</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">350</td>
+                    <td class="num">511</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' summary_formats()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">351</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">512</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lower &lt;- sum(weights_new * lower_by_strata)</pre>
+                      <pre class="language-r">#' summary_formats(type = "counts", include_pval = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">352</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">513</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  upper &lt;- sum(weights_new * upper_by_strata)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">353</td>
+                    <td class="num">514</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">354</td>
+                    <td class="num">515</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Return values</pre>
+                      <pre class="language-r">summary_formats &lt;- function(type = "numeric", include_pval = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">355</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="num">516</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (do_iter) {</pre>
+                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">356</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">517</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list(</pre>
+                      <pre class="language-r">    "0.9.6", "summary_formats()",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">357</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">518</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      conf_int = c(</pre>
+                      <pre class="language-r">    details = 'Use get_formats_from_stats(get_stats("analyze_vars_numeric", add_pval = include_pval)) instead'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">358</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">519</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        lower = lower,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">359</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        upper = upper</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">360</td>
-                    <td class="coverage"></td>
+                    <td class="num">520</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">  met_grp &lt;- paste0(c("analyze_vars", type), collapse = "_")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">361</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">521</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      weights = weights_new</pre>
+                      <pre class="language-r">  get_formats_from_stats(get_stats(met_grp, add_pval = include_pval))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">362</td>
+                    <td class="num">522</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">363</td>
+                    <td class="num">523</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">364</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    list(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">365</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      conf_int = c(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">366</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        lower = lower,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">367</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">524</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        upper = upper</pre>
+                      <pre class="language-r">#' @describeIn default_stats_formats_labels `r lifecycle::badge("deprecated")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">368</td>
+                    <td class="num">525</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'   Quick function to retrieve default labels for summary statistics.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">369</td>
+                    <td class="num">526</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'   Returns labels of descriptive statistics which are understood by `rtables`. Similar to `summary_formats`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">370</td>
+                    <td class="num">527</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">371</td>
+                    <td class="num">528</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @param include_pval (`flag`)\cr same as the `add_pval` argument in [get_stats()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">372</td>
+                    <td class="num">529</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">373</td>
+                    <td class="num">530</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_proportions Calculates the Clopper-Pearson interval by calling [stats::binom.test()].</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">374</td>
+                    <td class="num">531</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Also referred to as the `exact` method.</pre>
+                      <pre class="language-r">#' * `summary_labels` returns a named `vector` of default statistic labels for the given data type.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">375</td>
+                    <td class="num">532</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">376</td>
+                    <td class="num">533</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">377</td>
+                    <td class="num">534</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' prop_clopper_pearson(rsp, conf_level = .95)</pre>
+                      <pre class="language-r">#' summary_labels()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">378</td>
+                    <td class="num">535</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' summary_labels(type = "counts", include_pval = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">379</td>
+                    <td class="num">536</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">380</td>
+                    <td class="num">537</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">prop_clopper_pearson &lt;- function(rsp,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">381</td>
+                    <td class="num">538</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 conf_level) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">382</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- stats::binom.test(</pre>
+                      <pre class="language-r">summary_labels &lt;- function(type = "numeric", include_pval = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">383</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">539</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = sum(rsp),</pre>
+                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">384</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">540</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n = length(rsp),</pre>
+                      <pre class="language-r">    "0.9.6", "summary_formats()",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">385</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">541</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    conf.level = conf_level</pre>
+                      <pre class="language-r">    details = 'Use get_labels_from_stats(get_stats("analyze_vars_numeric", add_pval = include_pval)) instead'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">386</td>
+                    <td class="num">542</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">387</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">543</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  as.numeric(y$conf.int)</pre>
+                      <pre class="language-r">  met_grp &lt;- paste0(c("analyze_vars", type), collapse = "_")</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">544</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  get_labels_from_stats(get_stats(met_grp, add_pval = include_pval))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">388</td>
+                    <td class="num">545</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/utils.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">389</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Re-implemented `range()` default S3 method for numerical objects</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">390</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_proportions Calculates the Wald interval by following the usual textbook definition</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">391</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   for a single proportion confidence interval using the normal approximation.</pre>
+                      <pre class="language-r">#' This function returns `c(NA, NA)` instead of `c(-Inf, Inf)` for zero-length data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">392</td>
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' without any warnings.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">393</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param correct (`flag`)\cr whether to apply continuity correction.</pre>
+                      <pre class="language-r">#' @param x (`numeric`)\cr a sequence of numbers for which the range is computed.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">394</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param na.rm (`flag`)\cr flag indicating if `NA` should be omitted.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">395</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @param finite (`flag`)\cr flag indicating if non-finite elements should be removed.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">396</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' prop_wald(rsp, conf_level = 0.95)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">397</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' prop_wald(rsp, conf_level = 0.95, correct = TRUE)</pre>
+                      <pre class="language-r">#' @return A 2-element vector of class `numeric`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">398</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">399</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">400</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">prop_wald &lt;- function(rsp, conf_level, correct = FALSE) {</pre>
+                      <pre class="language-r">range_noinf &lt;- function(x, na.rm = FALSE, finite = FALSE) { # nolint</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">14</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">401</td>
-                    <td class="coverage">163<em>x</em></td>
+                    <td class="num">15</td>
+                    <td class="coverage">1842<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n &lt;- length(rsp)</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(x)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">16</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">402</td>
-                    <td class="coverage">163<em>x</em></td>
+                    <td class="num">17</td>
+                    <td class="coverage">1842<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  p_hat &lt;- mean(rsp)</pre>
+                      <pre class="language-r">  if (finite) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">403</td>
-                    <td class="coverage">163<em>x</em></td>
+                    <td class="num">18</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  z &lt;- stats::qnorm((1 + conf_level) / 2)</pre>
+                      <pre class="language-r">    x &lt;- x[is.finite(x)] # removes NAs too</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">404</td>
-                    <td class="coverage">163<em>x</em></td>
+                    <td class="num">19</td>
+                    <td class="coverage">1818<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  q_hat &lt;- 1 - p_hat</pre>
+                      <pre class="language-r">  } else if (na.rm) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">405</td>
-                    <td class="coverage">163<em>x</em></td>
+                    <td class="num">20</td>
+                    <td class="coverage">708<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  correct &lt;- if (correct) 1 / (2 * n) else 0</pre>
+                      <pre class="language-r">    x &lt;- x[!is.na(x)]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">406</td>
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">407</td>
-                    <td class="coverage">163<em>x</em></td>
+                    <td class="num">23</td>
+                    <td class="coverage">1842<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  err &lt;- z * sqrt(p_hat * q_hat) / sqrt(n) + correct</pre>
+                      <pre class="language-r">  if (length(x) == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">408</td>
-                    <td class="coverage">163<em>x</em></td>
+                    <td class="num">24</td>
+                    <td class="coverage">111<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  l_ci &lt;- max(0, p_hat - err)</pre>
+                      <pre class="language-r">    rval &lt;- c(NA, NA)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">409</td>
-                    <td class="coverage">163<em>x</em></td>
+                    <td class="num">25</td>
+                    <td class="coverage">111<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  u_ci &lt;- min(1, p_hat + err)</pre>
+                      <pre class="language-r">    mode(rval) &lt;- typeof(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">410</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">411</td>
-                    <td class="coverage">163<em>x</em></td>
+                    <td class="num">27</td>
+                    <td class="coverage">1731<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  c(l_ci, u_ci)</pre>
+                      <pre class="language-r">    rval &lt;- c(min(x, na.rm = FALSE), max(x, na.rm = FALSE))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">412</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">413</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">414</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">30</td>
+                    <td class="coverage">1842<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_proportions Calculates the Agresti-Coull interval. Constructed (for 95% CI) by adding two successes</pre>
+                      <pre class="language-r">  return(rval)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">415</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and two failures to the data and then using the Wald formula to construct a CI.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">416</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">417</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' Utility function to create label for confidence interval</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">418</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' prop_agresti_coull(rsp, conf_level = 0.95)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">419</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">420</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">421</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">prop_agresti_coull &lt;- function(rsp, conf_level) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">422</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  n &lt;- length(rsp)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">423</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  x_sum &lt;- sum(rsp)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">424</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  z &lt;- stats::qnorm((1 + conf_level) / 2)</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">425</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">426</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Add here both z^2 / 2 successes and failures.</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">427</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  x_sum_tilde &lt;- x_sum + z^2 / 2</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">428</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  n_tilde &lt;- n + z^2</pre>
+                      <pre class="language-r">#' @return A `string`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">429</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">430</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Then proceed as with the Wald interval.</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">431</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  p_tilde &lt;- x_sum_tilde / n_tilde</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">432</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  q_tilde &lt;- 1 - p_tilde</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">433</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  err &lt;- z * sqrt(p_tilde * q_tilde) / sqrt(n_tilde)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">434</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">42</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  l_ci &lt;- max(0, p_tilde - err)</pre>
+                      <pre class="language-r">f_conf_level &lt;- function(conf_level) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">435</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  u_ci &lt;- min(1, p_tilde + err)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">436</td>
-                    <td class="coverage"></td>
+                    <td class="num">43</td>
+                    <td class="coverage">3860<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  assert_proportion_value(conf_level)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">437</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">44</td>
+                    <td class="coverage">3858<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  c(l_ci, u_ci)</pre>
+                      <pre class="language-r">  paste0(conf_level * 100, "% CI")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">438</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">439</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">440</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_proportions Calculates the Jeffreys interval, an equal-tailed interval based on the</pre>
+                      <pre class="language-r">#' Utility function to create label for p-value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">441</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   non-informative Jeffreys prior for a binomial proportion.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">442</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">443</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">444</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' prop_jeffreys(rsp, conf_level = 0.95)</pre>
+                      <pre class="language-r">#' @param test_mean (`numeric(1)`)\cr mean value to test under the null hypothesis.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">445</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">446</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @return A `string`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">447</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">prop_jeffreys &lt;- function(rsp,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">448</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          conf_level) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">449</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  n &lt;- length(rsp)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">450</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  x_sum &lt;- sum(rsp)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">451</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">f_pval &lt;- function(test_mean) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">452</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">57</td>
+                    <td class="coverage">1103<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  alpha &lt;- 1 - conf_level</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(test_mean, len = 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">453</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">58</td>
+                    <td class="coverage">1101<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  l_ci &lt;- ifelse(</pre>
+                      <pre class="language-r">  paste0("p-value (H0: mean = ", test_mean, ")")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">454</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">59</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_sum == 0,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">455</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">60</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    0,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">456</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">61</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stats::qbeta(alpha / 2, x_sum + 0.5, n - x_sum + 0.5)</pre>
+                      <pre class="language-r">#' Utility function to return a named list of covariate names</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">457</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">458</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param covariates (`character`)\cr a vector that can contain single variable names (such as</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">459</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">64</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  u_ci &lt;- ifelse(</pre>
+                      <pre class="language-r">#'   `"X1"`), and/or interaction terms indicated by `"X1 * X2"`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">460</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">65</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_sum == n,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">461</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">66</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    1,</pre>
+                      <pre class="language-r">#' @return A named `list` of `character` vector.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">462</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">67</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stats::qbeta(1 - alpha / 2, x_sum + 0.5, n - x_sum + 0.5)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">463</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">464</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">get_covariates &lt;- function(covariates) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">465</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">70</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  c(l_ci, u_ci)</pre>
+                      <pre class="language-r">  checkmate::assert_character(covariates)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">466</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">71</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  cov_vars &lt;- unique(trimws(unlist(strsplit(covariates, "\\*"))))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">467</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">72</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  stats::setNames(as.list(cov_vars), cov_vars)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">468</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Description of the proportion summary</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">469</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">470</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' Replicate entries of a vector if required</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">471</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">472</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This is a helper function that describes the analysis in [s_proportion()].</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">473</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">474</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams s_proportion</pre>
+                      <pre class="language-r">#' Replicate entries of a vector if required.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">475</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param long (`flag`)\cr whether a long or a short (default) description is required.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">476</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">477</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return String describing the analysis.</pre>
+                      <pre class="language-r">#' @param n (`integer(1)`)\cr number of entries that are needed.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">478</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">479</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @return `x` if it has the required length already or is `NULL`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">480</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">d_proportion &lt;- function(conf_level,</pre>
+                      <pre class="language-r">#'   otherwise if it is scalar the replicated version of it with `n` entries.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">481</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         method,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">482</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         long = FALSE) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">483</td>
-                    <td class="coverage">179<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  label &lt;- paste0(conf_level * 100, "% CI")</pre>
+                      <pre class="language-r">#' @note This function will fail if `x` is not of length `n` and/or is not a scalar.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">484</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">485</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">89</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (long) label &lt;- paste(label, "for Response Rates")</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">486</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">to_n &lt;- function(x, n) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">487</td>
-                    <td class="coverage">179<em>x</em></td>
+                    <td class="num">91</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  method_part &lt;- switch(method,</pre>
+                      <pre class="language-r">  if (is.null(x)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">488</td>
-                    <td class="coverage">179<em>x</em></td>
+                    <td class="num">92</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "clopper-pearson" = "Clopper-Pearson",</pre>
+                      <pre class="language-r">    NULL</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">489</td>
-                    <td class="coverage">179<em>x</em></td>
+                    <td class="num">93</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "waldcc" = "Wald, with correction",</pre>
+                      <pre class="language-r">  } else if (length(x) == 1) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">490</td>
-                    <td class="coverage">179<em>x</em></td>
+                    <td class="num">94</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "wald" = "Wald, without correction",</pre>
+                      <pre class="language-r">    rep(x, n)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">491</td>
-                    <td class="coverage">179<em>x</em></td>
+                    <td class="num">95</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "wilson" = "Wilson, without correction",</pre>
+                      <pre class="language-r">  } else if (length(x) == n) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">492</td>
-                    <td class="coverage">179<em>x</em></td>
+                    <td class="num">96</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "strat_wilson" = "Stratified Wilson, without correction",</pre>
+                      <pre class="language-r">    x</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">493</td>
-                    <td class="coverage">179<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">97</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "wilsonc" = "Wilson, with correction",</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">494</td>
-                    <td class="coverage">179<em>x</em></td>
+                    <td class="num">98</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "strat_wilsonc" = "Stratified Wilson, with correction",</pre>
+                      <pre class="language-r">    stop("dimension mismatch")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">495</td>
-                    <td class="coverage">179<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">99</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "agresti-coull" = "Agresti-Coull",</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">496</td>
-                    <td class="coverage">179<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">100</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "jeffreys" = "Jeffreys",</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">497</td>
-                    <td class="coverage">179<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">101</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop(paste(method, "does not have a description"))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">498</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' Check element dimension</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">499</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">500</td>
-                    <td class="coverage">179<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">104</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  paste0(label, " (", method_part, ")")</pre>
+                      <pre class="language-r">#' Checks if the elements in `...` have the same dimension.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">501</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">502</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param ... (`data.frame` or `vector`)\cr any data frames or vectors.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">503</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function for the estimation of stratified quantiles</pre>
+                      <pre class="language-r">#' @param omit_null (`flag`)\cr whether `NULL` elements in `...` should be omitted from the check.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">504</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">505</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' @return A `logical` value.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">506</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">507</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function wraps the estimation of stratified percentiles when we assume</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">508</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the approximation for large numbers. This is necessary only in the case</pre>
+                      <pre class="language-r">check_same_n &lt;- function(..., omit_null = TRUE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">509</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">113</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' proportions for each strata are unequal.</pre>
+                      <pre class="language-r">  dots &lt;- list(...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">510</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">511</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">115</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">  n_list &lt;- Map(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">512</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">116</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams prop_strat_wilson</pre>
+                      <pre class="language-r">    function(x, name) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">513</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">117</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      if (is.null(x)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">514</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">118</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Stratified quantile.</pre>
+                      <pre class="language-r">        if (omit_null) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">515</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">119</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          NA_integer_</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">516</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [prop_strat_wilson()]</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">517</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">121</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          stop("arg", name, "is not supposed to be NULL")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">518</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">519</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">123</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' strata_data &lt;- table(data.frame(</pre>
+                      <pre class="language-r">      } else if (is.data.frame(x)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">520</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">124</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "f1" = sample(c(TRUE, FALSE), 100, TRUE),</pre>
+                      <pre class="language-r">        nrow(x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">521</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">125</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "f2" = sample(c("x", "y", "z"), 100, TRUE),</pre>
+                      <pre class="language-r">      } else if (is.atomic(x)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">522</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">126</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   stringsAsFactors = TRUE</pre>
+                      <pre class="language-r">        length(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">523</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ))</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">524</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">128</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ns &lt;- colSums(strata_data)</pre>
+                      <pre class="language-r">        stop("data structure for ", name, "is currently not supported")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">525</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ests &lt;- strata_data["TRUE", ] / ns</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">526</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' vars &lt;- ests * (1 - ests) / ns</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">527</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">131</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' weights &lt;- rep(1 / length(ns), length(ns))</pre>
+                      <pre class="language-r">    dots, names(dots)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">528</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">529</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' strata_normal_quantile(vars, weights, 0.95)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">530</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">134</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  n &lt;- stats::na.omit(unlist(n_list))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">531</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">532</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">136</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">strata_normal_quantile &lt;- function(vars, weights, conf_level) {</pre>
+                      <pre class="language-r">  if (length(unique(n)) &gt; 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">533</td>
-                    <td class="coverage">43<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">137</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  summands &lt;- weights^2 * vars</pre>
+                      <pre class="language-r">    sel &lt;- which(n != n[1])</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">138</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    stop("Dimension mismatch:", paste(names(n)[sel], collapse = ", "), " do not have N=", n[1])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">534</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Stratified quantile</pre>
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">140</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">535</td>
-                    <td class="coverage">43<em>x</em></td>
+                    <td class="num">141</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  sqrt(sum(summands)) / sum(sqrt(summands)) * stats::qnorm((1 + conf_level) / 2)</pre>
+                      <pre class="language-r">  TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">536</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">537</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">538</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function for the estimation of weights for `prop_strat_wilson()`</pre>
+                      <pre class="language-r">#' Utility function to check if a float value is equal to another float value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">539</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">540</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' Uses `.Machine$double.eps` as the tolerance for the comparison.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">541</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">542</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function wraps the iteration procedure that allows you to estimate</pre>
+                      <pre class="language-r">#' @param x (`numeric(1)`)\cr a float number.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">543</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the weights for each proportional strata. This assumes to minimize the</pre>
+                      <pre class="language-r">#' @param y (`numeric(1)`)\cr a float number.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">544</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' weighted squared length of the confidence interval.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">545</td>
+                    <td class="num">151</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @return `TRUE` if identical, otherwise `FALSE`.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">546</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams prop_strat_wilson</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">547</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param vars (`numeric`)\cr normalized proportions for each strata.</pre>
+                      <pre class="language-r">.is_equal_float &lt;- function(x, y) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">155</td>
+                    <td class="coverage">2820<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_number(x)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">156</td>
+                    <td class="coverage">2820<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_number(y)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">548</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param strata_qnorm (`numeric(1)`)\cr initial estimation with identical weights of the quantiles.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">549</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param initial_weights (`numeric`)\cr initial weights used to calculate `strata_qnorm`. This can</pre>
+                      <pre class="language-r">  # Define a tolerance</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">159</td>
+                    <td class="coverage">2820<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  tolerance &lt;- .Machine$double.eps</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">550</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   be optimized in the future if we need to estimate better initial weights.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">551</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param n_per_strata (`numeric`)\cr number of elements in each strata.</pre>
+                      <pre class="language-r">  # Check if x is close enough to y</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">162</td>
+                    <td class="coverage">2820<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  abs(x - y) &lt; tolerance</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">552</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param max_iterations (`integer(1)`)\cr maximum number of iterations to be tried. Convergence is always checked.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">553</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param tol (`numeric(1)`)\cr tolerance threshold for convergence.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">554</td>
+                    <td class="num">165</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' Make names without dots</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">555</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `list` of 3 elements: `n_it`, `weights`, and `diff_v`.</pre>
+                      <pre class="language-r">#' @param nams (`character`)\cr vector of original names.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">556</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">557</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso For references and details see [prop_strat_wilson()].</pre>
+                      <pre class="language-r">#' @return A `character` `vector` of proper names, which does not use dots in contrast to [make.names()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">558</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">559</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">560</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' vs &lt;- c(0.011, 0.013, 0.012, 0.014, 0.017, 0.018)</pre>
+                      <pre class="language-r">make_names &lt;- function(nams) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">173</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  orig &lt;- make.names(nams)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">174</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  gsub(".", "", x = orig, fixed = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">561</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' sq &lt;- 0.674</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">562</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ws &lt;- rep(1 / length(vs), length(vs))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">563</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ns &lt;- c(22, 18, 17, 17, 14, 12)</pre>
+                      <pre class="language-r">#' Conversion of months to days</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">564</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">565</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' update_weights_strat_wilson(vs, sq, ws, ns, 100, 0.95, 0.001)</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">566</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">567</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' Conversion of months to days. This is an approximative calculation because it</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">568</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">update_weights_strat_wilson &lt;- function(vars,</pre>
+                      <pre class="language-r">#' considers each month as having an average of 30.4375 days.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">569</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        strata_qnorm,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">570</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        initial_weights,</pre>
+                      <pre class="language-r">#' @param x (`numeric(1)`)\cr time in months.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">571</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        n_per_strata,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">572</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        max_iterations = 50,</pre>
+                      <pre class="language-r">#' @return A `numeric` vector with the time in days.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">573</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        conf_level = 0.95,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">574</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        tol = 0.001) {</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">575</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">189</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  it &lt;- 0</pre>
+                      <pre class="language-r">#' x &lt;- c(13.25, 8.15, 1, 2.834)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">576</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">190</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  diff_v &lt;- NULL</pre>
+                      <pre class="language-r">#' month2day(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">577</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">578</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">192</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  while (it &lt; max_iterations) {</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">579</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">193</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    it &lt;- it + 1</pre>
+                      <pre class="language-r">month2day &lt;- function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">580</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">194</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    weights_new_t &lt;- (1 + strata_qnorm^2 / n_per_strata)^2</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">581</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">195</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    weights_new_b &lt;- (vars + strata_qnorm^2 / (4 * n_per_strata^2))</pre>
+                      <pre class="language-r">  x * 30.4375</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">582</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">196</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    weights_new &lt;- weights_new_t / weights_new_b</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">583</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">197</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    weights_new &lt;- weights_new / sum(weights_new)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">584</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">198</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    strata_qnorm &lt;- strata_normal_quantile(vars, weights_new, conf_level)</pre>
+                      <pre class="language-r">#' Conversion of days to months</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">585</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">199</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    diff_v &lt;- c(diff_v, sum(abs(weights_new - initial_weights)))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">586</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">200</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (diff_v[length(diff_v)] &lt; tol) break</pre>
+                      <pre class="language-r">#' @param x (`numeric(1)`)\cr time in days.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">587</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">201</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    initial_weights &lt;- weights_new</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">588</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @return A `numeric` vector with the time in months.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">589</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">590</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">204</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (it == max_iterations) {</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">591</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">205</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning("The heuristic to find weights did not converge with max_iterations = ", max_iterations)</pre>
+                      <pre class="language-r">#' x &lt;- c(403, 248, 30, 86)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">592</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' day2month(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">593</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">594</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">208</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">595</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">209</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "n_it" = it,</pre>
+                      <pre class="language-r">day2month &lt;- function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">596</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">210</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "weights" = weights_new,</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">597</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">211</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "diff_v" = diff_v</pre>
+                      <pre class="language-r">  x / 30.4375</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">598</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">599</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/h_step.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper functions for subgroup treatment effect pattern (STEP) calculations</pre>
+                      <pre class="language-r">#' Return an empty numeric if all elements are `NA`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' @param x (`numeric`)\cr vector.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper functions that are used internally for the STEP calculations.</pre>
+                      <pre class="language-r">#' @return An empty `numeric` if all elements of `x` are `NA`, otherwise `x`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' x &lt;- c(NA, NA, NA)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name h_step</pre>
+                      <pre class="language-r">#' # Internal function - empty_vector_if_na</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @include control_step.R</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">empty_vector_if_na &lt;- function(x) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">225</td>
+                    <td class="coverage">1017<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (all(is.na(x))) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">226</td>
+                    <td class="coverage">310<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    numeric()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">228</td>
+                    <td class="coverage">707<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    x</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_step Creates the windows for STEP, based on the control settings</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   provided.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">231</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">232</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' Element-wise combination of two vectors</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`numeric`)\cr biomarker value(s) to use (without `NA`).</pre>
+                      <pre class="language-r">#' @param x (`vector`)\cr first vector to combine.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param control (named `list`)\cr output from `control_step()`.</pre>
+                      <pre class="language-r">#' @param y (`vector`)\cr second vector to combine.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' @return A `list` where each element combines corresponding elements of `x` and `y`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">238</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_step_window()` returns a list containing the window-selection matrix `sel`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and the interval information matrix `interval`.</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' combine_vectors(1:3, 4:6)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_step_window &lt;- function(x,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          control = control_step()) {</pre>
+                      <pre class="language-r">combine_vectors &lt;- function(x, y) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">26</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">244</td>
+                    <td class="coverage">51<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(x, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">  checkmate::assert_vector(x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">27</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">245</td>
+                    <td class="coverage">51<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(control, names = "named")</pre>
+                      <pre class="language-r">  checkmate::assert_vector(y, len = length(x))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">29</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">247</td>
+                    <td class="coverage">51<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  sel &lt;- matrix(FALSE, length(x), control$num_points)</pre>
+                      <pre class="language-r">  result &lt;- lapply(as.data.frame(rbind(x, y)), `c`)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">30</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">248</td>
+                    <td class="coverage">51<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  out &lt;- matrix(0, control$num_points, 3)</pre>
+                      <pre class="language-r">  names(result) &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">31</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">249</td>
+                    <td class="coverage">51<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  colnames(out) &lt;- paste("Interval", c("Center", "Lower", "Upper"))</pre>
+                      <pre class="language-r">  result</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">32</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">250</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (control$use_percentile) {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Create windows according to percentile cutoffs.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">34</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">252</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    out &lt;- cbind(out, out)</pre>
+                      <pre class="language-r">#' Extract elements by name</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">35</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">253</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    colnames(out)[1:3] &lt;- paste("Percentile", c("Center", "Lower", "Upper"))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">36</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">254</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xs &lt;- seq(0, 1, length.out = control$num_points + 2)[-1]</pre>
+                      <pre class="language-r">#' This utility function extracts elements from a vector `x` by `names`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">37</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">255</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    for (i in seq_len(control$num_points)) {</pre>
+                      <pre class="language-r">#' Differences to the standard `[` function are:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">38</td>
-                    <td class="coverage">185<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">256</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      out[i, 2:3] &lt;- c(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">39</td>
-                    <td class="coverage">185<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">257</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        max(xs[i] - control$bandwidth, 0),</pre>
+                      <pre class="language-r">#' - If `x` is `NULL`, then still always `NULL` is returned (same as in base function).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">40</td>
-                    <td class="coverage">185<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">258</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        min(xs[i] + control$bandwidth, 1)</pre>
+                      <pre class="language-r">#' - If `x` is not `NULL`, then the intersection of its names is made with `names` and those</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'   elements are returned. That is, `names` which don't appear in `x` are not returned as `NA`s.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">42</td>
-                    <td class="coverage">185<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">260</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      out[i, 5:6] &lt;- stats::quantile(x, out[i, 2:3])</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">43</td>
-                    <td class="coverage">185<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">261</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sel[, i] &lt;- x &gt;= out[i, 5] &amp; x &lt;= out[i, 6]</pre>
+                      <pre class="language-r">#' @param x (named `vector`)\cr where to extract named elements from.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">262</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' @param names (`character`)\cr vector of names to extract.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Center is the middle point of the percentile window.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">46</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">264</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    out[, 1] &lt;- xs[-control$num_points - 1]</pre>
+                      <pre class="language-r">#' @return `NULL` if `x` is `NULL`, otherwise the extracted elements from `x`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">47</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">265</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    out[, 4] &lt;- stats::quantile(x, out[, 1])</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">266</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">267</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Create windows according to cutoffs.</pre>
+                      <pre class="language-r">extract_by_name &lt;- function(x, names) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">50</td>
+                    <td class="num">268</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    m &lt;- c(min(x), max(x))</pre>
+                      <pre class="language-r">  if (is.null(x)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">51</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">269</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xs &lt;- seq(m[1], m[2], length.out = control$num_points + 2)[-1]</pre>
+                      <pre class="language-r">    return(NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">52</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">270</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    for (i in seq_len(control$num_points)) {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">53</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">271</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      out[i, 2:3] &lt;- c(</pre>
+                      <pre class="language-r">  checkmate::assert_named(x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">54</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">272</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        max(xs[i] - control$bandwidth, m[1]),</pre>
+                      <pre class="language-r">  checkmate::assert_character(names)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">55</td>
-                    <td class="coverage">11<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        min(xs[i] + control$bandwidth, m[2])</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                    <td class="num">273</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  which_extract &lt;- intersect(names(x), names)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">274</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sel[, i] &lt;- x &gt;= out[i, 2] &amp; x &lt;= out[i, 3]</pre>
+                      <pre class="language-r">  if (length(which_extract) &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">275</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    x[which_extract]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">276</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Center is the same as the point for predicting.</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">277</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    out[, 1] &lt;- xs[-control$num_points - 1]</pre>
+                      <pre class="language-r">    NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">12<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  list(sel = sel, interval = out)</pre>
-                    </td>
-                  </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">279</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">280</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">281</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_step Calculates the estimated treatment effect estimate</pre>
+                      <pre class="language-r">#' Labels for adverse event baskets</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">282</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   on the linear predictor scale and corresponding standard error from a STEP `model` fitted</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">283</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   on `data` given `variables` specification, for a single biomarker value `x`.</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   This works for both `coxph` and `glm` models, i.e. for calculating log hazard ratio or log odds</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ratio estimates.</pre>
+                      <pre class="language-r">#' @param aesi (`character`)\cr vector with standardized MedDRA query name (e.g. `SMQxxNAM`) or customized query</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   name (e.g. `CQxxNAM`).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param model (`coxph` or `glm`)\cr the regression model object.</pre>
+                      <pre class="language-r">#' @param scope (`character`)\cr vector with scope of query (e.g. `SMQxxSC`).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">288</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">289</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' @return A `string` with the standard label for the AE basket.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_step_trt_effect()` returns a vector with elements `est` and `se`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">292</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' adae &lt;- tern_ex_adae</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_step_trt_effect &lt;- function(data,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              model,</pre>
+                      <pre class="language-r">#' # Standardized query label includes scope.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">295</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              variables,</pre>
+                      <pre class="language-r">#' aesi_label(adae$SMQ01NAM, scope = adae$SMQ01SC)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">296</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              x) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">208<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(model, c("coxph", "glm"))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">82</td>
-                    <td class="coverage">208<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(x)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">83</td>
-                    <td class="coverage">208<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">297</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(data, variables)</pre>
+                      <pre class="language-r">#' # Customized query label.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">208<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">298</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_factor(data[[variables$arm]], n.levels = 2)</pre>
+                      <pre class="language-r">#' aesi_label(adae$CQ01NAM)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">208<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">300</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  newdata &lt;- data[c(1, 1), ]</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">208<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">301</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  newdata[, variables$biomarker] &lt;- x</pre>
+                      <pre class="language-r">aesi_label &lt;- function(aesi, scope = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">88</td>
-                    <td class="coverage">208<em>x</em></td>
+                    <td class="num">302</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  newdata[, variables$arm] &lt;- levels(data[[variables$arm]])</pre>
+                      <pre class="language-r">  checkmate::assert_character(aesi)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">89</td>
-                    <td class="coverage">208<em>x</em></td>
+                    <td class="num">303</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  model_terms &lt;- stats::delete.response(stats::terms(model))</pre>
+                      <pre class="language-r">  checkmate::assert_character(scope, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">208<em>x</em></td>
+                    <td class="num">304</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  model_frame &lt;- stats::model.frame(model_terms, data = newdata, xlev = model$xlevels)</pre>
+                      <pre class="language-r">  aesi_label &lt;- obj_label(aesi)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">91</td>
-                    <td class="coverage">208<em>x</em></td>
+                    <td class="num">305</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mat &lt;- stats::model.matrix(model_terms, data = model_frame, contrasts.arg = model$contrasts)</pre>
+                      <pre class="language-r">  aesi &lt;- sas_na(aesi)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">208<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  coefs &lt;- stats::coef(model)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">93</td>
-                    <td class="coverage"></td>
+                    <td class="num">306</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Note: It is important to use the coef subset from matrix, otherwise intercept and</pre>
+                      <pre class="language-r">  aesi &lt;- unique(aesi)[!is.na(unique(aesi))]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # strata are included for coxph() models.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">208<em>x</em></td>
+                    <td class="num">308</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mat &lt;- mat[, names(coefs)]</pre>
+                      <pre class="language-r">  lbl &lt;- if (length(aesi) == 1 &amp;&amp; !is.null(scope)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">96</td>
-                    <td class="coverage">208<em>x</em></td>
+                    <td class="num">309</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mat_diff &lt;- diff(mat)</pre>
+                      <pre class="language-r">    scope &lt;- sas_na(scope)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">97</td>
-                    <td class="coverage">208<em>x</em></td>
+                    <td class="num">310</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  est &lt;- mat_diff %*% coefs</pre>
+                      <pre class="language-r">    scope &lt;- unique(scope)[!is.na(unique(scope))]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">98</td>
-                    <td class="coverage">208<em>x</em></td>
+                    <td class="num">311</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  var &lt;- mat_diff %*% stats::vcov(model) %*% t(mat_diff)</pre>
+                      <pre class="language-r">    checkmate::assert_string(scope)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">99</td>
-                    <td class="coverage">208<em>x</em></td>
+                    <td class="num">312</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  se &lt;- sqrt(var)</pre>
+                      <pre class="language-r">    paste0(aesi, " (", scope, ")")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">100</td>
-                    <td class="coverage">208<em>x</em></td>
+                    <td class="num">313</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  c(</pre>
+                      <pre class="language-r">  } else if (length(aesi) == 1 &amp;&amp; is.null(scope)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">208<em>x</em></td>
+                    <td class="num">314</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    est = est,</pre>
+                      <pre class="language-r">    aesi</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">208<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">315</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    se = se</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">103</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">316</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    aesi_label</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">317</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">318</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">106</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">319</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_step Builds the model formula used in survival STEP calculations.</pre>
+                      <pre class="language-r">  lbl</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">322</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_step_survival_formula()` returns a model formula.</pre>
+                      <pre class="language-r">#' Indicate study arm variable in formula</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">323</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">324</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' We use `study_arm` to indicate the study arm variable in `tern` formulas.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">325</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_step_survival_formula &lt;- function(variables,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">326</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    control = control_step()) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">114</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(variables$covariates, null.ok = TRUE)</pre>
+                      <pre class="language-r">#' @param x arm information</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">327</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  assert_list_of_variables(variables[c("arm", "biomarker", "event", "time")])</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  form &lt;- paste0("Surv(", variables$time, ", ", variables$event, ") ~ ", variables$arm)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">118</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (control$degree &gt; 0) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    form &lt;- paste0(form, " * stats::poly(", variables$biomarker, ", degree = ", control$degree, ", raw = TRUE)")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">328</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">121</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(variables$covariates)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">122</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    form &lt;- paste(form, "+", paste(variables$covariates, collapse = "+"))</pre>
+                      <pre class="language-r">#' @return `x`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">329</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(variables$strata)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">330</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    form &lt;- paste0(form, " + strata(", paste0(variables$strata, collapse = ", "), ")")</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">331</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">study_arm &lt;- function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">332</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  stats::as.formula(form)</pre>
+                      <pre class="language-r">  structure(x, varname = deparse(substitute(x)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">333</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">334</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">335</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_step Estimates the model with `formula` built based on</pre>
+                      <pre class="language-r">#' Smooth function with optional grouping</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">336</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `variables` in `data` for a given `subset` and `control` parameters for the</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">337</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Cox regression.</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">338</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @param formula (`formula`)\cr the regression model formula.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">339</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param subset (`logical`)\cr subset vector.</pre>
+                      <pre class="language-r">#' This produces `loess` smoothed estimates of `y` with Student confidence intervals.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">340</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">341</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' @param df (`data.frame`)\cr data set containing all analysis variables.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">342</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_step_survival_est()` returns a matrix of number of observations `n`,</pre>
+                      <pre class="language-r">#' @param x (`string`)\cr x column name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">343</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `events`, log hazard ratio estimates `loghr`, standard error `se`,</pre>
+                      <pre class="language-r">#' @param y (`string`)\cr y column name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">344</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and Wald confidence interval bounds `ci_lower` and `ci_upper`. One row is</pre>
+                      <pre class="language-r">#' @param groups (`character` or `NULL`)\cr vector with optional grouping variables names.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">345</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   included for each biomarker value in `x`.</pre>
+                      <pre class="language-r">#' @param level (`proportion`)\cr level of confidence interval to use (0.95 by default).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">346</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">347</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @return A `data.frame` with original `x`, smoothed `y`, `ylow`, and `yhigh`, and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">348</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_step_survival_est &lt;- function(formula,</pre>
+                      <pre class="language-r">#'   optional `groups` variables formatted as `factor` type.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">349</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                data,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">350</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                variables,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">351</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                x,</pre>
+                      <pre class="language-r">get_smooths &lt;- function(df, x, y, groups = NULL, level = 0.95) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">148</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">352</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                subset = rep(TRUE, nrow(data)),</pre>
+                      <pre class="language-r">  checkmate::assert_data_frame(df)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">149</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">353</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                control = control_coxph()) {</pre>
+                      <pre class="language-r">  df_cols &lt;- colnames(df)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">150</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="num">354</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_formula(formula)</pre>
+                      <pre class="language-r">  checkmate::assert_string(x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="num">355</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(data, variables)</pre>
+                      <pre class="language-r">  checkmate::assert_subset(x, df_cols)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="num">356</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_logical(subset, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(df[[x]])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">153</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="num">357</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(x, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">  checkmate::assert_string(y)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">154</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="num">358</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(control, names = "named")</pre>
+                      <pre class="language-r">  checkmate::assert_subset(y, df_cols)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">155</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">359</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  checkmate::assert_numeric(df[[y]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">360</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Note: `subset` in `coxph` needs to be an expression referring to `data` variables.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="num">361</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data$.subset &lt;- subset</pre>
+                      <pre class="language-r">  if (!is.null(groups)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="num">362</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  coxph_warnings &lt;- NULL</pre>
+                      <pre class="language-r">    checkmate::assert_character(groups)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="num">363</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tryCatch(</pre>
+                      <pre class="language-r">    checkmate::assert_subset(groups, df_cols)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">160</td>
-                    <td class="coverage">55<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">364</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    withCallingHandlers(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">55<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">365</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      expr = {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="num">366</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        fit &lt;- survival::coxph(</pre>
+                      <pre class="language-r">  smooths &lt;- function(x, y) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="num">367</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          formula = formula,</pre>
+                      <pre class="language-r">    stats::predict(stats::loess(y ~ x), se = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">55<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">368</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          data = data,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">55<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">369</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          subset = .subset,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">55<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          ties = control$ties</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">167</td>
-                    <td class="coverage"></td>
+                    <td class="num">370</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">  if (!is.null(groups)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">168</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">371</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r">    cc &lt;- stats::complete.cases(df[c(x, y, groups)])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="num">372</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      warning = function(w) {</pre>
+                      <pre class="language-r">    df_c &lt;- df[cc, c(x, y, groups)]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">373</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        coxph_warnings &lt;&lt;- c(coxph_warnings, w)</pre>
+                      <pre class="language-r">    df_c_ordered &lt;- df_c[do.call("order", as.list(df_c[, groups, drop = FALSE])), , drop = FALSE]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">374</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        invokeRestart("muffleWarning")</pre>
+                      <pre class="language-r">    df_c_g &lt;- data.frame(Map(as.factor, df_c_ordered[groups]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">375</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">173</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">376</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">    df_smooth_raw &lt;-</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="num">377</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    finally = {</pre>
+                      <pre class="language-r">      by(df_c_ordered, df_c_g, function(d) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">175</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">378</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">        plx &lt;- smooths(d[[x]], d[[y]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">176</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">379</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">177</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="num">380</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(coxph_warnings)) {</pre>
+                      <pre class="language-r">          x = d[[x]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">381</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning(paste(</pre>
+                      <pre class="language-r">          y = plx$fit,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">382</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Fit warnings occurred, please consider using a simpler model, or",</pre>
+                      <pre class="language-r">          ylow = plx$fit - stats::qt(level, plx$df) * plx$se.fit,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">383</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "larger `bandwidth`, less `num_points` in `control_step()` settings"</pre>
+                      <pre class="language-r">          yhigh = plx$fit + stats::qt(level, plx$df) * plx$se.fit</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">384</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">385</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">386</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Produce a matrix with one row per `x` and columns `est` and `se`.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="num">387</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  estimates &lt;- t(vapply(</pre>
+                      <pre class="language-r">    df_smooth &lt;- do.call(rbind, df_smooth_raw)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="num">388</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    X = x,</pre>
+                      <pre class="language-r">    df_smooth[groups] &lt;- df_c_g</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">55<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">389</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    FUN = h_step_trt_effect,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="num">390</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    FUN.VALUE = c(1, 2),</pre>
+                      <pre class="language-r">    df_smooth</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">391</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="num">392</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data = data,</pre>
+                      <pre class="language-r">    cc &lt;- stats::complete.cases(df[c(x, y)])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="num">393</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    model = fit,</pre>
+                      <pre class="language-r">    df_c &lt;- df[cc, ]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="num">394</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    variables = variables</pre>
+                      <pre class="language-r">    plx &lt;- smooths(df_c[[x]], df_c[[y]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">395</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="num">396</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  q_norm &lt;- stats::qnorm((1 + control$conf_level) / 2)</pre>
+                      <pre class="language-r">    df_smooth &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">193</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="num">397</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  cbind(</pre>
+                      <pre class="language-r">      x = df_c[[x]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">194</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="num">398</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n = fit$n,</pre>
+                      <pre class="language-r">      y = plx$fit,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="num">399</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    events = fit$nevent,</pre>
+                      <pre class="language-r">      ylow = plx$fit - stats::qt(level, plx$df) * plx$se.fit,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="num">400</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    loghr = estimates[, "est"],</pre>
+                      <pre class="language-r">      yhigh = plx$fit + stats::qt(level, plx$df) * plx$se.fit</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">197</td>
-                    <td class="coverage">55<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">401</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    se = estimates[, "se"],</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">198</td>
-                    <td class="coverage">55<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">402</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ci_lower = estimates[, "est"] - q_norm * estimates[, "se"],</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="num">403</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ci_upper = estimates[, "est"] + q_norm * estimates[, "se"]</pre>
+                      <pre class="language-r">    df_smooth</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">404</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">405</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">406</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">407</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_step Builds the model formula used in response STEP calculations.</pre>
+                      <pre class="language-r">#' Number of available (non-missing entries) in a vector</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">408</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">205</td>
+                    <td class="num">409</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' Small utility function for better readability.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">410</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_step_rsp_formula()` returns a model formula.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">411</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @param x (`vector`)\cr vector in which to count non-missing values.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">412</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">413</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @return Number of non-missing values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">414</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_step_rsp_formula &lt;- function(variables,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">415</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               control = c(control_step(), control_logistic())) {</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">416</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(variables$covariates, null.ok = TRUE)</pre>
+                      <pre class="language-r">n_available &lt;- function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">212</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">417</td>
+                    <td class="coverage">351<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_list_of_variables(variables[c("arm", "biomarker", "response")])</pre>
+                      <pre class="language-r">  sum(!is.na(x))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">418</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  response_definition &lt;- sub(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">214</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">419</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pattern = "response",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">420</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    replacement = variables$response,</pre>
+                      <pre class="language-r">#' Reapply variable labels</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">216</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">421</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = control$response_definition,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">217</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">422</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    fixed = TRUE</pre>
+                      <pre class="language-r">#' This is a helper function that is used in tests.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">218</td>
+                    <td class="num">423</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">424</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  form &lt;- paste0(response_definition, " ~ ", variables$arm)</pre>
+                      <pre class="language-r">#' @param x (`vector`)\cr vector of elements that needs new labels.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">425</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (control$degree &gt; 0) {</pre>
+                      <pre class="language-r">#' @param varlabels (`character`)\cr vector of labels for `x`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">221</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">426</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    form &lt;- paste0(form, " * stats::poly(", variables$biomarker, ", degree = ", control$degree, ", raw = TRUE)")</pre>
+                      <pre class="language-r">#' @param ... further parameters to be added to the list.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</td>
+                    <td class="num">427</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">428</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(variables$covariates)) {</pre>
+                      <pre class="language-r">#' @return `x` with variable labels reapplied.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">429</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    form &lt;- paste(form, "+", paste(variables$covariates, collapse = "+"))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">430</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @export</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">431</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">reapply_varlabels &lt;- function(x, varlabels, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">432</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(variables$strata)) {</pre>
+                      <pre class="language-r">  named_labels &lt;- c(as.list(varlabels), list(...))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">433</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    strata_arg &lt;- if (length(variables$strata) &gt; 1) {</pre>
+                      <pre class="language-r">  formatters::var_labels(x)[names(named_labels)] &lt;- as.character(named_labels)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">434</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      paste0("I(interaction(", paste0(variables$strata, collapse = ", "), "))")</pre>
+                      <pre class="language-r">  x</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</td>
+                    <td class="num">435</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">436</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      variables$strata</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">231</td>
+                    <td class="num">437</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r"># Wrapper function of survival::clogit so that when model fitting failed, a more useful message would show</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">438</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    form &lt;- paste0(form, "+ strata(", strata_arg, ")")</pre>
+                      <pre class="language-r">clogit_with_tryCatch &lt;- function(formula, data, ...) { # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">233</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">439</td>
+                    <td class="coverage">33<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  tryCatch(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">440</td>
+                    <td class="coverage">33<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  stats::as.formula(form)</pre>
+                      <pre class="language-r">    survival::clogit(formula = formula, data = data, ...),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">235</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">441</td>
+                    <td class="coverage">33<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    error = function(e) stop("model not built successfully with survival::clogit")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">442</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">237</td>
+                    <td class="num">443</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_step Estimates the model with `formula` built based on</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/g_forest.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">238</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `variables` in `data` for a given `subset` and `control` parameters for the</pre>
+                      <pre class="language-r">#' Create a forest plot from an `rtable`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   logistic regression.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Given a [rtables::rtable()] object with at least one column with a single value and one column with 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">241</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param formula (`formula`)\cr the regression model formula.</pre>
+                      <pre class="language-r">#' values, converts table to a [ggplot2::ggplot()] object and generates an accompanying forest plot. The</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">242</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param subset (`logical`)\cr subset vector.</pre>
+                      <pre class="language-r">#' table and forest plot are printed side-by-side.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_step_rsp_est()` returns a matrix of number of observations `n`, log odds</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ratio estimates `logor`, standard error `se`, and Wald confidence interval bounds</pre>
+                      <pre class="language-r">#' @inheritParams rtable2gg</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">247</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `ci_lower` and `ci_upper`. One row is included for each biomarker value in `x`.</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param tbl (`VTableTree`)\cr `rtables` table with at least one column with a single value and one column with 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">249</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'   values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">250</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_step_rsp_est &lt;- function(formula,</pre>
+                      <pre class="language-r">#' @param col_x (`integer(1)` or `NULL`)\cr column index with estimator. By default tries to get this from</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           data,</pre>
+                      <pre class="language-r">#'   `tbl` attribute `col_x`, otherwise needs to be manually specified. If `NULL`, points will be excluded</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           variables,</pre>
+                      <pre class="language-r">#'   from forest plot.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">253</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           x,</pre>
+                      <pre class="language-r">#' @param col_ci (`integer(1)` or `NULL`)\cr column index with confidence intervals. By default tries to get this from</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           subset = rep(TRUE, nrow(data)),</pre>
+                      <pre class="language-r">#'   `tbl` attribute `col_ci`, otherwise needs to be manually specified. If `NULL`, lines will be excluded</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">255</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           control = control_logistic()) {</pre>
+                      <pre class="language-r">#'   from forest plot.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">256</td>
-                    <td class="coverage">58<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_formula(formula)</pre>
+                      <pre class="language-r">#' @param vline (`numeric(1)` or `NULL`)\cr x coordinate for vertical line, if `NULL` then the line is omitted.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">257</td>
-                    <td class="coverage">58<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">20</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(data, variables)</pre>
+                      <pre class="language-r">#' @param forest_header (`character(2)`)\cr text displayed to the left and right of `vline`, respectively.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">258</td>
-                    <td class="coverage">58<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_logical(subset, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">#'   If `vline = NULL` then `forest_header` is not printed. By default tries to get this from `tbl` attribute</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">259</td>
-                    <td class="coverage">58<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">22</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(x, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">#'   `forest_header`. If `NULL`, defaults will be extracted from the table if possible, and set to</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">260</td>
-                    <td class="coverage">58<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">23</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(control, names = "named")</pre>
+                      <pre class="language-r">#'   `"Comparison\nBetter"` and `"Treatment\nBetter"` if not.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">261</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Note: `subset` in `glm` needs to be an expression referring to `data` variables.</pre>
+                      <pre class="language-r">#' @param xlim (`numeric(2)`)\cr limits for x axis.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">262</td>
-                    <td class="coverage">58<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">25</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data$.subset &lt;- subset</pre>
+                      <pre class="language-r">#' @param logx (`flag`)\cr show the x-values on logarithm scale.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">263</td>
-                    <td class="coverage">58<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">26</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  fit_warnings &lt;- NULL</pre>
+                      <pre class="language-r">#' @param x_at (`numeric`)\cr x-tick locations, if `NULL`, `x_at` is set to `vline` and both `xlim` values.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">264</td>
-                    <td class="coverage">58<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">27</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tryCatch(</pre>
+                      <pre class="language-r">#' @param width_row_names `r lifecycle::badge("deprecated")` Please use the `lbl_col_padding` argument instead.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">265</td>
-                    <td class="coverage">58<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">28</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    withCallingHandlers(</pre>
+                      <pre class="language-r">#' @param width_columns (`numeric`)\cr a vector of column widths. Each element's position in</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">266</td>
-                    <td class="coverage">58<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">29</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      expr = {</pre>
+                      <pre class="language-r">#'   `colwidths` corresponds to the column of `tbl` in the same position. If `NULL`, column widths are calculated</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">267</td>
-                    <td class="coverage">58<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">30</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        fit &lt;- if (is.null(variables$strata)) {</pre>
+                      <pre class="language-r">#'   according to maximum number of characters per column.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">268</td>
-                    <td class="coverage">54<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">31</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          stats::glm(</pre>
+                      <pre class="language-r">#' @param width_forest `r lifecycle::badge("deprecated")` Please use the `rel_width_forest` argument instead.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">269</td>
-                    <td class="coverage">54<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">32</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            formula = formula,</pre>
+                      <pre class="language-r">#' @param rel_width_forest (`proportion`)\cr proportion of total width to allocate to the forest plot. Relative</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">270</td>
-                    <td class="coverage">54<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">33</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            data = data,</pre>
+                      <pre class="language-r">#'   width of table is then `1 - rel_width_forest`. If `as_list = TRUE`, this parameter is ignored.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">271</td>
-                    <td class="coverage">54<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">34</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            subset = .subset,</pre>
+                      <pre class="language-r">#' @param font_size (`numeric(1)`)\cr font size.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">272</td>
-                    <td class="coverage">54<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">35</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            family = stats::binomial("logit")</pre>
+                      <pre class="language-r">#' @param col_symbol_size (`numeric` or `NULL`)\cr column index from `tbl` containing data to be used</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">273</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#'   to determine relative size for estimator plot symbol. Typically, the symbol size is proportional</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">274</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">#'   to the sample size used to calculate the estimator. If `NULL`, the same symbol size is used for all subgroups.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # clogit needs coxph and strata imported</pre>
+                      <pre class="language-r">#'   By default tries to get this from `tbl` attribute `col_symbol_size`, otherwise needs to be manually specified.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">276</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">39</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          survival::clogit(</pre>
+                      <pre class="language-r">#' @param col (`character`)\cr color(s).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">277</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">40</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            formula = formula,</pre>
+                      <pre class="language-r">#' @param ggtheme (`theme`)\cr a graphical theme as provided by `ggplot2` to control styling of the plot.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">278</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">41</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            data = data,</pre>
+                      <pre class="language-r">#' @param as_list (`flag`)\cr whether the two `ggplot` objects should be returned as a list. If `TRUE`, a named list</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">279</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">42</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            subset = .subset</pre>
+                      <pre class="language-r">#'   with two elements, `table` and `plot`, will be returned. If `FALSE` (default) the table and forest plot are</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#'   printed side-by-side via [cowplot::plot_grid()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">281</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#' @param gp `r lifecycle::badge("deprecated")` `g_forest` is now generated as a `ggplot` object. This argument</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">282</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r">#'   is no longer used.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">283</td>
-                    <td class="coverage">58<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">46</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      warning = function(w) {</pre>
+                      <pre class="language-r">#' @param draw `r lifecycle::badge("deprecated")` `g_forest` is now generated as a `ggplot` object. This argument</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">284</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">47</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        fit_warnings &lt;&lt;- c(fit_warnings, w)</pre>
+                      <pre class="language-r">#'   is no longer used.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">285</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">48</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        invokeRestart("muffleWarning")</pre>
+                      <pre class="language-r">#' @param newpage `r lifecycle::badge("deprecated")` `g_forest` is now generated as a `ggplot` object. This argument</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'   is no longer used.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">288</td>
-                    <td class="coverage">58<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">51</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    finally = {</pre>
+                      <pre class="language-r">#' @return `ggplot` forest plot and table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">289</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">291</td>
-                    <td class="coverage">58<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">54</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(fit_warnings)) {</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">292</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">55</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning(paste(</pre>
+                      <pre class="language-r">#' library(forcats)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">293</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">56</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Fit warnings occurred, please consider using a simpler model, or",</pre>
+                      <pre class="language-r">#' library(nestcolor)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">294</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">57</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "larger `bandwidth`, less `num_points` in `control_step()` settings"</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">295</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))</pre>
+                      <pre class="language-r">#' adrs &lt;- tern_ex_adrs</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' n_records &lt;- 20</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Produce a matrix with one row per `x` and columns `est` and `se`.</pre>
+                      <pre class="language-r">#' adrs_labels &lt;- formatters::var_labels(adrs, fill = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">298</td>
-                    <td class="coverage">58<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">61</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  estimates &lt;- t(vapply(</pre>
+                      <pre class="language-r">#' adrs &lt;- adrs %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">299</td>
-                    <td class="coverage">58<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">62</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    X = x,</pre>
+                      <pre class="language-r">#'   filter(PARAMCD == "BESRSPI") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">300</td>
-                    <td class="coverage">58<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">63</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    FUN = h_step_trt_effect,</pre>
+                      <pre class="language-r">#'   filter(ARM %in% c("A: Drug X", "B: Placebo")) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">301</td>
-                    <td class="coverage">58<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">64</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    FUN.VALUE = c(1, 2),</pre>
+                      <pre class="language-r">#'   slice(seq_len(n_records)) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">302</td>
-                    <td class="coverage">58<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">65</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data = data,</pre>
+                      <pre class="language-r">#'   droplevels() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">303</td>
-                    <td class="coverage">58<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">66</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    model = fit,</pre>
+                      <pre class="language-r">#'   mutate(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">304</td>
-                    <td class="coverage">58<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">67</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    variables = variables</pre>
+                      <pre class="language-r">#'     # Reorder levels of factor to make the placebo group the reference arm.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">305</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ))</pre>
+                      <pre class="language-r">#'     ARM = fct_relevel(ARM, "B: Placebo"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">306</td>
-                    <td class="coverage">58<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">69</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  q_norm &lt;- stats::qnorm((1 + control$conf_level) / 2)</pre>
+                      <pre class="language-r">#'     rsp = AVALC == "CR"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">307</td>
-                    <td class="coverage">58<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  cbind(</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">308</td>
-                    <td class="coverage">58<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">71</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n = length(fit$y),</pre>
+                      <pre class="language-r">#' formatters::var_labels(adrs) &lt;- c(adrs_labels, "Response")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">309</td>
-                    <td class="coverage">58<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">72</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    logor = estimates[, "est"],</pre>
+                      <pre class="language-r">#' df &lt;- extract_rsp_subgroups(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">310</td>
-                    <td class="coverage">58<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">73</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    se = estimates[, "se"],</pre>
+                      <pre class="language-r">#'   variables = list(rsp = "rsp", arm = "ARM", subgroups = c("SEX", "STRATA2")),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">311</td>
-                    <td class="coverage">58<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">74</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ci_lower = estimates[, "est"] - q_norm * estimates[, "se"],</pre>
+                      <pre class="language-r">#'   data = adrs</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">312</td>
-                    <td class="coverage">58<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">75</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ci_upper = estimates[, "est"] + q_norm * estimates[, "se"]</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">313</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' # Full commonly used response table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">314</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/desctools_binom_diff.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Confidence intervals for a difference of binomials</pre>
+                      <pre class="language-r">#' tbl &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   tabulate_rsp_subgroups(df)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">#' g_forest(tbl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Several confidence intervals for the difference between proportions.</pre>
+                      <pre class="language-r">#' # Odds ratio only table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name desctools_binom</pre>
+                      <pre class="language-r">#' tbl_or &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#'   tabulate_rsp_subgroups(df, vars = c("n_tot", "or", "ci"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' g_forest(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Recycle list of parameters</pre>
+                      <pre class="language-r">#'   tbl_or,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   forest_header = c("Comparison\nBetter", "Treatment\nBetter")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function recycles all supplied elements to the maximal dimension.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... (`any`)\cr elements to recycle.</pre>
+                      <pre class="language-r">#' # Survival forest plot example.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' adtte &lt;- tern_ex_adtte</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `list`.</pre>
+                      <pre class="language-r">#' # Save variable labels before data processing steps.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' adtte_labels &lt;- formatters::var_labels(adtte, fill = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' adtte_f &lt;- adtte %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">#'   filter(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_recycle &lt;- function(...) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">21</td>
-                    <td class="coverage">78<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  lst &lt;- list(...)</pre>
+                      <pre class="language-r">#'     PARAMCD == "OS",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">22</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">98</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  maxdim &lt;- max(lengths(lst))</pre>
+                      <pre class="language-r">#'     ARM %in% c("B: Placebo", "A: Drug X"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">23</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">99</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  res &lt;- lapply(lst, rep, length.out = maxdim)</pre>
+                      <pre class="language-r">#'     SEX %in% c("M", "F")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">24</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">100</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attr(res, "maxdim") &lt;- maxdim</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">25</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">101</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(res)</pre>
+                      <pre class="language-r">#'   mutate(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'     # Reorder levels of ARM to display reference arm before treatment arm.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     ARM = droplevels(fct_relevel(ARM, "B: Placebo")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn desctools_binom Several confidence intervals for the difference between proportions.</pre>
+                      <pre class="language-r">#'     SEX = droplevels(SEX),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     AVALU = as.character(AVALU),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `matrix` of 3 values:</pre>
+                      <pre class="language-r">#'     is_event = CNSR == 0</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `est`: estimate of proportion difference.</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `lwr.ci`: estimate of lower end of the confidence interval.</pre>
+                      <pre class="language-r">#' labels &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `upr.ci`: estimate of upper end of the confidence interval.</pre>
+                      <pre class="language-r">#'   "ARM" = adtte_labels["ARM"],</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   "SEX" = adtte_labels["SEX"],</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'   "AVALU" = adtte_labels["AVALU"],</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">desctools_binom &lt;- function(x1,</pre>
+                      <pre class="language-r">#'   "is_event" = "Event Flag"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            n1,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            x2,</pre>
+                      <pre class="language-r">#' formatters::var_labels(adtte_f)[names(labels)] &lt;- as.character(labels)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            n2,</pre>
+                      <pre class="language-r">#' df &lt;- extract_survival_subgroups(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            conf.level = 0.95, # nolint</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            sides = c("two.sided", "left", "right"),</pre>
+                      <pre class="language-r">#'     tte = "AVAL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            method = c(</pre>
+                      <pre class="language-r">#'     is_event = "is_event",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              "ac", "wald", "waldcc", "score", "scorecc", "mn", "mee", "blj", "ha", "hal", "jp"</pre>
+                      <pre class="language-r">#'     arm = "ARM", subgroups = c("SEX", "BMRKR2")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            )) {</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">45</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">121</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (missing(sides)) {</pre>
+                      <pre class="language-r">#'   data = adtte_f</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">46</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">122</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    sides &lt;- match.arg(sides)</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' table_hr &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">48</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">124</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (missing(method)) {</pre>
+                      <pre class="language-r">#'   tabulate_survival_subgroups(df, time_unit = adtte_f$AVALU[1])</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">125</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    method &lt;- match.arg(method)</pre>
+                      <pre class="language-r">#' g_forest(table_hr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">51</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">127</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  iBinomDiffCI &lt;- function(x1, n1, x2, n2, conf.level, sides, method) { # nolint</pre>
+                      <pre class="language-r">#' # Works with any `rtable`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">52</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">128</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (sides != "two.sided") {</pre>
+                      <pre class="language-r">#' tbl &lt;- rtable(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">53</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">129</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      conf.level &lt;- 1 - 2 * (1 - conf.level) # nolint</pre>
+                      <pre class="language-r">#'   header = c("E", "CI", "N"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'   rrow("", 1, c(.8, 1.2), 200),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">55</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">131</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    alpha &lt;- 1 - conf.level</pre>
+                      <pre class="language-r">#'   rrow("", 1.2, c(1.1, 1.4), 50)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">56</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">132</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    kappa &lt;- stats::qnorm(1 - alpha / 2)</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">133</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    p1_hat &lt;- x1 / n1</pre>
+                      <pre class="language-r">#' g_forest(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">134</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    p2_hat &lt;- x2 / n2</pre>
+                      <pre class="language-r">#'   tbl = tbl,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">135</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    est &lt;- p1_hat - p2_hat</pre>
+                      <pre class="language-r">#'   col_x = 1,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">136</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    switch(method,</pre>
+                      <pre class="language-r">#'   col_ci = 2,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">137</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      wald = {</pre>
+                      <pre class="language-r">#'   xlim = c(0.5, 2),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">138</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        vd &lt;- p1_hat * (1 - p1_hat) / n1 + p2_hat * (1 - p2_hat) / n2</pre>
+                      <pre class="language-r">#'   x_at = c(0.5, 1, 2),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">139</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        term2 &lt;- kappa * sqrt(vd)</pre>
+                      <pre class="language-r">#'   col_symbol_size = 3</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">64</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">140</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_lwr &lt;- max(-1, est - term2)</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">141</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_upr &lt;- min(1, est + term2)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r">#' tbl &lt;- rtable(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">67</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">143</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      waldcc = {</pre>
+                      <pre class="language-r">#'   header = rheader(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">144</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        vd &lt;- p1_hat * (1 - p1_hat) / n1 + p2_hat * (1 - p2_hat) / n2</pre>
+                      <pre class="language-r">#'     rrow("", rcell("A", colspan = 2)),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">69</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">145</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        term2 &lt;- kappa * sqrt(vd)</pre>
+                      <pre class="language-r">#'     rrow("", "c1", "c2")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">70</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">146</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        term2 &lt;- term2 + 0.5 * (1 / n1 + 1 / n2)</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">71</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">147</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_lwr &lt;- max(-1, est - term2)</pre>
+                      <pre class="language-r">#'   rrow("row 1", 1, c(.8, 1.2)),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">148</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_upr &lt;- min(1, est + term2)</pre>
+                      <pre class="language-r">#'   rrow("row 2", 1.2, c(1.1, 1.4))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">150</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ac = {</pre>
+                      <pre class="language-r">#' g_forest(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">151</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n1 &lt;- n1 + 2</pre>
+                      <pre class="language-r">#'   tbl = tbl,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">152</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n2 &lt;- n2 + 2</pre>
+                      <pre class="language-r">#'   col_x = 1,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">153</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x1 &lt;- x1 + 1</pre>
+                      <pre class="language-r">#'   col_ci = 2,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">154</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x2 &lt;- x2 + 1</pre>
+                      <pre class="language-r">#'   xlim = c(0.5, 2),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">155</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        p1_hat &lt;- x1 / n1</pre>
+                      <pre class="language-r">#'   x_at = c(0.5, 1, 2),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">156</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        p2_hat &lt;- x2 / n2</pre>
+                      <pre class="language-r">#'   vline = 1,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">157</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        est1 &lt;- p1_hat - p2_hat</pre>
+                      <pre class="language-r">#'   forest_header = c("Hello", "World")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">82</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">158</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        vd &lt;- p1_hat * (1 - p1_hat) / n1 + p2_hat * (1 - p2_hat) / n2</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">83</td>
-                    <td class="coverage">2<em>x</em></td>
+                      <pre class="language-r">#' )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">159</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        term2 &lt;- kappa * sqrt(vd)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">160</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_lwr &lt;- max(-1, est1 - term2)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">85</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">161</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_upr &lt;- min(1, est1 + term2)</pre>
+                      <pre class="language-r">g_forest &lt;- function(tbl,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r">                     col_x = attr(tbl, "col_x"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">163</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      exact = {</pre>
+                      <pre class="language-r">                     col_ci = attr(tbl, "col_ci"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">88</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">164</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_lwr &lt;- NA</pre>
+                      <pre class="language-r">                     vline = 1,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">89</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">165</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_upr &lt;- NA</pre>
+                      <pre class="language-r">                     forest_header = attr(tbl, "forest_header"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r">                     xlim = c(0.1, 10),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">91</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">167</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      score = {</pre>
+                      <pre class="language-r">                     logx = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">168</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        w1 &lt;- desctools_binomci(</pre>
+                      <pre class="language-r">                     x_at = c(0.1, 1, 10),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">93</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">169</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = x1, n = n1, conf.level = conf.level,</pre>
+                      <pre class="language-r">                     width_row_names = lifecycle::deprecated(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">94</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">170</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          method = "wilson"</pre>
+                      <pre class="language-r">                     width_columns = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">                     width_forest = lifecycle::deprecated(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">96</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">172</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        w2 &lt;- desctools_binomci(</pre>
+                      <pre class="language-r">                     lbl_col_padding = 0,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">97</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">173</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = x2, n = n2, conf.level = conf.level,</pre>
+                      <pre class="language-r">                     rel_width_forest = 0.25,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">98</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">174</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          method = "wilson"</pre>
+                      <pre class="language-r">                     font_size = 12,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">                     col_symbol_size = attr(tbl, "col_symbol_size"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">100</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">176</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        l1 &lt;- w1[2]</pre>
+                      <pre class="language-r">                     col = getOption("ggplot2.discrete.colour")[1],</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">177</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        u1 &lt;- w1[3]</pre>
+                      <pre class="language-r">                     ggtheme = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">178</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        l2 &lt;- w2[2]</pre>
+                      <pre class="language-r">                     as_list = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">179</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        u2 &lt;- w2[3]</pre>
+                      <pre class="language-r">                     gp = lifecycle::deprecated(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">104</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">180</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_lwr &lt;- est - kappa * sqrt(l1 * (1 - l1) / n1 + u2 * (1 - u2) / n2)</pre>
+                      <pre class="language-r">                     draw = lifecycle::deprecated(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">181</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_upr &lt;- est + kappa * sqrt(u1 * (1 - u1) / n1 + l2 * (1 - l2) / n2)</pre>
+                      <pre class="language-r">                     newpage = lifecycle::deprecated()) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r">  # Deprecated argument warnings</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">183</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      scorecc = {</pre>
+                      <pre class="language-r">  if (lifecycle::is_present(width_row_names)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">108</td>
+                    <td class="num">184</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        w1 &lt;- desctools_binomci(</pre>
+                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">109</td>
+                    <td class="num">185</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = x1, n = n1, conf.level = conf.level,</pre>
+                      <pre class="language-r">      "0.9.4", "g_forest(width_row_names)", "g_forest(lbl_col_padding)",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">110</td>
+                    <td class="num">186</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          method = "wilsoncc"</pre>
+                      <pre class="language-r">      details = "The width of the row label column can be adjusted via the `lbl_col_padding` parameter."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">188</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">112</td>
+                    <td class="num">189</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (lifecycle::is_present(width_forest)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">190</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        w2 &lt;- desctools_binomci(</pre>
+                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">113</td>
+                    <td class="num">191</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = x2, n = n2, conf.level = conf.level,</pre>
+                      <pre class="language-r">      "0.9.4", "g_forest(width_forest)", "g_forest(rel_width_forest)",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">114</td>
+                    <td class="num">192</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          method = "wilsoncc"</pre>
+                      <pre class="language-r">      details = "Relative width of the forest plot (as a proportion) can be set via the `rel_width_forest` parameter."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">194</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">195</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        l1 &lt;- w1[2]</pre>
+                      <pre class="language-r">  if (lifecycle::is_present(gp)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">117</td>
+                    <td class="num">196</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        u1 &lt;- w1[3]</pre>
+                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">118</td>
+                    <td class="num">197</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        l2 &lt;- w2[2]</pre>
+                      <pre class="language-r">      "0.9.4", "g_forest(gp)", "g_forest(ggtheme)",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">119</td>
+                    <td class="num">198</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        u2 &lt;- w2[3]</pre>
+                      <pre class="language-r">      details = paste(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">120</td>
+                    <td class="num">199</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_lwr &lt;- max(-1, est - sqrt((p1_hat - l1)^2 + (u2 - p2_hat)^2))</pre>
+                      <pre class="language-r">        "`g_forest` is now generated as a `ggplot` object.",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">121</td>
+                    <td class="num">200</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_upr &lt;- min(1, est + sqrt((u1 - p1_hat)^2 + (p2_hat - l2)^2))</pre>
+                      <pre class="language-r">        "Additional display settings should be supplied via the `ggtheme` parameter."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">202</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      mee = {</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">203</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        .score &lt;- function(p1, n1, p2, n2, dif) {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">125</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">204</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (dif &gt; 1) dif &lt;- 1</pre>
+                      <pre class="language-r">  if (lifecycle::is_present(draw)) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">126</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">205</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (dif &lt; -1) dif &lt;- -1</pre>
+                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">206</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          diff &lt;- p1 - p2 - dif</pre>
+                      <pre class="language-r">      "0.9.4", "g_forest(draw)",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">207</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (abs(diff) == 0) {</pre>
+                      <pre class="language-r">      details = "`g_forest` now generates `ggplot` objects. This parameter has no effect."</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">129</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">208</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            res &lt;- 0</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          } else {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">210</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            t &lt;- n2 / n1</pre>
+                      <pre class="language-r">  if (lifecycle::is_present(newpage)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">211</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            a &lt;- 1 + t</pre>
+                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">212</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            b &lt;- -(1 + t + p1 + t * p2 + dif * (t + 2))</pre>
+                      <pre class="language-r">      "0.9.4", "g_forest(newpage)",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">213</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            c &lt;- dif * dif + dif * (2 * p1 + t + 1) + p1 + t * p2</pre>
+                      <pre class="language-r">      details = "`g_forest` now generates `ggplot` objects. This parameter has no effect."</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">135</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">214</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            d &lt;- -p1 * dif * (1 + dif)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">136</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">215</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            v &lt;- (b / a / 3)^3 - b * c / (6 * a * a) + d / a / 2</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">216</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (abs(v) &lt; .Machine$double.eps) v &lt;- 0</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">217</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            s &lt;- sqrt((b / a / 3)^2 - c / a / 3)</pre>
+                      <pre class="language-r">  checkmate::assert_class(tbl, "VTableTree")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">218</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            u &lt;- ifelse(v &gt; 0, 1, -1) * s</pre>
+                      <pre class="language-r">  checkmate::assert_number(col_x, lower = 0, upper = ncol(tbl), null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">219</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            w &lt;- (3.141592654 + acos(v / u^3)) / 3</pre>
+                      <pre class="language-r">  checkmate::assert_number(col_ci, lower = 0, upper = ncol(tbl), null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">220</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            p1d &lt;- 2 * u * cos(w) - b / a / 3</pre>
+                      <pre class="language-r">  checkmate::assert_number(col_symbol_size, lower = 0, upper = ncol(tbl), null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">221</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            p2d &lt;- p1d - dif</pre>
+                      <pre class="language-r">  checkmate::assert_number(font_size, lower = 0)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">222</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            n &lt;- n1 + n2</pre>
+                      <pre class="language-r">  checkmate::assert_character(col, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">223</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            res &lt;- (p1d * (1 - p1d) / n1 + p2d * (1 - p2d) / n2)</pre>
+                      <pre class="language-r">  checkmate::assert_true(is.null(col) | length(col) == 1 | length(col) == nrow(tbl))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">24<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          return(sqrt(res))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">  # Extract info from table</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">226</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        pval &lt;- function(delta) {</pre>
+                      <pre class="language-r">  mat &lt;- matrix_form(tbl, indent_rownames = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">149</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">227</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          z &lt;- (est - delta) / .score(p1_hat, n1, p2_hat, n2, delta)</pre>
+                      <pre class="language-r">  mat_strings &lt;- formatters::mf_strings(mat)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">150</td>
-                    <td class="coverage">24<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          2 * min(stats::pnorm(z), 1 - stats::pnorm(z))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">151</td>
-                    <td class="coverage"></td>
+                    <td class="num">228</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">  nlines_hdr &lt;- formatters::mf_nlheader(mat)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">229</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_lwr &lt;- max(-1, stats::uniroot(function(delta) {</pre>
+                      <pre class="language-r">  nrows_body &lt;- nrow(mat_strings) - nlines_hdr</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">153</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">230</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          pval(delta) - alpha</pre>
+                      <pre class="language-r">  tbl_stats &lt;- mat_strings[nlines_hdr, -1]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">154</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">231</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }, interval = c(-1 + 1e-06, est - 1e-06))$root)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">232</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_upr &lt;- min(1, stats::uniroot(function(delta) {</pre>
+                      <pre class="language-r">  # Generate and modify table as ggplot object</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">233</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          pval(delta) - alpha</pre>
+                      <pre class="language-r">  gg_table &lt;- rtable2gg(tbl, fontsize = font_size, colwidths = width_columns, lbl_col_padding = lbl_col_padding) +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        }, interval = c(est + 1e-06, 1 - 1e-06))$root)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">158</td>
-                    <td class="coverage"></td>
+                    <td class="num">234</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r">    theme(plot.margin = margin(0, 0, 0, 0.025, "npc"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">235</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      blj = {</pre>
+                      <pre class="language-r">  gg_table$scales$scales[[1]]$expand &lt;- c(0.01, 0.01)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">160</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">236</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        p1_dash &lt;- (x1 + 0.5) / (n1 + 1)</pre>
+                      <pre class="language-r">  gg_table$scales$scales[[2]]$limits[2] &lt;- nrow(mat_strings) + 1</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">237</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        p2_dash &lt;- (x2 + 0.5) / (n2 + 1)</pre>
+                      <pre class="language-r">  if (nlines_hdr == 2) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">238</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        vd &lt;- p1_dash * (1 - p1_dash) / n1 + p2_dash * (1 - p2_dash) / n2</pre>
+                      <pre class="language-r">    gg_table$scales$scales[[2]]$expand &lt;- c(0, 0)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">239</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        term2 &lt;- kappa * sqrt(vd)</pre>
+                      <pre class="language-r">    arms &lt;- unique(mat_strings[1, ][nzchar(trimws(mat_strings[1, ]))])</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">240</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        est_dash &lt;- p1_dash - p2_dash</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">241</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_lwr &lt;- max(-1, est_dash - term2)</pre>
+                      <pre class="language-r">    arms &lt;- NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">242</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_upr &lt;- min(1, est_dash + term2)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">244</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ha = {</pre>
+                      <pre class="language-r">  tbl_df &lt;- as_result_df(tbl)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">245</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        term2 &lt;- 1 /</pre>
+                      <pre class="language-r">  dat_cols &lt;- seq(which(names(tbl_df) == "node_class") + 1, ncol(tbl_df))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">246</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          (2 * min(n1, n2)) + kappa * sqrt(p1_hat * (1 - p1_hat) / (n1 - 1) + p2_hat * (1 - p2_hat) / (n2 - 1))</pre>
+                      <pre class="language-r">  tbl_df &lt;- tbl_df[, c(which(names(tbl_df) == "row_num"), dat_cols)]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">247</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_lwr &lt;- max(-1, est - term2)</pre>
+                      <pre class="language-r">  names(tbl_df) &lt;- c("row_num", tbl_stats)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">248</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_upr &lt;- min(1, est + term2)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r">  # Check table data columns</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">250</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      mn = {</pre>
+                      <pre class="language-r">  if (!is.null(col_ci)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">251</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        .conf &lt;- function(x1, n1, x2, n2, z, lower = FALSE) {</pre>
+                      <pre class="language-r">    ci_col &lt;- col_ci + 1</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">252</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          p1 &lt;- x1 / n1</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">177</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">253</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          p2 &lt;- x2 / n2</pre>
+                      <pre class="language-r">    tbl_df[["empty_ci"]] &lt;- rep(list(c(NA_real_, NA_real_)), nrow(tbl_df))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">254</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          p_hat &lt;- p1 - p2</pre>
+                      <pre class="language-r">    ci_col &lt;- which(names(tbl_df) == "empty_ci")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">255</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          dp &lt;- 1 + ifelse(lower, 1, -1) * p_hat</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">256</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          i &lt;- 1</pre>
+                      <pre class="language-r">  if (length(tbl_df[, ci_col][[1]]) != 2) stop("CI column must have two elements (lower and upper limits).")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">181</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">257</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          while (i &lt;= 50) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">182</td>
-                    <td class="coverage">46<em>x</em></td>
+                    <td class="num">258</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            dp &lt;- 0.5 * dp</pre>
+                      <pre class="language-r">  if (!is.null(col_x)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">183</td>
-                    <td class="coverage">46<em>x</em></td>
+                    <td class="num">259</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            y &lt;- p_hat + ifelse(lower, -1, 1) * dp</pre>
+                      <pre class="language-r">    x_col &lt;- col_x + 1</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">46<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">260</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            score &lt;- .score(p1, n1, p2, n2, y)</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">46<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">261</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (score &lt; z) {</pre>
+                      <pre class="language-r">    tbl_df[["empty_x"]] &lt;- NA_real_</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">262</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              p_hat &lt;- y</pre>
+                      <pre class="language-r">    x_col &lt;- which(names(tbl_df) == "empty_x")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">46<em>x</em></td>
+                    <td class="num">264</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if ((dp &lt; 1e-07) || (abs(z - score) &lt; 1e-06)) {</pre>
+                      <pre class="language-r">  if (!is.null(col_symbol_size)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">265</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              (break)()</pre>
+                      <pre class="language-r">    sym_size &lt;- unlist(tbl_df[, col_symbol_size + 1])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">266</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            } else {</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">44<em>x</em></td>
+                    <td class="num">267</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              i &lt;- i + 1</pre>
+                      <pre class="language-r">    sym_size &lt;- rep(1, nrow(tbl_df))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">268</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">194</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          return(y)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">195</td>
-                    <td class="coverage"></td>
+                    <td class="num">270</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">  tbl_df[, c("ci_lwr", "ci_upr")] &lt;- t(sapply(tbl_df[, ci_col], unlist))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">271</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        .score &lt;- function(p1, n1, p2, n2, dif) {</pre>
+                      <pre class="language-r">  x &lt;- unlist(tbl_df[, x_col])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">197</td>
-                    <td class="coverage">46<em>x</em></td>
+                    <td class="num">272</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          diff &lt;- p1 - p2 - dif</pre>
+                      <pre class="language-r">  lwr &lt;- unlist(tbl_df[["ci_lwr"]])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">198</td>
-                    <td class="coverage">46<em>x</em></td>
+                    <td class="num">273</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (abs(diff) == 0) {</pre>
+                      <pre class="language-r">  upr &lt;- unlist(tbl_df[["ci_upr"]])</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">199</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">274</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            res &lt;- 0</pre>
+                      <pre class="language-r">  row_num &lt;- nrow(mat_strings) - tbl_df[["row_num"]] - as.numeric(nlines_hdr == 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">275</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          } else {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">201</td>
-                    <td class="coverage">46<em>x</em></td>
+                    <td class="num">276</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            t &lt;- n2 / n1</pre>
+                      <pre class="language-r">  if (is.null(col)) col &lt;- "#343cff"</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">46<em>x</em></td>
+                    <td class="num">277</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            a &lt;- 1 + t</pre>
+                      <pre class="language-r">  if (length(col) == 1) col &lt;- rep(col, nrow(tbl_df))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">203</td>
-                    <td class="coverage">46<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">278</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            b &lt;- -(1 + t + p1 + t * p2 + dif * (t + 2))</pre>
+                      <pre class="language-r">  if (is.null(x_at)) x_at &lt;- union(xlim, vline)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">204</td>
-                    <td class="coverage">46<em>x</em></td>
+                    <td class="num">279</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            c &lt;- dif * dif + dif * (2 * p1 + t + 1) + p1 + t * p2</pre>
+                      <pre class="language-r">  x_labels &lt;- x_at</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">46<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">280</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            d &lt;- -p1 * dif * (1 + dif)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">46<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">281</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            v &lt;- (b / a / 3)^3 - b * c / (6 * a * a) + d / a / 2</pre>
+                      <pre class="language-r">  # Apply log transformation</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">46<em>x</em></td>
+                    <td class="num">282</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            s &lt;- sqrt((b / a / 3)^2 - c / a / 3)</pre>
+                      <pre class="language-r">  if (logx) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">46<em>x</em></td>
+                    <td class="num">283</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            u &lt;- ifelse(v &gt; 0, 1, -1) * s</pre>
+                      <pre class="language-r">    x_t &lt;- log(x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">209</td>
-                    <td class="coverage">46<em>x</em></td>
+                    <td class="num">284</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            w &lt;- (3.141592654 + acos(v / u^3)) / 3</pre>
+                      <pre class="language-r">    lwr_t &lt;- log(lwr)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">46<em>x</em></td>
+                    <td class="num">285</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            p1d &lt;- 2 * u * cos(w) - b / a / 3</pre>
+                      <pre class="language-r">    upr_t &lt;- log(upr)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">46<em>x</em></td>
+                    <td class="num">286</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            p2d &lt;- p1d - dif</pre>
+                      <pre class="language-r">    xlim_t &lt;- log(xlim)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">212</td>
-                    <td class="coverage">46<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">287</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            n &lt;- n1 + n2</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">46<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">288</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            var &lt;- (p1d * (1 - p1d) / n1 + p2d * (1 - p2d) / n2) * n / (n - 1)</pre>
+                      <pre class="language-r">    x_t &lt;- x</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">214</td>
-                    <td class="coverage">46<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">289</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            res &lt;- diff^2 / var</pre>
+                      <pre class="language-r">    lwr_t &lt;- lwr</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">215</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">290</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">    upr_t &lt;- upr</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">216</td>
-                    <td class="coverage">46<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">291</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          return(res)</pre>
+                      <pre class="language-r">    xlim_t &lt;- xlim</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">292</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">218</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">293</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        z &lt;- stats::qchisq(conf.level, 1)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">294</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_lwr &lt;- max(-1, .conf(x1, n1, x2, n2, z, TRUE))</pre>
+                      <pre class="language-r">  # Set up plot area</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        ci_upr &lt;- min(1, .conf(x1, n1, x2, n2, z, FALSE))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">221</td>
-                    <td class="coverage"></td>
+                    <td class="num">295</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r">  gg_plt &lt;- ggplot(data = tbl_df) +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">296</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      beal = {</pre>
+                      <pre class="language-r">    theme(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">223</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">297</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        a &lt;- p1_hat + p2_hat</pre>
+                      <pre class="language-r">      panel.background = element_rect(fill = "transparent", color = NA_character_),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">224</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">298</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        b &lt;- p1_hat - p2_hat</pre>
+                      <pre class="language-r">      plot.background = element_rect(fill = "transparent", color = NA_character_),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">225</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">299</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        u &lt;- ((1 / n1) + (1 / n2)) / 4</pre>
+                      <pre class="language-r">      panel.grid.major = element_blank(),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">226</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">300</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        v &lt;- ((1 / n1) - (1 / n2)) / 4</pre>
+                      <pre class="language-r">      panel.grid.minor = element_blank(),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">227</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">301</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        V &lt;- u * ((2 - a) * a - b^2) + 2 * v * (1 - a) * b # nolint</pre>
+                      <pre class="language-r">      axis.title.x = element_blank(),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">228</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">302</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        z &lt;- stats::qchisq(p = 1 - alpha / 2, df = 1)</pre>
+                      <pre class="language-r">      axis.title.y = element_blank(),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">229</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">303</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        A &lt;- sqrt(z * (V + z * u^2 * (2 - a) * a + z * v^2 * (1 - a)^2)) # nolint</pre>
+                      <pre class="language-r">      axis.line.x = element_line(),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">230</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">304</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        B &lt;- (b + z * v * (1 - a)) / (1 + z * u) # nolint</pre>
+                      <pre class="language-r">      axis.text = element_text(size = font_size),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">231</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">305</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_lwr &lt;- max(-1, B - A / (1 + z * u))</pre>
+                      <pre class="language-r">      legend.position = "none",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">232</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">306</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_upr &lt;- min(1, B + A / (1 + z * u))</pre>
+                      <pre class="language-r">      plot.margin = margin(0, 0.1, 0.05, 0, "npc")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</td>
+                    <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r">    ) +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">308</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      hal = {</pre>
+                      <pre class="language-r">    scale_x_continuous(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">235</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">309</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        psi &lt;- (p1_hat + p2_hat) / 2</pre>
+                      <pre class="language-r">      transform = ifelse(logx, "log", "identity"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">236</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">310</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        u &lt;- (1 / n1 + 1 / n2) / 4</pre>
+                      <pre class="language-r">      limits = xlim,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">237</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">311</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        v &lt;- (1 / n1 - 1 / n2) / 4</pre>
+                      <pre class="language-r">      breaks = x_at,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">238</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">312</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        z &lt;- kappa</pre>
+                      <pre class="language-r">      labels = x_labels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">239</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">313</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        theta &lt;- ((p1_hat - p2_hat) + z^2 * v * (1 - 2 * psi)) / (1 + z^2 * u)</pre>
+                      <pre class="language-r">      expand = c(0.01, 0)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">240</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">314</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        w &lt;- z / (1 + z^2 * u) * sqrt(u * (4 * psi * (1 - psi) - (p1_hat - p2_hat)^2) + 2 * v * (1 - 2 * psi) *</pre>
+                      <pre class="language-r">    ) +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">241</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">315</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          (p1_hat - p2_hat) + 4 * z^2 * u^2 * (1 - psi) * psi + z^2 * v^2 * (1 - 2 * psi)^2) # nolint</pre>
+                      <pre class="language-r">    scale_y_continuous(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">242</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">316</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        c(theta + w, theta - w)</pre>
+                      <pre class="language-r">      limits = c(0, nrow(mat_strings) + 1),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">243</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">317</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_lwr &lt;- max(-1, theta - w)</pre>
+                      <pre class="language-r">      breaks = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">244</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">318</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_upr &lt;- min(1, theta + w)</pre>
+                      <pre class="language-r">      expand = c(0, 0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">319</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">246</td>
-                    <td class="coverage">26<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      jp = {</pre>
+                      <pre class="language-r">    ) +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">247</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">320</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        psi &lt;- 0.5 * ((x1 + 0.5) / (n1 + 1) + (x2 + 0.5) / (n2 + 1))</pre>
+                      <pre class="language-r">    coord_cartesian(clip = "off")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">248</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">321</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        u &lt;- (1 / n1 + 1 / n2) / 4</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">249</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">322</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        v &lt;- (1 / n1 - 1 / n2) / 4</pre>
+                      <pre class="language-r">  if (is.null(ggtheme)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">250</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">323</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        z &lt;- kappa</pre>
+                      <pre class="language-r">    gg_plt &lt;- gg_plt + annotate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">251</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">324</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        theta &lt;- ((p1_hat - p2_hat) + z^2 * v * (1 - 2 * psi)) / (1 + z^2 * u)</pre>
+                      <pre class="language-r">      "rect",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">252</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">325</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        w &lt;- z / (1 + z^2 * u) * sqrt(u * (4 * psi * (1 - psi) - (p1_hat - p2_hat)^2) + 2 * v * (1 - 2 * psi) *</pre>
+                      <pre class="language-r">      xmin = xlim[1],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">253</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">326</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          (p1_hat - p2_hat) + 4 * z^2 * u^2 * (1 - psi) * psi + z^2 * v^2 * (1 - 2 * psi)^2) # nolint</pre>
+                      <pre class="language-r">      xmax = xlim[2],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">254</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">327</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        c(theta + w, theta - w)</pre>
+                      <pre class="language-r">      ymin = 0,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">255</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">328</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_lwr &lt;- max(-1, theta - w)</pre>
+                      <pre class="language-r">      ymax = nrows_body + 0.5,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">256</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">329</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_upr &lt;- min(1, theta + w)</pre>
+                      <pre class="language-r">      fill = "grey92"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">330</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">331</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">259</td>
-                    <td class="coverage">26<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    ci &lt;- c(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">260</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">332</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      est = est, lwr.ci = min(ci_lwr, ci_upr),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">261</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">333</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      upr.ci = max(ci_lwr, ci_upr)</pre>
+                      <pre class="language-r">  if (!is.null(vline)) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</td>
+                    <td class="num">334</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    # Set default forest header</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">263</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">335</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (sides == "left") {</pre>
+                      <pre class="language-r">    if (is.null(forest_header)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">264</td>
+                    <td class="num">336</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci[3] &lt;- 1</pre>
+                      <pre class="language-r">      forest_header &lt;- c(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">265</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">337</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else if (sides == "right") {</pre>
+                      <pre class="language-r">        paste(if (length(arms) == 2) arms[1] else "Comparison", "Better", sep = "\n"),</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">266</td>
+                    <td class="num">338</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci[2] &lt;- -1</pre>
+                      <pre class="language-r">        paste(if (length(arms) == 2) arms[2] else "Treatment", "Better", sep = "\n")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">339</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">268</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">340</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(ci)</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">341</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">270</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">342</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  method &lt;- match.arg(arg = method, several.ok = TRUE)</pre>
+                      <pre class="language-r">    # Add vline and forest header labels</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">271</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">343</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  sides &lt;- match.arg(arg = sides, several.ok = TRUE)</pre>
+                      <pre class="language-r">    mid_pts &lt;- if (logx) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">272</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">344</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lst &lt;- h_recycle(</pre>
+                      <pre class="language-r">      c(exp(mean(log(c(xlim[1], vline)))), exp(mean(log(c(vline, xlim[2])))))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">273</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">345</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x1 = x1, n1 = n1, x2 = x2, n2 = n2, conf.level = conf.level,</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">274</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">346</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    sides = sides, method = method</pre>
+                      <pre class="language-r">      c(mean(c(xlim[1], vline)), mean(c(vline, xlim[2])))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">347</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">276</td>
-                    <td class="coverage">26<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  res &lt;- t(sapply(1:attr(lst, "maxdim"), function(i) {</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">277</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">348</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iBinomDiffCI(</pre>
+                      <pre class="language-r">    gg_plt &lt;- gg_plt +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">278</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">349</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x1 = lst$x1[i],</pre>
+                      <pre class="language-r">      annotate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">279</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">350</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n1 = lst$n1[i], x2 = lst$x2[i], n2 = lst$n2[i], conf.level = lst$conf.level[i],</pre>
+                      <pre class="language-r">        "segment",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">280</td>
-                    <td class="coverage">26<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      sides = lst$sides[i], method = lst$method[i]</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">281</td>
-                    <td class="coverage"></td>
+                    <td class="num">351</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        x = vline, xend = vline, y = 0, yend = nrows_body + 0.5</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">282</td>
+                    <td class="num">352</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }))</pre>
+                      <pre class="language-r">      ) +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">283</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">353</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lgn &lt;- h_recycle(x1 = if (is.null(names(x1))) {</pre>
+                      <pre class="language-r">      annotate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">284</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">354</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste("x1", seq_along(x1), sep = ".")</pre>
+                      <pre class="language-r">        "text",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">285</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">355</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">        x = mid_pts[1], y = nrows_body + 1.25,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">286</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">356</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    names(x1)</pre>
+                      <pre class="language-r">        label = forest_header[1],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">287</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">357</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }, n1 = if (is.null(names(n1))) {</pre>
+                      <pre class="language-r">        size = font_size / .pt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">288</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">358</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste("n1", seq_along(n1), sep = ".")</pre>
+                      <pre class="language-r">        lineheight = 0.9</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">289</td>
+                    <td class="num">359</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">      ) +</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">290</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">360</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    names(n1)</pre>
+                      <pre class="language-r">      annotate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">291</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">361</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }, x2 = if (is.null(names(x2))) {</pre>
+                      <pre class="language-r">        "text",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">292</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">362</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste("x2", seq_along(x2), sep = ".")</pre>
+                      <pre class="language-r">        x = mid_pts[2], y = nrows_body + 1.25,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">293</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">363</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">        label = forest_header[2],</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">294</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">364</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    names(x2)</pre>
+                      <pre class="language-r">        size = font_size / .pt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">295</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">365</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }, n2 = if (is.null(names(n2))) {</pre>
+                      <pre class="language-r">        lineheight = 0.9</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">296</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">366</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste("n2", seq_along(n2), sep = ".")</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">367</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">298</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">368</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    names(n2)</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">369</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  # Add points to plot</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">299</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">370</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }, conf.level = conf.level, sides = sides, method = method)</pre>
+                      <pre class="language-r">  if (any(!is.na(x_t))) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">300</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">371</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  xn &lt;- apply(as.data.frame(lgn[sapply(lgn, function(x) {</pre>
+                      <pre class="language-r">    x_t[x &lt; xlim[1] | x &gt; xlim[2]] &lt;- NA</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">301</td>
-                    <td class="coverage">182<em>x</em></td>
+                    <td class="num">372</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    length(unique(x)) !=</pre>
+                      <pre class="language-r">    gg_plt &lt;- gg_plt + geom_point(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">302</td>
-                    <td class="coverage">182<em>x</em></td>
+                    <td class="num">373</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      1</pre>
+                      <pre class="language-r">      x = x_t,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">303</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">374</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })]), 1, paste, collapse = ":")</pre>
+                      <pre class="language-r">      y = row_num,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">304</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">375</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  rownames(res) &lt;- xn</pre>
+                      <pre class="language-r">      color = col,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">305</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">376</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(res)</pre>
+                      <pre class="language-r">      aes(size = sym_size),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">306</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">377</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      na.rm = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">307</td>
+                    <td class="num">378</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">308</td>
+                    <td class="num">379</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn desctools_binom Compute confidence intervals for binomial proportions.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">309</td>
+                    <td class="num">380</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">310</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">381</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`integer(1)`)\cr number of successes.</pre>
+                      <pre class="language-r">  for (i in seq_len(nrow(tbl_df))) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">311</td>
+                    <td class="num">382</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param n (`integer(1)`)\cr number of trials.</pre>
+                      <pre class="language-r">    # Determine which arrow(s) to add to CI lines</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">312</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">383</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param conf.level (`proportion`)\cr confidence level, defaults to 0.95.</pre>
+                      <pre class="language-r">    which_arrow &lt;- c(lwr_t[i] &lt; xlim_t[1], upr_t[i] &gt; xlim_t[2])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">313</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">384</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param sides (`string`)\cr side of the confidence interval to compute. Must be one of `"two-sided"` (default),</pre>
+                      <pre class="language-r">    which_arrow &lt;- dplyr::case_when(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">314</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">385</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `"left"`, or `"right"`.</pre>
+                      <pre class="language-r">      all(which_arrow) ~ "both",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">315</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">386</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param method (`string`)\cr method to use. Can be one out of: `"wald"`, `"wilson"`, `"wilsoncc"`,</pre>
+                      <pre class="language-r">      which_arrow[1] ~ "first",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">316</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">387</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `"agresti-coull"`, `"jeffreys"`, `"modified wilson"`, `"modified jeffreys"`, `"clopper-pearson"`, `"arcsine"`,</pre>
+                      <pre class="language-r">      which_arrow[2] ~ "last",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">317</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">388</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `"logit"`, `"witting"`, `"pratt"`, `"midp"`, `"lik"`, and `"blaker"`.</pre>
+                      <pre class="language-r">      TRUE ~ NA_character_</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">318</td>
+                    <td class="num">389</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">319</td>
+                    <td class="num">390</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `matrix` with 3 columns containing:</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">320</td>
+                    <td class="num">391</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `est`: estimate of proportion difference.</pre>
+                      <pre class="language-r">    # Add CI lines</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">321</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">392</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `lwr.ci`: lower end of the confidence interval.</pre>
+                      <pre class="language-r">    gg_plt &lt;- gg_plt +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">322</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">393</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `upr.ci`: upper end of the confidence interval.</pre>
+                      <pre class="language-r">      if (!is.na(which_arrow)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">323</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">394</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        annotate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">324</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">395</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">          "segment",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">325</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">396</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">desctools_binomci &lt;- function(x,</pre>
+                      <pre class="language-r">          x = if (!which_arrow %in% c("first", "both")) lwr[i] else xlim[1],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">326</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">397</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              n,</pre>
+                      <pre class="language-r">          xend = if (!which_arrow %in% c("last", "both")) upr[i] else xlim[2],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">327</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">398</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              conf.level = 0.95, # nolint</pre>
+                      <pre class="language-r">          y = row_num[i], yend = row_num[i],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">328</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">399</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              sides = c("two.sided", "left", "right"),</pre>
+                      <pre class="language-r">          color = if (length(col) == 1) col else col[i],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">329</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">400</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              method = c(</pre>
+                      <pre class="language-r">          arrow = arrow(length = unit(0.05, "npc"), ends = which_arrow),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">330</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">401</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                "wilson", "wald", "waldcc", "agresti-coull",</pre>
+                      <pre class="language-r">          na.rm = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">331</td>
+                    <td class="num">402</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                "jeffreys", "modified wilson", "wilsoncc", "modified jeffreys",</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">332</td>
+                    <td class="num">403</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                "clopper-pearson", "arcsine", "logit", "witting", "pratt",</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">333</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">404</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                "midp", "lik", "blaker"</pre>
+                      <pre class="language-r">        annotate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">334</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">405</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              ),</pre>
+                      <pre class="language-r">          "segment",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">335</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">406</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              rand = 123,</pre>
+                      <pre class="language-r">          x = lwr[i], xend = upr[i],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">336</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">407</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              tol = 1e-05) {</pre>
+                      <pre class="language-r">          y = row_num[i], yend = row_num[i],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">337</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">408</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (missing(method)) {</pre>
+                      <pre class="language-r">          color = if (length(col) == 1) col else col[i],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">338</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">409</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    method &lt;- "wilson"</pre>
+                      <pre class="language-r">          na.rm = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">339</td>
+                    <td class="num">410</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">340</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">411</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (missing(sides)) {</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">341</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">412</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    sides &lt;- "two.sided"</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">342</td>
+                    <td class="num">413</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">343</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">414</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  iBinomCI &lt;- function(x, n, conf.level = 0.95, sides = c("two.sided", "left", "right"), # nolint</pre>
+                      <pre class="language-r">  # Apply custom ggtheme to plot</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">344</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">415</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       method = c(</pre>
+                      <pre class="language-r">  if (!is.null(ggtheme)) gg_plt &lt;- gg_plt + ggtheme</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">416</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">345</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">417</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         "wilson", "wilsoncc", "wald",</pre>
+                      <pre class="language-r">  if (as_list) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">346</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">418</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         "waldcc", "agresti-coull", "jeffreys", "modified wilson",</pre>
+                      <pre class="language-r">    list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">347</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">419</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         "modified jeffreys", "clopper-pearson", "arcsine", "logit",</pre>
+                      <pre class="language-r">      table = gg_table,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">348</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">420</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         "witting", "pratt", "midp", "lik", "blaker"</pre>
+                      <pre class="language-r">      plot = gg_plt</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">349</td>
+                    <td class="num">421</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       ),</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">350</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">422</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       rand = 123,</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">351</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">423</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       tol = 1e-05) {</pre>
+                      <pre class="language-r">    cowplot::plot_grid(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">352</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">424</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (length(x) != 1) {</pre>
+                      <pre class="language-r">      gg_table,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">353</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">425</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stop("'x' has to be of length 1 (number of successes)")</pre>
+                      <pre class="language-r">      gg_plt,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">354</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">426</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">      align = "h",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">355</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">427</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (length(n) != 1) {</pre>
+                      <pre class="language-r">      axis = "tblr",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">356</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">428</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stop("'n' has to be of length 1 (number of trials)")</pre>
+                      <pre class="language-r">      rel_widths = c(1 - rel_width_forest, rel_width_forest)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">357</td>
+                    <td class="num">429</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">358</td>
-                    <td class="coverage">26<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    if (length(conf.level) != 1) {</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">359</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">430</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stop("'conf.level' has to be of length 1 (confidence level)")</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">360</td>
+                    <td class="num">431</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">361</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">432</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (conf.level &lt; 0.5 || conf.level &gt; 1) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">362</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">433</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stop("'conf.level' has to be in [0.5, 1]")</pre>
+                      <pre class="language-r">#' Forest plot grob</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">363</td>
+                    <td class="num">434</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">364</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">435</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    sides &lt;- match.arg(sides, choices = c(</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">365</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">436</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "two.sided", "left",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">366</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">437</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "right"</pre>
+                      <pre class="language-r">#' @inheritParams g_forest</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">367</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">438</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ), several.ok = FALSE)</pre>
+                      <pre class="language-r">#' @param tbl (`VTableTree`)\cr `rtables` table object.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">368</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">439</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (sides != "two.sided") {</pre>
+                      <pre class="language-r">#' @param x (`numeric`)\cr coordinate of point.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">369</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">440</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      conf.level &lt;- 1 - 2 * (1 - conf.level) # nolint</pre>
+                      <pre class="language-r">#' @param lower,upper (`numeric`)\cr lower/upper bound of the confidence interval.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">370</td>
+                    <td class="num">441</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' @param symbol_size (`numeric`)\cr vector with relative size for plot symbol.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">371</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">442</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    alpha &lt;- 1 - conf.level</pre>
+                      <pre class="language-r">#'   If `NULL`, the same symbol size is used.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">372</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">443</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    kappa &lt;- stats::qnorm(1 - alpha / 2)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">373</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">444</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    p_hat &lt;- x / n</pre>
+                      <pre class="language-r">#' @details</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">374</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">445</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    q_hat &lt;- 1 - p_hat</pre>
+                      <pre class="language-r">#' The heights get automatically determined.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">375</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">446</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    est &lt;- p_hat</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">376</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">447</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    switch(match.arg(arg = method, choices = c(</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">377</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">448</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "wilson",</pre>
+                      <pre class="language-r">#' tbl &lt;- rtable(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">378</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">449</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "wald", "waldcc", "wilsoncc", "agresti-coull", "jeffreys",</pre>
+                      <pre class="language-r">#'   header = rheader(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">379</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">450</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "modified wilson", "modified jeffreys", "clopper-pearson",</pre>
+                      <pre class="language-r">#'     rrow("", "E", rcell("CI", colspan = 2), "N"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">380</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">451</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "arcsine", "logit", "witting", "pratt", "midp", "lik",</pre>
+                      <pre class="language-r">#'     rrow("", "A", "B", "C", "D")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">381</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">452</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "blaker"</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">382</td>
+                    <td class="num">453</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )),</pre>
+                      <pre class="language-r">#'   rrow("row 1", 1, 0.8, 1.1, 16),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">383</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">454</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    wald = {</pre>
+                      <pre class="language-r">#'   rrow("row 2", 1.4, 0.8, 1.6, 25),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">384</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">455</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      term2 &lt;- kappa * sqrt(p_hat * q_hat) / sqrt(n)</pre>
+                      <pre class="language-r">#'   rrow("row 3", 1.2, 0.8, 1.6, 36)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">385</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">456</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci_lwr &lt;- max(0, p_hat - term2)</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">386</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">457</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci_upr &lt;- min(1, p_hat + term2)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">387</td>
+                    <td class="num">458</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#' x &lt;- c(1, 1.4, 1.2)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">388</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">459</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    waldcc = {</pre>
+                      <pre class="language-r">#' lower &lt;- c(0.8, 0.8, 0.8)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">389</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">460</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      term2 &lt;- kappa * sqrt(p_hat * q_hat) / sqrt(n)</pre>
+                      <pre class="language-r">#' upper &lt;- c(1.1, 1.6, 1.6)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">390</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">461</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      term2 &lt;- term2 + 1 / (2 * n)</pre>
+                      <pre class="language-r">#' # numeric vector with multiplication factor to scale each circle radius</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">391</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">462</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci_lwr &lt;- max(0, p_hat - term2)</pre>
+                      <pre class="language-r">#' # default radius is 1/3.5 lines</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">392</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">463</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci_upr &lt;- min(1, p_hat + term2)</pre>
+                      <pre class="language-r">#' symbol_scale &lt;- c(1, 1.25, 1.5)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">393</td>
+                    <td class="num">464</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">394</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">465</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    wilson = {</pre>
+                      <pre class="language-r">#' # Internal function - forest_grob</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">395</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">466</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      term1 &lt;- (x + kappa^2 / 2) / (n + kappa^2)</pre>
+                      <pre class="language-r">#' \donttest{</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">396</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">467</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      term2 &lt;- kappa * sqrt(n) / (n + kappa^2) * sqrt(p_hat * q_hat + kappa^2 / (4 * n))</pre>
+                      <pre class="language-r">#' p &lt;- forest_grob(tbl, x, lower, upper,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">397</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">468</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci_lwr &lt;- max(0, term1 - term2)</pre>
+                      <pre class="language-r">#'   vline = 1, forest_header = c("A", "B"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">398</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">469</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci_upr &lt;- min(1, term1 + term2)</pre>
+                      <pre class="language-r">#'   x_at = c(.1, 1, 10), xlim = c(0.1, 10), logx = TRUE, symbol_size = symbol_scale,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">399</td>
+                    <td class="num">470</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">#'   vp = grid::plotViewport(margins = c(1, 1, 1, 1))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">400</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">471</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    wilsoncc = {</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">401</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">472</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lci &lt;- (</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">402</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">473</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        2 * x + kappa^2 - 1 - kappa * sqrt(kappa^2 - 2 - 1 / n + 4 * p_hat * (n * q_hat + 1))</pre>
+                      <pre class="language-r">#' draw_grob(p)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">403</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">474</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ) / (2 * (n + kappa^2))</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">404</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">475</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      uci &lt;- (</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">405</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">476</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        2 * x + kappa^2 + 1 + kappa * sqrt(kappa^2 + 2 - 1 / n + 4 * p_hat * (n * q_hat - 1))</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">406</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">477</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ) / (2 * (n + kappa^2))</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">407</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">478</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci_lwr &lt;- max(0, ifelse(p_hat == 0, 0, lci))</pre>
+                      <pre class="language-r">forest_grob &lt;- function(tbl,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">408</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">479</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci_upr &lt;- min(1, ifelse(p_hat == 1, 1, uci))</pre>
+                      <pre class="language-r">                        x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">409</td>
+                    <td class="num">480</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">                        lower,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">410</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">481</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    `agresti-coull` = {</pre>
+                      <pre class="language-r">                        upper,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">411</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">482</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x_tilde &lt;- x + kappa^2 / 2</pre>
+                      <pre class="language-r">                        vline,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">412</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">483</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n_tilde &lt;- n + kappa^2</pre>
+                      <pre class="language-r">                        forest_header,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">413</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">484</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      p_tilde &lt;- x_tilde / n_tilde</pre>
+                      <pre class="language-r">                        xlim = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">414</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">485</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      q_tilde &lt;- 1 - p_tilde</pre>
+                      <pre class="language-r">                        logx = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">415</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">486</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      est &lt;- p_tilde</pre>
+                      <pre class="language-r">                        x_at = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">416</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">487</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      term2 &lt;- kappa * sqrt(p_tilde * q_tilde) / sqrt(n_tilde)</pre>
+                      <pre class="language-r">                        width_row_names = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">417</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">488</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci_lwr &lt;- max(0, p_tilde - term2)</pre>
+                      <pre class="language-r">                        width_columns = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">418</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">489</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci_upr &lt;- min(1, p_tilde + term2)</pre>
+                      <pre class="language-r">                        width_forest = grid::unit(1, "null"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">419</td>
+                    <td class="num">490</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">                        symbol_size = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">420</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">491</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    jeffreys = {</pre>
+                      <pre class="language-r">                        col = "blue",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">421</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">492</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (x == 0) {</pre>
+                      <pre class="language-r">                        name = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">422</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">493</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_lwr &lt;- 0</pre>
+                      <pre class="language-r">                        gp = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">423</td>
+                    <td class="num">494</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">                        vp = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">424</td>
+                    <td class="num">495</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_lwr &lt;- stats::qbeta(</pre>
+                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">425</td>
+                    <td class="num">496</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          alpha / 2,</pre>
+                      <pre class="language-r">    "0.9.4", "forest_grob()",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">426</td>
+                    <td class="num">497</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x + 0.5, n - x + 0.5</pre>
+                      <pre class="language-r">    details = "`g_forest` now generates `ggplot` objects. This function is no longer used within `tern`."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">427</td>
+                    <td class="num">498</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">428</td>
+                    <td class="num">499</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">429</td>
+                    <td class="num">500</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (x == n) {</pre>
+                      <pre class="language-r">  nr &lt;- nrow(tbl)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">501</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (is.null(vline)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">430</td>
+                    <td class="num">502</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_upr &lt;- 1</pre>
+                      <pre class="language-r">    checkmate::assert_true(is.null(forest_header))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">431</td>
+                    <td class="num">503</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">432</td>
+                    <td class="num">504</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_upr &lt;- stats::qbeta(1 - alpha / 2, x + 0.5, n - x + 0.5)</pre>
+                      <pre class="language-r">    checkmate::assert_number(vline)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">505</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    checkmate::assert_character(forest_header, len = 2, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">433</td>
+                    <td class="num">506</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">434</td>
+                    <td class="num">507</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">435</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">508</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    `modified wilson` = {</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(x, len = nr)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">436</td>
+                    <td class="num">509</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      term1 &lt;- (x + kappa^2 / 2) / (n + kappa^2)</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(lower, len = nr)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">437</td>
+                    <td class="num">510</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      term2 &lt;- kappa * sqrt(n) / (n + kappa^2) * sqrt(p_hat * q_hat + kappa^2 / (4 * n))</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(upper, len = nr)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">438</td>
+                    <td class="num">511</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if ((n &lt;= 50 &amp; x %in% c(1, 2)) | (n &gt;= 51 &amp; x %in% c(1:3))) {</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(symbol_size, len = nr, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">439</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">512</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_lwr &lt;- 0.5 * stats::qchisq(alpha, 2 * x) / n</pre>
+                      <pre class="language-r">  checkmate::assert_character(col)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">440</td>
+                    <td class="num">513</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">441</td>
+                    <td class="num">514</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_lwr &lt;- max(0, term1 - term2)</pre>
+                      <pre class="language-r">  if (is.null(symbol_size)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">442</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">515</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">    symbol_size &lt;- rep(1, nr)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">443</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">516</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if ((n &lt;= 50 &amp; x %in% c(n - 1, n - 2)) | (n &gt;= 51 &amp; x %in% c(n - (1:3)))) {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">444</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">517</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_upr &lt;- 1 - 0.5 * stats::qchisq(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">445</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">518</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          alpha,</pre>
+                      <pre class="language-r">  if (is.null(xlim)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">446</td>
+                    <td class="num">519</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          2 * (n - x)</pre>
+                      <pre class="language-r">    r &lt;- range(c(x, lower, upper), na.rm = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">447</td>
+                    <td class="num">520</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ) / n</pre>
+                      <pre class="language-r">    xlim &lt;- r + c(-0.05, 0.05) * diff(r)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">448</td>
+                    <td class="num">521</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">449</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        ci_upr &lt;- min(1, term1 + term2)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">450</td>
+                    <td class="num">522</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">451</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">523</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">  if (logx) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">452</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">524</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    `modified jeffreys` = {</pre>
+                      <pre class="language-r">    if (is.null(x_at)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">453</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">525</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (x == n) {</pre>
+                      <pre class="language-r">      x_at &lt;- pretty(log(stats::na.omit(c(x, lower, upper))))</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">454</td>
+                    <td class="num">526</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_lwr &lt;- (alpha / 2)^(1 / n)</pre>
+                      <pre class="language-r">      x_labels &lt;- exp(x_at)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">455</td>
+                    <td class="num">527</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">456</td>
+                    <td class="num">528</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (x &lt;= 1) {</pre>
+                      <pre class="language-r">      x_labels &lt;- x_at</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">457</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">529</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ci_lwr &lt;- 0</pre>
+                      <pre class="language-r">      x_at &lt;- log(x_at)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">458</td>
+                    <td class="num">530</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">459</td>
+                    <td class="num">531</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ci_lwr &lt;- stats::qbeta(</pre>
+                      <pre class="language-r">    xlim &lt;- log(xlim)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">460</td>
+                    <td class="num">532</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            alpha / 2,</pre>
+                      <pre class="language-r">    x &lt;- log(x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">461</td>
+                    <td class="num">533</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            x + 0.5, n - x + 0.5</pre>
+                      <pre class="language-r">    lower &lt;- log(lower)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">462</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">534</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    upper &lt;- log(upper)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">463</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">535</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">    if (!is.null(vline)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">536</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      vline &lt;- log(vline)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">464</td>
+                    <td class="num">537</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">465</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">538</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (x == 0) {</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">466</td>
+                    <td class="num">539</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_upr &lt;- 1 - (alpha / 2)^(1 / n)</pre>
+                      <pre class="language-r">    x_labels &lt;- TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">467</td>
+                    <td class="num">540</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">541</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">468</td>
+                    <td class="num">542</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (x &gt;= n - 1) {</pre>
+                      <pre class="language-r">  data_forest_vp &lt;- grid::dataViewport(xlim, c(0, 1))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">469</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">543</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ci_upr &lt;- 1</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">470</td>
+                    <td class="num">544</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">  # Get table content as matrix form.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">471</td>
+                    <td class="num">545</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ci_upr &lt;- stats::qbeta(1 - alpha / 2, x + 0.5, n - x + 0.5)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">472</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">  mf &lt;- matrix_form(tbl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">473</td>
+                    <td class="num">546</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">474</td>
+                    <td class="num">547</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">  # Use `rtables` indent_string eventually.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">475</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">548</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    `clopper-pearson` = {</pre>
+                      <pre class="language-r">  mf$strings[, 1] &lt;- paste0(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">476</td>
+                    <td class="num">549</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci_lwr &lt;- stats::qbeta(alpha / 2, x, n - x + 1)</pre>
+                      <pre class="language-r">    strrep("    ", c(rep(0, attr(mf, "nrow_header")), mf$row_info$indent)),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">477</td>
+                    <td class="num">550</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci_upr &lt;- stats::qbeta(1 - alpha / 2, x + 1, n - x)</pre>
+                      <pre class="language-r">    mf$strings[, 1]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">478</td>
+                    <td class="num">551</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">479</td>
-                    <td class="coverage">26<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    arcsine = {</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">480</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">552</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      p_tilde &lt;- (x + 0.375) / (n + 0.75)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">481</td>
+                    <td class="num">553</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      est &lt;- p_tilde</pre>
+                      <pre class="language-r">  n_header &lt;- attr(mf, "nrow_header")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">482</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">554</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci_lwr &lt;- sin(asin(sqrt(p_tilde)) - 0.5 * kappa / sqrt(n))^2</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">483</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">555</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci_upr &lt;- sin(asin(sqrt(p_tilde)) + 0.5 * kappa / sqrt(n))^2</pre>
+                      <pre class="language-r">  if (any(mf$display[, 1] == FALSE)) stop("row names need to be always displayed")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">484</td>
+                    <td class="num">556</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">485</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">557</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    logit = {</pre>
+                      <pre class="language-r">  # Pre-process the data to be used in lapply and cell_in_rows.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">486</td>
+                    <td class="num">558</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lambda_hat &lt;- log(x / (n - x))</pre>
+                      <pre class="language-r">  to_args_for_cell_in_rows_fun &lt;- function(part = c("body", "header"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">487</td>
+                    <td class="num">559</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      V_hat &lt;- n / (x * (n - x)) # nolint</pre>
+                      <pre class="language-r">                                           underline_colspan = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">488</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">560</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lambda_lower &lt;- lambda_hat - kappa * sqrt(V_hat)</pre>
+                      <pre class="language-r">    part &lt;- match.arg(part)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">489</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">561</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lambda_upper &lt;- lambda_hat + kappa * sqrt(V_hat)</pre>
+                      <pre class="language-r">    if (part == "body") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">490</td>
+                    <td class="num">562</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci_lwr &lt;- exp(lambda_lower) / (1 + exp(lambda_lower))</pre>
+                      <pre class="language-r">      mat_row_indices &lt;- seq_len(nrow(tbl)) + n_header</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">491</td>
+                    <td class="num">563</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci_upr &lt;- exp(lambda_upper) / (1 + exp(lambda_upper))</pre>
+                      <pre class="language-r">      row_ind_offset &lt;- -n_header</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">492</td>
+                    <td class="num">564</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">493</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">565</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    witting = {</pre>
+                      <pre class="language-r">      mat_row_indices &lt;- seq_len(n_header)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">494</td>
+                    <td class="num">566</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      set.seed(rand)</pre>
+                      <pre class="language-r">      row_ind_offset &lt;- 0</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">495</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">567</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x_tilde &lt;- x + stats::runif(1, min = 0, max = 1)</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">496</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">568</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pbinom_abscont &lt;- function(q, size, prob) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">497</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">569</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        v &lt;- trunc(q)</pre>
+                      <pre class="language-r">    lapply(mat_row_indices, function(i) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">498</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">570</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        term1 &lt;- stats::pbinom(v - 1, size = size, prob = prob)</pre>
+                      <pre class="language-r">      disp &lt;- mf$display[i, -1]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">499</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">571</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        term2 &lt;- (q - v) * stats::dbinom(v, size = size, prob = prob)</pre>
+                      <pre class="language-r">      list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">500</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">572</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        return(term1 + term2)</pre>
+                      <pre class="language-r">        row_name = mf$strings[i, 1],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">501</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">573</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">        cells = mf$strings[i, -1][disp],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">502</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">574</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      qbinom_abscont &lt;- function(p, size, x) {</pre>
+                      <pre class="language-r">        cell_spans = mf$spans[i, -1][disp],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">503</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">575</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        fun &lt;- function(prob, size, x, p) {</pre>
+                      <pre class="language-r">        row_index = i + row_ind_offset,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">504</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">576</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          pbinom_abscont(x, size, prob) - p</pre>
+                      <pre class="language-r">        underline_colspan = underline_colspan</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">505</td>
+                    <td class="num">577</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">506</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        stats::uniroot(fun,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">507</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          interval = c(0, 1), size = size,</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">508</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">578</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = x, p = p</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">509</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">579</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )$root</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">510</td>
+                    <td class="num">580</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">511</td>
+                    <td class="num">581</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci_lwr &lt;- qbinom_abscont(1 - alpha, size = n, x = x_tilde)</pre>
+                      <pre class="language-r">  args_header &lt;- to_args_for_cell_in_rows_fun("header", underline_colspan = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">512</td>
+                    <td class="num">582</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci_upr &lt;- qbinom_abscont(alpha, size = n, x = x_tilde)</pre>
+                      <pre class="language-r">  args_body &lt;- to_args_for_cell_in_rows_fun("body", underline_colspan = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">513</td>
+                    <td class="num">583</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">514</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">584</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pratt = {</pre>
+                      <pre class="language-r">  grid::gTree(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">515</td>
+                    <td class="num">585</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (x == 0) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">516</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        ci_lwr &lt;- 0</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">517</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        ci_upr &lt;- 1 - alpha^(1 / n)</pre>
+                      <pre class="language-r">    name = name,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">518</td>
+                    <td class="num">586</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (x == 1) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">519</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        ci_lwr &lt;- 1 - (1 - alpha / 2)^(1 / n)</pre>
+                      <pre class="language-r">    children = grid::gList(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">520</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">587</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_upr &lt;- 1 - (alpha / 2)^(1 / n)</pre>
+                      <pre class="language-r">      grid::gTree(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">521</td>
+                    <td class="num">588</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (x == (n - 1)) {</pre>
+                      <pre class="language-r">        children = do.call(grid::gList, lapply(args_header, do.call, what = cell_in_rows)),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">522</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">589</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_lwr &lt;- (alpha / 2)^(1 / n)</pre>
+                      <pre class="language-r">        vp = grid::vpPath("vp_table_layout", "vp_header")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">523</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">590</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_upr &lt;- (1 - alpha / 2)^(1 / n)</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">524</td>
+                    <td class="num">591</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (x == n) {</pre>
+                      <pre class="language-r">      grid::gTree(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">525</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">592</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_lwr &lt;- alpha^(1 / n)</pre>
+                      <pre class="language-r">        children = do.call(grid::gList, lapply(args_body, do.call, what = cell_in_rows)),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">526</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">593</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_upr &lt;- 1</pre>
+                      <pre class="language-r">        vp = grid::vpPath("vp_table_layout", "vp_body")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">527</td>
+                    <td class="num">594</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">528</td>
+                    <td class="num">595</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        z &lt;- stats::qnorm(1 - alpha / 2)</pre>
+                      <pre class="language-r">      grid::linesGrob(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">529</td>
+                    <td class="num">596</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        A &lt;- ((x + 1) / (n - x))^2 # nolint</pre>
+                      <pre class="language-r">        grid::unit(c(0, 1), "npc"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">530</td>
+                    <td class="num">597</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        B &lt;- 81 * (x + 1) * (n - x) - 9 * n - 8 # nolint</pre>
+                      <pre class="language-r">        y = grid::unit(c(.5, .5), "npc"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">531</td>
+                    <td class="num">598</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        C &lt;- (0 - 3) * z * sqrt(9 * (x + 1) * (n - x) * (9 * n + 5 - z^2) + n + 1) # nolint</pre>
+                      <pre class="language-r">        vp = grid::vpPath("vp_table_layout", "vp_spacer")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">532</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">599</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        D &lt;- 81 * (x + 1)^2 - 9 * (x + 1) * (2 + z^2) + 1 # nolint</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">533</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">600</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        E &lt;- 1 + A * ((B + C) / D)^3 # nolint</pre>
+                      <pre class="language-r">      # forest part</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">534</td>
+                    <td class="num">601</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_upr &lt;- 1 / E</pre>
+                      <pre class="language-r">      if (is.null(vline)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">535</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">602</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        A &lt;- (x / (n - x - 1))^2 # nolint</pre>
+                      <pre class="language-r">        NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">536</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">603</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        B &lt;- 81 * x * (n - x - 1) - 9 * n - 8 # nolint</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">537</td>
+                    <td class="num">604</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        C &lt;- 3 * z * sqrt(9 * x * (n - x - 1) * (9 * n + 5 - z^2) + n + 1) # nolint</pre>
+                      <pre class="language-r">        grid::gTree(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">538</td>
+                    <td class="num">605</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        D &lt;- 81 * x^2 - 9 * x * (2 + z^2) + 1 # nolint</pre>
+                      <pre class="language-r">          children = grid::gList(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">539</td>
+                    <td class="num">606</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        E &lt;- 1 + A * ((B + C) / D)^3 # nolint</pre>
+                      <pre class="language-r">            grid::gTree(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">540</td>
+                    <td class="num">607</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_lwr &lt;- 1 / E</pre>
+                      <pre class="language-r">              children = grid::gList(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">541</td>
+                    <td class="num">608</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">                # this may overflow, to fix, look here</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">542</td>
+                    <td class="num">609</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">                # https://stackoverflow.com/questions/33623169/add-multi-line-footnote-to-tablegrob-while-using-gridextra-in-r # nolint</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">543</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">610</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    midp = {</pre>
+                      <pre class="language-r">                grid::textGrob(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">544</td>
+                    <td class="num">611</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      f_low &lt;- function(pi, x, n) {</pre>
+                      <pre class="language-r">                  forest_header[1],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">545</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">612</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        1 / 2 * stats::dbinom(x, size = n, prob = pi) + stats::pbinom(x,</pre>
+                      <pre class="language-r">                  x = grid::unit(vline, "native") - grid::unit(1, "lines"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">546</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">613</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          size = n, prob = pi, lower.tail = FALSE</pre>
+                      <pre class="language-r">                  just = c("right", "center")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">547</td>
+                    <td class="num">614</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ) -</pre>
+                      <pre class="language-r">                ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">548</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">615</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          (1 - conf.level) / 2</pre>
+                      <pre class="language-r">                grid::textGrob(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">549</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">616</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">                  forest_header[2],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">550</td>
+                    <td class="num">617</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      f_up &lt;- function(pi, x, n) {</pre>
+                      <pre class="language-r">                  x = grid::unit(vline, "native") + grid::unit(1, "lines"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">551</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">618</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        1 / 2 * stats::dbinom(x, size = n, prob = pi) + stats::pbinom(x - 1, size = n, prob = pi) - (1 - conf.level) / 2</pre>
+                      <pre class="language-r">                  just = c("left", "center")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">552</td>
+                    <td class="num">619</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">553</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">620</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci_lwr &lt;- 0</pre>
+                      <pre class="language-r">              ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">554</td>
+                    <td class="num">621</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci_upr &lt;- 1</pre>
+                      <pre class="language-r">              vp = grid::vpStack(grid::viewport(layout.pos.col = ncol(tbl) + 2), data_forest_vp)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">555</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">622</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (x != 0) {</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">556</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">623</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_lwr &lt;- stats::uniroot(f_low,</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">557</td>
+                    <td class="num">624</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          interval = c(0, p_hat),</pre>
+                      <pre class="language-r">          vp = grid::vpPath("vp_table_layout", "vp_header")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">558</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">625</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = x, n = n</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">559</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">626</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )$root</pre>
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">560</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">627</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      grid::gTree(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">561</td>
+                    <td class="num">628</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (x != n) {</pre>
+                      <pre class="language-r">        children = grid::gList(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">562</td>
+                    <td class="num">629</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_upr &lt;- stats::uniroot(f_up, interval = c(</pre>
+                      <pre class="language-r">          grid::gTree(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">563</td>
+                    <td class="num">630</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          p_hat,</pre>
+                      <pre class="language-r">            children = grid::gList(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">564</td>
+                    <td class="num">631</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          1</pre>
+                      <pre class="language-r">              grid::rectGrob(gp = grid::gpar(col = "gray90", fill = "gray90")),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">565</td>
+                    <td class="num">632</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ), x = x, n = n)$root</pre>
+                      <pre class="language-r">              if (is.null(vline)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">566</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">633</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">                NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">567</td>
+                    <td class="num">634</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">              } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">568</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">635</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lik = {</pre>
+                      <pre class="language-r">                grid::linesGrob(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">569</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">636</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci_lwr &lt;- 0</pre>
+                      <pre class="language-r">                  x = grid::unit(rep(vline, 2), "native"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">570</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">637</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci_upr &lt;- 1</pre>
+                      <pre class="language-r">                  y = grid::unit(c(0, 1), "npc"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">571</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">638</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      z &lt;- stats::qnorm(1 - alpha * 0.5)</pre>
+                      <pre class="language-r">                  gp = grid::gpar(lwd = 2),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">572</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">639</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tol &lt;- .Machine$double.eps^0.5</pre>
+                      <pre class="language-r">                  vp = data_forest_vp</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">573</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">640</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      BinDev &lt;- function(y, x, mu, wt, bound = 0, tol = .Machine$double.eps^0.5, # nolint</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">574</td>
+                    <td class="num">641</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         ...) {</pre>
+                      <pre class="language-r">              },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">575</td>
-                    <td class="coverage">40<em>x</em></td>
+                    <td class="num">642</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ll_y &lt;- ifelse(y %in% c(0, 1), 0, stats::dbinom(x, wt,</pre>
+                      <pre class="language-r">              grid::xaxisGrob(at = x_at, label = x_labels, vp = data_forest_vp)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">576</td>
-                    <td class="coverage">40<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">643</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          y,</pre>
+                      <pre class="language-r">            ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">577</td>
-                    <td class="coverage">40<em>x</em></td>
+                    <td class="num">644</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          log = TRUE</pre>
+                      <pre class="language-r">            vp = grid::viewport(layout.pos.col = ncol(tbl) + 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">578</td>
+                    <td class="num">645</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">579</td>
-                    <td class="coverage">40<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        ll_mu &lt;- ifelse(mu %in% c(0, 1), 0, stats::dbinom(x,</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">580</td>
-                    <td class="coverage">40<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">646</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          wt, mu,</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">581</td>
-                    <td class="coverage">40<em>x</em></td>
+                    <td class="num">647</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          log = TRUE</pre>
+                      <pre class="language-r">        vp = grid::vpPath("vp_table_layout", "vp_body")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">582</td>
+                    <td class="num">648</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ))</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">583</td>
-                    <td class="coverage">40<em>x</em></td>
+                    <td class="num">649</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        res &lt;- ifelse(abs(y - mu) &lt; tol, 0, sign(y - mu) * sqrt(-2 * (ll_y - ll_mu)))</pre>
+                      <pre class="language-r">      grid::gTree(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">584</td>
-                    <td class="coverage">40<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        return(res - bound)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">585</td>
-                    <td class="coverage"></td>
+                    <td class="num">650</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">        children = do.call(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">586</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">651</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (x != 0 &amp;&amp; tol &lt; p_hat) {</pre>
+                      <pre class="language-r">          grid::gList,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">587</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">652</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_lwr &lt;- if (BinDev(</pre>
+                      <pre class="language-r">          Map(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">588</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">653</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tol, x, p_hat, n, -z,</pre>
+                      <pre class="language-r">            function(xi, li, ui, row_index, size_i, col) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">589</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">654</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          tol</pre>
+                      <pre class="language-r">              forest_dot_line(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">590</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">655</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ) &lt;= 0) {</pre>
+                      <pre class="language-r">                xi,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">591</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">656</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          stats::uniroot(</pre>
+                      <pre class="language-r">                li,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">592</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">            f = BinDev, interval = c(tol, if (p_hat &lt; tol || p_hat == 1) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">593</td>
-                    <td class="coverage">!</td>
+                    <td class="num">657</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              1 - tol</pre>
+                      <pre class="language-r">                ui,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">594</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">658</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            } else {</pre>
+                      <pre class="language-r">                row_index,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">595</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">659</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              p_hat</pre>
+                      <pre class="language-r">                xlim,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">596</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">660</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }), bound = -z,</pre>
+                      <pre class="language-r">                symbol_size = size_i,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">597</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">661</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            x = x, mu = p_hat, wt = n</pre>
+                      <pre class="language-r">                col = col,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">598</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">662</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )$root</pre>
+                      <pre class="language-r">                datavp = data_forest_vp</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">599</td>
+                    <td class="num">663</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">600</td>
+                    <td class="num">664</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">            },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">601</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">665</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (x != n &amp;&amp; p_hat &lt; (1 - tol)) {</pre>
+                      <pre class="language-r">            x,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">602</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">666</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_upr &lt;- if (</pre>
+                      <pre class="language-r">            lower,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">603</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">667</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          BinDev(y = 1 - tol, x = x, mu = ifelse(p_hat &gt; 1 - tol, tol, p_hat), wt = n, bound = z, tol = tol) &lt; 0) { # nolint</pre>
+                      <pre class="language-r">            upper,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">604</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">668</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ci_lwr &lt;- if (BinDev(</pre>
+                      <pre class="language-r">            seq_along(x),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">605</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">669</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            tol, x, if (p_hat &lt; tol || p_hat == 1) {</pre>
+                      <pre class="language-r">            symbol_size,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">606</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">670</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              1 - tol</pre>
+                      <pre class="language-r">            col,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">671</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">            USE.NAMES = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">607</td>
+                    <td class="num">672</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            } else {</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">608</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">673</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              p_hat</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">609</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">674</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }, n,</pre>
+                      <pre class="language-r">        vp = grid::vpPath("vp_table_layout", "vp_body")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">610</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">675</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            -z, tol</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">611</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">676</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ) &lt;= 0) {</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">612</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">677</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            stats::uniroot(</pre>
+                      <pre class="language-r">    childrenvp = forest_viewport(tbl, width_row_names, width_columns, width_forest),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">613</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">678</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              f = BinDev, interval = c(tol, p_hat),</pre>
+                      <pre class="language-r">    vp = vp,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">614</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">679</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              bound = -z, x = x, mu = p_hat, wt = n</pre>
+                      <pre class="language-r">    gp = gp</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">615</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">680</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )$root</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">616</td>
+                    <td class="num">681</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">617</td>
+                    <td class="num">682</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">618</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">683</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          stats::uniroot(</pre>
+                      <pre class="language-r">cell_in_rows &lt;- function(row_name,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">619</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">684</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            f = BinDev, interval = c(if (p_hat &gt; 1 - tol) {</pre>
+                      <pre class="language-r">                         cells,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">620</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">685</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              tol</pre>
+                      <pre class="language-r">                         cell_spans,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">621</td>
+                    <td class="num">686</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            } else {</pre>
+                      <pre class="language-r">                         row_index,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">622</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">687</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              p_hat</pre>
+                      <pre class="language-r">                         underline_colspan = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">623</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">688</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }, 1 - tol), bound = z,</pre>
+                      <pre class="language-r">  checkmate::assert_string(row_name)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">624</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">689</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            x = x, mu = p_hat, wt = n</pre>
+                      <pre class="language-r">  checkmate::assert_character(cells, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">625</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">690</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )$root</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(cell_spans, len = length(cells), any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">626</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">691</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">  checkmate::assert_number(row_index)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">627</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">692</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">  checkmate::assert_flag(underline_colspan)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">628</td>
+                    <td class="num">693</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">629</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">694</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    blaker = {</pre>
+                      <pre class="language-r">  vp_name_rn &lt;- paste0("rowname-", row_index)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">630</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">695</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      acceptbin &lt;- function(x, n, p) {</pre>
+                      <pre class="language-r">  g_rowname &lt;- if (!is.null(row_name) &amp;&amp; row_name != "") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">631</td>
-                    <td class="coverage">3954<em>x</em></td>
+                    <td class="num">696</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        p1 &lt;- 1 - stats::pbinom(x - 1, n, p)</pre>
+                      <pre class="language-r">    grid::textGrob(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">632</td>
-                    <td class="coverage">3954<em>x</em></td>
+                    <td class="num">697</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        p2 &lt;- stats::pbinom(x, n, p)</pre>
+                      <pre class="language-r">      name = vp_name_rn,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">633</td>
-                    <td class="coverage">3954<em>x</em></td>
+                    <td class="num">698</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        a1 &lt;- p1 + stats::pbinom(stats::qbinom(p1, n, p) - 1, n, p)</pre>
+                      <pre class="language-r">      label = row_name,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">634</td>
-                    <td class="coverage">3954<em>x</em></td>
+                    <td class="num">699</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        a2 &lt;- p2 + 1 - stats::pbinom(</pre>
+                      <pre class="language-r">      x = grid::unit(0, "npc"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">635</td>
-                    <td class="coverage">3954<em>x</em></td>
+                    <td class="num">700</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          stats::qbinom(1 - p2, n, p), n,</pre>
+                      <pre class="language-r">      just = c("left", "center"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">636</td>
-                    <td class="coverage">3954<em>x</em></td>
+                    <td class="num">701</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          p</pre>
+                      <pre class="language-r">      vp = grid::vpPath(paste0("rowname-", row_index))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">637</td>
+                    <td class="num">702</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">638</td>
-                    <td class="coverage">3954<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        return(min(a1, a2))</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">639</td>
+                    <td class="num">703</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">640</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">704</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci_lwr &lt;- 0</pre>
+                      <pre class="language-r">    NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">641</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">705</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci_upr &lt;- 1</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">642</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">706</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (x != 0) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">643</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">707</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_lwr &lt;- stats::qbeta((1 - conf.level) / 2, x, n - x + 1)</pre>
+                      <pre class="language-r">  gl_cols &lt;- if (!(length(cells) &gt; 0)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">644</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">708</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        while (acceptbin(x, n, ci_lwr + tol) &lt; (1 - conf.level)) {</pre>
+                      <pre class="language-r">    list(NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">645</td>
-                    <td class="coverage">1976<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">709</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ci_lwr &lt;- ci_lwr + tol</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">646</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">710</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">    j &lt;- 1 # column index of cell</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">647</td>
+                    <td class="num">711</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">648</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">712</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (x != n) {</pre>
+                      <pre class="language-r">    lapply(seq_along(cells), function(k) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">649</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">713</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci_upr &lt;- stats::qbeta(1 - (1 - conf.level) / 2, x + 1, n - x)</pre>
+                      <pre class="language-r">      cell_ascii &lt;- cells[[k]]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">650</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">714</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        while (acceptbin(x, n, ci_upr - tol) &lt; (1 - conf.level)) {</pre>
+                      <pre class="language-r">      cs &lt;- cell_spans[[k]]</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">715</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">651</td>
-                    <td class="coverage">1976<em>x</em></td>
+                    <td class="num">716</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ci_upr &lt;- ci_upr - tol</pre>
+                      <pre class="language-r">      if (is.na(cell_ascii) || is.null(cell_ascii)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">652</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">717</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">        cell_ascii &lt;- "NA"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">653</td>
+                    <td class="num">718</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">654</td>
+                    <td class="num">719</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">655</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">720</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      cell_name &lt;- paste0("g-cell-", row_index, "-", j)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">656</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">721</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ci &lt;- c(est = est, lwr.ci = max(0, ci_lwr), upr.ci = min(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">657</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">722</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      1,</pre>
+                      <pre class="language-r">      cell_grobs &lt;- if (identical(cell_ascii, "")) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">658</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">723</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci_upr</pre>
+                      <pre class="language-r">        NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">659</td>
+                    <td class="num">724</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">660</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">725</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (sides == "left") {</pre>
+                      <pre class="language-r">        if (cs == 1) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">661</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">726</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci[3] &lt;- 1</pre>
+                      <pre class="language-r">          grid::textGrob(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">662</td>
-                    <td class="coverage">25<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    } else if (sides == "right") {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">663</td>
-                    <td class="coverage">!</td>
+                    <td class="num">727</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci[2] &lt;- 0</pre>
+                      <pre class="language-r">            label = cell_ascii,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">664</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">728</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">            name = cell_name,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">665</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">729</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(ci)</pre>
+                      <pre class="language-r">            vp = grid::vpPath(paste0("cell-", row_index, "-", j))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">666</td>
+                    <td class="num">730</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">667</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">731</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lst &lt;- list(</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">668</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">732</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = x, n = n, conf.level = conf.level, sides = sides,</pre>
+                      <pre class="language-r">          # +1 because of rowname</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">669</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">733</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    method = method, rand = rand</pre>
+                      <pre class="language-r">          vp_joined_cols &lt;- grid::viewport(layout.pos.row = row_index, layout.pos.col = seq(j + 1, j + cs))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">670</td>
+                    <td class="num">734</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">671</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">735</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  maxdim &lt;- max(unlist(lapply(lst, length)))</pre>
+                      <pre class="language-r">          lab &lt;- grid::textGrob(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">672</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">736</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lgp &lt;- lapply(lst, rep, length.out = maxdim)</pre>
+                      <pre class="language-r">            label = cell_ascii,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">673</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">737</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lgn &lt;- h_recycle(x = if (is.null(names(x))) {</pre>
+                      <pre class="language-r">            name = cell_name,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">674</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">738</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste("x", seq_along(x), sep = ".")</pre>
+                      <pre class="language-r">            vp = vp_joined_cols</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">675</td>
+                    <td class="num">739</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">676</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">740</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    names(x)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">677</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">741</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }, n = if (is.null(names(n))) {</pre>
+                      <pre class="language-r">          if (!underline_colspan || grepl("^[[:space:]]*$", cell_ascii)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">678</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">742</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste("n", seq_along(n), sep = ".")</pre>
+                      <pre class="language-r">            lab</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">679</td>
+                    <td class="num">743</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">          } else {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">680</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">744</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    names(n)</pre>
+                      <pre class="language-r">            grid::gList(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">681</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">745</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }, conf.level = conf.level, sides = sides, method = method)</pre>
+                      <pre class="language-r">              lab,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">682</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">746</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  xn &lt;- apply(as.data.frame(lgn[sapply(lgn, function(x) {</pre>
+                      <pre class="language-r">              grid::linesGrob(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">683</td>
-                    <td class="coverage">130<em>x</em></td>
+                    <td class="num">747</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    length(unique(x)) !=</pre>
+                      <pre class="language-r">                x = grid::unit.c(grid::unit(.2, "lines"), grid::unit(1, "npc") - grid::unit(.2, "lines")),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">684</td>
-                    <td class="coverage">130<em>x</em></td>
+                    <td class="num">748</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      1</pre>
+                      <pre class="language-r">                y = grid::unit(c(0, 0), "npc"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">685</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">749</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })]), 1, paste, collapse = ":")</pre>
+                      <pre class="language-r">                vp = vp_joined_cols</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">686</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">750</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  res &lt;- t(sapply(1:maxdim, function(i) {</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">687</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">751</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    iBinomCI(</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">688</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">752</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = lgp$x[i],</pre>
+                      <pre class="language-r">          }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">753</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">754</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">689</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">755</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n = lgp$n[i], conf.level = lgp$conf.level[i], sides = lgp$sides[i],</pre>
+                      <pre class="language-r">      j &lt;&lt;- j + cs</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">756</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">690</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">757</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      method = lgp$method[i], rand = lgp$rand[i]</pre>
+                      <pre class="language-r">      cell_grobs</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">691</td>
+                    <td class="num">758</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">692</td>
+                    <td class="num">759</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }))</pre>
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">760</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">693</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">761</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  colnames(res)[1] &lt;- c("est")</pre>
+                      <pre class="language-r">  grid::gList(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">694</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">762</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  rownames(res) &lt;- xn</pre>
+                      <pre class="language-r">    g_rowname,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">695</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">763</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(res)</pre>
+                      <pre class="language-r">    do.call(grid::gList, gl_cols)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">696</td>
+                    <td class="num">764</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">765</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/h_incidence_rate.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">766</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper functions for incidence rate</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">767</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' Graphic object: forest dot line</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">768</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">769</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">770</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">771</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param control (`list`)\cr parameters for estimation details, specified by using</pre>
+                      <pre class="language-r">#' Calculate the `grob` corresponding to the dot line within the forest plot.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">772</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the helper function [control_incidence_rate()]. Possible parameter options are:</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">773</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `conf_level`: (`proportion`)\cr confidence level for the estimated incidence rate.</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">774</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `conf_type`: (`string`)\cr `normal` (default), `normal_log`, `exact`, or `byar`</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">775</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     for confidence interval type.</pre>
+                      <pre class="language-r">forest_dot_line &lt;- function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">776</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `input_time_unit`: (`string`)\cr `day`, `week`, `month`, or `year` (default)</pre>
+                      <pre class="language-r">                            lower,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">777</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     indicating time unit for data input.</pre>
+                      <pre class="language-r">                            upper,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">778</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `num_pt_year`: (`numeric`)\cr time unit for desired output (in person-years).</pre>
+                      <pre class="language-r">                            row_index,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">779</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param person_years (`numeric(1)`)\cr total person-years at risk.</pre>
+                      <pre class="language-r">                            xlim,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">780</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param alpha (`numeric(1)`)\cr two-sided alpha-level for confidence interval.</pre>
+                      <pre class="language-r">                            symbol_size = 1,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">781</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param n_events (`integer(1)`)\cr number of events observed.</pre>
+                      <pre class="language-r">                            col = "blue",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">782</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                            datavp) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">783</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">784</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    "0.9.4", "forest_dot_line()",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">785</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    details = "`g_forest` now generates `ggplot` objects. This function is no longer used within `tern`."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">786</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Estimated incidence rate, `rate`, and associated confidence interval, `rate_ci`.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">787</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">788</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  ci &lt;- c(lower, upper)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">789</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (any(!is.na(c(x, ci)))) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">790</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [incidence_rate]</pre>
+                      <pre class="language-r">    # line</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">791</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    y &lt;- grid::unit(c(0.5, 0.5), "npc")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">792</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">793</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    g_line &lt;- if (all(!is.na(ci)) &amp;&amp; ci[2] &gt; xlim[1] &amp;&amp; ci[1] &lt; xlim[2]) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">794</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name h_incidence_rate</pre>
+                      <pre class="language-r">      # -</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">795</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">      if (ci[1] &gt;= xlim[1] &amp;&amp; ci[2] &lt;= xlim[2]) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">796</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        grid::linesGrob(x = grid::unit(c(ci[1], ci[2]), "native"), y = y)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">797</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_incidence_rate Helper function to estimate the incidence rate and</pre>
+                      <pre class="language-r">      } else if (ci[1] &lt; xlim[1] &amp;&amp; ci[2] &gt; xlim[2]) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">798</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   associated confidence interval.</pre>
+                      <pre class="language-r">        # &lt;-&gt;</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">799</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        grid::linesGrob(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">800</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">          x = grid::unit(xlim, "native"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">801</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_incidence_rate &lt;- function(person_years,</pre>
+                      <pre class="language-r">          y = y,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">802</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             n_events,</pre>
+                      <pre class="language-r">          arrow = grid::arrow(angle = 30, length = grid::unit(0.5, "lines"), ends = "both")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">803</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             control = control_incidence_rate()) {</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">31</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">804</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  alpha &lt;- 1 - control$conf_level</pre>
+                      <pre class="language-r">      } else if (ci[1] &lt; xlim[1] &amp;&amp; ci[2] &lt;= xlim[2]) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">32</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">805</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  est &lt;- switch(control$conf_type,</pre>
+                      <pre class="language-r">        # &lt;-</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">33</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">806</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    normal = h_incidence_rate_normal(person_years, n_events, alpha),</pre>
+                      <pre class="language-r">        grid::linesGrob(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">34</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">807</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    normal_log = h_incidence_rate_normal_log(person_years, n_events, alpha),</pre>
+                      <pre class="language-r">          x = grid::unit(c(xlim[1], ci[2]), "native"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">35</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">808</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    exact = h_incidence_rate_exact(person_years, n_events, alpha),</pre>
+                      <pre class="language-r">          y = y,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">36</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">809</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    byar = h_incidence_rate_byar(person_years, n_events, alpha)</pre>
+                      <pre class="language-r">          arrow = grid::arrow(angle = 30, length = grid::unit(0.5, "lines"), ends = "first")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">810</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        )</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">811</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      } else if (ci[1] &gt;= xlim[1] &amp;&amp; ci[2] &gt; xlim[2]) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">812</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        # -&gt;</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">39</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">813</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  num_pt_year &lt;- control$num_pt_year</pre>
+                      <pre class="language-r">        grid::linesGrob(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">40</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">814</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">          x = grid::unit(c(ci[1], xlim[2]), "native"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">41</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">815</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rate = est$rate * num_pt_year,</pre>
+                      <pre class="language-r">          y = y,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">42</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">816</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rate_ci = est$rate_ci * num_pt_year</pre>
+                      <pre class="language-r">          arrow = grid::arrow(angle = 30, length = grid::unit(0.5, "lines"), ends = "last")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">817</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">818</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">819</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">820</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_incidence_rate Helper function to estimate the incidence rate and</pre>
+                      <pre class="language-r">      NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">821</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   associated confidence interval based on the normal approximation for the</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">822</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   incidence rate. Unit is one person-year.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">823</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    g_circle &lt;- if (!is.na(x) &amp;&amp; x &gt;= xlim[1] &amp;&amp; x &lt;= xlim[2]) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">824</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">      grid::circleGrob(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">825</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_incidence_rate_normal(200, 2)</pre>
+                      <pre class="language-r">        x = grid::unit(x, "native"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">826</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        y = y,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">827</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">        r = grid::unit(1 / 3.5 * symbol_size, "lines"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">828</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_incidence_rate_normal &lt;- function(person_years,</pre>
+                      <pre class="language-r">        name = "point"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">829</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    n_events,</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">830</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    alpha = 0.05) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(person_years)</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">831</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(n_events)</pre>
+                      <pre class="language-r">      NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">832</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_proportion_value(alpha)</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">833</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">834</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  est &lt;- n_events / person_years</pre>
+                      <pre class="language-r">    grid::gTree(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">835</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  se &lt;- sqrt(est / person_years)</pre>
+                      <pre class="language-r">      children = grid::gList(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">836</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ci &lt;- est + c(-1, 1) * stats::qnorm(1 - alpha / 2) * se</pre>
+                      <pre class="language-r">        grid::gTree(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">64</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">837</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          children = grid::gList(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">838</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(rate = est, rate_ci = ci)</pre>
+                      <pre class="language-r">            grid::gList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">66</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">839</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">              g_line,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">840</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">              g_circle</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">841</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_incidence_rate Helper function to estimate the incidence rate and</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">842</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   associated confidence interval based on the normal approximation for the</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">70</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">843</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   logarithm of the incidence rate. Unit is one person-year.</pre>
+                      <pre class="language-r">          vp = datavp,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">844</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          gp = grid::gpar(col = col, fill = col)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">845</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">846</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_incidence_rate_normal_log(200, 2)</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">847</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      vp = grid::vpPath(paste0("forest-", row_index))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">848</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">849</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_incidence_rate_normal_log &lt;- function(person_years,</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">77</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">850</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        n_events,</pre>
+                      <pre class="language-r">    NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">851</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        alpha = 0.05) {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">852</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(person_years)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">853</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(n_events)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">854</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_proportion_value(alpha)</pre>
+                      <pre class="language-r">#' Create a viewport tree for the forest plot</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">855</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">83</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">856</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  rate_est &lt;- n_events / person_years</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">857</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  rate_se &lt;- sqrt(rate_est / person_years)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">85</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">858</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lrate_est &lt;- log(rate_est)</pre>
+                      <pre class="language-r">#' @param tbl (`VTableTree`)\cr `rtables` table object.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">859</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lrate_se &lt;- rate_se / rate_est</pre>
+                      <pre class="language-r">#' @param width_row_names (`grid::unit`)\cr width of row names.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">860</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ci &lt;- exp(lrate_est + c(-1, 1) * stats::qnorm(1 - alpha / 2) * lrate_se)</pre>
+                      <pre class="language-r">#' @param width_columns (`grid::unit`)\cr width of column spans.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">861</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param width_forest (`grid::unit`)\cr width of the forest plot.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">89</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">862</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(rate = rate_est, rate_ci = ci)</pre>
+                      <pre class="language-r">#' @param gap_column (`grid::unit`)\cr gap width between the columns.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">863</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @param gap_header (`grid::unit`)\cr gap width between the header.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">864</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param mat_form (`MatrixPrintForm`)\cr matrix print form of the table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">865</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_incidence_rate Helper function to estimate the incidence rate and</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">866</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   associated exact confidence interval. Unit is one person-year.</pre>
+                      <pre class="language-r">#' @return A viewport tree.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">867</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">868</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">869</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_incidence_rate_exact(200, 2)</pre>
+                      <pre class="language-r">#' library(grid)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">870</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">871</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' tbl &lt;- rtable(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">872</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_incidence_rate_exact &lt;- function(person_years,</pre>
+                      <pre class="language-r">#'   header = rheader(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">873</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   n_events,</pre>
+                      <pre class="language-r">#'     rrow("", "E", rcell("CI", colspan = 2)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">874</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   alpha = 0.05) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(person_years)</pre>
+                      <pre class="language-r">#'     rrow("", "A", "B", "C")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">875</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(n_events)</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">104</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">876</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_proportion_value(alpha)</pre>
+                      <pre class="language-r">#'   rrow("row 1", 1, 0.8, 1.1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">877</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   rrow("row 2", 1.4, 0.8, 1.6),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">878</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  est &lt;- n_events / person_years</pre>
+                      <pre class="language-r">#'   rrow("row 3", 1.2, 0.8, 1.2)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">879</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lcl &lt;- stats::qchisq(p = (alpha) / 2, df = 2 * n_events) / (2 * person_years)</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">880</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ucl &lt;- stats::qchisq(p = 1 - (alpha) / 2, df = 2 * n_events + 2) / (2 * person_years)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">881</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' \donttest{</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">882</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(rate = est, rate_ci = c(lcl, ucl))</pre>
+                      <pre class="language-r">#' v &lt;- forest_viewport(tbl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">883</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">884</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' grid::grid.newpage()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">885</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_incidence_rate Helper function to estimate the incidence rate and</pre>
+                      <pre class="language-r">#' showViewport(v)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">886</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   associated Byar's confidence interval. Unit is one person-year.</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">887</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">888</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">889</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_incidence_rate_byar(200, 2)</pre>
+                      <pre class="language-r">forest_viewport &lt;- function(tbl,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">890</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                            width_row_names = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">891</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                            width_columns = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">892</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_incidence_rate_byar &lt;- function(person_years,</pre>
+                      <pre class="language-r">                            width_forest = grid::unit(1, "null"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">893</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  n_events,</pre>
+                      <pre class="language-r">                            gap_column = grid::unit(1, "lines"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">894</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  alpha = 0.05) {</pre>
+                      <pre class="language-r">                            gap_header = grid::unit(1, "lines"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">895</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(person_years)</pre>
+                      <pre class="language-r">                            mat_form = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">896</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(n_events)</pre>
+                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  assert_proportion_value(alpha)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">126</td>
-                    <td class="coverage"></td>
+                    <td class="num">897</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    "0.9.4",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">898</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  est &lt;- n_events / person_years</pre>
+                      <pre class="language-r">    "forest_viewport()",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">899</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  seg_1 &lt;- n_events + 0.5</pre>
+                      <pre class="language-r">    details = "`g_forest` now generates `ggplot` objects. This function is no longer used within `tern`."</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">900</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  seg_2 &lt;- 1 - 1 / (9 * (n_events + 0.5))</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">901</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  seg_3 &lt;- stats::qnorm(1 - alpha / 2) * sqrt(1 / (n_events + 0.5)) / 3</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">902</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lcl &lt;- seg_1 * ((seg_2 - seg_3)^3) / person_years</pre>
+                      <pre class="language-r">  checkmate::assert_class(tbl, "VTableTree")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">903</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ucl &lt;- seg_1 * ((seg_2 + seg_3)^3) / person_years</pre>
+                      <pre class="language-r">  checkmate::assert_true(grid::is.unit(width_forest))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">133</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">904</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if (!is.null(width_row_names)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">905</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(rate = est, rate_ci = c(lcl, ucl))</pre>
+                      <pre class="language-r">    checkmate::assert_true(grid::is.unit(width_row_names))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">906</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/g_ipp.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">907</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Individual patient plots</pre>
+                      <pre class="language-r">  if (!is.null(width_columns)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">908</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    checkmate::assert_true(grid::is.unit(width_columns))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">909</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">910</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">911</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Line plot(s) displaying trend in patients' parameter values over time is rendered.</pre>
+                      <pre class="language-r">  if (is.null(mat_form)) mat_form &lt;- matrix_form(tbl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">912</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Patients' individual baseline values can be added to the plot(s) as reference.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">913</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  mat_form$strings[!mat_form$display] &lt;- ""</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">914</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">915</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param xvar (`string`)\cr time point variable to be plotted on x-axis.</pre>
+                      <pre class="language-r">  nr &lt;- nrow(tbl)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">916</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param yvar (`string`)\cr continuous analysis variable to be plotted on y-axis.</pre>
+                      <pre class="language-r">  nc &lt;- ncol(tbl)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">917</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param xlab (`string`)\cr plot label for x-axis.</pre>
+                      <pre class="language-r">  nr_h &lt;- attr(mat_form, "nrow_header")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">918</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ylab (`string`)\cr plot label for y-axis.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">919</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param id_var (`string`)\cr variable used as patient identifier.</pre>
+                      <pre class="language-r">  if (is.null(width_row_names) || is.null(width_columns)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">920</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param title (`string`)\cr title for plot.</pre>
+                      <pre class="language-r">    tbl_widths &lt;- formatters::propose_column_widths(mat_form)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">921</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param subtitle (`string`)\cr subtitle for plot.</pre>
+                      <pre class="language-r">    strs_with_width &lt;- strrep("x", tbl_widths) # that works for mono spaced fonts</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">922</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param add_baseline_hline (`flag`)\cr adds horizontal line at baseline y-value on</pre>
+                      <pre class="language-r">    if (is.null(width_row_names)) width_row_names &lt;- grid::stringWidth(strs_with_width[1])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">923</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   plot when `TRUE`.</pre>
+                      <pre class="language-r">    if (is.null(width_columns)) width_columns &lt;- grid::stringWidth(strs_with_width[-1])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">924</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param yvar_baseline (`string`)\cr variable with baseline values only.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">925</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Ignored when `add_baseline_hline` is `FALSE`.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">926</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ggtheme (`theme`)\cr optional graphical theme function as provided</pre>
+                      <pre class="language-r">  # Widths for row name, cols, forest.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">927</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   by `ggplot2` to control outlook of plot. Use `ggplot2::theme()` to tweak the display.</pre>
+                      <pre class="language-r">  widths &lt;- grid::unit.c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">928</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param plotting_choices (`string`)\cr specifies options for displaying</pre>
+                      <pre class="language-r">    width_row_names + gap_column,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">929</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   plots. Must be one of `"all_in_one"`, `"split_by_max_obs"`, or `"separate_by_obs"`.</pre>
+                      <pre class="language-r">    width_columns + gap_column,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">930</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param max_obs_per_plot (`integer(1)`)\cr number of observations to be plotted on one</pre>
+                      <pre class="language-r">    width_forest</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">931</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   plot. Ignored if `plotting_choices` is not `"separate_by_obs"`.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">932</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param caption (`string`)\cr optional caption below the plot.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">933</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param col (`character`)\cr line colors.</pre>
+                      <pre class="language-r">  n_lines_per_row &lt;- apply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">934</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    X = mat_form$strings,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">935</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso Relevant helper function [h_g_ipp()].</pre>
+                      <pre class="language-r">    MARGIN = 1,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">936</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    FUN = function(row) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">937</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name g_ipp</pre>
+                      <pre class="language-r">      tmp &lt;- vapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">938</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @aliases individual_patient_plot</pre>
+                      <pre class="language-r">        gregexpr("\n", row, fixed = TRUE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">939</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">        attr, numeric(1),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">940</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        "match.length"</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">941</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function to create simple line plot over time</pre>
+                      <pre class="language-r">      ) + 1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">942</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      max(c(tmp, 1))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">943</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">944</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">945</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Function that generates a simple line plot displaying parameter trends over time.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">946</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  i_header &lt;- seq_len(nr_h)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">947</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">948</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams g_ipp</pre>
+                      <pre class="language-r">  height_body_rows &lt;- grid::unit(n_lines_per_row[-i_header] * 1.2, "lines")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">949</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  height_header_rows &lt;- grid::unit(n_lines_per_row[i_header] * 1.2, "lines")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">950</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `ggplot` line plot.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">951</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  height_body &lt;- grid::unit(sum(n_lines_per_row[-i_header]) * 1.2, "lines")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">952</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [g_ipp()] which uses this function.</pre>
+                      <pre class="language-r">  height_header &lt;- grid::unit(sum(n_lines_per_row[i_header]) * 1.2, "lines")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">953</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">954</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  nc_g &lt;- nc + 2 # number of columns incl. row names and forest</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">955</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">956</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(nestcolor)</pre>
+                      <pre class="language-r">  vp_tbl &lt;- grid::vpTree(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">957</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    parent = grid::viewport(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">958</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Select a small sample of data to plot.</pre>
+                      <pre class="language-r">      name = "vp_table_layout",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">959</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adlb &lt;- tern_ex_adlb %&gt;%</pre>
+                      <pre class="language-r">      layout = grid::grid.layout(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">960</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(PARAMCD == "ALT", !(AVISIT %in% c("SCREENING", "BASELINE"))) %&gt;%</pre>
+                      <pre class="language-r">        nrow = 3, ncol = 1,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">55</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">961</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   slice(1:36)</pre>
+                      <pre class="language-r">        heights = grid::unit.c(height_header, gap_header, height_body)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">962</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">963</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' p &lt;- h_g_ipp(</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">964</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   df = adlb,</pre>
+                      <pre class="language-r">    children = grid::vpList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">965</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   xvar = "AVISIT",</pre>
+                      <pre class="language-r">      vp_forest_table_part(nr_h, nc_g, 1, 1, widths, height_header_rows, "vp_header"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">966</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   yvar = "AVAL",</pre>
+                      <pre class="language-r">      vp_forest_table_part(nr, nc_g, 3, 1, widths, height_body_rows, "vp_body"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">967</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   xlab = "Visit",</pre>
+                      <pre class="language-r">      grid::viewport(name = "vp_spacer", layout.pos.row = 2, layout.pos.col = 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">968</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   id_var = "USUBJID",</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">969</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ylab = "SGOT/ALT (U/L)",</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">64</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">970</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_baseline_hline = TRUE</pre>
+                      <pre class="language-r">  vp_tbl</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">971</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">972</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' p</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">973</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Viewport forest plot: table part</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">974</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">975</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_g_ipp &lt;- function(df,</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">976</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    xvar,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">977</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    yvar,</pre>
+                      <pre class="language-r">#' Prepares a viewport for the table included in the forest plot.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">978</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    xlab,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">979</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    ylab,</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">980</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    id_var,</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">981</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    title = "Individual Patient Plots",</pre>
+                      <pre class="language-r">vp_forest_table_part &lt;- function(nrow,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">982</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    subtitle = "",</pre>
+                      <pre class="language-r">                                 ncol,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">983</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    caption = NULL,</pre>
+                      <pre class="language-r">                                 l_row,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">984</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    add_baseline_hline = FALSE,</pre>
+                      <pre class="language-r">                                 l_col,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">985</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    yvar_baseline = "BASE",</pre>
+                      <pre class="language-r">                                 widths,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">986</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    ggtheme = nestcolor::theme_nest(),</pre>
+                      <pre class="language-r">                                 heights,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">987</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                    col = NULL) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">82</td>
-                    <td class="coverage">13<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(xvar)</pre>
+                      <pre class="language-r">                                 name) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">83</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">988</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(yvar)</pre>
+                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">989</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(yvar_baseline)</pre>
+                      <pre class="language-r">    "0.9.4", "vp_forest_table_part()",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">85</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">990</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(id_var)</pre>
+                      <pre class="language-r">    details = "`g_forest` now generates `ggplot` objects. This function is no longer used within `tern`."</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">991</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(xlab)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">992</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(ylab)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">88</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">993</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(title)</pre>
+                      <pre class="language-r">  grid::vpTree(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">89</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">994</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(subtitle)</pre>
+                      <pre class="language-r">    grid::viewport(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">995</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(c(xvar, yvar, yvar_baseline, id_var), colnames(df))</pre>
+                      <pre class="language-r">      name = name,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">91</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">996</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(df)</pre>
+                      <pre class="language-r">      layout.pos.row = l_row,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">997</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(add_baseline_hline)</pre>
+                      <pre class="language-r">      layout.pos.col = l_col,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">93</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">998</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(col, null.ok = TRUE)</pre>
+                      <pre class="language-r">      layout = grid::grid.layout(nrow = nrow, ncol = ncol, widths = widths, heights = heights)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">999</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">1000</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  p &lt;- ggplot2::ggplot(</pre>
+                      <pre class="language-r">    children = grid::vpList(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">96</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">1001</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data = df,</pre>
+                      <pre class="language-r">      do.call(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">97</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">1002</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mapping = ggplot2::aes(</pre>
+                      <pre class="language-r">        grid::vpList,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">98</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">1003</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = .data[[xvar]],</pre>
+                      <pre class="language-r">        lapply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">99</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">1004</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y = .data[[yvar]],</pre>
+                      <pre class="language-r">          seq_len(nrow), function(i) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">100</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">1005</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      group = .data[[id_var]],</pre>
+                      <pre class="language-r">            grid::viewport(layout.pos.row = i, layout.pos.col = 1, name = paste0("rowname-", i))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1006</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      colour = .data[[id_var]]</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">1007</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">1008</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ) +</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">104</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">1009</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ggplot2::geom_line(linewidth = 0.4) +</pre>
+                      <pre class="language-r">      do.call(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">1010</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ggplot2::geom_point(size = 2) +</pre>
+                      <pre class="language-r">        grid::vpList,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">1011</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ggplot2::labs(</pre>
+                      <pre class="language-r">        apply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">1012</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = xlab,</pre>
+                      <pre class="language-r">          expand.grid(seq_len(nrow), seq_len(ncol - 2)),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">1013</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y = ylab,</pre>
+                      <pre class="language-r">          1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">1014</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      title = title,</pre>
+                      <pre class="language-r">          function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">1015</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      subtitle = subtitle,</pre>
+                      <pre class="language-r">            i &lt;- x[1]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">13<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      caption = caption</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">112</td>
-                    <td class="coverage"></td>
+                    <td class="num">1016</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) +</pre>
+                      <pre class="language-r">            j &lt;- x[2]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">1017</td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ggtheme</pre>
+                      <pre class="language-r">            grid::viewport(layout.pos.row = i, layout.pos.col = j + 1, name = paste0("cell-", i, "-", j))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">1018</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">13<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (add_baseline_hline) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">12<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    baseline_df &lt;- df[, c(id_var, yvar_baseline)]</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1019</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    baseline_df &lt;- unique(baseline_df)</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">1020</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">1021</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    p &lt;- p +</pre>
+                      <pre class="language-r">      do.call(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">120</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">1022</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot2::geom_hline(</pre>
+                      <pre class="language-r">        grid::vpList,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">121</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">1023</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data = baseline_df,</pre>
+                      <pre class="language-r">        lapply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">122</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">1024</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        mapping = ggplot2::aes(</pre>
+                      <pre class="language-r">          seq_len(nrow),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">1025</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          yintercept = .data[[yvar_baseline]],</pre>
+                      <pre class="language-r">          function(i) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">1026</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          colour = .data[[id_var]]</pre>
+                      <pre class="language-r">            grid::viewport(layout.pos.row = i, layout.pos.col = ncol, name = paste0("forest-", i))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">1027</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">12<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        linetype = "dotdash",</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1028</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        linewidth = 0.4</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">1029</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ) +</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1030</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot2::geom_text(</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1031</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data = baseline_df,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1032</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        mapping = ggplot2::aes(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1033</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = 1,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1034</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          y = .data[[yvar_baseline]],</pre>
+                      <pre class="language-r">#' Forest rendering</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1035</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = .data[[id_var]],</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">135</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1036</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          colour = .data[[id_var]]</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">1037</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1038</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nudge_y = 0.025 * (max(df[, yvar], na.rm = TRUE) - min(df[, yvar], na.rm = TRUE)),</pre>
+                      <pre class="language-r">#' Renders the forest grob.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1039</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        vjust = "right",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1040</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        size = 2</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">1041</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">1042</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">grid.forest &lt;- function(...) { # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1043</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.null(col)) {</pre>
+                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1044</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      p &lt;- p +</pre>
+                      <pre class="language-r">    "0.9.4", "grid.forest()",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1045</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ggplot2::scale_color_manual(values = col)</pre>
+                      <pre class="language-r">    details = "`g_forest` now generates `ggplot` objects. This function is no longer used within `tern`."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">1046</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">1047</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1048</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  p</pre>
+                      <pre class="language-r">  grid::grid.draw(forest_grob(...))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">1049</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/h_logistic_regression.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Helper functions for multivariate logistic regression</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn g_ipp Plotting function for individual patient plots which, depending on user</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   preference, renders a single graphic or compiles a list of graphics that show trends in individual's parameter</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   values over time.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Helper functions used in calculations for logistic regression.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `ggplot` object or a list of `ggplot` objects.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @param fit_glm (`glm`)\cr logistic regression model fitted by [stats::glm()] with "binomial" family.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">#'   Limited functionality is also available for conditional logistic regression models fitted by</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(nestcolor)</pre>
+                      <pre class="language-r">#'   [survival::clogit()], currently this is used only by [extract_rsp_biomarkers()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param x (`character`)\cr a variable or interaction term in `fit_glm` (depending on the helper function used).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Select a small sample of data to plot.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adlb &lt;- tern_ex_adlb %&gt;%</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(PARAMCD == "ALT", !(AVISIT %in% c("SCREENING", "BASELINE"))) %&gt;%</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   slice(1:36)</pre>
+                      <pre class="language-r">#' library(broom)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' plot_list &lt;- g_ipp(</pre>
+                      <pre class="language-r">#' adrs_f &lt;- tern_ex_adrs %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   df = adlb,</pre>
+                      <pre class="language-r">#'   filter(PARAMCD == "BESRSPI") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   xvar = "AVISIT",</pre>
+                      <pre class="language-r">#'   filter(RACE %in% c("ASIAN", "WHITE", "BLACK OR AFRICAN AMERICAN")) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   yvar = "AVAL",</pre>
+                      <pre class="language-r">#'   mutate(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   xlab = "Visit",</pre>
+                      <pre class="language-r">#'     Response = case_when(AVALC %in% c("PR", "CR") ~ 1, TRUE ~ 0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ylab = "SGOT/ALT (U/L)",</pre>
+                      <pre class="language-r">#'     RACE = factor(RACE),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   title = "Individual Patient Plots",</pre>
+                      <pre class="language-r">#'     SEX = factor(SEX)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_baseline_hline = TRUE,</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   plotting_choices = "split_by_max_obs",</pre>
+                      <pre class="language-r">#' formatters::var_labels(adrs_f) &lt;- c(formatters::var_labels(tern_ex_adrs), Response = "Response")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   max_obs_per_plot = 5</pre>
+                      <pre class="language-r">#' mod1 &lt;- fit_logistic(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   data = adrs_f,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' plot_list</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     response = "Response",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'     arm = "ARMCD",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">g_ipp &lt;- function(df,</pre>
+                      <pre class="language-r">#'     covariates = c("AGE", "RACE")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  xvar,</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  yvar,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  xlab,</pre>
+                      <pre class="language-r">#' mod2 &lt;- fit_logistic(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  ylab,</pre>
+                      <pre class="language-r">#'   data = adrs_f,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  id_var = "USUBJID",</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  title = "Individual Patient Plots",</pre>
+                      <pre class="language-r">#'     response = "Response",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  subtitle = "",</pre>
+                      <pre class="language-r">#'     arm = "ARMCD",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  caption = NULL,</pre>
+                      <pre class="language-r">#'     covariates = c("AGE", "RACE"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  add_baseline_hline = FALSE,</pre>
+                      <pre class="language-r">#'     interaction = "AGE"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  yvar_baseline = "BASE",</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  ggtheme = nestcolor::theme_nest(),</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  plotting_choices = c("all_in_one", "split_by_max_obs", "separate_by_obs"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  max_obs_per_plot = 4,</pre>
+                      <pre class="language-r">#' @name h_logistic_regression</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  col = NULL) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">194</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_count(max_obs_per_plot)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(plotting_choices, c("all_in_one", "split_by_max_obs", "separate_by_obs"))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(col, null.ok = TRUE)</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">198</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  plotting_choices &lt;- match.arg(plotting_choices)</pre>
-                    </td>
-                  </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @describeIn h_logistic_regression Helper function to extract interaction variable names from a fitted</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">200</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">48</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (plotting_choices == "all_in_one") {</pre>
+                      <pre class="language-r">#'   model assuming only one interaction term.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">201</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">49</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    p &lt;- h_g_ipp(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">50</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df = df,</pre>
+                      <pre class="language-r">#' @return Vector of names of interaction variables.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">203</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">51</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      xvar = xvar,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">204</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">52</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      yvar = yvar,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">53</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      xlab = xlab,</pre>
+                      <pre class="language-r">h_get_interaction_vars &lt;- function(fit_glm) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">54</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ylab = ylab,</pre>
+                      <pre class="language-r">  checkmate::assert_class(fit_glm, "glm")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">55</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id_var = id_var,</pre>
+                      <pre class="language-r">  terms_name &lt;- attr(stats::terms(fit_glm), "term.labels")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">56</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      title = title,</pre>
+                      <pre class="language-r">  terms_order &lt;- attr(stats::terms(fit_glm), "order")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">209</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">57</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      subtitle = subtitle,</pre>
+                      <pre class="language-r">  interaction_term &lt;- terms_name[terms_order == 2]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">58</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      caption = caption,</pre>
+                      <pre class="language-r">  checkmate::assert_string(interaction_term)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">59</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      add_baseline_hline = add_baseline_hline,</pre>
+                      <pre class="language-r">  strsplit(interaction_term, split = ":")[[1]]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">212</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">60</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      yvar_baseline = yvar_baseline,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">61</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggtheme = ggtheme,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">214</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">62</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      col = col</pre>
+                      <pre class="language-r">#' @describeIn h_logistic_regression Helper function to get the right coefficient name from the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'   interaction variable names and the given levels. The main value here is that the order</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   of first and second variable is checked in the `interaction_vars` input.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">217</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">65</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(p)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">218</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">66</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (plotting_choices == "split_by_max_obs") {</pre>
+                      <pre class="language-r">#' @param interaction_vars (`character(2)`)\cr interaction variable names.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">67</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    id_vec &lt;- unique(df[[id_var]])</pre>
+                      <pre class="language-r">#' @param first_var_with_level (`character(2)`)\cr the first variable name with the interaction level.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">68</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    id_list &lt;- split(</pre>
+                      <pre class="language-r">#' @param second_var_with_level (`character(2)`)\cr the second variable name with the interaction level.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">221</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">69</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id_vec,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rep(1:ceiling(length(id_vec) / max_obs_per_plot),</pre>
+                      <pre class="language-r">#' @return Name of coefficient.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">71</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        each = max_obs_per_plot,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">72</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        length.out = length(id_vec)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">h_interaction_coef_name &lt;- function(interaction_vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">                                    first_var_with_level,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                    second_var_with_level) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">76</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_list &lt;- list()</pre>
+                      <pre class="language-r">  checkmate::assert_character(interaction_vars, len = 2, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">229</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    plot_list &lt;- list()</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">230</td>
-                    <td class="coverage"></td>
+                    <td class="num">77</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  checkmate::assert_character(first_var_with_level, len = 2, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">231</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">78</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    for (i in seq_along(id_list)) {</pre>
+                      <pre class="language-r">  checkmate::assert_character(second_var_with_level, len = 2, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">79</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df_list[[i]] &lt;- df[df[[id_var]] %in% id_list[[i]], ]</pre>
+                      <pre class="language-r">  checkmate::assert_subset(c(first_var_with_level[1], second_var_with_level[1]), interaction_vars)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">81</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plots &lt;- h_g_ipp(</pre>
+                      <pre class="language-r">  first_name &lt;- paste(first_var_with_level, collapse = "")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">235</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">82</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        df = df_list[[i]],</pre>
+                      <pre class="language-r">  second_name &lt;- paste(second_var_with_level, collapse = "")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">236</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">83</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xvar = xvar,</pre>
+                      <pre class="language-r">  if (first_var_with_level[1] == interaction_vars[1]) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">237</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">84</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        yvar = yvar,</pre>
+                      <pre class="language-r">    paste(first_name, second_name, sep = ":")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">238</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">85</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xlab = xlab,</pre>
+                      <pre class="language-r">  } else if (second_var_with_level[1] == interaction_vars[1]) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">239</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">86</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ylab = ylab,</pre>
+                      <pre class="language-r">    paste(second_name, first_name, sep = ":")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">240</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">87</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id_var = id_var,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">241</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">88</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        title = title,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">242</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">89</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        subtitle = subtitle,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">243</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">90</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        caption = caption,</pre>
+                      <pre class="language-r">#' @describeIn h_logistic_regression Helper function to calculate the odds ratio estimates</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">244</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">91</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        add_baseline_hline = add_baseline_hline,</pre>
+                      <pre class="language-r">#'   for the case when both the odds ratio and the interaction variable are categorical.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">245</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">92</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        yvar_baseline = yvar_baseline,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">246</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">93</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ggtheme = ggtheme,</pre>
+                      <pre class="language-r">#' @param odds_ratio_var (`string`)\cr the odds ratio variable.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">247</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">94</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        col = col</pre>
+                      <pre class="language-r">#' @param interaction_var (`string`)\cr the interaction variable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">249</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @return Odds ratio.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">250</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">97</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot_list[[i]] &lt;- plots</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">252</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">99</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(plot_list)</pre>
+                      <pre class="language-r">h_or_cat_interaction &lt;- function(odds_ratio_var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">253</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">                                 interaction_var,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">254</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">101</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ind_df &lt;- split(df, df[[id_var]])</pre>
+                      <pre class="language-r">                                 fit_glm,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">255</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">102</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    plot_list &lt;- lapply(</pre>
+                      <pre class="language-r">                                 conf_level = 0.95) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">256</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">103</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ind_df,</pre>
+                      <pre class="language-r">  interaction_vars &lt;- h_get_interaction_vars(fit_glm)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">257</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">104</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      function(x) {</pre>
+                      <pre class="language-r">  checkmate::assert_string(odds_ratio_var)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">258</td>
+                    <td class="num">105</td>
                     <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        h_g_ipp(</pre>
+                      <pre class="language-r">  checkmate::assert_string(interaction_var)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">259</td>
+                    <td class="num">106</td>
                     <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          df = x,</pre>
+                      <pre class="language-r">  checkmate::assert_subset(c(odds_ratio_var, interaction_var), interaction_vars)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">260</td>
+                    <td class="num">107</td>
                     <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          xvar = xvar,</pre>
+                      <pre class="language-r">  checkmate::assert_vector(interaction_vars, len = 2)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">261</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">108</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          yvar = yvar,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">262</td>
+                    <td class="num">109</td>
                     <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          xlab = xlab,</pre>
+                      <pre class="language-r">  xs_level &lt;- fit_glm$xlevels</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">263</td>
+                    <td class="num">110</td>
                     <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ylab = ylab,</pre>
+                      <pre class="language-r">  xs_coef &lt;- stats::coef(fit_glm)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">264</td>
+                    <td class="num">111</td>
                     <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          id_var = id_var,</pre>
+                      <pre class="language-r">  xs_vcov &lt;- stats::vcov(fit_glm)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">265</td>
+                    <td class="num">112</td>
                     <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          title = title,</pre>
+                      <pre class="language-r">  y &lt;- list()</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">266</td>
+                    <td class="num">113</td>
                     <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          subtitle = subtitle,</pre>
+                      <pre class="language-r">  for (var_level in xs_level[[odds_ratio_var]][-1]) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">267</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">114</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          caption = caption,</pre>
+                      <pre class="language-r">    x &lt;- list()</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">268</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">115</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          add_baseline_hline = add_baseline_hline,</pre>
+                      <pre class="language-r">    for (ref_level in xs_level[[interaction_var]]) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">269</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">116</td>
+                    <td class="coverage">38<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          yvar_baseline = yvar_baseline,</pre>
+                      <pre class="language-r">      coef_names &lt;- paste0(odds_ratio_var, var_level)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">270</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">117</td>
+                    <td class="coverage">38<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ggtheme = ggtheme,</pre>
+                      <pre class="language-r">      if (ref_level != xs_level[[interaction_var]][1]) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">271</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">118</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          col = col</pre>
+                      <pre class="language-r">        interaction_coef_name &lt;- h_interaction_coef_name(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">272</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">119</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">          interaction_vars,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">273</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">120</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">          c(odds_ratio_var, var_level),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">274</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">121</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">          c(interaction_var, ref_level)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">276</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">123</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(plot_list)</pre>
+                      <pre class="language-r">        coef_names &lt;- c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">277</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">124</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">          coef_names,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">278</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">125</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">          interaction_coef_name</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/h_km.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Control functions for Kaplan-Meier plot annotation tables</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">128</td>
+                    <td class="coverage">38<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">      if (length(coef_names) &gt; 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">129</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        ones &lt;- t(c(1, 1))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">130</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Auxiliary functions for controlling arguments for formatting the annotation tables that can be added to plots</pre>
+                      <pre class="language-r">        est &lt;- as.numeric(ones %*% xs_coef[coef_names])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">131</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' generated via [g_km()].</pre>
+                      <pre class="language-r">        se &lt;- sqrt(as.numeric(ones %*% xs_vcov[coef_names, coef_names] %*% t(ones)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">133</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`proportion`)\cr x-coordinate for center of annotation table.</pre>
+                      <pre class="language-r">        est &lt;- xs_coef[coef_names]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">134</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param y (`proportion`)\cr y-coordinate for center of annotation table.</pre>
+                      <pre class="language-r">        se &lt;- sqrt(as.numeric(xs_vcov[coef_names, coef_names]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param w (`proportion`)\cr relative width of the annotation table.</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">136</td>
+                    <td class="coverage">38<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param h (`proportion`)\cr relative height of the annotation table.</pre>
+                      <pre class="language-r">      or &lt;- exp(est)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">137</td>
+                    <td class="coverage">38<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param fill (`flag` or `character`)\cr whether the annotation table should have a background fill color.</pre>
+                      <pre class="language-r">      ci &lt;- exp(est + c(lcl = -1, ucl = 1) * stats::qnorm((1 + conf_level) / 2) * se)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">138</td>
+                    <td class="coverage">38<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Can also be a color code to use as the background fill color. If `TRUE`, color code defaults to `"#00000020"`.</pre>
+                      <pre class="language-r">      x[[ref_level]] &lt;- list(or = or, ci = ci)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">140</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A list of components with the same names as the arguments.</pre>
+                      <pre class="language-r">    y[[var_level]] &lt;- x</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">142</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [g_km()]</pre>
+                      <pre class="language-r">  y</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name control_annot</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#' @describeIn h_logistic_regression Helper function to calculate the odds ratio estimates</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   for the case when either the odds ratio or the interaction variable is continuous.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn control_annot Control function for formatting the median survival time annotation table. This annotation</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   table can be added in [g_km()] by setting `annot_surv_med=TRUE`, and can be configured using the</pre>
+                      <pre class="language-r">#' @param at (`numeric` or `NULL`)\cr optional values for the interaction variable. Otherwise</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `control_surv_med_annot()` function by setting it as the `control_annot_surv_med` argument.</pre>
+                      <pre class="language-r">#'   the median is used.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' control_surv_med_annot()</pre>
+                      <pre class="language-r">#' @return Odds ratio.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">control_surv_med_annot &lt;- function(x = 0.8, y = 0.85, w = 0.32, h = 0.16, fill = TRUE) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">31</td>
-                    <td class="coverage">22<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  assert_proportion_value(x)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">32</td>
-                    <td class="coverage">22<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  assert_proportion_value(y)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">33</td>
-                    <td class="coverage">22<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  assert_proportion_value(w)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">34</td>
-                    <td class="coverage">22<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  assert_proportion_value(h)</pre>
+                      <pre class="language-r">#' @note We don't provide a function for the case when both variables are continuous because</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">36</td>
-                    <td class="coverage">22<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  list(x = x, y = y, w = w, h = h, fill = fill)</pre>
+                      <pre class="language-r">#'   this does not arise in this table, as the treatment arm variable will always be involved</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   and categorical.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn control_annot Control function for formatting the Cox-PH annotation table. This annotation table can be</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   added in [g_km()] by setting `annot_coxph=TRUE`, and can be configured using the `control_coxph_annot()` function</pre>
+                      <pre class="language-r">h_or_cont_interaction &lt;- function(odds_ratio_var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   by setting it as the `control_annot_coxph` argument.</pre>
+                      <pre class="language-r">                                  interaction_var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                  fit_glm,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ref_lbls (`flag`)\cr whether the reference group should be explicitly printed in labels for the</pre>
+                      <pre class="language-r">                                  at = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   annotation table. If `FALSE` (default), only comparison groups will be printed in the table labels.</pre>
+                      <pre class="language-r">                                  conf_level = 0.95) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">163</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  interaction_vars &lt;- h_get_interaction_vars(fit_glm)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">164</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  checkmate::assert_string(odds_ratio_var)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">165</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' control_coxph_annot()</pre>
+                      <pre class="language-r">  checkmate::assert_string(interaction_var)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">166</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_subset(c(odds_ratio_var, interaction_var), interaction_vars)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">167</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  checkmate::assert_vector(interaction_vars, len = 2)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">168</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">control_coxph_annot &lt;- function(x = 0.29, y = 0.51, w = 0.4, h = 0.125, fill = TRUE, ref_lbls = FALSE) {</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(at, min.len = 1, null.ok = TRUE, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">51</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">169</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_logical(ref_lbls, any.missing = FALSE)</pre>
+                      <pre class="language-r">  xs_level &lt;- fit_glm$xlevels</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">170</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  xs_coef &lt;- stats::coef(fit_glm)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">53</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">171</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  res &lt;- c(control_surv_med_annot(x = x, y = y, w = w, h = h), list(ref_lbls = ref_lbls))</pre>
+                      <pre class="language-r">  xs_vcov &lt;- stats::vcov(fit_glm)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">54</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">172</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  res</pre>
+                      <pre class="language-r">  xs_class &lt;- attr(fit_glm$terms, "dataClasses")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">55</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">173</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  model_data &lt;- fit_glm$model</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">174</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if (!is.null(at)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">57</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">175</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function to calculate x-tick positions</pre>
+                      <pre class="language-r">    checkmate::assert_set_equal(xs_class[interaction_var], "numeric")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">177</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">  y &lt;- list()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">178</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if (xs_class[interaction_var] == "numeric") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">179</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Calculate the positions of ticks on the x-axis. However, if `xticks` already</pre>
+                      <pre class="language-r">    if (is.null(at)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">180</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' exists it is kept as is. It is based on the same function `ggplot2` relies on,</pre>
+                      <pre class="language-r">      at &lt;- ceiling(stats::median(model_data[[interaction_var]]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and is required in the graphic and the patient-at-risk annotation table.</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">183</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams g_km</pre>
+                      <pre class="language-r">    for (var_level in xs_level[[odds_ratio_var]][-1]) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">66</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">184</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_ggkm</pre>
+                      <pre class="language-r">      x &lt;- list()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">185</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      for (increment in at) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">68</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">186</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A vector of positions to use for x-axis ticks on a `ggplot` object.</pre>
+                      <pre class="language-r">        coef_names &lt;- paste0(odds_ratio_var, var_level)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">187</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        if (increment != 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">70</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">188</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">          interaction_coef_name &lt;- h_interaction_coef_name(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">189</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">            interaction_vars,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">72</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">190</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(survival)</pre>
+                      <pre class="language-r">            c(odds_ratio_var, var_level),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">73</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">191</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            c(interaction_var, "")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- tern_ex_adtte %&gt;%</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">75</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">193</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
+                      <pre class="language-r">          coef_names &lt;- c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">76</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">194</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   survfit(formula = Surv(AVAL, 1 - CNSR) ~ ARMCD, data = .) %&gt;%</pre>
+                      <pre class="language-r">            coef_names,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">77</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">195</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   h_data_plot()</pre>
+                      <pre class="language-r">            interaction_coef_name</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_xticks(data)</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">80</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">198</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_xticks(data, xticks = seq(0, 3000, 500))</pre>
+                      <pre class="language-r">        if (length(coef_names) &gt; 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">81</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">199</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_xticks(data, xticks = 500)</pre>
+                      <pre class="language-r">          xvec &lt;- t(c(1, increment))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">200</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_xticks(data, xticks = 500, max_time = 6000)</pre>
+                      <pre class="language-r">          est &lt;- as.numeric(xvec %*% xs_coef[coef_names])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">83</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">201</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_xticks(data, xticks = c(0, 500), max_time = 300)</pre>
+                      <pre class="language-r">          se &lt;- sqrt(as.numeric(xvec %*% xs_vcov[coef_names, coef_names] %*% t(xvec)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_xticks(data, xticks = 500, max_time = 300)</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">203</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          est &lt;- xs_coef[coef_names]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">86</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">204</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">          se &lt;- sqrt(as.numeric(xs_vcov[coef_names, coef_names]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">205</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_xticks &lt;- function(data, xticks = NULL, max_time = NULL) {</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">88</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">206</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(xticks)) {</pre>
+                      <pre class="language-r">        or &lt;- exp(est)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">89</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">207</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.null(max_time)) {</pre>
+                      <pre class="language-r">        ci &lt;- exp(est + c(lcl = -1, ucl = 1) * stats::qnorm((1 + conf_level) / 2) * se)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">208</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      labeling::extended(range(data$time)[1], range(data$time)[2], m = 5)</pre>
+                      <pre class="language-r">        x[[as.character(increment)]] &lt;- list(or = or, ci = ci)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">210</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      labeling::extended(range(data$time)[1], max(range(data$time)[2], max_time), m = 5)</pre>
+                      <pre class="language-r">      y[[var_level]] &lt;- x</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">94</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">212</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (checkmate::test_number(xticks)) {</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">213</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.null(max_time)) {</pre>
+                      <pre class="language-r">    checkmate::assert_set_equal(xs_class[odds_ratio_var], "numeric")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">96</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">214</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      seq(0, max(data$time), xticks)</pre>
+                      <pre class="language-r">    checkmate::assert_set_equal(xs_class[interaction_var], "factor")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">97</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">215</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">    for (var_level in xs_level[[interaction_var]]) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">98</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">216</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      seq(0, max(data$time, max_time), xticks)</pre>
+                      <pre class="language-r">      coef_names &lt;- odds_ratio_var</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">99</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">217</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">      if (var_level != xs_level[[interaction_var]][1]) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">100</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">218</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (is.numeric(xticks)) {</pre>
+                      <pre class="language-r">        interaction_coef_name &lt;- h_interaction_coef_name(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">219</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xticks</pre>
+                      <pre class="language-r">          interaction_vars,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">102</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">220</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">          c(odds_ratio_var, ""),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">221</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop(</pre>
+                      <pre class="language-r">          c(interaction_var, var_level)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">104</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">222</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      paste(</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">223</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "xticks should be either `NULL`",</pre>
+                      <pre class="language-r">        coef_names &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">224</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "or a single number (interval between x ticks)",</pre>
+                      <pre class="language-r">          coef_names,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">225</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "or a numeric vector (position of ticks on the x axis)"</pre>
+                      <pre class="language-r">          interaction_coef_name</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">110</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">228</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      if (length(coef_names) &gt; 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">111</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">229</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        xvec &lt;- t(c(1, 1))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">112</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">230</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        est &lt;- as.numeric(xvec %*% xs_coef[coef_names])</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">231</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        se &lt;- sqrt(as.numeric(xvec %*% xs_vcov[coef_names, coef_names] %*% t(xvec)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function for survival estimations</pre>
+                      <pre class="language-r">      } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">233</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        est &lt;- xs_coef[coef_names]</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">234</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        se &lt;- sqrt(as.numeric(xs_vcov[coef_names, coef_names]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">115</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">236</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">      or &lt;- exp(est)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">116</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">237</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      ci &lt;- exp(est + c(lcl = -1, ucl = 1) * stats::qnorm((1 + conf_level) / 2) * se)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">117</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">238</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Transform a survival fit to a table with groups in rows characterized by N, median and confidence interval.</pre>
+                      <pre class="language-r">      y[[var_level]] &lt;- list(or = or, ci = ci)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_data_plot</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">120</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">241</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  y</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A summary table with statistics `N`, `Median`, and `XX% CI` (`XX` taken from `fit_km`).</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @describeIn h_logistic_regression Helper function to calculate the odds ratio estimates</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">#'   in case of an interaction. This is a wrapper for [h_or_cont_interaction()] and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(survival)</pre>
+                      <pre class="language-r">#'   [h_or_cat_interaction()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adtte &lt;- tern_ex_adtte %&gt;% filter(PARAMCD == "OS")</pre>
+                      <pre class="language-r">#' @return Odds ratio.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' fit &lt;- survfit(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   formula = Surv(AVAL, 1 - CNSR) ~ ARMCD,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adtte</pre>
+                      <pre class="language-r">h_or_interaction &lt;- function(odds_ratio_var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">                             interaction_var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_tbl_median_surv(fit_km = fit)</pre>
+                      <pre class="language-r">                             fit_glm,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                             at = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                             conf_level = 0.95) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">135</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">256</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_tbl_median_surv &lt;- function(fit_km, armval = "All") {</pre>
+                      <pre class="language-r">  xs_class &lt;- attr(fit_glm$terms, "dataClasses")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">136</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">257</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- if (is.null(fit_km$strata)) {</pre>
+                      <pre class="language-r">  if (any(xs_class[c(odds_ratio_var, interaction_var)] == "numeric")) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">137</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">258</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    as.data.frame(t(summary(fit_km)$table), row.names = armval)</pre>
+                      <pre class="language-r">    h_or_cont_interaction(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">138</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">259</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">      odds_ratio_var,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">260</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tbl &lt;- summary(fit_km)$table</pre>
+                      <pre class="language-r">      interaction_var,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">261</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rownames_lst &lt;- strsplit(sub("=", "equals", rownames(tbl)), "equals")</pre>
+                      <pre class="language-r">      fit_glm,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">262</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rownames(tbl) &lt;- matrix(unlist(rownames_lst), ncol = 2, byrow = TRUE)[, 2]</pre>
+                      <pre class="language-r">      at = at,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">263</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    as.data.frame(tbl)</pre>
+                      <pre class="language-r">      conf_level = conf_level</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">265</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  conf.int &lt;- summary(fit_km)$conf.int # nolint</pre>
+                      <pre class="language-r">  } else if (all(xs_class[c(odds_ratio_var, interaction_var)] == "factor")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">145</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">266</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y$records &lt;- round(y$records)</pre>
+                      <pre class="language-r">    h_or_cat_interaction(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">267</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y$median &lt;- signif(y$median, 4)</pre>
+                      <pre class="language-r">      odds_ratio_var,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">268</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y$`CI` &lt;- paste0(</pre>
+                      <pre class="language-r">      interaction_var,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">269</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "(", signif(y[[paste0(conf.int, "LCL")]], 4), ", ", signif(y[[paste0(conf.int, "UCL")]], 4), ")"</pre>
+                      <pre class="language-r">      fit_glm,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">149</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">270</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      conf_level = conf_level</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">150</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">271</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  stats::setNames(</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">272</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y[c("records", "median", "CI")],</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">273</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c("N", "Median", f_conf_level(conf.int))</pre>
+                      <pre class="language-r">    stop("wrong interaction variable class, the interaction variable is not a numeric nor a factor")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">274</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">275</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">276</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">277</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function for generating a pairwise Cox-PH table</pre>
+                      <pre class="language-r">#' @describeIn h_logistic_regression Helper function to construct term labels from simple terms and the table</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   of numbers of patients.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">279</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">280</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param terms (`character`)\cr simple terms.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">281</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create a `data.frame` of pairwise stratified or unstratified Cox-PH analysis results.</pre>
+                      <pre class="language-r">#' @param table (`table`)\cr table containing numbers for terms.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">282</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">283</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams g_km</pre>
+                      <pre class="language-r">#' @return Term labels containing numbers of patients.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param annot_coxph_ref_lbls (`flag`)\cr whether the reference group should be explicitly printed in labels for the</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `annot_coxph` table. If `FALSE` (default), only comparison groups will be printed in `annot_coxph` table labels.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">h_simple_term_labels &lt;- function(terms,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `data.frame` containing statistics `HR`, `XX% CI` (`XX` taken from `control_coxph_pw`),</pre>
+                      <pre class="language-r">                                 table) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">167</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">288</td>
+                    <td class="coverage">54<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and `p-value (log-rank)`.</pre>
+                      <pre class="language-r">  checkmate::assert_true(is.table(table))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">168</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">289</td>
+                    <td class="coverage">54<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(terms, classes = c("factor", "character"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">169</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">290</td>
+                    <td class="coverage">54<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  terms &lt;- as.character(terms)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">170</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">291</td>
+                    <td class="coverage">54<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">  term_n &lt;- table[terms]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">171</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">292</td>
+                    <td class="coverage">54<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  paste0(terms, ", n = ", term_n)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adtte &lt;- tern_ex_adtte %&gt;%</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">295</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mutate(is_event = CNSR == 0)</pre>
+                      <pre class="language-r">#' @describeIn h_logistic_regression Helper function to construct term labels from interaction terms and the table</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">296</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   of numbers of patients.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">297</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_tbl_coxph_pairwise(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">298</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   df = adtte,</pre>
+                      <pre class="language-r">#' @param terms1 (`character`)\cr terms for first dimension (rows).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(tte = "AVAL", is_event = "is_event", arm = "ARM"),</pre>
+                      <pre class="language-r">#' @param terms2 (`character`)\cr terms for second dimension (rows).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">300</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   control_coxph_pw = control_coxph(conf_level = 0.9)</pre>
+                      <pre class="language-r">#' @param any (`flag`)\cr whether any of `term1` and `term2` can be fulfilled to count the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">301</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   number of patients. In that case they can only be scalar (strings).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">302</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @return Term labels containing numbers of patients.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_tbl_coxph_pairwise &lt;- function(df,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">305</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 variables,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">306</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 ref_group_coxph = NULL,</pre>
+                      <pre class="language-r">h_interaction_term_labels &lt;- function(terms1,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 control_coxph_pw = control_coxph(),</pre>
+                      <pre class="language-r">                                      terms2,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">308</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 annot_coxph_ref_lbls = FALSE) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if ("strat" %in% names(variables)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">189</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    warning(</pre>
+                      <pre class="language-r">                                      table,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">190</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">309</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Warning: the `strat` element name of the `variables` list argument to `h_tbl_coxph_pairwise() ",</pre>
+                      <pre class="language-r">                                      any = FALSE) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">191</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">310</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "was deprecated in tern 0.9.4.\n  ",</pre>
+                      <pre class="language-r">  checkmate::assert_true(is.table(table))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">192</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">311</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Please use the name `strata` instead of `strat` in the `variables` argument."</pre>
+                      <pre class="language-r">  checkmate::assert_flag(any)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">193</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">312</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(terms1, classes = c("factor", "character"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">194</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">313</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    variables[["strata"]] &lt;- variables[["strat"]]</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(terms2, classes = c("factor", "character"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">195</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">314</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  terms1 &lt;- as.character(terms1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">196</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">315</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  terms2 &lt;- as.character(terms2)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">197</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">316</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(df, variables)</pre>
+                      <pre class="language-r">  if (any) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">198</td>
+                    <td class="num">317</td>
                     <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_choice(ref_group_coxph, levels(df[[variables$arm]]), null.ok = TRUE)</pre>
+                      <pre class="language-r">    checkmate::assert_scalar(terms1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">199</td>
+                    <td class="num">318</td>
                     <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(annot_coxph_ref_lbls)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">200</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    checkmate::assert_scalar(terms2)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">201</td>
+                    <td class="num">319</td>
                     <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  arm &lt;- variables$arm</pre>
+                      <pre class="language-r">    paste0(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">202</td>
+                    <td class="num">320</td>
                     <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df[[arm]] &lt;- factor(df[[arm]])</pre>
+                      <pre class="language-r">      terms1, " or ", terms2, ", n = ",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      # Note that we double count in the initial sum the cell [terms1, terms2], therefore subtract.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">204</td>
+                    <td class="num">322</td>
                     <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ref_group &lt;- if (!is.null(ref_group_coxph)) ref_group_coxph else levels(df[[variables$arm]])[1]</pre>
+                      <pre class="language-r">      sum(c(table[terms1, ], table[, terms2])) - table[terms1, terms2]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">323</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  comp_group &lt;- setdiff(levels(df[[arm]]), ref_group)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">324</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">207</td>
+                    <td class="num">325</td>
                     <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  results &lt;- Map(function(comp) {</pre>
+                      <pre class="language-r">    term_n &lt;- table[cbind(terms1, terms2)]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">326</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    res &lt;- s_coxph_pairwise(</pre>
+                      <pre class="language-r">    paste0(terms1, " * ", terms2, ", n = ", term_n)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">209</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">327</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df = df[df[[arm]] == comp, , drop = FALSE],</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">328</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      .ref_group = df[df[[arm]] == ref_group, , drop = FALSE],</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">329</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      .in_ref_col = FALSE,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">212</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">330</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      .var = variables$tte,</pre>
+                      <pre class="language-r">#' @describeIn h_logistic_regression Helper function to tabulate the main effect</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">331</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      is_event = variables$is_event,</pre>
+                      <pre class="language-r">#'   results of a (conditional) logistic regression model.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">214</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">332</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      strata = variables$strata,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">333</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      control = control_coxph_pw</pre>
+                      <pre class="language-r">#' @return Tabulated main effect results from a logistic regression model.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">334</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">217</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">335</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    res_df &lt;- data.frame(</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">218</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">336</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      hr = format(round(res$hr, 2), nsmall = 2),</pre>
+                      <pre class="language-r">#' h_glm_simple_term_extract("AGE", mod1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">337</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      hr_ci = paste0(</pre>
+                      <pre class="language-r">#' h_glm_simple_term_extract("ARMCD", mod1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">338</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "(", format(round(res$hr_ci[1], 2), nsmall = 2), ", ",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">221</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">339</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        format(round(res$hr_ci[2], 2), nsmall = 2), ")"</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</td>
+                    <td class="num">340</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">h_glm_simple_term_extract &lt;- function(x, fit_glm) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">341</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pvalue = if (res$pvalue &lt; 0.0001) "&lt;0.0001" else format(round(res$pvalue, 4), 4),</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(fit_glm, c("glm", "clogit"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">342</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">  checkmate::assert_string(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">343</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">344</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    colnames(res_df) &lt;- c("HR", vapply(res[c("hr_ci", "pvalue")], obj_label, FUN.VALUE = "character"))</pre>
+                      <pre class="language-r">  xs_class &lt;- attr(fit_glm$terms, "dataClasses")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">345</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    row.names(res_df) &lt;- comp</pre>
+                      <pre class="language-r">  xs_level &lt;- fit_glm$xlevels</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">346</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    res_df</pre>
+                      <pre class="language-r">  xs_coef &lt;- summary(fit_glm)$coefficients</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">229</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">347</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }, comp_group)</pre>
+                      <pre class="language-r">  stats &lt;- if (inherits(fit_glm, "glm")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">348</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (annot_coxph_ref_lbls) names(results) &lt;- paste(comp_group, "vs.", ref_group)</pre>
+                      <pre class="language-r">    c("estimate" = "Estimate", "std_error" = "Std. Error", "pvalue" = "Pr(&gt;|z|)")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">231</td>
+                    <td class="num">349</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  do.call(rbind, results)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">233</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">234</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">235</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function to tidy survival fit data</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">236</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">237</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">238</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">239</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' Convert the survival fit data into a data frame designed for plotting</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">240</td>
-                    <td class="coverage"></td>
+                    <td class="num">350</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' within `g_km`.</pre>
+                      <pre class="language-r">    c("estimate" = "coef", "std_error" = "se(coef)", "pvalue" = "Pr(&gt;|z|)")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">241</td>
+                    <td class="num">351</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">242</td>
+                    <td class="num">352</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This starts from the [broom::tidy()] result, and then:</pre>
+                      <pre class="language-r">  # Make sure x is not an interaction term.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">243</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">353</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * Post-processes the `strata` column into a factor.</pre>
+                      <pre class="language-r">  checkmate::assert_subset(x, names(xs_class))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">244</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">354</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * Extends each stratum by an additional first row with time 0 and probability 1 so that</pre>
+                      <pre class="language-r">  x_sel &lt;- if (xs_class[x] == "numeric") x else paste0(x, xs_level[[x]][-1])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">245</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">355</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     downstream plot lines start at those coordinates.</pre>
+                      <pre class="language-r">  x_stats &lt;- as.data.frame(xs_coef[x_sel, stats, drop = FALSE], stringsAsFactors = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">246</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">356</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * Adds a `censor` column.</pre>
+                      <pre class="language-r">  colnames(x_stats) &lt;- names(stats)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">247</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">357</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * Filters the rows before `max_time`.</pre>
+                      <pre class="language-r">  x_stats$estimate &lt;- as.list(x_stats$estimate)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">248</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">358</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  x_stats$std_error &lt;- as.list(x_stats$std_error)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">249</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">359</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams g_km</pre>
+                      <pre class="language-r">  x_stats$pvalue &lt;- as.list(x_stats$pvalue)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">250</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">360</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param fit_km (`survfit`)\cr result of [survival::survfit()].</pre>
+                      <pre class="language-r">  x_stats$df &lt;- as.list(1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">251</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">361</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param armval (`string`)\cr used as strata name when treatment arm variable only has one level. Default is `"All"`.</pre>
+                      <pre class="language-r">  if (xs_class[x] == "numeric") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">252</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">362</td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    x_stats$term &lt;- x</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">253</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">363</td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `tibble` with columns `time`, `n.risk`, `n.event`, `n.censor`, `estimate`, `std.error`, `conf.high`,</pre>
+                      <pre class="language-r">    x_stats$term_label &lt;- if (inherits(fit_glm, "glm")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">254</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">364</td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `conf.low`, `strata`, and `censor`.</pre>
+                      <pre class="language-r">      formatters::var_labels(fit_glm$data[x], fill = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">255</td>
+                    <td class="num">365</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">256</td>
+                    <td class="num">366</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">      # We just fill in here with the `term` itself as we don't have the data available.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">257</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">367</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">      x</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">368</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(survival)</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">259</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">369</td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    x_stats$is_variable_summary &lt;- FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">260</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">370</td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Test with multiple arms</pre>
+                      <pre class="language-r">    x_stats$is_term_summary &lt;- TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">261</td>
+                    <td class="num">371</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tern_ex_adtte %&gt;%</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">262</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">372</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
+                      <pre class="language-r">    checkmate::assert_class(fit_glm, "glm")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">263</td>
+                    <td class="num">373</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   survfit(formula = Surv(AVAL, 1 - CNSR) ~ ARMCD, data = .) %&gt;%</pre>
+                      <pre class="language-r">    # The reason is that we don't have the original data set in the `clogit` object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">264</td>
+                    <td class="num">374</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   h_data_plot()</pre>
+                      <pre class="language-r">    # and therefore cannot determine the `x_numbers` here.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">265</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">375</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    x_numbers &lt;- table(fit_glm$data[[x]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">266</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">376</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Test with single arm</pre>
+                      <pre class="language-r">    x_stats$term &lt;- xs_level[[x]][-1]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">267</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">377</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tern_ex_adtte %&gt;%</pre>
+                      <pre class="language-r">    x_stats$term_label &lt;- h_simple_term_labels(x_stats$term, x_numbers)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">268</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">378</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(PARAMCD == "OS", ARMCD == "ARM B") %&gt;%</pre>
+                      <pre class="language-r">    x_stats$is_variable_summary &lt;- FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">269</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">379</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   survfit(formula = Surv(AVAL, 1 - CNSR) ~ ARMCD, data = .) %&gt;%</pre>
+                      <pre class="language-r">    x_stats$is_term_summary &lt;- TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">270</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">380</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   h_data_plot(armval = "ARM B")</pre>
+                      <pre class="language-r">    main_effects &lt;- car::Anova(fit_glm, type = 3, test.statistic = "Wald")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">271</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">381</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    x_main &lt;- data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">272</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">382</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">      pvalue = main_effects[x, "Pr(&gt;Chisq)", drop = TRUE],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">273</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">383</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_data_plot &lt;- function(fit_km,</pre>
+                      <pre class="language-r">      term = xs_level[[x]][1],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">274</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">384</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        armval = "All",</pre>
+                      <pre class="language-r">      term_label = paste("Reference", h_simple_term_labels(xs_level[[x]][1], x_numbers)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">275</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">385</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        max_time = NULL) {</pre>
+                      <pre class="language-r">      df = main_effects[x, "Df", drop = TRUE],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">276</td>
+                    <td class="num">386</td>
                     <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- broom::tidy(fit_km)</pre>
+                      <pre class="language-r">      stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">277</td>
+                    <td class="num">387</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">278</td>
+                    <td class="num">388</td>
                     <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(fit_km$strata)) {</pre>
+                      <pre class="language-r">    x_main$pvalue &lt;- as.list(x_main$pvalue)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">279</td>
+                    <td class="num">389</td>
                     <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    fit_km_var_level &lt;- strsplit(sub("=", "equals", names(fit_km$strata)), "equals")</pre>
+                      <pre class="language-r">    x_main$df &lt;- as.list(x_main$df)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">280</td>
+                    <td class="num">390</td>
                     <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    strata_levels &lt;- vapply(fit_km_var_level, FUN = "[", FUN.VALUE = "a", i = 2)</pre>
+                      <pre class="language-r">    x_main$estimate &lt;- list(numeric(0))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">281</td>
+                    <td class="num">391</td>
                     <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    strata_var_level &lt;- strsplit(sub("=", "equals", y$strata), "equals")</pre>
+                      <pre class="language-r">    x_main$std_error &lt;- list(numeric(0))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">282</td>
+                    <td class="num">392</td>
                     <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y$strata &lt;- factor(</pre>
+                      <pre class="language-r">    if (length(xs_level[[x]][-1]) == 1) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">283</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">393</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vapply(strata_var_level, FUN = "[", FUN.VALUE = "a", i = 2),</pre>
+                      <pre class="language-r">      x_main$pvalue &lt;- list(numeric(0))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">284</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">394</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      levels = strata_levels</pre>
+                      <pre class="language-r">      x_main$df &lt;- list(numeric(0))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">285</td>
+                    <td class="num">395</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">286</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">396</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">    x_main$is_variable_summary &lt;- TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">287</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">397</td>
+                    <td class="coverage">18<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    x_main$is_term_summary &lt;- FALSE</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">398</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y$strata &lt;- armval</pre>
+                      <pre class="language-r">    x_stats &lt;- rbind(x_main, x_stats)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">399</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">289</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">400</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  x_stats$variable &lt;- x</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">290</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">401</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y_by_strata &lt;- split(y, y$strata)</pre>
+                      <pre class="language-r">  x_stats$variable_label &lt;- if (inherits(fit_glm, "glm")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">291</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">402</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y_by_strata_extended &lt;- lapply(</pre>
+                      <pre class="language-r">    formatters::var_labels(fit_glm$data[x], fill = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">292</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">403</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y_by_strata,</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">293</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">404</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    FUN = function(tbl) {</pre>
+                      <pre class="language-r">    x</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">294</td>
-                    <td class="coverage">53<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">405</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      first_row &lt;- tbl[1L, ]</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">295</td>
-                    <td class="coverage">53<em>x</em></td>
+                    <td class="num">406</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      first_row$time &lt;- 0</pre>
+                      <pre class="language-r">  x_stats$interaction &lt;- ""</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">296</td>
-                    <td class="coverage">53<em>x</em></td>
+                    <td class="num">407</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      first_row$n.risk &lt;- sum(first_row[, c("n.risk", "n.event", "n.censor")])</pre>
+                      <pre class="language-r">  x_stats$interaction_label &lt;- ""</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">297</td>
-                    <td class="coverage">53<em>x</em></td>
+                    <td class="num">408</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      first_row$n.event &lt;- first_row$n.censor &lt;- 0</pre>
+                      <pre class="language-r">  x_stats$reference &lt;- ""</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">298</td>
-                    <td class="coverage">53<em>x</em></td>
+                    <td class="num">409</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      first_row$estimate &lt;- first_row$conf.high &lt;- first_row$conf.low &lt;- 1</pre>
+                      <pre class="language-r">  x_stats$reference_label &lt;- ""</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">299</td>
-                    <td class="coverage">53<em>x</em></td>
+                    <td class="num">410</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      first_row$std.error &lt;- 0</pre>
+                      <pre class="language-r">  rownames(x_stats) &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">300</td>
-                    <td class="coverage">53<em>x</em></td>
+                    <td class="num">411</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rbind(</pre>
+                      <pre class="language-r">  x_stats[c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">301</td>
-                    <td class="coverage">53<em>x</em></td>
+                    <td class="num">412</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        first_row,</pre>
+                      <pre class="language-r">    "variable",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">302</td>
-                    <td class="coverage">53<em>x</em></td>
+                    <td class="num">413</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        tbl</pre>
+                      <pre class="language-r">    "variable_label",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">303</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">414</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    "term",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">304</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">415</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    "term_label",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">305</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">416</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    "interaction",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">306</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">417</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- do.call(rbind, y_by_strata_extended)</pre>
+                      <pre class="language-r">    "interaction_label",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">307</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">418</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    "reference",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">308</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">419</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y$censor &lt;- ifelse(y$n.censor &gt; 0, y$estimate, NA)</pre>
+                      <pre class="language-r">    "reference_label",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">309</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">420</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(max_time)) {</pre>
+                      <pre class="language-r">    "estimate",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">310</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">421</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y &lt;- y[y$time &lt;= max(max_time), ]</pre>
+                      <pre class="language-r">    "std_error",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">311</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">422</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    "df",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">312</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">423</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y</pre>
+                      <pre class="language-r">    "pvalue",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">313</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">424</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    "is_variable_summary",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">314</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">425</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    "is_term_summary"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">315</td>
+                    <td class="num">426</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">## Deprecated Functions ----</pre>
+                      <pre class="language-r">  )]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">316</td>
+                    <td class="num">427</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">317</td>
+                    <td class="num">428</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function to create a KM plot</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">318</td>
+                    <td class="num">429</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @describeIn h_logistic_regression Helper function to tabulate the interaction term</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">319</td>
+                    <td class="num">430</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
+                      <pre class="language-r">#'   results of a logistic regression model.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">320</td>
+                    <td class="num">431</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">321</td>
+                    <td class="num">432</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Draw the Kaplan-Meier plot using `ggplot2`.</pre>
+                      <pre class="language-r">#' @return Tabulated interaction term results from a logistic regression model.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">322</td>
+                    <td class="num">433</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">323</td>
+                    <td class="num">434</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams g_km</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">324</td>
+                    <td class="num">435</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data (`data.frame`)\cr survival data as pre-processed by `h_data_plot`.</pre>
+                      <pre class="language-r">#' h_glm_interaction_extract("ARMCD:AGE", mod2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">325</td>
+                    <td class="num">436</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">326</td>
+                    <td class="num">437</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `ggplot` object.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">327</td>
+                    <td class="num">438</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">h_glm_interaction_extract &lt;- function(x, fit_glm) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">328</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">439</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  vars &lt;- h_get_interaction_vars(fit_glm)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">329</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">440</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' \donttest{</pre>
+                      <pre class="language-r">  xs_class &lt;- attr(fit_glm$terms, "dataClasses")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">330</td>
+                    <td class="num">441</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">331</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">442</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(survival)</pre>
+                      <pre class="language-r">  checkmate::assert_string(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">332</td>
+                    <td class="num">443</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">333</td>
+                    <td class="num">444</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' fit_km &lt;- tern_ex_adtte %&gt;%</pre>
+                      <pre class="language-r">  # Only take two-way interaction</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">334</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">445</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
+                      <pre class="language-r">  checkmate::assert_vector(vars, len = 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">335</td>
+                    <td class="num">446</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   survfit(formula = Surv(AVAL, 1 - CNSR) ~ ARMCD, data = .)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">336</td>
+                    <td class="num">447</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data_plot &lt;- h_data_plot(fit_km = fit_km)</pre>
+                      <pre class="language-r">  # Only consider simple case: first variable in interaction is arm, a categorical variable</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">337</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">448</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' xticks &lt;- h_xticks(data = data_plot)</pre>
+                      <pre class="language-r">  checkmate::assert_disjunct(xs_class[vars[1]], "numeric")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">338</td>
+                    <td class="num">449</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' gg &lt;- h_ggkm(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">339</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">450</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = data_plot,</pre>
+                      <pre class="language-r">  xs_level &lt;- fit_glm$xlevels</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">340</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">451</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   censor_show = TRUE,</pre>
+                      <pre class="language-r">  xs_coef &lt;- summary(fit_glm)$coefficients</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">341</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">452</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   xticks = xticks,</pre>
+                      <pre class="language-r">  main_effects &lt;- car::Anova(fit_glm, type = 3, test.statistic = "Wald")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">342</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">453</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   xlab = "Days",</pre>
+                      <pre class="language-r">  stats &lt;- c("estimate" = "Estimate", "std_error" = "Std. Error", "pvalue" = "Pr(&gt;|z|)")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">343</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">454</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   yval = "Survival",</pre>
+                      <pre class="language-r">  v1_comp &lt;- xs_level[[vars[1]]][-1]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">344</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">455</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ylab = "Survival Probability",</pre>
+                      <pre class="language-r">  if (xs_class[vars[2]] == "numeric") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">345</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">456</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   title = "Survival"</pre>
+                      <pre class="language-r">    x_stats &lt;- as.data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">346</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">457</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">      xs_coef[paste0(vars[1], v1_comp, ":", vars[2]), stats, drop = FALSE],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">347</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">458</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' gg</pre>
+                      <pre class="language-r">      stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">348</td>
+                    <td class="num">459</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">349</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">460</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    colnames(x_stats) &lt;- names(stats)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">350</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">461</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    x_stats$term &lt;- v1_comp</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">351</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">462</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_ggkm &lt;- function(data,</pre>
+                      <pre class="language-r">    x_numbers &lt;- table(fit_glm$data[[vars[1]]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">352</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">463</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   xticks = NULL,</pre>
+                      <pre class="language-r">    x_stats$term_label &lt;- h_simple_term_labels(v1_comp, x_numbers)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">353</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">464</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   yval = "Survival",</pre>
+                      <pre class="language-r">    v1_ref &lt;- xs_level[[vars[1]]][1]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">354</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">465</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   censor_show,</pre>
+                      <pre class="language-r">    term_main &lt;- v1_ref</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">355</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">466</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   xlab,</pre>
+                      <pre class="language-r">    ref_label &lt;- h_simple_term_labels(v1_ref, x_numbers)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">356</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">467</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   ylab,</pre>
+                      <pre class="language-r">  } else if (xs_class[vars[2]] != "numeric") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">357</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">468</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   ylim = NULL,</pre>
+                      <pre class="language-r">    v2_comp &lt;- xs_level[[vars[2]]][-1]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">358</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">469</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   title,</pre>
+                      <pre class="language-r">    v1_v2_grid &lt;- expand.grid(v1 = v1_comp, v2 = v2_comp)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">359</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">470</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   footnotes = NULL,</pre>
+                      <pre class="language-r">    x_sel &lt;- paste(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">360</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">471</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   max_time = NULL,</pre>
+                      <pre class="language-r">      paste0(vars[1], v1_v2_grid$v1),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">361</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">472</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   lwd = 1,</pre>
+                      <pre class="language-r">      paste0(vars[2], v1_v2_grid$v2),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">362</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">473</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   lty = NULL,</pre>
+                      <pre class="language-r">      sep = ":"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">363</td>
+                    <td class="num">474</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   pch = 3,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">364</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">475</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   size = 2,</pre>
+                      <pre class="language-r">    x_stats &lt;- as.data.frame(xs_coef[x_sel, stats, drop = FALSE], stringsAsFactors = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">365</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">476</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   col = NULL,</pre>
+                      <pre class="language-r">    colnames(x_stats) &lt;- names(stats)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">366</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">477</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   ci_ribbon = FALSE,</pre>
+                      <pre class="language-r">    x_stats$term &lt;- paste(v1_v2_grid$v1, "*", v1_v2_grid$v2)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">367</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">478</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   ggtheme = nestcolor::theme_nest()) {</pre>
+                      <pre class="language-r">    x_numbers &lt;- table(fit_glm$data[[vars[1]]], fit_glm$data[[vars[2]]])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">368</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">479</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
+                      <pre class="language-r">    x_stats$term_label &lt;- h_interaction_term_labels(v1_v2_grid$v1, v1_v2_grid$v2, x_numbers)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">369</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">480</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "0.9.4",</pre>
+                      <pre class="language-r">    v1_ref &lt;- xs_level[[vars[1]]][1]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">370</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">481</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "h_ggkm()",</pre>
+                      <pre class="language-r">    v2_ref &lt;- xs_level[[vars[2]]][1]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">371</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">482</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    details = "`g_km` now generates `ggplot` objects. This function is no longer used within `tern`."</pre>
+                      <pre class="language-r">    term_main &lt;- paste(vars[1], vars[2], sep = " * ")</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">483</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ref_label &lt;- h_interaction_term_labels(v1_ref, v2_ref, x_numbers, any = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">372</td>
+                    <td class="num">484</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">373</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">485</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(lty, null.ok = TRUE)</pre>
+                      <pre class="language-r">  x_stats$df &lt;- as.list(1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">374</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">486</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(col, null.ok = TRUE)</pre>
+                      <pre class="language-r">  x_stats$pvalue &lt;- as.list(x_stats$pvalue)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">375</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">487</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  x_stats$is_variable_summary &lt;- FALSE</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">376</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">488</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(ylim)) {</pre>
+                      <pre class="language-r">  x_stats$is_term_summary &lt;- TRUE</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">377</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">489</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data_lims &lt;- data</pre>
+                      <pre class="language-r">  x_main &lt;- data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">378</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">490</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (yval == "Failure") data_lims[["estimate"]] &lt;- 1 - data_lims[["estimate"]]</pre>
+                      <pre class="language-r">    pvalue = main_effects[x, "Pr(&gt;Chisq)", drop = TRUE],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">379</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">491</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.null(max_time)) {</pre>
+                      <pre class="language-r">    term = term_main,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">380</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">492</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y_lwr &lt;- min(data_lims[data_lims$time &lt; max_time, ][["estimate"]])</pre>
+                      <pre class="language-r">    term_label = paste("Reference", ref_label),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">381</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">493</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y_upr &lt;- max(data_lims[data_lims$time &lt; max_time, ][["estimate"]])</pre>
+                      <pre class="language-r">    df = main_effects[x, "Df", drop = TRUE],</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">494</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">382</td>
+                    <td class="num">495</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">383</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">496</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y_lwr &lt;- min(data_lims[["estimate"]])</pre>
+                      <pre class="language-r">  x_main$pvalue &lt;- as.list(x_main$pvalue)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">384</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">497</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y_upr &lt;- max(data_lims[["estimate"]])</pre>
+                      <pre class="language-r">  x_main$df &lt;- as.list(x_main$df)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">385</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">498</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  x_main$estimate &lt;- list(numeric(0))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">386</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">499</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ylim &lt;- c(y_lwr, y_upr)</pre>
+                      <pre class="language-r">  x_main$std_error &lt;- list(numeric(0))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">387</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">500</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  x_main$is_variable_summary &lt;- TRUE</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">388</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">501</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(ylim, finite = TRUE, any.missing = FALSE, len = 2, sorted = TRUE)</pre>
+                      <pre class="language-r">  x_main$is_term_summary &lt;- FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">389</td>
+                    <td class="num">502</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">390</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  # change estimates of survival to estimates of failure (1 - survival)</pre>
-                    </td>
-                  </tr>
                   <tr class="covered">
-                    <td class="num">391</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">503</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (yval == "Failure") {</pre>
+                      <pre class="language-r">  x_stats &lt;- rbind(x_main, x_stats)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">392</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">504</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data$estimate &lt;- 1 - data$estimate</pre>
+                      <pre class="language-r">  x_stats$variable &lt;- x</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">393</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">505</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data[c("conf.high", "conf.low")] &lt;- list(1 - data$conf.low, 1 - data$conf.high)</pre>
+                      <pre class="language-r">  x_stats$variable_label &lt;- paste(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">394</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">506</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data$censor &lt;- 1 - data$censor</pre>
+                      <pre class="language-r">    "Interaction of",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">395</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">507</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    formatters::var_labels(fit_glm$data[vars[1]], fill = TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">396</td>
+                    <td class="num">508</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    "*",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">397</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">509</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  gg &lt;- {</pre>
+                      <pre class="language-r">    formatters::var_labels(fit_glm$data[vars[2]], fill = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">398</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">510</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ggplot2::ggplot(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">399</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">511</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data = data,</pre>
+                      <pre class="language-r">  x_stats$interaction &lt;- ""</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">400</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">512</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      mapping = ggplot2::aes(</pre>
+                      <pre class="language-r">  x_stats$interaction_label &lt;- ""</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">401</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">513</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = .data[["time"]],</pre>
+                      <pre class="language-r">  x_stats$reference &lt;- ""</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">402</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">514</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        y = .data[["estimate"]],</pre>
+                      <pre class="language-r">  x_stats$reference_label &lt;- ""</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">403</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">515</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ymin = .data[["conf.low"]],</pre>
+                      <pre class="language-r">  rownames(x_stats) &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">404</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">516</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ymax = .data[["conf.high"]],</pre>
+                      <pre class="language-r">  x_stats[c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">405</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">517</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        color = .data[["strata"]],</pre>
+                      <pre class="language-r">    "variable",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">406</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">518</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        fill = .data[["strata"]]</pre>
+                      <pre class="language-r">    "variable_label",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">407</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">519</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    "term",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">408</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">520</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) +</pre>
+                      <pre class="language-r">    "term_label",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">409</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">521</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot2::geom_hline(yintercept = 0)</pre>
+                      <pre class="language-r">    "interaction",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">410</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">522</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    "interaction_label",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">411</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">523</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    "reference",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">412</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">524</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (ci_ribbon) {</pre>
+                      <pre class="language-r">    "reference_label",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">413</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">525</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gg &lt;- gg + ggplot2::geom_ribbon(alpha = .3, lty = 0)</pre>
+                      <pre class="language-r">    "estimate",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">414</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">526</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    "std_error",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">415</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">527</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    "df",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">416</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">528</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  gg &lt;- if (is.null(lty)) {</pre>
+                      <pre class="language-r">    "pvalue",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">417</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">529</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gg +</pre>
+                      <pre class="language-r">    "is_variable_summary",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">418</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">530</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot2::geom_step(linewidth = lwd)</pre>
+                      <pre class="language-r">    "is_term_summary"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">419</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">531</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (checkmate::test_number(lty)) {</pre>
+                      <pre class="language-r">  )]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">420</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">532</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gg +</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">421</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">533</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot2::geom_step(linewidth = lwd, lty = lty)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">422</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">534</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (is.numeric(lty)) {</pre>
+                      <pre class="language-r">#' @describeIn h_logistic_regression Helper function to tabulate the interaction</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">423</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">535</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gg +</pre>
+                      <pre class="language-r">#'   results of a logistic regression model. This basically is a wrapper for</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">424</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">536</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot2::geom_step(mapping = ggplot2::aes(linetype = .data[["strata"]]), linewidth = lwd) +</pre>
+                      <pre class="language-r">#'   [h_or_interaction()] and [h_glm_simple_term_extract()] which puts the results</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">425</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">537</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot2::scale_linetype_manual(values = lty)</pre>
+                      <pre class="language-r">#'   in the right data frame format.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">426</td>
+                    <td class="num">538</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">427</td>
+                    <td class="num">539</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @return A `data.frame` of tabulated interaction term results from a logistic regression model.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">428</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">540</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  gg &lt;- gg +</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">429</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">541</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ggplot2::coord_cartesian(ylim = ylim) +</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">430</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">542</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ggplot2::labs(x = xlab, y = ylab, title = title, caption = footnotes)</pre>
+                      <pre class="language-r">#' h_glm_inter_term_extract("AGE", "ARMCD", mod2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">431</td>
+                    <td class="num">543</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">432</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">544</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(col)) {</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">433</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">545</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gg &lt;- gg +</pre>
+                      <pre class="language-r">h_glm_inter_term_extract &lt;- function(odds_ratio_var,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">434</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">546</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot2::scale_color_manual(values = col) +</pre>
+                      <pre class="language-r">                                     interaction_var,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">435</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">547</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot2::scale_fill_manual(values = col)</pre>
+                      <pre class="language-r">                                     fit_glm,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">436</td>
+                    <td class="num">548</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                                     ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">437</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">549</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (censor_show) {</pre>
+                      <pre class="language-r">  # First obtain the main effects.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">438</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">550</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dt &lt;- data[data$n.censor != 0, ]</pre>
+                      <pre class="language-r">  main_stats &lt;- h_glm_simple_term_extract(odds_ratio_var, fit_glm)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">439</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">551</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dt$censor_lbl &lt;- factor("Censored")</pre>
+                      <pre class="language-r">  main_stats$is_reference_summary &lt;- FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">440</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">552</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  main_stats$odds_ratio &lt;- NA</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">441</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">553</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gg &lt;- gg + ggplot2::geom_point(</pre>
+                      <pre class="language-r">  main_stats$lcl &lt;- NA</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">442</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">554</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data = dt,</pre>
+                      <pre class="language-r">  main_stats$ucl &lt;- NA</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">443</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">555</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot2::aes(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">444</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">556</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = .data[["time"]],</pre>
+                      <pre class="language-r">  # Then we get the odds ratio estimates and put into df form.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">445</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">557</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        y = .data[["censor"]],</pre>
+                      <pre class="language-r">  or_numbers &lt;- h_or_interaction(odds_ratio_var, interaction_var, fit_glm, ...)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">446</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">558</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shape = .data[["censor_lbl"]]</pre>
+                      <pre class="language-r">  is_num_or_var &lt;- attr(fit_glm$terms, "dataClasses")[odds_ratio_var] == "numeric"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">447</td>
+                    <td class="num">559</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">448</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">560</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      size = size,</pre>
+                      <pre class="language-r">  if (is_num_or_var) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">561</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    # Numeric OR variable case.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">449</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">562</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      show.legend = TRUE,</pre>
+                      <pre class="language-r">    references &lt;- names(or_numbers)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">450</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">563</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      inherit.aes = TRUE</pre>
+                      <pre class="language-r">    n_ref &lt;- length(references)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">451</td>
+                    <td class="num">564</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) +</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">452</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">565</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot2::scale_shape_manual(name = NULL, values = pch) +</pre>
+                      <pre class="language-r">    extract_from_list &lt;- function(l, name, pos = 1) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">453</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">566</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot2::guides(</pre>
+                      <pre class="language-r">      unname(unlist(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">454</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">567</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        shape = ggplot2::guide_legend(override.aes = list(linetype = NA)),</pre>
+                      <pre class="language-r">        lapply(or_numbers, function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">455</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">568</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        fill = ggplot2::guide_legend(override.aes = list(shape = NA))</pre>
+                      <pre class="language-r">          x[[name]][pos]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">456</td>
+                    <td class="num">569</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">457</td>
+                    <td class="num">570</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">458</td>
+                    <td class="num">571</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">459</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(max_time) &amp;&amp; !is.null(xticks)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">460</td>
-                    <td class="coverage">!</td>
+                    <td class="num">572</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gg &lt;- gg + ggplot2::scale_x_continuous(breaks = xticks, limits = c(min(0, xticks), max(c(xticks, max_time))))</pre>
+                      <pre class="language-r">    or_stats &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">461</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">573</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (!is.null(xticks)) {</pre>
+                      <pre class="language-r">      variable = odds_ratio_var,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">462</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">574</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (max(data$time) &lt;= max(xticks)) {</pre>
+                      <pre class="language-r">      variable_label = unname(formatters::var_labels(fit_glm$data[odds_ratio_var], fill = TRUE)),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">463</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      gg &lt;- gg + ggplot2::scale_x_continuous(breaks = xticks, limits = c(min(0, min(xticks)), max(xticks)))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">464</td>
-                    <td class="coverage"></td>
+                    <td class="num">575</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">      term = odds_ratio_var,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">465</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">576</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      gg &lt;- gg + ggplot2::scale_x_continuous(breaks = xticks)</pre>
+                      <pre class="language-r">      term_label = unname(formatters::var_labels(fit_glm$data[odds_ratio_var], fill = TRUE)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">466</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">577</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">      interaction = interaction_var,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">467</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">578</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (!is.null(max_time)) {</pre>
+                      <pre class="language-r">      interaction_label = unname(formatters::var_labels(fit_glm$data[interaction_var], fill = TRUE)),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">468</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">579</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gg &lt;- gg + ggplot2::scale_x_continuous(limits = c(0, max_time))</pre>
+                      <pre class="language-r">      reference = references,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">469</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">580</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      reference_label = references,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">470</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">581</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      estimate = NA,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">471</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">582</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(ggtheme)) {</pre>
+                      <pre class="language-r">      std_error = NA,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">472</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">583</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gg &lt;- gg + ggtheme</pre>
+                      <pre class="language-r">      odds_ratio = extract_from_list(or_numbers, "or"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">473</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">584</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      lcl = extract_from_list(or_numbers, "ci", pos = "lcl"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">474</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">585</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      ucl = extract_from_list(or_numbers, "ci", pos = "ucl"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">475</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">586</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  gg + ggplot2::theme(</pre>
+                      <pre class="language-r">      df = NA,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">476</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">587</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    legend.position = "bottom",</pre>
+                      <pre class="language-r">      pvalue = NA,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">477</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">588</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    legend.title = ggplot2::element_blank(),</pre>
+                      <pre class="language-r">      is_variable_summary = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">478</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">589</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    legend.key.height = unit(0.02, "npc"),</pre>
+                      <pre class="language-r">      is_term_summary = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">479</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">590</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    panel.grid.major.x = ggplot2::element_line(linewidth = 2)</pre>
+                      <pre class="language-r">      is_reference_summary = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">480</td>
+                    <td class="num">591</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">481</td>
+                    <td class="num">592</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">482</td>
+                    <td class="num">593</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # Categorical OR variable case.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">483</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">594</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `ggplot` decomposition</pre>
+                      <pre class="language-r">    references &lt;- names(or_numbers[[1]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">484</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">595</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    n_ref &lt;- length(references)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">485</td>
+                    <td class="num">596</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">486</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">597</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    extract_from_list &lt;- function(l, name, pos = 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">487</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">598</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The elements composing the `ggplot` are extracted and organized in a `list`.</pre>
+                      <pre class="language-r">      unname(unlist(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">488</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">599</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        lapply(or_numbers, function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">489</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">600</td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param gg (`ggplot`)\cr a graphic to decompose.</pre>
+                      <pre class="language-r">          lapply(x, function(y) y[[name]][pos])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">490</td>
+                    <td class="num">601</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">491</td>
+                    <td class="num">602</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A named `list` with elements:</pre>
+                      <pre class="language-r">      ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">492</td>
+                    <td class="num">603</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `panel`: The panel.</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">493</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">604</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `yaxis`: The y-axis.</pre>
+                      <pre class="language-r">    or_stats &lt;- data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">494</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">605</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `xaxis`: The x-axis.</pre>
+                      <pre class="language-r">      variable = odds_ratio_var,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">495</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">606</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `xlab`: The x-axis label.</pre>
+                      <pre class="language-r">      variable_label = unname(formatters::var_labels(fit_glm$data[odds_ratio_var], fill = TRUE)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">496</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">607</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `ylab`: The y-axis label.</pre>
+                      <pre class="language-r">      term = rep(names(or_numbers), each = n_ref),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">497</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">608</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `guide`: The legend.</pre>
+                      <pre class="language-r">      term_label = h_simple_term_labels(rep(names(or_numbers), each = n_ref), table(fit_glm$data[[odds_ratio_var]])),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">498</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">609</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      interaction = interaction_var,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">499</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">610</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">      interaction_label = unname(formatters::var_labels(fit_glm$data[interaction_var], fill = TRUE)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">500</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">611</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' \donttest{</pre>
+                      <pre class="language-r">      reference = unlist(lapply(or_numbers, names)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">501</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">612</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">      reference_label = unlist(lapply(or_numbers, names)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">502</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">613</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(survival)</pre>
+                      <pre class="language-r">      estimate = NA,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">503</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">614</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(grid)</pre>
+                      <pre class="language-r">      std_error = NA,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">504</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">615</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      odds_ratio = extract_from_list(or_numbers, "or"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">505</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">616</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' fit_km &lt;- tern_ex_adtte %&gt;%</pre>
+                      <pre class="language-r">      lcl = extract_from_list(or_numbers, "ci", pos = "lcl"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">506</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">617</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
+                      <pre class="language-r">      ucl = extract_from_list(or_numbers, "ci", pos = "ucl"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">507</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">618</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   survfit(formula = Surv(AVAL, 1 - CNSR) ~ ARMCD, data = .)</pre>
+                      <pre class="language-r">      df = NA,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">508</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">619</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data_plot &lt;- h_data_plot(fit_km = fit_km)</pre>
+                      <pre class="language-r">      pvalue = NA,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">509</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">620</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' xticks &lt;- h_xticks(data = data_plot)</pre>
+                      <pre class="language-r">      is_variable_summary = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">510</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">621</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' gg &lt;- h_ggkm(</pre>
+                      <pre class="language-r">      is_term_summary = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">511</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">622</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = data_plot,</pre>
+                      <pre class="language-r">      is_reference_summary = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">512</td>
+                    <td class="num">623</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   yval = "Survival",</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">513</td>
+                    <td class="num">624</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   censor_show = TRUE,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">514</td>
+                    <td class="num">625</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   xticks = xticks, xlab = "Days", ylab = "Survival Probability",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">515</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">626</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   title = "tt",</pre>
+                      <pre class="language-r">  df &lt;- rbind(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">516</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">627</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   footnotes = "ff"</pre>
+                      <pre class="language-r">    main_stats[, names(or_stats)],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">517</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">628</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    or_stats</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">518</td>
+                    <td class="num">629</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">630</td>
+                    <td class="coverage">13<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  df[order(-df$is_variable_summary, df$term, -df$is_term_summary, df$reference), ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">519</td>
+                    <td class="num">631</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_el &lt;- h_decompose_gg(gg)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">520</td>
+                    <td class="num">632</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid::grid.newpage()</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">521</td>
+                    <td class="num">633</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.rect(gp = grid::gpar(lty = 1, col = "red", fill = "gray85", lwd = 5))</pre>
+                      <pre class="language-r">#' @describeIn h_logistic_regression Helper function to tabulate the results including</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">522</td>
+                    <td class="num">634</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid::grid.draw(g_el$panel)</pre>
+                      <pre class="language-r">#'   odds ratios and confidence intervals of simple terms.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">523</td>
+                    <td class="num">635</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">524</td>
+                    <td class="num">636</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid::grid.newpage()</pre>
+                      <pre class="language-r">#' @return Tabulated statistics for the given variable(s) from the logistic regression model.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">525</td>
+                    <td class="num">637</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.rect(gp = grid::gpar(lty = 1, col = "royalblue", fill = "gray85", lwd = 5))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">526</td>
+                    <td class="num">638</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid::grid.draw(with(g_el, cbind(ylab, yaxis)))</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">527</td>
+                    <td class="num">639</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#' h_logistic_simple_terms("AGE", mod1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">528</td>
+                    <td class="num">640</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">529</td>
+                    <td class="num">641</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">530</td>
+                    <td class="num">642</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_decompose_gg &lt;- function(gg) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">531</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
+                      <pre class="language-r">h_logistic_simple_terms &lt;- function(x, fit_glm, conf_level = 0.95) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">532</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">643</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "0.9.4",</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(fit_glm, c("glm", "clogit"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">533</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">644</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "h_decompose_gg()",</pre>
+                      <pre class="language-r">  if (inherits(fit_glm, "glm")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">534</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">645</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    details = "`g_km` now generates `ggplot` objects. This function is no longer used within `tern`."</pre>
+                      <pre class="language-r">    checkmate::assert_set_equal(fit_glm$family$family, "binomial")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">535</td>
+                    <td class="num">646</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">536</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  g_el &lt;- ggplot2::ggplotGrob(gg)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">537</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- c(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">538</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    panel = "panel",</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">539</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">647</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    yaxis = "axis-l",</pre>
+                      <pre class="language-r">  terms_name &lt;- attr(stats::terms(fit_glm), "term.labels")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">540</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">648</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xaxis = "axis-b",</pre>
+                      <pre class="language-r">  xs_class &lt;- attr(fit_glm$terms, "dataClasses")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">541</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">649</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xlab = "xlab-b",</pre>
+                      <pre class="language-r">  interaction &lt;- terms_name[which(!terms_name %in% names(xs_class))]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">542</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">650</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ylab = "ylab-l",</pre>
+                      <pre class="language-r">  checkmate::assert_subset(x, terms_name)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">543</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">651</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    guide = "guide"</pre>
+                      <pre class="language-r">  if (length(interaction) != 0) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">544</td>
+                    <td class="num">652</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    # Make sure any item in x is not part of interaction term</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">545</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  lapply(X = y, function(x) gtable::gtable_filter(g_el, x))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">546</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">547</td>
-                    <td class="coverage"></td>
+                    <td class="num">653</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    checkmate::assert_disjunct(x, unlist(strsplit(interaction, ":")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">548</td>
+                    <td class="num">654</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function to prepare a KM layout</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">549</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">655</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  x_stats &lt;- lapply(x, h_glm_simple_term_extract, fit_glm)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">550</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">656</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
+                      <pre class="language-r">  x_stats &lt;- do.call(rbind, x_stats)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">551</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">657</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  q_norm &lt;- stats::qnorm((1 + conf_level) / 2)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">552</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">658</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Prepares a (5 rows) x (2 cols) layout for the Kaplan-Meier curve.</pre>
+                      <pre class="language-r">  x_stats$odds_ratio &lt;- lapply(x_stats$estimate, exp)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">553</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">659</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  x_stats$lcl &lt;- Map(function(or, se) exp(log(or) - q_norm * se), x_stats$odds_ratio, x_stats$std_error)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">554</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">660</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams g_km</pre>
+                      <pre class="language-r">  x_stats$ucl &lt;- Map(function(or, se) exp(log(or) + q_norm * se), x_stats$odds_ratio, x_stats$std_error)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">555</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">661</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_ggkm</pre>
+                      <pre class="language-r">  x_stats$ci &lt;- Map(function(lcl, ucl) c(lcl, ucl), lcl = x_stats$lcl, ucl = x_stats$ucl)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">556</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">662</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param g_el (`list` of `gtable`)\cr list as obtained by `h_decompose_gg()`.</pre>
+                      <pre class="language-r">  x_stats</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">557</td>
+                    <td class="num">663</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param annot_at_risk (`flag`)\cr compute and add the annotation table reporting the number of</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">558</td>
+                    <td class="num">664</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   patient at risk matching the main grid of the Kaplan-Meier curve.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">559</td>
+                    <td class="num">665</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @describeIn h_logistic_regression Helper function to tabulate the results including</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">560</td>
+                    <td class="num">666</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A grid layout.</pre>
+                      <pre class="language-r">#'   odds ratios and confidence intervals of interaction terms.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">561</td>
+                    <td class="num">667</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">562</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @details The layout corresponds to a grid of two columns and five rows of unequal dimensions. Most of the</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">563</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   dimension are fixed, only the curve is flexible and will accommodate with the remaining free space.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">564</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   * The left column gets the annotation of the `ggplot` (y-axis) and the names of the strata for the patient</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">565</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'     at risk tabulation. The main constraint is about the width of the columns which must allow the writing of</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">566</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'     the strata name.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">567</td>
+                    <td class="num">668</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * The right column receive the `ggplot`, the legend, the x-axis and the patient at risk table.</pre>
+                      <pre class="language-r">#' @return Tabulated statistics for the given variable(s) from the logistic regression model.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">568</td>
+                    <td class="num">669</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">569</td>
+                    <td class="num">670</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">570</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' \donttest{</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">571</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">572</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' library(survival)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">573</td>
+                    <td class="num">671</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(grid)</pre>
+                      <pre class="language-r">#' h_logistic_inter_terms(c("RACE", "AGE", "ARMCD", "AGE:ARMCD"), mod2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">574</td>
+                    <td class="num">672</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">575</td>
+                    <td class="num">673</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' fit_km &lt;- tern_ex_adtte %&gt;%</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">576</td>
+                    <td class="num">674</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
+                      <pre class="language-r">h_logistic_inter_terms &lt;- function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">577</td>
+                    <td class="num">675</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   survfit(formula = Surv(AVAL, 1 - CNSR) ~ ARMCD, data = .)</pre>
+                      <pre class="language-r">                                   fit_glm,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">578</td>
+                    <td class="num">676</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data_plot &lt;- h_data_plot(fit_km = fit_km)</pre>
+                      <pre class="language-r">                                   conf_level = 0.95,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">579</td>
+                    <td class="num">677</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' xticks &lt;- h_xticks(data = data_plot)</pre>
+                      <pre class="language-r">                                   at = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">580</td>
+                    <td class="num">678</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' gg &lt;- h_ggkm(</pre>
+                      <pre class="language-r">  # Find out the interaction variables and interaction term.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">581</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">679</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = data_plot,</pre>
+                      <pre class="language-r">  inter_vars &lt;- h_get_interaction_vars(fit_glm)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">582</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">680</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   censor_show = TRUE,</pre>
+                      <pre class="language-r">  checkmate::assert_vector(inter_vars, len = 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">583</td>
+                    <td class="num">681</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   xticks = xticks, xlab = "Days", ylab = "Survival Probability",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">584</td>
+                    <td class="num">682</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   title = "tt", footnotes = "ff", yval = "Survival"</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">585</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">683</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  inter_term_index &lt;- intersect(grep(inter_vars[1], x), grep(inter_vars[2], x))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">586</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">684</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_el &lt;- h_decompose_gg(gg)</pre>
+                      <pre class="language-r">  inter_term &lt;- x[inter_term_index]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">587</td>
+                    <td class="num">685</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' lyt &lt;- h_km_layout(data = data_plot, g_el = g_el, title = "t", footnotes = "f")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">588</td>
+                    <td class="num">686</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.show.layout(lyt)</pre>
+                      <pre class="language-r">  # For the non-interaction vars we need the standard stuff.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">589</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">687</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">  normal_terms &lt;- setdiff(x, union(inter_vars, inter_term))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">590</td>
+                    <td class="num">688</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">591</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">689</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  x_stats &lt;- lapply(normal_terms, h_glm_simple_term_extract, fit_glm)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">592</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">690</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_km_layout &lt;- function(data, g_el, title, footnotes, annot_at_risk = TRUE, annot_at_risk_title = TRUE) {</pre>
+                      <pre class="language-r">  x_stats &lt;- do.call(rbind, x_stats)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">593</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">691</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
+                      <pre class="language-r">  q_norm &lt;- stats::qnorm((1 + conf_level) / 2)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">594</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">692</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "0.9.4",</pre>
+                      <pre class="language-r">  x_stats$odds_ratio &lt;- lapply(x_stats$estimate, exp)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">595</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">693</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "h_km_layout()",</pre>
+                      <pre class="language-r">  x_stats$lcl &lt;- Map(function(or, se) exp(log(or) - q_norm * se), x_stats$odds_ratio, x_stats$std_error)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">596</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">694</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    details = "`g_km` now generates `ggplot` objects. This function is no longer used within `tern`."</pre>
+                      <pre class="language-r">  x_stats$ucl &lt;- Map(function(or, se) exp(log(or) + q_norm * se), x_stats$odds_ratio, x_stats$std_error)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">597</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">695</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  normal_stats &lt;- x_stats</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">598</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">696</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  txtlines &lt;- levels(as.factor(data$strata))</pre>
+                      <pre class="language-r">  normal_stats$is_reference_summary &lt;- FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">599</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">697</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nlines &lt;- nlevels(as.factor(data$strata))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">600</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">698</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  col_annot_width &lt;- max(</pre>
+                      <pre class="language-r">  # Now the interaction term itself.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">601</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">699</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c(</pre>
+                      <pre class="language-r">  inter_term_stats &lt;- h_glm_interaction_extract(inter_term, fit_glm)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">602</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">700</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      as.numeric(grid::convertX(g_el$yaxis$widths + g_el$ylab$widths, "pt")),</pre>
+                      <pre class="language-r">  inter_term_stats$odds_ratio &lt;- NA</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">603</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">701</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      as.numeric(</pre>
+                      <pre class="language-r">  inter_term_stats$lcl &lt;- NA</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">604</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">702</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        grid::convertX(</pre>
+                      <pre class="language-r">  inter_term_stats$ucl &lt;- NA</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">605</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">703</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          grid::stringWidth(txtlines) + grid::unit(7, "pt"), "pt"</pre>
+                      <pre class="language-r">  inter_term_stats$is_reference_summary &lt;- FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">606</td>
+                    <td class="num">704</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">607</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">705</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  is_intervar1_numeric &lt;- attr(fit_glm$terms, "dataClasses")[inter_vars[1]] == "numeric"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">608</td>
+                    <td class="num">706</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">609</td>
+                    <td class="num">707</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  # Interaction stuff.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">610</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">708</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  inter_stats_one &lt;- h_glm_inter_term_extract(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">611</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">709</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ttl_row &lt;- as.numeric(!is.null(title))</pre>
+                      <pre class="language-r">    inter_vars[1],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">612</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">710</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  foot_row &lt;- as.numeric(!is.null(footnotes))</pre>
+                      <pre class="language-r">    inter_vars[2],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">613</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">711</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  no_tbl_ind &lt;- c()</pre>
+                      <pre class="language-r">    fit_glm,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">614</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">712</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ht_x &lt;- c()</pre>
+                      <pre class="language-r">    conf_level = conf_level,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">615</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">713</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ht_units &lt;- c()</pre>
+                      <pre class="language-r">    at = `if`(is_intervar1_numeric, NULL, at)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">616</td>
+                    <td class="num">714</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">617</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">715</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (ttl_row == 1) {</pre>
+                      <pre class="language-r">  inter_stats_two &lt;- h_glm_inter_term_extract(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">618</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">716</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    no_tbl_ind &lt;- c(no_tbl_ind, TRUE)</pre>
+                      <pre class="language-r">    inter_vars[2],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">619</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">717</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ht_x &lt;- c(ht_x, 2)</pre>
+                      <pre class="language-r">    inter_vars[1],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">620</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">718</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ht_units &lt;- c(ht_units, "lines")</pre>
+                      <pre class="language-r">    fit_glm,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">719</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    conf_level = conf_level,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">720</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    at = `if`(is_intervar1_numeric, at, NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">621</td>
+                    <td class="num">721</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">622</td>
+                    <td class="num">722</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
+                  <tr class="never">
+                    <td class="num">723</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  # Now just combine everything in one data frame.</pre>
+                    </td>
+                  </tr>
                   <tr class="covered">
-                    <td class="num">623</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">724</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  no_tbl_ind &lt;- c(no_tbl_ind, rep(TRUE, 3), rep(FALSE, 2))</pre>
+                      <pre class="language-r">  col_names &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">624</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">725</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ht_x &lt;- c(</pre>
+                      <pre class="language-r">    "variable",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">625</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">726</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ht_x,</pre>
+                      <pre class="language-r">    "variable_label",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">626</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">727</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    1,</pre>
+                      <pre class="language-r">    "term",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">627</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">728</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    grid::convertX(with(g_el, xaxis$heights + ylab$widths), "pt") + grid::unit(5, "pt"),</pre>
+                      <pre class="language-r">    "term_label",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">628</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">729</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    grid::convertX(g_el$guide$heights, "pt") + grid::unit(2, "pt"),</pre>
+                      <pre class="language-r">    "interaction",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">629</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">730</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    1,</pre>
+                      <pre class="language-r">    "interaction_label",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">630</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">731</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nlines + 0.5,</pre>
+                      <pre class="language-r">    "reference",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">631</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">732</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    grid::convertX(with(g_el, xaxis$heights + ylab$widths), "pt")</pre>
+                      <pre class="language-r">    "reference_label",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">632</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">733</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    "estimate",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">633</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">734</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ht_units &lt;- c(</pre>
+                      <pre class="language-r">    "std_error",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">634</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">735</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ht_units,</pre>
+                      <pre class="language-r">    "df",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">635</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">736</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "null",</pre>
+                      <pre class="language-r">    "pvalue",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">636</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">737</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "pt",</pre>
+                      <pre class="language-r">    "odds_ratio",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">637</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">738</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "pt",</pre>
+                      <pre class="language-r">    "lcl",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">638</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">739</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "lines",</pre>
+                      <pre class="language-r">    "ucl",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">639</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">740</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "lines",</pre>
+                      <pre class="language-r">    "is_variable_summary",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">640</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">741</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "pt"</pre>
+                      <pre class="language-r">    "is_term_summary",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">641</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">742</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    "is_reference_summary"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">642</td>
+                    <td class="num">743</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">643</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">744</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (foot_row == 1) {</pre>
+                      <pre class="language-r">  df &lt;- rbind(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">644</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">745</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    no_tbl_ind &lt;- c(no_tbl_ind, TRUE)</pre>
+                      <pre class="language-r">    inter_stats_one[, col_names],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">645</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">746</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ht_x &lt;- c(ht_x, 1)</pre>
+                      <pre class="language-r">    inter_stats_two[, col_names],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">646</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">747</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ht_units &lt;- c(ht_units, "lines")</pre>
+                      <pre class="language-r">    inter_term_stats[, col_names]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">647</td>
+                    <td class="num">748</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">648</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">749</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (annot_at_risk) {</pre>
+                      <pre class="language-r">  if (length(normal_terms) &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">649</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">750</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    no_at_risk_tbl &lt;- rep(TRUE, 6 + ttl_row + foot_row)</pre>
+                      <pre class="language-r">    df &lt;- rbind(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">650</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    if (!annot_at_risk_title) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">651</td>
-                    <td class="coverage">!</td>
+                    <td class="num">751</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      no_at_risk_tbl[length(no_at_risk_tbl) - 2 - foot_row] &lt;- FALSE</pre>
+                      <pre class="language-r">      normal_stats[, col_names],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">652</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">752</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">      df</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">653</td>
+                    <td class="num">753</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">654</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    no_at_risk_tbl &lt;- no_tbl_ind</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">655</td>
+                    <td class="num">754</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">656</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">657</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  grid::grid.layout(</pre>
-                    </td>
-                  </tr>
                   <tr class="covered">
-                    <td class="num">658</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">755</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nrow = sum(no_at_risk_tbl), ncol = 2,</pre>
+                      <pre class="language-r">  df$ci &lt;- combine_vectors(df$lcl, df$ucl)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">659</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">756</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    widths = grid::unit(c(col_annot_width, 1), c("pt", "null")),</pre>
+                      <pre class="language-r">  df</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">660</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">757</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    heights = grid::unit(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">661</td>
-                    <td class="coverage">1<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/prop_diff.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
+                  <tr class="never">
+                    <td class="num">1</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = ht_x[no_at_risk_tbl],</pre>
+                      <pre class="language-r">#' Proportion difference estimation</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">662</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">2</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      units = ht_units[no_at_risk_tbl]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">663</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">664</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">665</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' The analysis function [estimate_proportion_diff()] creates a layout element to estimate the difference in proportion</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">666</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' of responders within a studied population. The primary analysis variable, `vars`, is a logical variable indicating</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">667</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function to create patient-at-risk grobs</pre>
+                      <pre class="language-r">#' whether a response has occurred for each record. See the `method` parameter for options of methods to use when</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">668</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' constructing the confidence interval of the proportion difference. A stratification variable can be supplied via the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">669</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
+                      <pre class="language-r">#' `strata` element of the `variables` argument.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">670</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">671</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Two graphical objects are obtained, one corresponding to row labeling and the second to the table of</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">672</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' numbers of patients at risk. If `title = TRUE`, a third object corresponding to the table title is</pre>
+                      <pre class="language-r">#' @inheritParams prop_diff_strat_nc</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">673</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' also obtained.</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">674</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param method (`string`)\cr the method used for the confidence interval estimation.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">675</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams g_km</pre>
+                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("estimate_proportion_diff")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">676</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_ggkm</pre>
+                      <pre class="language-r">#'   to see available statistics for this function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">677</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param annot_tbl (`data.frame`)\cr annotation as prepared by [survival::summary.survfit()] which</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">678</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   includes the number of patients at risk at given time points.</pre>
+                      <pre class="language-r">#' @seealso [d_proportion_diff()]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">679</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param xlim (`numeric(1)`)\cr the maximum value on the x-axis (used to ensure the at risk table aligns with the KM</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">680</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   graph).</pre>
+                      <pre class="language-r">#' @name prop_diff</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">681</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param title (`flag`)\cr whether the "Patients at Risk" title should be added above the `annot_at_risk`</pre>
+                      <pre class="language-r">#' @order 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">682</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   table. Has no effect if `annot_at_risk` is `FALSE`. Defaults to `TRUE`.</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">683</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">684</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A named `list` of two `gTree` objects if `title = FALSE`: `at_risk` and `label`, or three</pre>
+                      <pre class="language-r">#' @describeIn prop_diff Statistics function estimating the difference</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">685</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `gTree` objects if `title = TRUE`: `at_risk`, `label`, and `title`.</pre>
+                      <pre class="language-r">#'   in terms of responder proportion.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">686</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">687</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">688</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' \donttest{</pre>
+                      <pre class="language-r">#' * `s_proportion_diff()` returns a named list of elements `diff` and `diff_ci`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">689</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">690</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(survival)</pre>
+                      <pre class="language-r">#' @note When performing an unstratified analysis, methods `"cmh"`, `"strat_newcombe"`, and `"strat_newcombecc"` are</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">691</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(grid)</pre>
+                      <pre class="language-r">#'   not permitted.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">692</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">693</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' fit_km &lt;- tern_ex_adtte %&gt;%</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">694</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
+                      <pre class="language-r">#' s_proportion_diff(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">695</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   survfit(formula = Surv(AVAL, 1 - CNSR) ~ ARMCD, data = .)</pre>
+                      <pre class="language-r">#'   df = subset(dta, grp == "A"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">696</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   .var = "rsp",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">697</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data_plot &lt;- h_data_plot(fit_km = fit_km)</pre>
+                      <pre class="language-r">#'   .ref_group = subset(dta, grp == "B"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">698</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   .in_ref_col = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">699</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' xticks &lt;- h_xticks(data = data_plot)</pre>
+                      <pre class="language-r">#'   conf_level = 0.90,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">700</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   method = "ha"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">701</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' gg &lt;- h_ggkm(</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">702</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = data_plot,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">703</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   censor_show = TRUE,</pre>
+                      <pre class="language-r">#' # CMH example with strata</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">704</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   xticks = xticks, xlab = "Days", ylab = "Survival Probability",</pre>
+                      <pre class="language-r">#' s_proportion_diff(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">705</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   title = "tt", footnotes = "ff", yval = "Survival"</pre>
+                      <pre class="language-r">#'   df = subset(dta, grp == "A"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">706</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   .var = "rsp",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">707</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   .ref_group = subset(dta, grp == "B"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">708</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # The annotation table reports the patient at risk for a given strata and</pre>
+                      <pre class="language-r">#'   .in_ref_col = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">709</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # times (`xticks`).</pre>
+                      <pre class="language-r">#'   variables = list(strata = c("f1", "f2")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">710</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' annot_tbl &lt;- summary(fit_km, times = xticks)</pre>
+                      <pre class="language-r">#'   conf_level = 0.90,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">711</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' if (is.null(fit_km$strata)) {</pre>
+                      <pre class="language-r">#'   method = "cmh"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">712</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   annot_tbl &lt;- with(annot_tbl, data.frame(n.risk = n.risk, time = time, strata = "All"))</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">713</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' } else {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">714</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   strata_lst &lt;- strsplit(sub("=", "equals", levels(annot_tbl$strata)), "equals")</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">715</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   levels(annot_tbl$strata) &lt;- matrix(unlist(strata_lst), ncol = 2, byrow = TRUE)[, 2]</pre>
+                      <pre class="language-r">s_proportion_diff &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">716</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   annot_tbl &lt;- data.frame(</pre>
+                      <pre class="language-r">                              .var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">717</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     n.risk = annot_tbl$n.risk,</pre>
+                      <pre class="language-r">                              .ref_group,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">718</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     time = annot_tbl$time,</pre>
+                      <pre class="language-r">                              .in_ref_col,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">719</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     strata = annot_tbl$strata</pre>
+                      <pre class="language-r">                              variables = list(strata = NULL),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">720</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">                              conf_level = 0.95,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">721</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">                              method = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">722</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                "waldcc", "wald", "cmh",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">723</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # The annotation table is transformed into a grob.</pre>
+                      <pre class="language-r">                                "ha", "newcombe", "newcombecc",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">724</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tbl &lt;- h_grob_tbl_at_risk(data = data_plot, annot_tbl = annot_tbl, xlim = max(xticks))</pre>
+                      <pre class="language-r">                                "strat_newcombe", "strat_newcombecc"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">725</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                              ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">726</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # For the representation, the layout is estimated for which the decomposition</pre>
+                      <pre class="language-r">                              weights_method = "cmh") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">727</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">67</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # of the graphic element is necessary.</pre>
+                      <pre class="language-r">  method &lt;- match.arg(method)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">728</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">68</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_el &lt;- h_decompose_gg(gg)</pre>
+                      <pre class="language-r">  if (is.null(variables$strata) &amp;&amp; checkmate::test_subset(method, c("cmh", "strat_newcombe", "strat_newcombecc"))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">729</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">69</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' lyt &lt;- h_km_layout(data = data_plot, g_el = g_el, title = "t", footnotes = "f")</pre>
+                      <pre class="language-r">    stop(paste(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">730</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">70</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      "When performing an unstratified analysis, methods 'cmh', 'strat_newcombe', and 'strat_newcombecc' are not",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">731</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">71</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid::grid.newpage()</pre>
+                      <pre class="language-r">      "permitted. Please choose a different method."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">732</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' pushViewport(viewport(layout = lyt, height = .95, width = .95))</pre>
+                      <pre class="language-r">    ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">733</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.rect(gp = grid::gpar(lty = 1, col = "purple", fill = "gray85", lwd = 1))</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">734</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">74</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' pushViewport(viewport(layout.pos.row = 3:4, layout.pos.col = 2))</pre>
+                      <pre class="language-r">  y &lt;- list(diff = "", diff_ci = "")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">735</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.rect(gp = grid::gpar(lty = 1, col = "orange", fill = "gray85", lwd = 1))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">736</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">76</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid::grid.draw(tbl$at_risk)</pre>
+                      <pre class="language-r">  if (!.in_ref_col) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">737</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">77</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' popViewport()</pre>
+                      <pre class="language-r">    rsp &lt;- c(.ref_group[[.var]], df[[.var]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">738</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">78</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' pushViewport(viewport(layout.pos.row = 3:4, layout.pos.col = 1))</pre>
+                      <pre class="language-r">    grp &lt;- factor(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">739</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">79</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.rect(gp = grid::gpar(lty = 1, col = "green3", fill = "gray85", lwd = 1))</pre>
+                      <pre class="language-r">      rep(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">740</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">80</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid::grid.draw(tbl$label)</pre>
+                      <pre class="language-r">        c("ref", "Not-ref"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">741</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">81</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">        c(nrow(.ref_group), nrow(df))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">742</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      ),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">83</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      levels = c("ref", "Not-ref")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">743</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">744</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_grob_tbl_at_risk &lt;- function(data, annot_tbl, xlim, title = TRUE) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">745</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">86</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
+                      <pre class="language-r">    if (!is.null(variables$strata)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">746</td>
+                    <td class="num">87</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "0.9.4",</pre>
+                      <pre class="language-r">      strata_colnames &lt;- variables$strata</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">747</td>
+                    <td class="num">88</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "h_grob_tbl_at_risk()",</pre>
+                      <pre class="language-r">      checkmate::assert_character(strata_colnames, null.ok = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">748</td>
+                    <td class="num">89</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    details = "`g_km` now generates `ggplot` objects. This function is no longer used within `tern`."</pre>
+                      <pre class="language-r">      strata_vars &lt;- stats::setNames(as.list(strata_colnames), strata_colnames)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">749</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">750</td>
+                    <td class="num">91</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  txtlines &lt;- levels(as.factor(data$strata))</pre>
+                      <pre class="language-r">      assert_df_with_variables(df, strata_vars)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">751</td>
+                    <td class="num">92</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nlines &lt;- nlevels(as.factor(data$strata))</pre>
+                      <pre class="language-r">      assert_df_with_variables(.ref_group, strata_vars)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">752</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">93</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y_int &lt;- annot_tbl$time[2] - annot_tbl$time[1]</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">753</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">94</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  annot_tbl &lt;- expand.grid(</pre>
+                      <pre class="language-r">      # Merging interaction strata for reference group rows data and remaining</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">754</td>
+                    <td class="num">95</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    time = seq(0, xlim, y_int),</pre>
+                      <pre class="language-r">      strata &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">755</td>
+                    <td class="num">96</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    strata = unique(annot_tbl$strata)</pre>
+                      <pre class="language-r">        interaction(.ref_group[strata_colnames]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">756</td>
+                    <td class="num">97</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ) %&gt;% dplyr::left_join(annot_tbl, by = c("time", "strata"))</pre>
+                      <pre class="language-r">        interaction(df[strata_colnames])</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">757</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">98</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  annot_tbl[is.na(annot_tbl)] &lt;- 0</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">758</td>
+                    <td class="num">99</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y_str_unit &lt;- as.numeric(annot_tbl$strata)</pre>
+                      <pre class="language-r">      strata &lt;- as.factor(strata)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">759</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">100</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  vp_table &lt;- grid::plotViewport(margins = grid::unit(c(0, 0, 0, 0), "lines"))</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">760</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (title) {</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">102</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    # Defining the std way to calculate weights for strat_newcombe</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">761</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">103</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gb_table_title &lt;- grid::gList(</pre>
+                      <pre class="language-r">    if (!is.null(variables$weights_method)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">104</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      weights_method &lt;- variables$weights_method</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">105</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">762</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">106</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      grid::textGrob(</pre>
+                      <pre class="language-r">      weights_method &lt;- "cmh"</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">107</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">108</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">763</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">109</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label = "Patients at Risk:",</pre>
+                      <pre class="language-r">    y &lt;- switch(method,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">764</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">110</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = 1,</pre>
+                      <pre class="language-r">      "wald" = prop_diff_wald(rsp, grp, conf_level, correct = FALSE),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">765</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">111</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        y = grid::unit(0.2, "native"),</pre>
+                      <pre class="language-r">      "waldcc" = prop_diff_wald(rsp, grp, conf_level, correct = TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">766</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">112</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        gp = grid::gpar(fontface = "bold", fontsize = 10)</pre>
+                      <pre class="language-r">      "ha" = prop_diff_ha(rsp, grp, conf_level),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">767</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">113</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      "newcombe" = prop_diff_nc(rsp, grp, conf_level, correct = FALSE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">768</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">114</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      "newcombecc" = prop_diff_nc(rsp, grp, conf_level, correct = TRUE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">769</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">115</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      "strat_newcombe" = prop_diff_strat_nc(rsp,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">770</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">116</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  gb_table_left_annot &lt;- grid::gList(</pre>
+                      <pre class="language-r">        grp,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">771</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">117</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    grid::rectGrob(</pre>
+                      <pre class="language-r">        strata,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">772</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">118</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = 0, y = grid::unit(c(1:nlines) - 1, "lines"),</pre>
+                      <pre class="language-r">        weights_method,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">773</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">119</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      gp = grid::gpar(fill = c("gray95", "gray90"), alpha = 1, col = "white"),</pre>
+                      <pre class="language-r">        conf_level,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">774</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">120</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      height = grid::unit(1, "lines"), just = "bottom", hjust = 0</pre>
+                      <pre class="language-r">        correct = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">775</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">776</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">122</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    grid::textGrob(</pre>
+                      <pre class="language-r">      "strat_newcombecc" = prop_diff_strat_nc(rsp,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">777</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">123</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      label = unique(annot_tbl$strata),</pre>
+                      <pre class="language-r">        grp,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">778</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">124</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = 0.5,</pre>
+                      <pre class="language-r">        strata,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">779</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">125</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y = grid::unit(</pre>
+                      <pre class="language-r">        weights_method,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">780</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">126</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        (max(unique(y_str_unit)) - unique(y_str_unit)) + 0.75,</pre>
+                      <pre class="language-r">        conf_level,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">781</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">127</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "native"</pre>
+                      <pre class="language-r">        correct = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">782</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">783</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">129</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      gp = grid::gpar(fontface = "italic", fontsize = 10)</pre>
+                      <pre class="language-r">      "cmh" = prop_diff_cmh(rsp, grp, strata, conf_level)[c("diff", "diff_ci")]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">784</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">785</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">786</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  gb_patient_at_risk &lt;- grid::gList(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">787</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    grid::rectGrob(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">788</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">132</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = 0, y = grid::unit(c(1:nlines) - 1, "lines"),</pre>
+                      <pre class="language-r">    y$diff &lt;- y$diff * 100</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">789</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">133</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      gp = grid::gpar(fill = c("gray95", "gray90"), alpha = 1, col = "white"),</pre>
+                      <pre class="language-r">    y$diff_ci &lt;- y$diff_ci * 100</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">790</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">134</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      height = grid::unit(1, "lines"), just = "bottom", hjust = 0</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">791</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">792</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">136</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    grid::textGrob(</pre>
+                      <pre class="language-r">  attr(y$diff, "label") &lt;- "Difference in Response rate (%)"</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">793</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">137</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      label = annot_tbl$n.risk,</pre>
+                      <pre class="language-r">  attr(y$diff_ci, "label") &lt;- d_proportion_diff(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">794</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">138</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = grid::unit(annot_tbl$time, "native"),</pre>
+                      <pre class="language-r">    conf_level, method,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">795</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">139</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y = grid::unit(</pre>
+                      <pre class="language-r">    long = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">796</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">140</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        (max(y_str_unit) - y_str_unit) + .5,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">797</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">141</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "line"</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">798</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">142</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ) # maybe native</pre>
+                      <pre class="language-r">  y</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">799</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">800</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">801</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @describeIn prop_diff Formatted analysis function which is used as `afun` in `estimate_proportion_diff()`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">802</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">146</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ret &lt;- list(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">803</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">147</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    at_risk = grid::gList(</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">804</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">148</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      grid::gTree(</pre>
+                      <pre class="language-r">#' * `a_proportion_diff()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">805</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">149</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        vp = vp_table,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">806</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">150</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        children = grid::gList(</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">807</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">151</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          grid::gTree(</pre>
+                      <pre class="language-r">#' a_proportion_diff(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">808</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">152</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            vp = grid::dataViewport(</pre>
+                      <pre class="language-r">#'   df = subset(dta, grp == "A"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">809</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">153</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              xscale = c(0, xlim) + c(-0.05, 0.05) * xlim,</pre>
+                      <pre class="language-r">#'   .var = "rsp",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">810</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">154</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              yscale = c(0, nlines + 1),</pre>
+                      <pre class="language-r">#'   .ref_group = subset(dta, grp == "B"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">811</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">155</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              extension = c(0.05, 0)</pre>
+                      <pre class="language-r">#'   .in_ref_col = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">812</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ),</pre>
+                      <pre class="language-r">#'   conf_level = 0.90,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">813</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">157</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            children = grid::gList(gb_patient_at_risk)</pre>
+                      <pre class="language-r">#'   method = "ha"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">814</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">815</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">816</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">817</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">a_proportion_diff &lt;- make_afun(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">818</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">162</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label = grid::gList(</pre>
+                      <pre class="language-r">  s_proportion_diff,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">819</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">163</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      grid::gTree(</pre>
+                      <pre class="language-r">  .formats = c(diff = "xx.x", diff_ci = "(xx.x, xx.x)"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">820</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">164</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        vp = grid::viewport(width = max(grid::stringWidth(txtlines))),</pre>
+                      <pre class="language-r">  .indent_mods = c(diff = 0L, diff_ci = 1L)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">821</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">165</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        children = grid::gList(</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">822</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">166</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          grid::gTree(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">823</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">167</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            vp = grid::dataViewport(</pre>
+                      <pre class="language-r">#' @describeIn prop_diff Layout-creating function which can take statistics function arguments</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">824</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">168</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              xscale = 0:1,</pre>
+                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">825</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">169</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              yscale = c(0, nlines + 1),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">826</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">170</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              extension = c(0.0, 0)</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">827</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ),</pre>
+                      <pre class="language-r">#' * `estimate_proportion_diff()` returns a layout object suitable for passing to further layouting functions,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">828</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">172</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            children = grid::gList(gb_table_left_annot)</pre>
+                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">829</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#'   the statistics from `s_proportion_diff()` to the table layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">830</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">831</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">832</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' ## "Mid" case: 4/4 respond in group A, 1/2 respond in group B.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">833</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' nex &lt;- 100 # Number of example rows</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">834</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' dta &lt;- data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">835</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">179</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (title) {</pre>
+                      <pre class="language-r">#'   "rsp" = sample(c(TRUE, FALSE), nex, TRUE),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">836</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">180</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ret[["title"]] &lt;- grid::gList(</pre>
+                      <pre class="language-r">#'   "grp" = sample(c("A", "B"), nex, TRUE),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">837</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">181</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      grid::gTree(</pre>
+                      <pre class="language-r">#'   "f1" = sample(c("a1", "a2"), nex, TRUE),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">838</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">182</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        vp = grid::viewport(width = max(grid::stringWidth(txtlines))),</pre>
+                      <pre class="language-r">#'   "f2" = sample(c("x", "y", "z"), nex, TRUE),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">839</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">183</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        children = grid::gList(</pre>
+                      <pre class="language-r">#'   stringsAsFactors = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">840</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">184</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          grid::gTree(</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">841</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">185</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            vp = grid::dataViewport(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">842</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">186</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              xscale = 0:1,</pre>
+                      <pre class="language-r">#' l &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">843</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">187</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              yscale = c(0, 1),</pre>
+                      <pre class="language-r">#'   split_cols_by(var = "grp", ref_group = "B") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">844</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">188</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              extension = c(0, 0)</pre>
+                      <pre class="language-r">#'   estimate_proportion_diff(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">845</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ),</pre>
+                      <pre class="language-r">#'     vars = "rsp",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">846</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">190</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            children = grid::gList(gb_table_title)</pre>
+                      <pre class="language-r">#'     conf_level = 0.90,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">847</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#'     method = "ha"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">848</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">849</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">850</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' build_table(l, df = dta)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">851</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">852</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">853</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">197</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ret</pre>
+                      <pre class="language-r">#' @order 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">854</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">estimate_proportion_diff &lt;- function(lyt,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">855</td>
+                    <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                     vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">856</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function to create survival estimation grobs</pre>
+                      <pre class="language-r">                                     variables = list(strata = NULL),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">857</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                     conf_level = 0.95,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">858</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
+                      <pre class="language-r">                                     method = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">859</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                       "waldcc", "wald", "cmh",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">860</td>
+                    <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The survival fit is transformed in a grob containing a table with groups in</pre>
+                      <pre class="language-r">                                       "ha", "newcombe", "newcombecc",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">861</td>
+                    <td class="num">205</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' rows characterized by N, median and 95% confidence interval.</pre>
+                      <pre class="language-r">                                       "strat_newcombe", "strat_newcombecc"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">862</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                     ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">863</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams g_km</pre>
+                      <pre class="language-r">                                     weights_method = "cmh",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">864</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_data_plot</pre>
+                      <pre class="language-r">                                     na_str = default_na_str(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">865</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ttheme (`list`)\cr see [gridExtra::ttheme_default()].</pre>
+                      <pre class="language-r">                                     nested = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">866</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`proportion`)\cr a value between 0 and 1 specifying x-location.</pre>
+                      <pre class="language-r">                                     ...,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">867</td>
+                    <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param y (`proportion`)\cr a value between 0 and 1 specifying y-location.</pre>
+                      <pre class="language-r">                                     var_labels = vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">868</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param width (`grid::unit`)\cr width (as a unit) to use when printing the grob.</pre>
+                      <pre class="language-r">                                     show_labels = "hidden",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">869</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                     table_names = vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">870</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `grob` of a table containing statistics `N`, `Median`, and `XX% CI` (`XX` taken from `fit_km`).</pre>
+                      <pre class="language-r">                                     .stats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">871</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                     .formats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">872</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">                                     .labels = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">873</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' \donttest{</pre>
+                      <pre class="language-r">                                     .indent_mods = NULL) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">218</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  extra_args &lt;- list(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">219</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    variables = variables, conf_level = conf_level, method = method, weights_method = weights_method, ...</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">874</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">875</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(survival)</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">222</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  afun &lt;- make_afun(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">223</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    a_proportion_diff,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">224</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    .stats = .stats,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">225</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    .formats = .formats,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">226</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    .labels = .labels,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">227</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    .indent_mods = .indent_mods</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">876</td>
+                    <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(grid)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">877</td>
+                    <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">230</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  analyze(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">231</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    lyt,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">232</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    vars,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">233</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    afun = afun,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">234</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    var_labels = var_labels,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">235</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    na_str = na_str,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">236</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    nested = nested,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">237</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    extra_args = extra_args,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">238</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    show_labels = show_labels,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">239</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    table_names = table_names</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">878</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid::grid.newpage()</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">879</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.rect(gp = grid::gpar(lty = 1, col = "pink", fill = "gray85", lwd = 1))</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">880</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tern_ex_adtte %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">881</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
+                      <pre class="language-r">#' Check proportion difference arguments</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">882</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   survfit(formula = Surv(AVAL, 1 - CNSR) ~ ARMCD, data = .) %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">883</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   h_grob_median_surv() %&gt;%</pre>
+                      <pre class="language-r">#' Verifies that and/or convert arguments into valid values to be used in the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">884</td>
+                    <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   grid::grid.draw()</pre>
+                      <pre class="language-r">#' estimation of difference in responder proportions.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">885</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">886</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @inheritParams prop_diff</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">887</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @inheritParams prop_diff_wald</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">888</td>
+                    <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_grob_median_surv &lt;- function(fit_km,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">889</td>
+                    <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               armval = "All",</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">890</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               x = 0.9,</pre>
+                      <pre class="language-r">check_diff_prop_ci &lt;- function(rsp,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">891</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               y = 0.9,</pre>
+                      <pre class="language-r">                               grp,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">892</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               width = grid::unit(0.3, "npc"),</pre>
+                      <pre class="language-r">                               strata = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">893</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               ttheme = gridExtra::ttheme_default()) {</pre>
+                      <pre class="language-r">                               conf_level,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">256</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                               correct = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">894</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">257</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
+                      <pre class="language-r">  checkmate::assert_logical(rsp, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">895</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">258</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "0.9.4",</pre>
+                      <pre class="language-r">  checkmate::assert_factor(grp, len = length(rsp), any.missing = FALSE, n.levels = 2)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">896</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">259</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "h_grob_median_surv()",</pre>
+                      <pre class="language-r">  checkmate::assert_number(conf_level, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">897</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">260</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    details = "`g_km` now generates `ggplot` objects. This function is no longer used within `tern`."</pre>
+                      <pre class="language-r">  checkmate::assert_flag(correct, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">898</td>
+                    <td class="num">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">899</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">262</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data &lt;- h_tbl_median_surv(fit_km, armval = armval)</pre>
+                      <pre class="language-r">  if (!is.null(strata)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">263</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    checkmate::assert_factor(strata, len = length(rsp))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">900</td>
+                    <td class="num">264</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">265</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">901</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">266</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  width &lt;- grid::convertUnit(grid::unit(as.numeric(width), grid::unitType(width)), "in")</pre>
+                      <pre class="language-r">  invisible()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">902</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">267</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  height &lt;- width * (nrow(data) + 1) / 12</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">903</td>
+                    <td class="num">268</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">904</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">269</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  w &lt;- paste(" ", c(</pre>
+                      <pre class="language-r">#' Description of method used for proportion comparison</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">905</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">270</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rownames(data)[which.max(nchar(rownames(data)))],</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">906</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">271</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    sapply(names(data), function(x) c(x, data[[x]])[which.max(nchar(c(x, data[[x]])))])</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">907</td>
+                    <td class="num">272</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">908</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">273</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  w_unit &lt;- grid::convertWidth(grid::stringWidth(w), "in", valueOnly = TRUE)</pre>
+                      <pre class="language-r">#' This is an auxiliary function that describes the analysis in</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">909</td>
+                    <td class="num">274</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' [s_proportion_diff()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">910</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">275</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  w_txt &lt;- sapply(1:64, function(x) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">911</td>
-                    <td class="coverage">64<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">276</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    graphics::par(ps = x)</pre>
+                      <pre class="language-r">#' @inheritParams s_proportion_diff</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">912</td>
-                    <td class="coverage">64<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">277</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    graphics::strwidth(w[4], units = "in")</pre>
+                      <pre class="language-r">#' @param long (`flag`)\cr whether a long (`TRUE`) or a short (`FALSE`, default) description is required.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">913</td>
+                    <td class="num">278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">914</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">279</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  f_size_w &lt;- which.max(w_txt[w_txt &lt; as.numeric((w_unit / sum(w_unit)) * width)[4]])</pre>
+                      <pre class="language-r">#' @return A `string` describing the analysis.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">915</td>
+                    <td class="num">280</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">916</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">281</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  h_txt &lt;- sapply(1:64, function(x) {</pre>
+                      <pre class="language-r">#' @seealso [prop_diff]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">917</td>
-                    <td class="coverage">64<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">282</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    graphics::par(ps = x)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">918</td>
-                    <td class="coverage">64<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">283</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    graphics::strheight(grid::stringHeight("X"), units = "in")</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">919</td>
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">d_proportion_diff &lt;- function(conf_level,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">920</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">285</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  f_size_h &lt;- which.max(h_txt[h_txt &lt; as.numeric(grid::unit(as.numeric(height) / 4, grid::unitType(height)))])</pre>
+                      <pre class="language-r">                              method,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">921</td>
+                    <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                              long = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">922</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">287</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (ttheme$core$fg_params$fontsize == 12) {</pre>
+                      <pre class="language-r">  label &lt;- paste0(conf_level * 100, "% CI")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">923</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">288</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ttheme$core$fg_params$fontsize &lt;- min(f_size_w, f_size_h)</pre>
+                      <pre class="language-r">  if (long) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">924</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">289</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ttheme$colhead$fg_params$fontsize &lt;- min(f_size_w, f_size_h)</pre>
+                      <pre class="language-r">    label &lt;- paste(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">925</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">290</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ttheme$rowhead$fg_params$fontsize &lt;- min(f_size_w, f_size_h)</pre>
+                      <pre class="language-r">      label,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">291</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      ifelse(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">292</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        method == "cmh",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">293</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        "for adjusted difference",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">294</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        "for difference"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">926</td>
+                    <td class="num">295</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">927</td>
+                    <td class="num">296</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">928</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">297</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  gt &lt;- gridExtra::tableGrob(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">929</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">298</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    d = data,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">930</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">299</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    theme = ttheme</pre>
+                      <pre class="language-r">  method_part &lt;- switch(method,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">931</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">300</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    "cmh" = "CMH, without correction",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">932</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">301</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  gt$widths &lt;- ((w_unit / sum(w_unit)) * width)</pre>
+                      <pre class="language-r">    "waldcc" = "Wald, with correction",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">933</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">302</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  gt$heights &lt;- rep(grid::unit(as.numeric(height) / 4, grid::unitType(height)), nrow(gt))</pre>
+                      <pre class="language-r">    "wald" = "Wald, without correction",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">934</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">303</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    "ha" = "Anderson-Hauck",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">935</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">304</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  vp &lt;- grid::viewport(</pre>
+                      <pre class="language-r">    "newcombe" = "Newcombe, without correction",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">936</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">305</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = grid::unit(x, "npc") + grid::unit(1, "lines"),</pre>
+                      <pre class="language-r">    "newcombecc" = "Newcombe, with correction",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">937</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">306</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y = grid::unit(y, "npc") + grid::unit(1.5, "lines"),</pre>
+                      <pre class="language-r">    "strat_newcombe" = "Stratified Newcombe, without correction",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">938</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">307</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    height = height,</pre>
+                      <pre class="language-r">    "strat_newcombecc" = "Stratified Newcombe, with correction",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">939</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">308</td>
+                    <td class="coverage">11<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    stop(paste(method, "does not have a description"))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">309</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    width = width,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">940</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">310</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    just = c("right", "top")</pre>
+                      <pre class="language-r">  paste0(label, " (", method_part, ")")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">941</td>
+                    <td class="num">311</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">942</td>
+                    <td class="num">312</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">943</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">313</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  grid::gList(</pre>
+                      <pre class="language-r">#' Helper functions to calculate proportion difference</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">944</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">314</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    grid::gTree(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">945</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">315</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vp = vp,</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">946</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">316</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      children = grid::gList(gt)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">947</td>
+                    <td class="num">317</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">948</td>
+                    <td class="num">318</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @inheritParams prop_diff</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">949</td>
+                    <td class="num">319</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @param grp (`factor`)\cr vector assigning observations to one out of two groups</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">950</td>
+                    <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   (e.g. reference and treatment group).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">951</td>
+                    <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function to create grid object with y-axis annotation</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">952</td>
+                    <td class="num">322</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return A named `list` of elements `diff` (proportion difference) and `diff_ci`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">953</td>
+                    <td class="num">323</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
+                      <pre class="language-r">#'   (proportion difference confidence interval).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">954</td>
+                    <td class="num">324</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">955</td>
+                    <td class="num">325</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Build the y-axis annotation from a decomposed `ggplot`.</pre>
+                      <pre class="language-r">#' @seealso [prop_diff()] for implementation of these helper functions.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">956</td>
+                    <td class="num">326</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">957</td>
+                    <td class="num">327</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ylab (`gtable`)\cr the y-lab as a graphical object derived from a `ggplot`.</pre>
+                      <pre class="language-r">#' @name h_prop_diff</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">958</td>
+                    <td class="num">328</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param yaxis (`gtable`)\cr the y-axis as a graphical object derived from a `ggplot`.</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">959</td>
+                    <td class="num">329</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">960</td>
+                    <td class="num">330</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `gTree` object containing the y-axis annotation from a `ggplot`.</pre>
+                      <pre class="language-r">#' @describeIn h_prop_diff The Wald interval follows the usual textbook</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">961</td>
+                    <td class="num">331</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   definition for a single proportion confidence interval using the normal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">962</td>
+                    <td class="num">332</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   approximation. It is possible to include a continuity correction for Wald's</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">963</td>
+                    <td class="num">333</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' \donttest{</pre>
+                      <pre class="language-r">#'   interval.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">964</td>
+                    <td class="num">334</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">965</td>
+                    <td class="num">335</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(survival)</pre>
+                      <pre class="language-r">#' @param correct (`flag`)\cr whether to include the continuity correction. For further</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">966</td>
+                    <td class="num">336</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(grid)</pre>
+                      <pre class="language-r">#'   information, see [stats::prop.test()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">967</td>
+                    <td class="num">337</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">968</td>
+                    <td class="num">338</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' fit_km &lt;- tern_ex_adtte %&gt;%</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">969</td>
+                    <td class="num">339</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
+                      <pre class="language-r">#' # Wald confidence interval</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">970</td>
+                    <td class="num">340</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   survfit(formula = Surv(AVAL, 1 - CNSR) ~ ARMCD, data = .)</pre>
+                      <pre class="language-r">#' set.seed(2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">971</td>
+                    <td class="num">341</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data_plot &lt;- h_data_plot(fit_km = fit_km)</pre>
+                      <pre class="language-r">#' rsp &lt;- sample(c(TRUE, FALSE), replace = TRUE, size = 20)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">972</td>
+                    <td class="num">342</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' xticks &lt;- h_xticks(data = data_plot)</pre>
+                      <pre class="language-r">#' grp &lt;- factor(c(rep("A", 10), rep("B", 10)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">973</td>
+                    <td class="num">343</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' gg &lt;- h_ggkm(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">974</td>
+                    <td class="num">344</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = data_plot,</pre>
+                      <pre class="language-r">#' prop_diff_wald(rsp = rsp, grp = grp, conf_level = 0.95, correct = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">975</td>
+                    <td class="num">345</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   censor_show = TRUE,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">976</td>
+                    <td class="num">346</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   xticks = xticks, xlab = "Days", ylab = "Survival Probability",</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">977</td>
+                    <td class="num">347</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   title = "title", footnotes = "footnotes", yval = "Survival"</pre>
+                      <pre class="language-r">prop_diff_wald &lt;- function(rsp,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">978</td>
+                    <td class="num">348</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">                           grp,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">979</td>
+                    <td class="num">349</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                           conf_level = 0.95,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">980</td>
+                    <td class="num">350</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_el &lt;- h_decompose_gg(gg)</pre>
+                      <pre class="language-r">                           correct = FALSE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">981</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">351</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if (isTRUE(correct)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">982</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">352</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid::grid.newpage()</pre>
+                      <pre class="language-r">    mthd &lt;- "waldcc"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">983</td>
+                    <td class="num">353</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' pvp &lt;- grid::plotViewport(margins = c(5, 4, 2, 20))</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">984</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">354</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' pushViewport(pvp)</pre>
+                      <pre class="language-r">    mthd &lt;- "wald"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">985</td>
+                    <td class="num">355</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid::grid.draw(h_grob_y_annot(ylab = g_el$ylab, yaxis = g_el$yaxis))</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">986</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">356</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.rect(gp = grid::gpar(lty = 1, col = "gray35", fill = NA))</pre>
+                      <pre class="language-r">  grp &lt;- as_factor_keep_attributes(grp)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">987</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">357</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">  check_diff_prop_ci(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">358</td>
+                    <td class="coverage">8<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    rsp = rsp, grp = grp, conf_level = conf_level, correct = correct</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">988</td>
+                    <td class="num">359</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">989</td>
+                    <td class="num">360</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">990</td>
+                    <td class="num">361</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_grob_y_annot &lt;- function(ylab, yaxis) {</pre>
+                      <pre class="language-r">  # check if binary response is coded as logical</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">991</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">362</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
+                      <pre class="language-r">  checkmate::assert_logical(rsp, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">992</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">363</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "0.9.4",</pre>
+                      <pre class="language-r">  checkmate::assert_factor(grp, len = length(rsp), any.missing = FALSE, n.levels = 2)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">993</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">364</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "h_grob_y_annot()",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">994</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">365</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    details = "`g_km` now generates `ggplot` objects. This function is no longer used within `tern`."</pre>
+                      <pre class="language-r">  tbl &lt;- table(grp, factor(rsp, levels = c(TRUE, FALSE)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">995</td>
+                    <td class="num">366</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  # x1 and n1 are non-reference groups.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">996</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">367</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  grid::gList(</pre>
+                      <pre class="language-r">  diff_ci &lt;- desctools_binom(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">997</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">368</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    grid::gTree(</pre>
+                      <pre class="language-r">    x1 = tbl[2], n1 = sum(tbl[2], tbl[4]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">998</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">369</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vp = grid::viewport(</pre>
+                      <pre class="language-r">    x2 = tbl[1], n2 = sum(tbl[1], tbl[3]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">999</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">370</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        width = grid::convertX(yaxis$widths + ylab$widths, "pt"),</pre>
+                      <pre class="language-r">    conf.level = conf_level,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1000</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">371</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = grid::unit(1, "npc"),</pre>
+                      <pre class="language-r">    method = mthd</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1001</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">372</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        just = "right"</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1002</td>
+                    <td class="num">373</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1003</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">374</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      children = grid::gList(cbind(ylab, yaxis))</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1004</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">375</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    "diff" = unname(diff_ci[, "est"]),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">376</td>
+                    <td class="coverage">8<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    "diff_ci" = unname(diff_ci[, c("lwr.ci", "upr.ci")])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1005</td>
+                    <td class="num">377</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1006</td>
+                    <td class="num">378</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1007</td>
+                    <td class="num">379</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1008</td>
+                    <td class="num">380</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function to create Cox-PH grobs</pre>
+                      <pre class="language-r">#' @describeIn h_prop_diff Anderson-Hauck confidence interval.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1009</td>
+                    <td class="num">381</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1010</td>
+                    <td class="num">382</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1011</td>
+                    <td class="num">383</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' # Anderson-Hauck confidence interval</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1012</td>
+                    <td class="num">384</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Grob of `rtable` output from [h_tbl_coxph_pairwise()]</pre>
+                      <pre class="language-r">#' ## "Mid" case: 3/4 respond in group A, 1/2 respond in group B.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1013</td>
+                    <td class="num">385</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' rsp &lt;- c(TRUE, FALSE, FALSE, TRUE, TRUE, TRUE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">386</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' grp &lt;- factor(c("A", "B", "A", "B", "A", "A"), levels = c("B", "A"))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">387</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1014</td>
+                    <td class="num">388</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_grob_median_surv</pre>
+                      <pre class="language-r">#' prop_diff_ha(rsp = rsp, grp = grp, conf_level = 0.90)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1015</td>
+                    <td class="num">389</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... arguments to pass to [h_tbl_coxph_pairwise()].</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1016</td>
+                    <td class="num">390</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`proportion`)\cr a value between 0 and 1 specifying x-location.</pre>
+                      <pre class="language-r">#' ## Edge case: Same proportion of response in A and B.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1017</td>
+                    <td class="num">391</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param y (`proportion`)\cr a value between 0 and 1 specifying y-location.</pre>
+                      <pre class="language-r">#' rsp &lt;- c(TRUE, FALSE, TRUE, FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1018</td>
+                    <td class="num">392</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param width (`grid::unit`)\cr width (as a unit) to use when printing the grob.</pre>
+                      <pre class="language-r">#' grp &lt;- factor(c("A", "A", "B", "B"), levels = c("A", "B"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1019</td>
+                    <td class="num">393</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1020</td>
+                    <td class="num">394</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `grob` of a table containing statistics `HR`, `XX% CI` (`XX` taken from `control_coxph_pw`),</pre>
+                      <pre class="language-r">#' prop_diff_ha(rsp = rsp, grp = grp, conf_level = 0.6)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1021</td>
+                    <td class="num">395</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and `p-value (log-rank)`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1022</td>
+                    <td class="num">396</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1023</td>
+                    <td class="num">397</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">prop_diff_ha &lt;- function(rsp,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1024</td>
+                    <td class="num">398</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' \donttest{</pre>
+                      <pre class="language-r">                         grp,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1025</td>
+                    <td class="num">399</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">                         conf_level) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">400</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  grp &lt;- as_factor_keep_attributes(grp)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">401</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  check_diff_prop_ci(rsp = rsp, grp = grp, conf_level = conf_level)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1026</td>
+                    <td class="num">402</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(survival)</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">403</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  tbl &lt;- table(grp, factor(rsp, levels = c(TRUE, FALSE)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1027</td>
+                    <td class="num">404</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(grid)</pre>
+                      <pre class="language-r">  # x1 and n1 are non-reference groups.</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">405</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  ci &lt;- desctools_binom(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">406</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    x1 = tbl[2], n1 = sum(tbl[2], tbl[4]),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">407</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    x2 = tbl[1], n2 = sum(tbl[1], tbl[3]),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">408</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    conf.level = conf_level,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">409</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    method = "ha"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1028</td>
+                    <td class="num">410</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">411</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  list(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">412</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    "diff" = unname(ci[, "est"]),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">413</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    "diff_ci" = unname(ci[, c("lwr.ci", "upr.ci")])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1029</td>
+                    <td class="num">414</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid::grid.newpage()</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1030</td>
+                    <td class="num">415</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.rect(gp = grid::gpar(lty = 1, col = "pink", fill = "gray85", lwd = 1))</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1031</td>
+                    <td class="num">416</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- tern_ex_adtte %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1032</td>
+                    <td class="num">417</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
+                      <pre class="language-r">#' @describeIn h_prop_diff Newcombe confidence interval. It is based on</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1033</td>
+                    <td class="num">418</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mutate(is_event = CNSR == 0)</pre>
+                      <pre class="language-r">#'   the Wilson score confidence interval for a single binomial proportion.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1034</td>
+                    <td class="num">419</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tbl_grob &lt;- h_grob_coxph(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1035</td>
+                    <td class="num">420</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   df = data,</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1036</td>
+                    <td class="num">421</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(tte = "AVAL", is_event = "is_event", arm = "ARMCD"),</pre>
+                      <pre class="language-r">#' # Newcombe confidence interval</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1037</td>
+                    <td class="num">422</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   control_coxph_pw = control_coxph(conf_level = 0.9), x = 0.5, y = 0.5</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1038</td>
+                    <td class="num">423</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' set.seed(1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1039</td>
+                    <td class="num">424</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid::grid.draw(tbl_grob)</pre>
+                      <pre class="language-r">#' rsp &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1040</td>
+                    <td class="num">425</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#'   sample(c(TRUE, FALSE), size = 40, prob = c(3 / 4, 1 / 4), replace = TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1041</td>
+                    <td class="num">426</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   sample(c(TRUE, FALSE), size = 40, prob = c(1 / 2, 1 / 2), replace = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1042</td>
+                    <td class="num">427</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1043</td>
+                    <td class="num">428</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_grob_coxph &lt;- function(...,</pre>
+                      <pre class="language-r">#' grp &lt;- factor(rep(c("A", "B"), each = 40), levels = c("B", "A"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1044</td>
+                    <td class="num">429</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         x = 0,</pre>
+                      <pre class="language-r">#' table(rsp, grp)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1045</td>
+                    <td class="num">430</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         y = 0,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1046</td>
+                    <td class="num">431</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         width = grid::unit(0.4, "npc"),</pre>
+                      <pre class="language-r">#' prop_diff_nc(rsp = rsp, grp = grp, conf_level = 0.9)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1047</td>
+                    <td class="num">432</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         ttheme = gridExtra::ttheme_default(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1048</td>
+                    <td class="num">433</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           padding = grid::unit(c(1, .5), "lines"),</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1049</td>
+                    <td class="num">434</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           core = list(bg_params = list(fill = c("grey95", "grey90"), alpha = .5))</pre>
+                      <pre class="language-r">prop_diff_nc &lt;- function(rsp,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1050</td>
+                    <td class="num">435</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         )) {</pre>
+                      <pre class="language-r">                         grp,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1051</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">436</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
+                      <pre class="language-r">                         conf_level,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1052</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">437</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "0.9.4",</pre>
+                      <pre class="language-r">                         correct = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1053</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">438</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "h_grob_coxph()",</pre>
+                      <pre class="language-r">  if (isTRUE(correct)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1054</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">439</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    details = "`g_km` now generates `ggplot` objects. This function is no longer used within `tern`."</pre>
+                      <pre class="language-r">    mthd &lt;- "scorecc"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1055</td>
+                    <td class="num">440</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1056</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">441</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data &lt;- h_tbl_coxph_pairwise(...)</pre>
+                      <pre class="language-r">    mthd &lt;- "score"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1057</td>
+                    <td class="num">442</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1058</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">443</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  width &lt;- grid::convertUnit(grid::unit(as.numeric(width), grid::unitType(width)), "in")</pre>
+                      <pre class="language-r">  grp &lt;- as_factor_keep_attributes(grp)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1059</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">444</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  height &lt;- width * (nrow(data) + 1) / 12</pre>
+                      <pre class="language-r">  check_diff_prop_ci(rsp = rsp, grp = grp, conf_level = conf_level)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1060</td>
+                    <td class="num">445</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1061</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">446</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  w &lt;- paste("    ", c(</pre>
+                      <pre class="language-r">  p_grp &lt;- tapply(rsp, grp, mean)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1062</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">447</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rownames(data)[which.max(nchar(rownames(data)))],</pre>
+                      <pre class="language-r">  diff_p &lt;- unname(diff(p_grp))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1063</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">448</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    sapply(names(data), function(x) c(x, data[[x]])[which.max(nchar(c(x, data[[x]])))])</pre>
+                      <pre class="language-r">  tbl &lt;- table(grp, factor(rsp, levels = c(TRUE, FALSE)))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">449</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  ci &lt;- desctools_binom(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1064</td>
+                    <td class="num">450</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ))</pre>
+                      <pre class="language-r">    # x1 and n1 are non-reference groups.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1065</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">451</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  w_unit &lt;- grid::convertWidth(grid::stringWidth(w), "in", valueOnly = TRUE)</pre>
+                      <pre class="language-r">    x1 = tbl[2], n1 = sum(tbl[2], tbl[4]),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">452</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    x2 = tbl[1], n2 = sum(tbl[1], tbl[3]),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">453</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    conf.level = conf_level,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">454</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    method = mthd</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1066</td>
+                    <td class="num">455</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1067</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">456</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  w_txt &lt;- sapply(1:64, function(x) {</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1068</td>
-                    <td class="coverage">64<em>x</em></td>
+                    <td class="num">457</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    graphics::par(ps = x)</pre>
+                      <pre class="language-r">    "diff" = unname(ci[, "est"]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1069</td>
-                    <td class="coverage">64<em>x</em></td>
+                    <td class="num">458</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    graphics::strwidth(w[4], units = "in")</pre>
+                      <pre class="language-r">    "diff_ci" = unname(ci[, c("lwr.ci", "upr.ci")])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1070</td>
+                    <td class="num">459</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1071</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">460</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  f_size_w &lt;- which.max(w_txt[w_txt &lt; as.numeric((w_unit / sum(w_unit)) * width)[4]])</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1072</td>
+                    <td class="num">461</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1073</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">462</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  h_txt &lt;- sapply(1:64, function(x) {</pre>
+                      <pre class="language-r">#' @describeIn h_prop_diff Calculates the weighted difference. This is defined as the difference in</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1074</td>
-                    <td class="coverage">64<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">463</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    graphics::par(ps = x)</pre>
+                      <pre class="language-r">#'   response rates between the experimental treatment group and the control treatment group, adjusted</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1075</td>
-                    <td class="coverage">64<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">464</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    graphics::strheight(grid::stringHeight("X"), units = "in")</pre>
+                      <pre class="language-r">#'   for stratification factors by applying Cochran-Mantel-Haenszel (CMH) weights. For the CMH chi-squared</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1076</td>
+                    <td class="num">465</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">#'   test, use [stats::mantelhaen.test()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1077</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">466</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  f_size_h &lt;- which.max(h_txt[h_txt &lt; as.numeric(grid::unit(as.numeric(height) / 4, grid::unitType(height)))])</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1078</td>
+                    <td class="num">467</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param strata (`factor`)\cr variable with one level per stratum and same length as `rsp`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1079</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">468</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (ttheme$core$fg_params$fontsize == 12) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1080</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">469</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ttheme$core$fg_params$fontsize &lt;- min(f_size_w, f_size_h)</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1081</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">470</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ttheme$colhead$fg_params$fontsize &lt;- min(f_size_w, f_size_h)</pre>
+                      <pre class="language-r">#' # Cochran-Mantel-Haenszel confidence interval</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1082</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">471</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ttheme$rowhead$fg_params$fontsize &lt;- min(f_size_w, f_size_h)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1083</td>
+                    <td class="num">472</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' set.seed(2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1084</td>
+                    <td class="num">473</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' rsp &lt;- sample(c(TRUE, FALSE), 100, TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1085</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">474</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tryCatch(</pre>
+                      <pre class="language-r">#' grp &lt;- sample(c("Placebo", "Treatment"), 100, TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1086</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">475</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    expr = {</pre>
+                      <pre class="language-r">#' grp &lt;- factor(grp, levels = c("Placebo", "Treatment"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1087</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">476</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      gt &lt;- gridExtra::tableGrob(</pre>
+                      <pre class="language-r">#' strata_data &lt;- data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1088</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">477</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        d = data,</pre>
+                      <pre class="language-r">#'   "f1" = sample(c("a", "b"), 100, TRUE),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1089</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">478</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        theme = ttheme</pre>
+                      <pre class="language-r">#'   "f2" = sample(c("x", "y", "z"), 100, TRUE),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1090</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">479</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ) # ERROR 'data' must be of a vector type, was 'NULL'</pre>
+                      <pre class="language-r">#'   stringsAsFactors = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1091</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">480</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      gt$widths &lt;- ((w_unit / sum(w_unit)) * width)</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1092</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">481</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      gt$heights &lt;- rep(grid::unit(as.numeric(height) / 4, grid::unitType(height)), nrow(gt))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1093</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">482</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vp &lt;- grid::viewport(</pre>
+                      <pre class="language-r">#' prop_diff_cmh(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1094</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">483</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = grid::unit(x, "npc") + grid::unit(1, "lines"),</pre>
+                      <pre class="language-r">#'   rsp = rsp, grp = grp, strata = interaction(strata_data),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1095</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">484</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        y = grid::unit(y, "npc") + grid::unit(1.5, "lines"),</pre>
+                      <pre class="language-r">#'   conf_level = 0.90</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1096</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">485</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        height = height,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1097</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">486</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        width = width,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1098</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">487</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        just = c("left", "bottom")</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1099</td>
+                    <td class="num">488</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">prop_diff_cmh &lt;- function(rsp,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">489</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                          grp,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">490</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                          strata,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">491</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                          conf_level = 0.95) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1100</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">492</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      grid::gList(</pre>
+                      <pre class="language-r">  grp &lt;- as_factor_keep_attributes(grp)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1101</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">493</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        grid::gTree(</pre>
+                      <pre class="language-r">  strata &lt;- as_factor_keep_attributes(strata)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1102</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">494</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          vp = vp,</pre>
+                      <pre class="language-r">  check_diff_prop_ci(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1103</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">495</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          children = grid::gList(gt)</pre>
+                      <pre class="language-r">    rsp = rsp, grp = grp, conf_level = conf_level, strata = strata</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1104</td>
+                    <td class="num">496</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1105</td>
+                    <td class="num">497</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1106</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">498</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">  if (any(tapply(rsp, strata, length) &lt; 5)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">1107</td>
+                    <td class="num">499</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    error = function(w) {</pre>
+                      <pre class="language-r">    warning("Less than 5 observations in some strata.")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1108</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">500</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">501</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      message(paste(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1109</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">502</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Warning: Cox table will not be displayed as there is",</pre>
+                      <pre class="language-r">  # first dimension: FALSE, TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1110</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">503</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "not any level to be compared in the arm variable."</pre>
+                      <pre class="language-r">  # 2nd dimension: CONTROL, TX</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1111</td>
+                    <td class="num">504</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ))</pre>
+                      <pre class="language-r">  # 3rd dimension: levels of strata</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1112</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">505</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      return(</pre>
+                      <pre class="language-r">  # rsp as factor rsp to handle edge case of no FALSE (or TRUE) rsp records</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1113</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">506</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        grid::gList(</pre>
+                      <pre class="language-r">  t_tbl &lt;- table(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1114</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">507</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          grid::gTree(</pre>
+                      <pre class="language-r">    factor(rsp, levels = c("FALSE", "TRUE")),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1115</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">508</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            vp = NULL,</pre>
+                      <pre class="language-r">    grp,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1116</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">509</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            children = NULL</pre>
+                      <pre class="language-r">    strata</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1117</td>
+                    <td class="num">510</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1118</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">511</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">  n1 &lt;- colSums(t_tbl[1:2, 1, ])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1119</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">512</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  n2 &lt;- colSums(t_tbl[1:2, 2, ])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1120</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">513</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  p1 &lt;- t_tbl[2, 1, ] / n1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">1121</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">514</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  p2 &lt;- t_tbl[2, 2, ] / n2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1122</td>
+                    <td class="num">515</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  # CMH weights</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/count_occurrences_by_grade.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">516</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Count occurrences by grade</pre>
+                      <pre class="language-r">  use_stratum &lt;- (n1 &gt; 0) &amp; (n2 &gt; 0)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">517</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  n1 &lt;- n1[use_stratum]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">518</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">  n2 &lt;- n2[use_stratum]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">519</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  p1 &lt;- p1[use_stratum]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">520</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The analyze function [count_occurrences_by_grade()] creates a layout element to calculate occurrence counts by grade.</pre>
+                      <pre class="language-r">  p2 &lt;- p2[use_stratum]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">521</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  wt &lt;- (n1 * n2 / (n1 + n2))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">522</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function analyzes primary analysis variable `var` which indicates toxicity grades. The `id` variable</pre>
+                      <pre class="language-r">  wt_normalized &lt;- wt / sum(wt)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">523</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' is used to indicate unique subject identifiers (defaults to `USUBJID`). The user can also supply a list of</pre>
+                      <pre class="language-r">  est1 &lt;- sum(wt_normalized * p1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">524</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' custom groups of grades to analyze via the `grade_groups` parameter. The `remove_single`  argument will</pre>
+                      <pre class="language-r">  est2 &lt;- sum(wt_normalized * p2)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">525</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' remove single grades from the analysis so that *only* grade groups are analyzed.</pre>
+                      <pre class="language-r">  estimate &lt;- c(est1, est2)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">526</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  names(estimate) &lt;- levels(grp)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">527</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' If there are multiple grades recorded for one patient only the highest grade level is counted.</pre>
+                      <pre class="language-r">  se1 &lt;- sqrt(sum(wt_normalized^2 * p1 * (1 - p1) / n1))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">528</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  se2 &lt;- sqrt(sum(wt_normalized^2 * p2 * (1 - p2) / n2))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">529</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The summarize function [summarize_occurrences_by_grade()] performs the same function as</pre>
+                      <pre class="language-r">  z &lt;- stats::qnorm((1 + conf_level) / 2)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">530</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' [count_occurrences_by_grade()] except it creates content rows, not data rows, to summarize the current table</pre>
+                      <pre class="language-r">  err1 &lt;- z * se1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">531</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' row/column context and operates on the level of the latest row split or the root of the table if no row splits have</pre>
+                      <pre class="language-r">  err2 &lt;- z * se2</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">532</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' occurred.</pre>
+                      <pre class="language-r">  ci1 &lt;- c((est1 - err1), (est1 + err1))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">533</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  ci2 &lt;- c((est2 - err2), (est2 + err2))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">534</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">  estimate_ci &lt;- list(ci1, ci2)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">535</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param grade_groups (named `list` of `character`)\cr list containing groupings of grades.</pre>
+                      <pre class="language-r">  names(estimate_ci) &lt;- levels(grp)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">536</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param remove_single (`flag`)\cr `TRUE` to not include the elements of one-element grade groups</pre>
+                      <pre class="language-r">  diff_est &lt;- est2 - est1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">537</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   in the the output list; in this case only the grade groups names will be included in the output. If</pre>
+                      <pre class="language-r">  se_diff &lt;- sqrt(sum(((p1 * (1 - p1) / n1) + (p2 * (1 - p2) / n2)) * wt_normalized^2))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">538</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `only_grade_groups` is set to `TRUE` this argument is ignored.</pre>
+                      <pre class="language-r">  diff_ci &lt;- c(diff_est - z * se_diff, diff_est + z * se_diff)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">539</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param only_grade_groups (`flag`)\cr whether only the specified grade groups should be</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">540</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   included, with individual grade rows removed (`TRUE`), or all grades and grade groups</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">541</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   should be displayed (`FALSE`).</pre>
+                      <pre class="language-r">    prop = estimate,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">542</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("count_occurrences_by_grade")`</pre>
+                      <pre class="language-r">    prop_ci = estimate_ci,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">543</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to see available statistics for this function.</pre>
+                      <pre class="language-r">    diff = diff_est,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">544</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    diff_ci = diff_ci,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">545</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso Relevant helper function [h_append_grade_groups()].</pre>
+                      <pre class="language-r">    weights = wt_normalized,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">546</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    n1 = n1,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">547</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name count_occurrences_by_grade</pre>
+                      <pre class="language-r">    n2 = n2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">548</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 1</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">549</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">550</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">551</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function for `s_count_occurrences_by_grade()`</pre>
+                      <pre class="language-r">#' @describeIn h_prop_diff Calculates the stratified Newcombe confidence interval and difference in response</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">552</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   rates between the experimental treatment group and the control treatment group, adjusted for stratification</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">553</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#'   factors. This implementation follows closely the one proposed by \insertCite{Yan2010-jt;textual}{tern}.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">554</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   Weights can be estimated from the heuristic proposed in [prop_strat_wilson()] or from CMH-derived weights</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">555</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function for [s_count_occurrences_by_grade()] to insert grade groupings into list with</pre>
+                      <pre class="language-r">#'   (see [prop_diff_cmh()]).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">556</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' individual grade frequencies. The order of the final result follows the order of `grade_groups`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">557</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The elements under any-grade group (if any), i.e. the grade group equal to `refs` will be moved to</pre>
+                      <pre class="language-r">#' @param strata (`factor`)\cr variable with one level per stratum and same length as `rsp`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">558</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the end. Grade groups names must be unique.</pre>
+                      <pre class="language-r">#' @param weights_method (`string`)\cr weights method. Can be either `"cmh"` or `"heuristic"`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">559</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   and directs the way weights are estimated.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">560</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams count_occurrences_by_grade</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">561</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param refs (named `list` of `numeric`)\cr named list where each name corresponds to a reference grade level</pre>
+                      <pre class="language-r">#' @references</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">562</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and each entry represents a count.</pre>
+                      <pre class="language-r">#' \insertRef{Yan2010-jt}{tern}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">563</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">564</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Formatted list of grade groupings.</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">565</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' # Stratified Newcombe confidence interval</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">566</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">567</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_append_grade_groups(</pre>
+                      <pre class="language-r">#' set.seed(2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">568</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   list(</pre>
+                      <pre class="language-r">#' data_set &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">569</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "Any Grade" = as.character(1:5),</pre>
+                      <pre class="language-r">#'   "rsp" = sample(c(TRUE, FALSE), 100, TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">570</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "Grade 1-2" = c("1", "2"),</pre>
+                      <pre class="language-r">#'   "f1" = sample(c("a", "b"), 100, TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">571</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "Grade 3-4" = c("3", "4")</pre>
+                      <pre class="language-r">#'   "f2" = sample(c("x", "y", "z"), 100, TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">572</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#'   "grp" = sample(c("Placebo", "Treatment"), 100, TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">573</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   list("1" = 10, "2" = 20, "3" = 30, "4" = 40, "5" = 50)</pre>
+                      <pre class="language-r">#'   stringsAsFactors = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">574</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">575</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' h_append_grade_groups(</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">576</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   list(</pre>
+                      <pre class="language-r">#' prop_diff_strat_nc(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">577</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "Any Grade" = as.character(5:1),</pre>
+                      <pre class="language-r">#'   rsp = data_set$rsp, grp = data_set$grp, strata = interaction(data_set[2:3]),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">578</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "Grade A" = "5",</pre>
+                      <pre class="language-r">#'   weights_method = "cmh",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">579</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "Grade B" = c("4", "3")</pre>
+                      <pre class="language-r">#'   conf_level = 0.90</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">580</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">581</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   list("1" = 10, "2" = 20, "3" = 30, "4" = 40, "5" = 50)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">582</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' prop_diff_strat_nc(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">583</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   rsp = data_set$rsp, grp = data_set$grp, strata = interaction(data_set[2:3]),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">584</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_append_grade_groups(</pre>
+                      <pre class="language-r">#'   weights_method = "wilson_h",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">585</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   list(</pre>
+                      <pre class="language-r">#'   conf_level = 0.90</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">586</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "Any Grade" = as.character(1:5),</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">587</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "Grade 1-2" = c("1", "2"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">588</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "Grade 3-4" = c("3", "4")</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">589</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">prop_diff_strat_nc &lt;- function(rsp,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">590</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   list("1" = 10, "2" = 5, "3" = 0)</pre>
+                      <pre class="language-r">                               grp,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">591</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">                               strata,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">592</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                               weights_method = c("cmh", "wilson_h"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">593</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                               conf_level = 0.95,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">594</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_append_grade_groups &lt;- function(grade_groups, refs, remove_single = TRUE, only_grade_groups = FALSE) {</pre>
+                      <pre class="language-r">                               correct = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">595</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(grade_groups)</pre>
+                      <pre class="language-r">  weights_method &lt;- match.arg(weights_method)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">82</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">596</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(refs)</pre>
+                      <pre class="language-r">  grp &lt;- as_factor_keep_attributes(grp)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">83</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">597</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  refs_orig &lt;- refs</pre>
+                      <pre class="language-r">  strata &lt;- as_factor_keep_attributes(strata)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">598</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  elements &lt;- unique(unlist(grade_groups))</pre>
+                      <pre class="language-r">  check_diff_prop_ci(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">599</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    rsp = rsp, grp = grp, conf_level = conf_level, strata = strata</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">600</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ### compute sums in groups</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">601</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  grp_sum &lt;- lapply(grade_groups, function(i) do.call(sum, refs[i]))</pre>
+                      <pre class="language-r">  checkmate::assert_number(conf_level, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">88</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">602</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!checkmate::test_subset(elements, names(refs))) {</pre>
+                      <pre class="language-r">  checkmate::assert_flag(correct)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">89</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">603</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    padding_el &lt;- setdiff(elements, names(refs))</pre>
+                      <pre class="language-r">  if (any(tapply(rsp, strata, length) &lt; 5)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">604</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    refs[padding_el] &lt;- 0</pre>
+                      <pre class="language-r">    warning("Less than 5 observations in some strata.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">605</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">22<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  result &lt;- c(grp_sum, refs)</pre>
-                    </td>
-                  </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">606</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">94</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">607</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ### order result while keeping grade_groups's ordering</pre>
+                      <pre class="language-r">  rsp_by_grp &lt;- split(rsp, f = grp)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">608</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ordr &lt;- grade_groups</pre>
+                      <pre class="language-r">  strata_by_grp &lt;- split(strata, f = grp)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">609</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">610</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # elements of any-grade group (if any) will be moved to the end</pre>
+                      <pre class="language-r">  # Finding the weights</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">98</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">611</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  is_any &lt;- sapply(grade_groups, setequal, y = names(refs))</pre>
+                      <pre class="language-r">  weights &lt;- if (identical(weights_method, "cmh")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">99</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">612</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ordr[is_any] &lt;- list(character(0)) # hide elements under any-grade group</pre>
+                      <pre class="language-r">    prop_diff_cmh(rsp = rsp, grp = grp, strata = strata)$weights</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">100</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">613</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  } else if (identical(weights_method, "wilson_h")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">101</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">614</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # groups-elements combined sequence</pre>
+                      <pre class="language-r">    prop_strat_wilson(rsp, strata, conf_level = conf_level, correct = correct)$weights</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">22<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">615</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ordr &lt;- c(lapply(names(ordr), function(g) c(g, ordr[[g]])), recursive = TRUE, use.names = FALSE)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">616</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ordr &lt;- ordr[!duplicated(ordr)]</pre>
+                      <pre class="language-r">  weights[levels(strata)[!levels(strata) %in% names(weights)]] &lt;- 0</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">617</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">618</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # append remaining elements (if any)</pre>
+                      <pre class="language-r">  # Calculating lower (`l`) and upper (`u`) confidence bounds per group.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">619</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ordr &lt;- union(ordr, unlist(grade_groups[is_any])) # from any-grade group</pre>
+                      <pre class="language-r">  strat_wilson_by_grp &lt;- Map(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">22<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  ordr &lt;- union(ordr, names(refs)) # from refs</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">108</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">109</td>
-                    <td class="coverage"></td>
+                    <td class="num">620</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # remove elements of single-element groups, if any</pre>
+                      <pre class="language-r">    prop_strat_wilson,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">621</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (only_grade_groups) {</pre>
+                      <pre class="language-r">    rsp = rsp_by_grp,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">622</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ordr &lt;- intersect(ordr, names(grade_groups))</pre>
+                      <pre class="language-r">    strata = strata_by_grp,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">623</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (remove_single) {</pre>
+                      <pre class="language-r">    weights = list(weights, weights),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">624</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is_single &lt;- sapply(grade_groups, length) == 1L</pre>
+                      <pre class="language-r">    conf_level = conf_level,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">114</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">625</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ordr &lt;- setdiff(ordr, unlist(grade_groups[is_single]))</pre>
+                      <pre class="language-r">    correct = correct</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">626</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">627</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">117</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">628</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # apply the order</pre>
+                      <pre class="language-r">  ci_ref &lt;- strat_wilson_by_grp[[1]]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">118</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">629</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result &lt;- result[ordr]</pre>
+                      <pre class="language-r">  ci_trt &lt;- strat_wilson_by_grp[[2]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">119</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">630</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  l_ref &lt;- as.numeric(ci_ref$conf_int[1])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">120</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">631</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # remove groups without any elements in the original refs</pre>
+                      <pre class="language-r">  u_ref &lt;- as.numeric(ci_ref$conf_int[2])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">121</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">632</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # note: it's OK if groups have 0 value</pre>
+                      <pre class="language-r">  l_trt &lt;- as.numeric(ci_trt$conf_int[1])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">122</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">633</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  keep_grp &lt;- vapply(grade_groups, function(x, rf) {</pre>
+                      <pre class="language-r">  u_trt &lt;- as.numeric(ci_trt$conf_int[2])</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">54<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">634</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    any(x %in% rf)</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">635</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  # Estimating the diff and n_ref, n_trt (it allows different weights to be used)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">636</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }, rf = names(refs_orig), logical(1))</pre>
+                      <pre class="language-r">  t_tbl &lt;- table(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">125</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">637</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    factor(rsp, levels = c("FALSE", "TRUE")),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">638</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  keep_el &lt;- names(result) %in% names(refs_orig) | names(result) %in% names(keep_grp)[keep_grp]</pre>
+                      <pre class="language-r">    grp,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">639</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result &lt;- result[keep_el]</pre>
+                      <pre class="language-r">    strata</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">640</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">641</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result</pre>
+                      <pre class="language-r">  n_ref &lt;- colSums(t_tbl[1:2, 1, ])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">130</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">642</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  n_trt &lt;- colSums(t_tbl[1:2, 2, ])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">131</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">643</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  use_stratum &lt;- (n_ref &gt; 0) &amp; (n_trt &gt; 0)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">132</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">644</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn count_occurrences_by_grade Statistics function which counts the</pre>
+                      <pre class="language-r">  n_ref &lt;- n_ref[use_stratum]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">133</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">645</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  number of patients by highest grade.</pre>
+                      <pre class="language-r">  n_trt &lt;- n_trt[use_stratum]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">134</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">646</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  p_ref &lt;- t_tbl[2, 1, use_stratum] / n_ref</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">135</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">647</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">  p_trt &lt;- t_tbl[2, 2, use_stratum] / n_trt</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">136</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">648</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_count_occurrences_by_grade()` returns a list of counts and fractions with one element per grade level or</pre>
+                      <pre class="language-r">  est1 &lt;- sum(weights * p_ref)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">137</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">649</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   grade level grouping.</pre>
+                      <pre class="language-r">  est2 &lt;- sum(weights * p_trt)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">138</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">650</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  diff_est &lt;- est2 - est1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">651</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">140</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">652</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_count_occurrences_by_grade(</pre>
+                      <pre class="language-r">  lambda1 &lt;- sum(weights^2 / n_ref)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">141</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">653</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   df,</pre>
+                      <pre class="language-r">  lambda2 &lt;- sum(weights^2 / n_trt)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">142</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">654</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .N_col = 10L,</pre>
+                      <pre class="language-r">  z &lt;- stats::qnorm((1 + conf_level) / 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">655</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .var = "AETOXGR",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">144</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">656</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   id = "USUBJID",</pre>
+                      <pre class="language-r">  lower &lt;- diff_est - z * sqrt(lambda2 * l_trt * (1 - l_trt) + lambda1 * u_ref * (1 - u_ref))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">145</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">657</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   grade_groups = list("ANY" = levels(df$AETOXGR))</pre>
+                      <pre class="language-r">  upper &lt;- diff_est + z * sqrt(lambda1 * l_ref * (1 - l_ref) + lambda2 * u_trt * (1 - u_trt))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">658</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">147</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">659</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">148</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">660</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    "diff" = diff_est,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">149</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">661</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_count_occurrences_by_grade &lt;- function(df,</pre>
+                      <pre class="language-r">    "diff_ci" = c("lower" = lower, "upper" = upper)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">662</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         .var,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">663</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         .N_col, # nolint</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/g_km.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         id = "USUBJID",</pre>
+                      <pre class="language-r">#' Kaplan-Meier plot</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         grade_groups = list(),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         remove_single = TRUE,</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         only_grade_groups = FALSE,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         labelstr = "") {</pre>
+                      <pre class="language-r">#' From a survival model, a graphic is rendered along with tabulated annotation</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_valid_factor(df[[.var]])</pre>
+                      <pre class="language-r">#' including the number of patient at risk at given time and the median survival</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">7</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(df, list(grade = .var, id = id))</pre>
+                      <pre class="language-r">#' per group.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">160</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (nrow(df) &lt; 1) {</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    grade_levels &lt;- levels(df[[.var]])</pre>
+                      <pre class="language-r">#' @param variables (named `list`)\cr variable names. Details are:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    l_count &lt;- as.list(rep(0, length(grade_levels)))</pre>
+                      <pre class="language-r">#'   * `tte` (`numeric`)\cr variable indicating time-to-event duration values.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    names(l_count) &lt;- grade_levels</pre>
+                      <pre class="language-r">#'   * `is_event` (`logical`)\cr event variable. `TRUE` if event, `FALSE` if time to event is censored.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#'   * `arm` (`factor`)\cr the treatment group variable.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">14</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (isTRUE(is.factor(df[[id]]))) {</pre>
+                      <pre class="language-r">#'   * `strata` (`character` or `NULL`)\cr variable names indicating stratification factors.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">166</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">15</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      assert_valid_factor(df[[id]], any.missing = FALSE)</pre>
+                      <pre class="language-r">#' @param control_surv (`list`)\cr parameters for comparison details, specified by using</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">#'   the helper function [control_surv_timepoint()]. Some possible parameter options are:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_character(df[[id]], min.chars = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">#'   * `conf_level` (`proportion`)\cr confidence level of the interval for survival rate.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'   * `conf_type` (`string`)\cr `"plain"` (default), `"log"`, `"log-log"` for confidence interval type,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_count(.N_col)</pre>
+                      <pre class="language-r">#'     see more in [survival::survfit()]. Note that the option "none" is no longer supported.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param col (`character`)\cr lines colors. Length of a vector should be equal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    id &lt;- df[[id]]</pre>
+                      <pre class="language-r">#'   to number of strata from [survival::survfit()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">22</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    grade &lt;- df[[.var]]</pre>
+                      <pre class="language-r">#' @param lty (`numeric`)\cr line type. If a vector is given, its length should be equal to the number of strata from</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   [survival::survfit()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.ordered(grade)) {</pre>
+                      <pre class="language-r">#' @param lwd (`numeric`)\cr line width. If a vector is given, its length should be equal to the number of strata from</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">25</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      grade_lbl &lt;- obj_label(grade)</pre>
+                      <pre class="language-r">#'   [survival::survfit()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">177</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">26</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lvls &lt;- levels(grade)</pre>
+                      <pre class="language-r">#' @param censor_show (`flag`)\cr whether to show censored observations.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">27</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (sum(grepl("^\\d+$", lvls)) %in% c(0, length(lvls))) {</pre>
+                      <pre class="language-r">#' @param pch (`string`)\cr name of symbol or character to use as point symbol to indicate censored cases.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">28</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        lvl_ord &lt;- lvls</pre>
+                      <pre class="language-r">#' @param size (`numeric(1)`)\cr size of censored point symbols.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">#' @param max_time (`numeric(1)`)\cr maximum value to show on x-axis. Only data values less than or up to</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">181</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">30</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        lvls[!grepl("^\\d+$", lvls)] &lt;- min(as.numeric(lvls[grepl("^\\d+$", lvls)])) - 1</pre>
+                      <pre class="language-r">#'   this threshold value will be plotted (defaults to `NULL`).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">182</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">31</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        lvl_ord &lt;- levels(grade)[order(as.numeric(lvls))]</pre>
+                      <pre class="language-r">#' @param xticks (`numeric` or `NULL`)\cr numeric vector of tick positions or a single number with spacing</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'   between ticks on the x-axis. If `NULL` (default), [labeling::extended()] is used to determine</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">33</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      grade &lt;- formatters::with_label(factor(grade, levels = lvl_ord, ordered = TRUE), grade_lbl)</pre>
+                      <pre class="language-r">#'   optimal tick positions on the x-axis.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' @param xlab (`string`)\cr x-axis label.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param yval (`string`)\cr type of plot, to be plotted on the y-axis. Options are `Survival` (default) and `Failure`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">36</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    missing_lvl &lt;- grepl("missing", tolower(levels(grade)))</pre>
+                      <pre class="language-r">#'   probability.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">37</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (any(missing_lvl)) {</pre>
+                      <pre class="language-r">#' @param ylab (`string`)\cr y-axis label.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">38</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      grade &lt;- factor(</pre>
+                      <pre class="language-r">#' @param title (`string`)\cr plot title.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">39</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        grade,</pre>
+                      <pre class="language-r">#' @param footnotes (`string`)\cr plot footnotes.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">40</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        levels = c(levels(grade)[!missing_lvl], levels(grade)[missing_lvl]),</pre>
+                      <pre class="language-r">#' @param font_size (`numeric(1)`)\cr font size to use for all text.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">41</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ordered = is.ordered(grade)</pre>
+                      <pre class="language-r">#' @param ci_ribbon (`flag`)\cr whether the confidence interval should be drawn around the Kaplan-Meier curve.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' @param annot_at_risk (`flag`)\cr compute and add the annotation table reporting the number of patient at risk</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'   matching the main grid of the Kaplan-Meier curve.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">44</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_max &lt;- stats::aggregate(grade ~ id, FUN = max, drop = FALSE)</pre>
+                      <pre class="language-r">#' @param annot_at_risk_title (`flag`)\cr whether the "Patients at Risk" title should be added above the `annot_at_risk`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">45</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    l_count &lt;- as.list(table(df_max$grade))</pre>
+                      <pre class="language-r">#'   table. Has no effect if `annot_at_risk` is `FALSE`. Defaults to `TRUE`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @param annot_surv_med (`flag`)\cr compute and add the annotation table on the Kaplan-Meier curve estimating the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   median survival time per group.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">48</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(grade_groups) &gt; 0) {</pre>
+                      <pre class="language-r">#' @param annot_coxph (`flag`)\cr whether to add the annotation table from a [survival::coxph()] model.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">200</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">49</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    l_count &lt;- h_append_grade_groups(grade_groups, l_count, remove_single, only_grade_groups)</pre>
+                      <pre class="language-r">#' @param annot_stats (`string` or `NULL`)\cr statistics annotations to add to the plot. Options are</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   `median` (median survival follow-up time) and `min` (minimum survival follow-up time).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param annot_stats_vlines (`flag`)\cr add vertical lines corresponding to each of the statistics</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">203</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">52</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  l_count_fraction &lt;- lapply(l_count, function(i, denom) c(i, i / denom), denom = .N_col)</pre>
+                      <pre class="language-r">#'   specified by `annot_stats`. If `annot_stats` is `NULL` no lines will be added.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param control_coxph_pw (`list`)\cr parameters for comparison details, specified using the helper function</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">54</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">#'   [control_coxph()]. Some possible parameter options are:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">55</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    count_fraction = l_count_fraction</pre>
+                      <pre class="language-r">#'   * `pval_method` (`string`)\cr p-value method for testing hazard ratio = 1.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'     Default method is `"log-rank"`, can also be set to `"wald"` or `"likelihood"`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   * `ties` (`string`)\cr method for tie handling. Default is `"efron"`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     can also be set to `"breslow"` or `"exact"`. See more in [survival::coxph()]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn count_occurrences_by_grade Formatted analysis function which is used as `afun`</pre>
+                      <pre class="language-r">#'   * `conf_level` (`proportion`)\cr confidence level of the interval for HR.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   in `count_occurrences_by_grade()`.</pre>
+                      <pre class="language-r">#' @param ref_group_coxph (`string` or `NULL`)\cr level of arm variable to use as reference group in calculations for</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   `annot_coxph` table. If `NULL` (default), uses the first level of the arm variable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' @param control_annot_surv_med (`list`)\cr parameters to control the position and size of the annotation table added</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `a_count_occurrences_by_grade()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
+                      <pre class="language-r">#'   to the plot when `annot_surv_med = TRUE`, specified using the [control_surv_med_annot()] function. Parameter</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   options are: `x`, `y`, `w`, `h`, and `fill`. See [control_surv_med_annot()] for details.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @param control_annot_coxph (`list`)\cr parameters to control the position and size of the annotation table added</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' #  We need to ungroup `count_fraction` first so that the `rtables` formatting</pre>
+                      <pre class="language-r">#'   to the plot when `annot_coxph = TRUE`, specified using the [control_coxph_annot()] function. Parameter</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">218</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # function `format_count_fraction()` can be applied correctly.</pre>
+                      <pre class="language-r">#'   options are: `x`, `y`, `w`, `h`, `fill`, and `ref_lbls`. See [control_coxph_annot()] for details.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">219</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' afun &lt;- make_afun(a_count_occurrences_by_grade, .ungroup_stats = "count_fraction")</pre>
+                      <pre class="language-r">#' @param legend_pos (`numeric(2)` or `NULL`)\cr vector containing x- and y-coordinates, respectively, for the legend</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' afun(</pre>
+                      <pre class="language-r">#'   position relative to the KM plot area. If `NULL` (default), the legend is positioned in the bottom right corner of</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   df,</pre>
+                      <pre class="language-r">#'   the plot, or the middle right of the plot if needed to prevent overlapping.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .N_col = 10L,</pre>
+                      <pre class="language-r">#' @param rel_height_plot (`proportion`)\cr proportion of total figure height to allocate to the Kaplan-Meier plot.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">223</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .var = "AETOXGR",</pre>
+                      <pre class="language-r">#'   Relative height of patients at risk table is then `1 - rel_height_plot`. If `annot_at_risk = FALSE` or</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   id = "USUBJID",</pre>
+                      <pre class="language-r">#'   `as_list = TRUE`, this parameter is ignored.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   grade_groups = list("ANY" = levels(df$AETOXGR))</pre>
+                      <pre class="language-r">#' @param ggtheme (`theme`)\cr a graphical theme as provided by `ggplot2` to format the Kaplan-Meier plot.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' @param as_list (`flag`)\cr whether the two `ggplot` objects should be returned as a list when `annot_at_risk = TRUE`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   If `TRUE`, a named list with two elements, `plot` and `table`, will be returned. If `FALSE` (default) the patients</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'   at risk table is printed below the plot via [cowplot::plot_grid()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">a_count_occurrences_by_grade &lt;- make_afun(</pre>
+                      <pre class="language-r">#' @param draw `r lifecycle::badge("deprecated")` This function no longer generates `grob` objects.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_count_occurrences_by_grade,</pre>
+                      <pre class="language-r">#' @param newpage `r lifecycle::badge("deprecated")` This function no longer generates `grob` objects.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">231</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats = c("count_fraction" = format_count_fraction_fixed_dp)</pre>
+                      <pre class="language-r">#' @param gp `r lifecycle::badge("deprecated")` This function no longer generates `grob` objects.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">#' @param vp `r lifecycle::badge("deprecated")` This function no longer generates `grob` objects.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param name `r lifecycle::badge("deprecated")` This function no longer generates `grob` objects.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">234</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn count_occurrences_by_grade Layout-creating function which can take statistics function</pre>
+                      <pre class="language-r">#' @param annot_coxph_ref_lbls `r lifecycle::badge("deprecated")` Please use the `ref_lbls` element of</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   arguments and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
+                      <pre class="language-r">#'   `control_annot_coxph` instead.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param position_coxph `r lifecycle::badge("deprecated")`  Please use the `x` and `y` elements of</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">237</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'   `control_annot_coxph` instead.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">238</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `count_occurrences_by_grade()` returns a layout object suitable for passing to further layouting functions,</pre>
+                      <pre class="language-r">#' @param position_surv_med `r lifecycle::badge("deprecated")` Please use the `x` and `y` elements of</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
+                      <pre class="language-r">#'   `control_annot_surv_med` instead.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the statistics from `s_count_occurrences_by_grade()` to the table layout.</pre>
+                      <pre class="language-r">#' @param width_annots `r lifecycle::badge("deprecated")` Please use the `w` element of `control_annot_surv_med`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">241</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   (for `surv_med`) and `control_annot_coxph` (for `coxph`)."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">242</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">#' @return A `ggplot` Kaplan-Meier plot and (optionally) summary table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- data.frame(</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   USUBJID = as.character(c(1:6, 1)),</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">247</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ARM = factor(c("A", "A", "A", "B", "B", "B", "A"), levels = c("A", "B")),</pre>
+                      <pre class="language-r">#' library(nestcolor)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   AETOXGR = factor(c(1, 2, 3, 4, 1, 2, 3), levels = c(1:5)),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">249</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   AESEV = factor(</pre>
+                      <pre class="language-r">#' df &lt;- tern_ex_adtte %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">250</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     x = c("MILD", "MODERATE", "SEVERE", "MILD", "MILD", "MODERATE", "SEVERE"),</pre>
+                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     levels = c("MILD", "MODERATE", "SEVERE")</pre>
+                      <pre class="language-r">#'   mutate(is_event = CNSR == 0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#' variables &lt;- list(tte = "AVAL", is_event = "is_event", arm = "ARMCD")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">253</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' # Basic examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">255</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' g_km(df = df, variables = variables)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">256</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df_adsl &lt;- df %&gt;%</pre>
+                      <pre class="language-r">#' g_km(df = df, variables = variables, yval = "Failure")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   select(USUBJID, ARM) %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   unique()</pre>
+                      <pre class="language-r">#' # Examples with customization parameters applied</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">259</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' g_km(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">260</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Layout creating function with custom format.</pre>
+                      <pre class="language-r">#'   df = df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">261</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">#'   variables = variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
+                      <pre class="language-r">#'   control_surv = control_surv_timepoint(conf_level = 0.9),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">263</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                      <pre class="language-r">#'   col = c("grey25", "grey50", "grey75"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">264</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   count_occurrences_by_grade(</pre>
+                      <pre class="language-r">#'   annot_at_risk_title = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     var = "AESEV",</pre>
+                      <pre class="language-r">#'   lty = 1:3,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">266</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .formats = c("count_fraction" = "xx.xx (xx.xx%)")</pre>
+                      <pre class="language-r">#'   font_size = 8</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(df, alt_counts_df = df_adsl)</pre>
+                      <pre class="language-r">#' g_km(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   df = df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Define additional grade groupings.</pre>
+                      <pre class="language-r">#'   variables = variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">271</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grade_groups &lt;- list(</pre>
+                      <pre class="language-r">#'   annot_stats = c("min", "median"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "-Any-" = c("1", "2", "3", "4", "5"),</pre>
+                      <pre class="language-r">#'   annot_stats_vlines = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">273</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "Grade 1-2" = c("1", "2"),</pre>
+                      <pre class="language-r">#'   max_time = 3000,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">274</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "Grade 3-5" = c("3", "4", "5")</pre>
+                      <pre class="language-r">#'   ggtheme = ggplot2::theme_minimal()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">276</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">277</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">#' # Example with pairwise Cox-PH analysis annotation table, adjusted annotation tables</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
+                      <pre class="language-r">#' g_km(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                      <pre class="language-r">#'   df = df, variables = variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   count_occurrences_by_grade(</pre>
+                      <pre class="language-r">#'   annot_coxph = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">281</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     var = "AETOXGR",</pre>
+                      <pre class="language-r">#'   control_coxph = control_coxph(pval_method = "wald", ties = "exact", conf_level = 0.99),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">282</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     grade_groups = grade_groups,</pre>
+                      <pre class="language-r">#'   control_annot_coxph = control_coxph_annot(x = 0.26, w = 0.35),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">283</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     only_grade_groups = TRUE</pre>
+                      <pre class="language-r">#'   control_annot_surv_med = control_surv_med_annot(x = 0.8, y = 0.9, w = 0.35)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">284</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">285</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(df, alt_counts_df = df_adsl)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @aliases kaplan_meier</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 2</pre>
+                      <pre class="language-r">g_km &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">289</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">count_occurrences_by_grade &lt;- function(lyt,</pre>
+                      <pre class="language-r">                 variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       var,</pre>
+                      <pre class="language-r">                 control_surv = control_surv_timepoint(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">291</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       id = "USUBJID",</pre>
+                      <pre class="language-r">                 col = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">292</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       grade_groups = list(),</pre>
+                      <pre class="language-r">                 lty = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">293</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       remove_single = TRUE,</pre>
+                      <pre class="language-r">                 lwd = 0.5,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">294</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       only_grade_groups = FALSE,</pre>
+                      <pre class="language-r">                 censor_show = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">295</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       var_labels = var,</pre>
+                      <pre class="language-r">                 pch = 3,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       show_labels = "default",</pre>
+                      <pre class="language-r">                 size = 2,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       riskdiff = FALSE,</pre>
+                      <pre class="language-r">                 max_time = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">298</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       na_str = default_na_str(),</pre>
+                      <pre class="language-r">                 xticks = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">299</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       nested = TRUE,</pre>
+                      <pre class="language-r">                 xlab = "Days",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">300</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       ...,</pre>
+                      <pre class="language-r">                 yval = c("Survival", "Failure"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">301</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       table_names = var,</pre>
+                      <pre class="language-r">                 ylab = paste(yval, "Probability"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">302</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       .stats = NULL,</pre>
+                      <pre class="language-r">                 ylim = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">303</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       .formats = NULL,</pre>
+                      <pre class="language-r">                 title = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">304</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       .indent_mods = NULL,</pre>
+                      <pre class="language-r">                 footnotes = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">305</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       .labels = NULL) {</pre>
+                      <pre class="language-r">                 font_size = 10,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">306</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">155</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(riskdiff)</pre>
+                      <pre class="language-r">                 ci_ribbon = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">307</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">156</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_args &lt;- list(</pre>
+                      <pre class="language-r">                 annot_at_risk = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">308</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">157</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    id = id, grade_groups = grade_groups, remove_single = remove_single, only_grade_groups = only_grade_groups, ...</pre>
+                      <pre class="language-r">                 annot_at_risk_title = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">309</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">                 annot_surv_med = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">310</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                 annot_coxph = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">311</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">160</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  afun &lt;- make_afun(</pre>
+                      <pre class="language-r">                 annot_stats = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">312</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">161</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    a_count_occurrences_by_grade,</pre>
+                      <pre class="language-r">                 annot_stats_vlines = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">313</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">162</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .stats = .stats,</pre>
+                      <pre class="language-r">                 control_coxph_pw = control_coxph(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">314</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">163</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .formats = .formats,</pre>
+                      <pre class="language-r">                 ref_group_coxph = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">315</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">164</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .indent_mods = .indent_mods,</pre>
+                      <pre class="language-r">                 control_annot_surv_med = control_surv_med_annot(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">316</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">165</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .ungroup_stats = "count_fraction"</pre>
+                      <pre class="language-r">                 control_annot_coxph = control_coxph_annot(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">317</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">                 legend_pos = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">318</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                 rel_height_plot = 0.75,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">319</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">168</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- if (isFALSE(riskdiff)) {</pre>
+                      <pre class="language-r">                 ggtheme = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">320</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">169</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    s_args</pre>
+                      <pre class="language-r">                 as_list = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">321</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">                 draw = lifecycle::deprecated(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">322</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">171</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list(</pre>
+                      <pre class="language-r">                 newpage = lifecycle::deprecated(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">323</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">172</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      afun = list("s_count_occurrences_by_grade" = afun),</pre>
+                      <pre class="language-r">                 gp = lifecycle::deprecated(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">324</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">173</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      .stats = .stats,</pre>
+                      <pre class="language-r">                 vp = lifecycle::deprecated(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">325</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">174</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      .indent_mods = .indent_mods,</pre>
+                      <pre class="language-r">                 name = lifecycle::deprecated(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">326</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">175</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      s_args = s_args</pre>
+                      <pre class="language-r">                 annot_coxph_ref_lbls = lifecycle::deprecated(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">327</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">                 position_coxph = lifecycle::deprecated(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">328</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                 position_surv_med = lifecycle::deprecated(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">329</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                 width_annots = lifecycle::deprecated()) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">330</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">179</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  analyze(</pre>
+                      <pre class="language-r">  # Deprecated argument warnings</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">331</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">180</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt = lyt,</pre>
+                      <pre class="language-r">  if (lifecycle::is_present(draw)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">332</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">181</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars = var,</pre>
+                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">333</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">182</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_labels = var_labels,</pre>
+                      <pre class="language-r">      "0.9.4", "g_km(draw)",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">334</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">183</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    show_labels = show_labels,</pre>
+                      <pre class="language-r">      details = "This argument is no longer used since the plot is now generated as a `ggplot2` object."</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">335</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">184</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    afun = ifelse(isFALSE(riskdiff), afun, afun_riskdiff),</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">336</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">185</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table_names = table_names,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">337</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">186</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">  if (lifecycle::is_present(newpage)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">338</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">187</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nested = nested,</pre>
+                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">339</td>
-                    <td class="coverage">11<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    extra_args = extra_args</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">340</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">341</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">342</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">343</td>
-                    <td class="coverage"></td>
+                    <td class="num">188</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn count_occurrences_by_grade Layout-creating function which can take content function arguments</pre>
+                      <pre class="language-r">      "0.9.4", "g_km(newpage)",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">344</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">189</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::summarize_row_groups()].</pre>
+                      <pre class="language-r">      details = "This argument is no longer used since the plot is now generated as a `ggplot2` object."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">345</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">346</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">347</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">192</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `summarize_occurrences_by_grade()` returns a layout object suitable for passing to further layouting functions,</pre>
+                      <pre class="language-r">  if (lifecycle::is_present(gp)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">348</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">193</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted content rows</pre>
+                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">349</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">194</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   containing the statistics from `s_count_occurrences_by_grade()` to the table layout.</pre>
+                      <pre class="language-r">      "0.9.4", "g_km(gp)",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">350</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">195</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      details = "This argument is no longer used since the plot is now generated as a `ggplot2` object."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">351</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">352</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Layout creating function with custom format.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">353</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">198</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">  if (lifecycle::is_present(vp)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">354</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">199</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">355</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">200</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by("ARM", child_labels = "visible", nested = TRUE) %&gt;%</pre>
+                      <pre class="language-r">      "0.9.4", "g_km(vp)",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">356</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">201</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   summarize_occurrences_by_grade(</pre>
+                      <pre class="language-r">      details = "This argument is no longer used since the plot is now generated as a `ggplot2` object."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">357</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     var = "AESEV",</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">358</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .formats = c("count_fraction" = "xx.xx (xx.xx%)")</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">359</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">204</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">  if (lifecycle::is_present(name)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">360</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">205</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(df, alt_counts_df = df_adsl)</pre>
+                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">361</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">206</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      "0.9.4", "g_km(name)",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">362</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">207</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">      details = "This argument is no longer used since the plot is now generated as a `ggplot2` object."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">363</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">364</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by("ARM", child_labels = "visible", nested = TRUE) %&gt;%</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">365</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">210</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   summarize_occurrences_by_grade(</pre>
+                      <pre class="language-r">  if (lifecycle::is_present(annot_coxph_ref_lbls)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">366</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">211</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     var = "AETOXGR",</pre>
+                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">367</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">212</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     grade_groups = grade_groups</pre>
+                      <pre class="language-r">      "0.9.4", "g_km(annot_coxph_ref_lbls)",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">368</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">213</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">      details = "Please specify this setting using the 'ref_lbls' element of control_annot_coxph."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">369</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(df, alt_counts_df = df_adsl)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">370</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">215</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    control_annot_coxph[["ref_lbls"]] &lt;- annot_coxph_ref_lbls</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">371</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">372</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">217</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 3</pre>
+                      <pre class="language-r">  if (lifecycle::is_present(position_coxph)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">373</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">218</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">summarize_occurrences_by_grade &lt;- function(lyt,</pre>
+                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">374</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">219</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                           var,</pre>
+                      <pre class="language-r">      "0.9.4", "g_km(position_coxph)",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">375</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">220</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                           id = "USUBJID",</pre>
+                      <pre class="language-r">      details = "Please specify this setting using the 'x' and 'y' elements of control_annot_coxph."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">376</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                           grade_groups = list(),</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">377</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">222</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                           remove_single = TRUE,</pre>
+                      <pre class="language-r">    control_annot_coxph[["x"]] &lt;- position_coxph[1]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">378</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">223</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                           only_grade_groups = FALSE,</pre>
+                      <pre class="language-r">    control_annot_coxph[["y"]] &lt;- position_coxph[2]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">379</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                           na_str = default_na_str(),</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">380</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">225</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                           ...,</pre>
+                      <pre class="language-r">  if (lifecycle::is_present(position_surv_med)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">381</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">226</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                           .stats = NULL,</pre>
+                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">382</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">227</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                           .formats = NULL,</pre>
+                      <pre class="language-r">      "0.9.4", "g_km(position_surv_med)",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">383</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">228</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                           .indent_mods = NULL,</pre>
+                      <pre class="language-r">      details = "Please specify this setting using the 'x' and 'y' elements of control_annot_surv_med."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">384</td>
+                    <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                           .labels = NULL) {</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">385</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">230</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(</pre>
+                      <pre class="language-r">    control_annot_surv_med[["x"]] &lt;- position_surv_med[1]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">386</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">231</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    id = id, grade_groups = grade_groups, remove_single = remove_single, only_grade_groups = only_grade_groups, ...</pre>
+                      <pre class="language-r">    control_annot_surv_med[["y"]] &lt;- position_surv_med[2]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">387</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">388</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">233</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if (lifecycle::is_present(width_annots)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">389</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">234</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  cfun &lt;- make_afun(</pre>
+                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">390</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">235</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    a_count_occurrences_by_grade,</pre>
+                      <pre class="language-r">      "0.9.4", "g_km(width_annots)",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">391</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">236</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .stats = .stats,</pre>
+                      <pre class="language-r">      details = paste(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">392</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">237</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .formats = .formats,</pre>
+                      <pre class="language-r">        "Please specify widths of annotation tables relative to the plot area using the 'w' element of",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">393</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">238</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .labels = .labels,</pre>
+                      <pre class="language-r">        "control_annot_surv_med (for surv_med) and control_annot_coxph (for coxph)."</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">239</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">240</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">394</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">241</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .indent_mods = .indent_mods,</pre>
+                      <pre class="language-r">    control_annot_surv_med[["w"]] &lt;- as.numeric(width_annots[["surv_med"]])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">395</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">242</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .ungroup_stats = "count_fraction"</pre>
+                      <pre class="language-r">    control_annot_coxph[["w"]] &lt;- as.numeric(width_annots[["coxph"]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">396</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">397</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">398</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">245</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  summarize_row_groups(</pre>
+                      <pre class="language-r">  checkmate::assert_list(variables)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">399</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">246</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt = lyt,</pre>
+                      <pre class="language-r">  checkmate::assert_subset(c("tte", "arm", "is_event"), names(variables))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">400</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">247</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var = var,</pre>
+                      <pre class="language-r">  checkmate::assert_logical(censor_show, len = 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">401</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">248</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    cfun = cfun,</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(size, len = 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">402</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">249</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(max_time, len = 1, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">403</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">250</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args = extra_args</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(xticks, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">404</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">251</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  checkmate::assert_character(xlab, len = 1, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">405</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">252</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  checkmate::assert_character(yval)</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/control_step.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">253</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Control function for subgroup treatment effect pattern (STEP) calculations</pre>
+                      <pre class="language-r">  checkmate::assert_character(ylab, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">254</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(ylim, finite = TRUE, any.missing = FALSE, len = 2, sorted = TRUE, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">255</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">  checkmate::assert_character(title, len = 1, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">256</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_character(footnotes, len = 1, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">257</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This is an auxiliary function for controlling arguments for STEP calculations.</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(font_size, len = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">258</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_logical(ci_ribbon, len = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">259</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param biomarker (`numeric` or `NULL`)\cr optional provision of the numeric biomarker variable, which</pre>
+                      <pre class="language-r">  checkmate::assert_logical(annot_at_risk, len = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">260</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   could be used to infer `bandwidth`, see below.</pre>
+                      <pre class="language-r">  checkmate::assert_logical(annot_at_risk_title, len = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">261</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param use_percentile (`flag`)\cr if `TRUE`, the running windows are created according to</pre>
+                      <pre class="language-r">  checkmate::assert_logical(annot_surv_med, len = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">262</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   quantiles rather than actual values, i.e. the bandwidth refers to the percentage of data</pre>
+                      <pre class="language-r">  checkmate::assert_logical(annot_coxph, len = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">263</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   covered in each window. Suggest `TRUE` if the biomarker variable is not uniformly</pre>
+                      <pre class="language-r">  checkmate::assert_subset(annot_stats, c("median", "min"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">264</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   distributed.</pre>
+                      <pre class="language-r">  checkmate::assert_logical(annot_stats_vlines)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">265</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param bandwidth (`numeric(1)` or `NULL`)\cr indicating the bandwidth of each window.</pre>
+                      <pre class="language-r">  checkmate::assert_list(control_coxph_pw)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">266</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Depending on the argument `use_percentile`, it can be either the length of actual-value</pre>
+                      <pre class="language-r">  checkmate::assert_character(ref_group_coxph, len = 1, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">267</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   windows on the real biomarker scale, or percentage windows.</pre>
+                      <pre class="language-r">  checkmate::assert_list(control_annot_surv_med)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">268</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   If `use_percentile = TRUE`, it should be a number between 0 and 1.</pre>
+                      <pre class="language-r">  checkmate::assert_list(control_annot_coxph)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">269</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   If `NULL`, treat the bandwidth to be infinity, which means only one global model will be fitted.</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(legend_pos, finite = TRUE, any.missing = FALSE, len = 2, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">270</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   By default, `0.25` is used for percentage windows and one quarter of the range of the `biomarker`</pre>
+                      <pre class="language-r">  assert_proportion_value(rel_height_plot)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">271</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variable for actual-value windows.</pre>
+                      <pre class="language-r">  checkmate::assert_logical(as_list)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">272</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param degree (`integer(1)`)\cr the degree of polynomial function of the biomarker as an interaction term</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">273</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   with the treatment arm fitted at each window. If 0 (default), then the biomarker variable</pre>
+                      <pre class="language-r">  tte &lt;- variables$tte</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">274</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   is not included in the model fitted in each biomarker window.</pre>
+                      <pre class="language-r">  is_event &lt;- variables$is_event</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">275</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param num_points (`integer(1)`)\cr the number of points at which the hazard ratios are estimated. The</pre>
+                      <pre class="language-r">  arm &lt;- variables$arm</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">276</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   smallest number is 2.</pre>
+                      <pre class="language-r">  assert_valid_factor(df[[arm]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">277</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  armval &lt;- as.character(unique(df[[arm]]))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">278</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A list of components with the same names as the arguments, except `biomarker` which is</pre>
+                      <pre class="language-r">  assert_df_with_variables(df, list(tte = tte, is_event = is_event, arm = arm))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">279</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   just used to calculate the `bandwidth` in case that actual biomarker windows are requested.</pre>
+                      <pre class="language-r">  checkmate::assert_logical(df[[is_event]], min.len = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">280</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(df[[tte]], min.len = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">281</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  checkmate::assert_vector(col, len = length(armval), null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">282</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Provide biomarker values and request actual values to be used,</pre>
+                      <pre class="language-r">  checkmate::assert_vector(lty, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">283</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # so that bandwidth is chosen from range.</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(lwd, len = 1, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' control_step(biomarker = 1:10, use_percentile = FALSE)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">285</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if (annot_coxph &amp;&amp; length(armval) &lt; 2) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">286</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Use a global model with quadratic biomarker interaction term.</pre>
+                      <pre class="language-r">    stop(paste(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">287</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' control_step(bandwidth = NULL, degree = 2)</pre>
+                      <pre class="language-r">      "When `annot_coxph` = TRUE, `df` must contain at least 2 levels of `variables$arm`",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">288</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      "in order to calculate the hazard ratio."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">289</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Reduce number of points to be used.</pre>
+                      <pre class="language-r">    ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' control_step(num_points = 10)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">292</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  # process model</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">293</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">control_step &lt;- function(biomarker = NULL,</pre>
+                      <pre class="language-r">  yval &lt;- match.arg(yval)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">294</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         use_percentile = TRUE,</pre>
+                      <pre class="language-r">  formula &lt;- stats::as.formula(paste0("survival::Surv(", tte, ", ", is_event, ") ~ ", arm))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">295</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         bandwidth,</pre>
+                      <pre class="language-r">  fit_km &lt;- survival::survfit(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">296</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         degree = 0L,</pre>
+                      <pre class="language-r">    formula = formula,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">297</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         num_points = 39L) {</pre>
+                      <pre class="language-r">    data = df,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">46</td>
-                    <td class="coverage">31<em>x</em></td>
+                    <td class="num">298</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(biomarker, null.ok = TRUE)</pre>
+                      <pre class="language-r">    conf.int = control_surv$conf_level,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">47</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">299</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(use_percentile)</pre>
+                      <pre class="language-r">    conf.type = control_surv$conf_type</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">48</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">300</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_int(num_points, lower = 2)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">29<em>x</em></td>
+                    <td class="num">301</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_count(degree)</pre>
+                      <pre class="language-r">  data &lt;- h_data_plot(fit_km, armval = armval, max_time = max_time)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">302</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">51</td>
-                    <td class="coverage">29<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (missing(bandwidth)) {</pre>
-                    </td>
-                  </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Infer bandwidth</pre>
+                      <pre class="language-r">  # calculate x-ticks</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">53</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">304</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    bandwidth &lt;- if (use_percentile) {</pre>
+                      <pre class="language-r">  xticks &lt;- h_xticks(data = data, xticks = xticks, max_time = max_time)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">54</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">305</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      0.25</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">55</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">306</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else if (!is.null(biomarker)) {</pre>
+                      <pre class="language-r">  # change estimates of survival to estimates of failure (1 - survival)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">56</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">307</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      diff(range(biomarker, na.rm = TRUE)) / 4</pre>
+                      <pre class="language-r">  if (yval == "Failure") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">57</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">308</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">    data[c("estimate", "conf.low", "conf.high", "censor")] &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">58</td>
+                    <td class="num">309</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      NULL</pre>
+                      <pre class="language-r">      1 - data$estimate, 1 - data$conf.low, 1 - data$conf.high, 1 - data$censor</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">310</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">311</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">312</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Check bandwidth</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">313</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.null(bandwidth)) {</pre>
+                      <pre class="language-r">  # derive y-axis limits</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">314</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (use_percentile) {</pre>
+                      <pre class="language-r">  if (is.null(ylim)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">64</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        assert_proportion_value(bandwidth)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                    <td class="num">315</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">    if (!is.null(max_time)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">66</td>
+                    <td class="num">316</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        checkmate::assert_scalar(bandwidth)</pre>
+                      <pre class="language-r">      y_lwr &lt;- min(data[data$time &lt; max_time, ][["estimate"]])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">67</td>
+                    <td class="num">317</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        checkmate::assert_true(bandwidth &gt; 0)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">68</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">69</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">      y_upr &lt;- max(data[data$time &lt; max_time, ][["estimate"]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">318</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">71</td>
-                    <td class="coverage">28<em>x</em></td>
+                    <td class="num">319</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">      y_lwr &lt;- min(data[["estimate"]])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">28<em>x</em></td>
+                    <td class="num">320</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    use_percentile = use_percentile,</pre>
+                      <pre class="language-r">      y_upr &lt;- max(data[["estimate"]])</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">73</td>
-                    <td class="coverage">28<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">321</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    bandwidth = bandwidth,</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">28<em>x</em></td>
+                    <td class="num">322</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    degree = as.integer(degree),</pre>
+                      <pre class="language-r">    ylim &lt;- c(y_lwr, y_upr)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">28<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">323</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    num_points = as.integer(num_points)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">324</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">325</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  # initialize ggplot</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/count_cumulative.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">326</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Cumulative counts of numeric variable by thresholds</pre>
+                      <pre class="language-r">  gg_plt &lt;- ggplot(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">327</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    data = data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">328</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">    mapping = aes(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">329</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      x = .data[["time"]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">330</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The analyze function [count_cumulative()] creates a layout element to calculate cumulative counts of values in a</pre>
+                      <pre class="language-r">      y = .data[["estimate"]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">331</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' numeric variable that are less than, less or equal to, greater than, or greater or equal to user-specified</pre>
+                      <pre class="language-r">      ymin = .data[["conf.low"]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">332</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' threshold values.</pre>
+                      <pre class="language-r">      ymax = .data[["conf.high"]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">333</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      color = .data[["strata"]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">334</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function analyzes numeric variable `vars` against the threshold values supplied to the `thresholds`</pre>
+                      <pre class="language-r">      fill = .data[["strata"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">335</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' argument as a numeric vector. Whether counts should include the threshold values, and whether to count</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">336</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' values lower or higher than the threshold values can be set via the `include_eq` and `lower_tail`</pre>
+                      <pre class="language-r">  ) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">337</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' parameters, respectively.</pre>
+                      <pre class="language-r">    theme_bw(base_size = font_size) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">338</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    scale_y_continuous(limits = ylim, expand = c(0.025, 0)) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">339</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_count_cumulative</pre>
+                      <pre class="language-r">    labs(title = title, x = xlab, y = ylab, caption = footnotes) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">340</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    theme(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">341</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      axis.text = element_text(size = font_size),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">342</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">      axis.title = element_text(size = font_size),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">343</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param thresholds (`numeric`)\cr vector of cutoff values for the counts.</pre>
+                      <pre class="language-r">      legend.title = element_blank(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">344</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("count_cumulative")`</pre>
+                      <pre class="language-r">      legend.text = element_text(size = font_size),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">345</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to see available statistics for this function.</pre>
+                      <pre class="language-r">      legend.box.background = element_rect(fill = "white", linewidth = 0.5),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">346</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      legend.background = element_blank(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">347</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso Relevant helper function [h_count_cumulative()], and descriptive function [d_count_cumulative()].</pre>
+                      <pre class="language-r">      legend.position = "inside",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">348</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      legend.spacing.y = unit(-0.02, "npc"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">349</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name count_cumulative</pre>
+                      <pre class="language-r">      panel.grid.major = element_blank(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">350</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 1</pre>
+                      <pre class="language-r">      panel.grid.minor = element_blank()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">351</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">352</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">353</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function for `s_count_cumulative()`</pre>
+                      <pre class="language-r">  # derive x-axis limits</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">354</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if (!is.null(max_time) &amp;&amp; !is.null(xticks)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">355</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">    gg_plt &lt;- gg_plt + scale_x_continuous(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">356</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      breaks = xticks, limits = c(min(0, xticks), max(c(xticks, max_time))), expand = c(0.025, 0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">357</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function to calculate count and fraction of `x` values in the lower or upper tail given a threshold.</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">358</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  } else if (!is.null(xticks)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">359</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">    if (max(data$time) &lt;= max(xticks)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">360</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param threshold (`numeric(1)`)\cr a cutoff value as threshold to count values of `x`.</pre>
+                      <pre class="language-r">      gg_plt &lt;- gg_plt + scale_x_continuous(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">361</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param lower_tail (`flag`)\cr whether to count lower tail, default is `TRUE`.</pre>
+                      <pre class="language-r">        breaks = xticks, limits = c(min(0, min(xticks)), max(xticks)), expand = c(0.025, 0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">362</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param include_eq (`flag`)\cr whether to include value equal to the `threshold` in</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">363</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   count, default is `TRUE`.</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">364</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      gg_plt &lt;- gg_plt + scale_x_continuous(breaks = xticks, expand = c(0.025, 0))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">365</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A named vector with items:</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">366</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `count`: the count of values less than, less or equal to, greater than, or greater or equal to a threshold</pre>
+                      <pre class="language-r">  } else if (!is.null(max_time)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">367</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     of user specification.</pre>
+                      <pre class="language-r">    gg_plt &lt;- gg_plt + scale_x_continuous(limits = c(0, max_time), expand = c(0.025, 0))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">368</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `fraction`: the fraction of the count.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">369</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">370</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [count_cumulative]</pre>
+                      <pre class="language-r">  # set legend position</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">371</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if (!is.null(legend_pos)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">372</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    gg_plt &lt;- gg_plt + theme(legend.position.inside = legend_pos)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">373</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' set.seed(1, kind = "Mersenne-Twister")</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">374</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x &lt;- c(sample(1:10, 10), NA)</pre>
+                      <pre class="language-r">    max_time2 &lt;- sort(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">375</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' .N_col &lt;- length(x)</pre>
+                      <pre class="language-r">      data$time,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">376</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      partial = nrow(data) - length(armval) - 1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">377</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_count_cumulative(x, 5, .N_col = .N_col)</pre>
+                      <pre class="language-r">    )[nrow(data) - length(armval) - 1]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">378</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_count_cumulative(x, 5, lower_tail = FALSE, include_eq = FALSE, na.rm = FALSE, .N_col = .N_col)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">379</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_count_cumulative(x, 0, lower_tail = FALSE, .N_col = .N_col)</pre>
+                      <pre class="language-r">    y_rng &lt;- ylim[2] - ylim[1]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">380</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_count_cumulative(x, 100, lower_tail = FALSE, .N_col = .N_col)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">381</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    if (yval == "Survival" &amp;&amp; all(data$estimate[data$time == max_time2] &gt; ylim[1] + 0.09 * y_rng) &amp;&amp;</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">55</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">382</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">      all(data$estimate[data$time == max_time2] &lt; ylim[1] + 0.5 * y_rng)) { # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">383</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_count_cumulative &lt;- function(x,</pre>
+                      <pre class="language-r">      gg_plt &lt;- gg_plt +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">57</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">384</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               threshold,</pre>
+                      <pre class="language-r">        theme(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">385</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               lower_tail = TRUE,</pre>
+                      <pre class="language-r">          legend.position.inside = c(1, 0.5),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">386</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               include_eq = TRUE,</pre>
+                      <pre class="language-r">          legend.justification = c(1.1, 0.6)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">387</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               na.rm = TRUE, # nolint</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">388</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               .N_col) { # nolint</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="num">389</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(x)</pre>
+                      <pre class="language-r">      gg_plt &lt;- gg_plt +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="num">390</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(threshold)</pre>
+                      <pre class="language-r">        theme(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">64</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="num">391</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(.N_col)</pre>
+                      <pre class="language-r">          legend.position.inside = c(1, 0),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="num">392</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(lower_tail)</pre>
+                      <pre class="language-r">          legend.justification = c(1.1, -0.4)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">393</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(include_eq)</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">67</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">394</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(na.rm)</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">395</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">396</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">69</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">397</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  is_keep &lt;- if (na.rm) !is.na(x) else rep(TRUE, length(x))</pre>
+                      <pre class="language-r">  # add lines</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">70</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="num">398</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  count &lt;- if (lower_tail &amp;&amp; include_eq) {</pre>
+                      <pre class="language-r">  gg_plt &lt;- if (is.null(lty)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">71</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">399</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    length(x[is_keep &amp; x &lt;= threshold])</pre>
+                      <pre class="language-r">    gg_plt + geom_step(linewidth = lwd, na.rm = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="num">400</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (lower_tail &amp;&amp; !include_eq) {</pre>
+                      <pre class="language-r">  } else if (length(lty) == 1) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">73</td>
+                    <td class="num">401</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    length(x[is_keep &amp; x &lt; threshold])</pre>
+                      <pre class="language-r">    gg_plt + geom_step(linewidth = lwd, lty = lty, na.rm = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">402</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (!lower_tail &amp;&amp; include_eq) {</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">403</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    length(x[is_keep &amp; x &gt;= threshold])</pre>
+                      <pre class="language-r">    gg_plt +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="num">404</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (!lower_tail &amp;&amp; !include_eq) {</pre>
+                      <pre class="language-r">      geom_step(aes(lty = .data[["strata"]]), linewidth = lwd, na.rm = TRUE) +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">405</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    length(x[is_keep &amp; x &gt; threshold])</pre>
+                      <pre class="language-r">      scale_linetype_manual(values = lty)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">406</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">407</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">408</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result &lt;- c(count = count, fraction = count / .N_col)</pre>
+                      <pre class="language-r">  # add censor marks</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="num">409</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result</pre>
+                      <pre class="language-r">  if (censor_show) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">410</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    gg_plt &lt;- gg_plt + geom_point(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">83</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">411</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      data = data[data$n.censor != 0, ],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">84</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">412</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Description of cumulative count</pre>
+                      <pre class="language-r">      aes(x = .data[["time"]], y = .data[["censor"]], shape = "Censored"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">413</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      size = size,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">86</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">414</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">      na.rm = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">415</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    ) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">88</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">416</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This is a helper function that describes the analysis in [s_count_cumulative()].</pre>
+                      <pre class="language-r">      scale_shape_manual(name = NULL, values = pch) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">89</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">417</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      guides(fill = guide_legend(override.aes = list(shape = NA)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">418</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_count_cumulative</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">419</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">420</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Labels for [s_count_cumulative()].</pre>
+                      <pre class="language-r">  # add ci ribbon</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">93</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">421</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if (ci_ribbon) gg_plt &lt;- gg_plt + geom_ribbon(alpha = 0.3, lty = 0, na.rm = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">422</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">423</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">d_count_cumulative &lt;- function(threshold, lower_tail = TRUE, include_eq = TRUE) {</pre>
+                      <pre class="language-r">  # control aesthetics</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">96</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">424</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(threshold)</pre>
+                      <pre class="language-r">  if (!is.null(col)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">97</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">425</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lg &lt;- if (lower_tail) "&lt;" else "&gt;"</pre>
+                      <pre class="language-r">    gg_plt &lt;- gg_plt +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">98</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">426</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  eq &lt;- if (include_eq) "=" else ""</pre>
+                      <pre class="language-r">      scale_color_manual(values = col) +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">99</td>
-                    <td class="coverage">18<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  paste0(lg, eq, " ", threshold)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">100</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">101</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">102</td>
-                    <td class="coverage"></td>
+                    <td class="num">427</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn count_cumulative Statistics function that produces a named list given a numeric vector of thresholds.</pre>
+                      <pre class="language-r">      scale_fill_manual(values = col)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">428</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">104</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">429</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">  if (!is.null(ggtheme)) gg_plt &lt;- gg_plt + ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">430</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_count_cumulative()` returns a named list of `count_fraction`s: a list with each `thresholds` value as a</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">431</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   component, each component containing a vector for the count and fraction.</pre>
+                      <pre class="language-r">  # annotate with stats (text/vlines)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">107</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">432</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if (!is.null(annot_stats)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">108</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">433</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    if ("median" %in% annot_stats) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">109</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">434</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_count_cumulative &lt;- function(x,</pre>
+                      <pre class="language-r">      fit_km_all &lt;- survival::survfit(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">110</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">435</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               thresholds,</pre>
+                      <pre class="language-r">        formula = stats::as.formula(paste0("survival::Surv(", tte, ", ", is_event, ") ~ ", 1)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">111</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">436</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               lower_tail = TRUE,</pre>
+                      <pre class="language-r">        data = df,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">112</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">437</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               include_eq = TRUE,</pre>
+                      <pre class="language-r">        conf.int = control_surv$conf_level,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">113</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">438</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               .N_col, # nolint</pre>
+                      <pre class="language-r">        conf.type = control_surv$conf_type</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">439</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               ...) {</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">440</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(thresholds, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">      gg_plt &lt;- gg_plt +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">116</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">441</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        annotate(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">442</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  count_fraction_list &lt;- Map(function(thres) {</pre>
+                      <pre class="language-r">          "text",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">118</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">443</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result &lt;- h_count_cumulative(x, thres, lower_tail, include_eq, .N_col = .N_col, ...)</pre>
+                      <pre class="language-r">          size = font_size / .pt, col = 1, lineheight = 0.95,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">444</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label &lt;- d_count_cumulative(thres, lower_tail, include_eq)</pre>
+                      <pre class="language-r">          x = stats::median(fit_km_all) + 0.07 * max(data$time),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">120</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">445</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    formatters::with_label(result, label)</pre>
+                      <pre class="language-r">          y = ifelse(yval == "Survival", 0.65, 0.35),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">121</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">446</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }, thresholds)</pre>
+                      <pre class="language-r">          label = paste("Median F/U:\n", round(stats::median(fit_km_all), 1), tolower(df$AVALU[1]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">447</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  names(count_fraction_list) &lt;- thresholds</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  list(count_fraction = count_fraction_list)</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">125</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">448</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      if (annot_stats_vlines) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">126</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">449</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        gg_plt &lt;- gg_plt +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">127</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">450</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn count_cumulative Formatted analysis function which is used as `afun`</pre>
+                      <pre class="language-r">          annotate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">128</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">451</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   in `count_cumulative()`.</pre>
+                      <pre class="language-r">            "segment",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">129</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">452</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            x = stats::median(fit_km_all), xend = stats::median(fit_km_all), y = -Inf, yend = Inf,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">130</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">453</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">            linetype = 2, col = "darkgray"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">454</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `a_count_cumulative()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">455</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">456</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">134</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">457</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">a_count_cumulative &lt;- make_afun(</pre>
+                      <pre class="language-r">    if ("min" %in% annot_stats) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">135</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">458</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_count_cumulative,</pre>
+                      <pre class="language-r">      min_fu &lt;- min(df[[tte]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">136</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">459</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats = c(count_fraction = format_count_fraction)</pre>
+                      <pre class="language-r">      gg_plt &lt;- gg_plt +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">137</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">460</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">        annotate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">138</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">461</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          "text",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">139</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">462</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn count_cumulative Layout-creating function which can take statistics function arguments</pre>
+                      <pre class="language-r">          size = font_size / .pt, col = 1, lineheight = 0.95,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">140</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">463</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
+                      <pre class="language-r">          x = min_fu + max(data$time) * 0.07,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">141</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">464</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          y = ifelse(yval == "Survival", 0.96, 0.05),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">142</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">465</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">          label = paste("Min. F/U:\n", round(min_fu, 1), tolower(df$AVALU[1]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">466</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `count_cumulative()` returns a layout object suitable for passing to further layouting functions,</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">144</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">467</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
+                      <pre class="language-r">      if (annot_stats_vlines) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">145</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">468</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the statistics from `s_count_cumulative()` to the table layout.</pre>
+                      <pre class="language-r">        gg_plt &lt;- gg_plt +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">146</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">469</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          annotate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">147</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">470</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">            "segment",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">148</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">471</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">            linetype = 2, col = "darkgray",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">149</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">472</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
+                      <pre class="language-r">            x = min_fu, xend = min_fu, y = Inf, yend = -Inf</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">473</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">474</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   count_cumulative(</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">475</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     vars = "AGE",</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">153</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">476</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     thresholds = c(40, 60)</pre>
+                      <pre class="language-r">    gg_plt &lt;- gg_plt + guides(fill = guide_legend(override.aes = list(shape = NA, label = "")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">477</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">478</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(tern_ex_adsl)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">479</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  # add at risk annotation table</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">157</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">480</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  if (annot_at_risk) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">158</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">481</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 2</pre>
+                      <pre class="language-r">    annot_tbl &lt;- summary(fit_km, times = xticks, extend = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">159</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">482</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">count_cumulative &lt;- function(lyt,</pre>
+                      <pre class="language-r">    annot_tbl &lt;- if (is.null(fit_km$strata)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">160</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">483</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             vars,</pre>
+                      <pre class="language-r">      data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">161</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">484</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             thresholds,</pre>
+                      <pre class="language-r">        n.risk = annot_tbl$n.risk,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">162</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">485</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             lower_tail = TRUE,</pre>
+                      <pre class="language-r">        time = annot_tbl$time,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">163</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">486</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             include_eq = TRUE,</pre>
+                      <pre class="language-r">        strata = armval</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">487</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             var_labels = vars,</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">488</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             show_labels = "visible",</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">166</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">489</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             na_str = default_na_str(),</pre>
+                      <pre class="language-r">      strata_lst &lt;- strsplit(sub("=", "equals", levels(annot_tbl$strata)), "equals")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">167</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">490</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             nested = TRUE,</pre>
+                      <pre class="language-r">      levels(annot_tbl$strata) &lt;- matrix(unlist(strata_lst), ncol = 2, byrow = TRUE)[, 2]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">168</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">491</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             ...,</pre>
+                      <pre class="language-r">      data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">169</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">492</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             table_names = vars,</pre>
+                      <pre class="language-r">        n.risk = annot_tbl$n.risk,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">170</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">493</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             .stats = NULL,</pre>
+                      <pre class="language-r">        time = annot_tbl$time,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">171</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">494</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             .formats = NULL,</pre>
+                      <pre class="language-r">        strata = annot_tbl$strata</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">495</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             .labels = NULL,</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">496</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             .indent_mods = NULL) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(thresholds = thresholds, lower_tail = lower_tail, include_eq = include_eq, ...)</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">497</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">498</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  afun &lt;- make_afun(</pre>
+                      <pre class="language-r">    at_risk_tbl &lt;- as.data.frame(tidyr::pivot_wider(annot_tbl, names_from = "time", values_from = "n.risk")[, -1])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">177</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">499</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    a_count_cumulative,</pre>
+                      <pre class="language-r">    at_risk_tbl[is.na(at_risk_tbl)] &lt;- 0</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">500</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .stats = .stats,</pre>
+                      <pre class="language-r">    rownames(at_risk_tbl) &lt;- levels(annot_tbl$strata)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">501</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">502</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .formats = .formats,</pre>
+                      <pre class="language-r">    gg_at_risk &lt;- df2gg(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">503</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .labels = .labels,</pre>
+                      <pre class="language-r">      at_risk_tbl,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">181</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">504</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .indent_mods = .indent_mods,</pre>
+                      <pre class="language-r">      font_size = font_size, col_labels = FALSE, hline = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">182</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">505</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .ungroup_stats = "count_fraction"</pre>
+                      <pre class="language-r">      colwidths = rep(1, ncol(at_risk_tbl))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">506</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    ) +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">507</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  analyze(</pre>
+                      <pre class="language-r">      labs(title = if (annot_at_risk_title) "Patients at Risk:" else NULL, x = xlab) +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">508</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt,</pre>
+                      <pre class="language-r">      theme_bw(base_size = font_size) +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">509</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars,</pre>
+                      <pre class="language-r">      theme(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">510</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    afun = afun,</pre>
+                      <pre class="language-r">        plot.title = element_text(size = font_size, vjust = 3, face = "bold"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">511</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">        panel.border = element_blank(),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">512</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table_names = table_names,</pre>
+                      <pre class="language-r">        panel.grid = element_blank(),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">513</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_labels = var_labels,</pre>
+                      <pre class="language-r">        axis.title.y = element_blank(),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">514</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    show_labels = show_labels,</pre>
+                      <pre class="language-r">        axis.ticks.y = element_blank(),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">515</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nested = nested,</pre>
+                      <pre class="language-r">        axis.text.y = element_text(size = font_size, face = "italic", hjust = 1),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">193</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    extra_args = extra_args</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">194</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">195</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
-                    </td>
-                  </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/h_logistic_regression.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' Helper functions for multivariate logistic regression</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                    <td class="num">516</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        axis.text.x = element_text(size = font_size),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">517</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">        axis.line.x = element_line()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">518</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      ) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">519</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper functions used in calculations for logistic regression.</pre>
+                      <pre class="language-r">      coord_cartesian(clip = "off", ylim = c(0.5, nrow(at_risk_tbl)))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">520</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    gg_at_risk &lt;- suppressMessages(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">521</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">      gg_at_risk +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">522</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param fit_glm (`glm`)\cr logistic regression model fitted by [stats::glm()] with "binomial" family.</pre>
+                      <pre class="language-r">        scale_x_continuous(expand = c(0.025, 0), breaks = seq_along(at_risk_tbl) - 0.5, labels = xticks) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">523</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Limited functionality is also available for conditional logistic regression models fitted by</pre>
+                      <pre class="language-r">        scale_y_continuous(labels = rev(levels(annot_tbl$strata)), breaks = seq_len(nrow(at_risk_tbl)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">524</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   [survival::clogit()], currently this is used only by [extract_rsp_biomarkers()].</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">525</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`character`)\cr a variable or interaction term in `fit_glm` (depending on the helper function used).</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">526</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    if (!as_list) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">527</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">      gg_plt &lt;- cowplot::plot_grid(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">528</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">        gg_plt,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">529</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(broom)</pre>
+                      <pre class="language-r">        gg_at_risk,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">530</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        align = "v",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">531</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adrs_f &lt;- tern_ex_adrs %&gt;%</pre>
+                      <pre class="language-r">        axis = "tblr",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">532</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(PARAMCD == "BESRSPI") %&gt;%</pre>
+                      <pre class="language-r">        ncol = 1,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">533</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(RACE %in% c("ASIAN", "WHITE", "BLACK OR AFRICAN AMERICAN")) %&gt;%</pre>
+                      <pre class="language-r">        rel_heights = c(rel_height_plot, 1 - rel_height_plot)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">534</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mutate(</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">535</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     Response = case_when(AVALC %in% c("PR", "CR") ~ 1, TRUE ~ 0),</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">536</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     RACE = factor(RACE),</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">537</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     SEX = factor(SEX)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">538</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">  # add median survival time annotation table</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">539</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' formatters::var_labels(adrs_f) &lt;- c(formatters::var_labels(tern_ex_adrs), Response = "Response")</pre>
+                      <pre class="language-r">  if (annot_surv_med) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">540</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' mod1 &lt;- fit_logistic(</pre>
+                      <pre class="language-r">    surv_med_tbl &lt;- h_tbl_median_surv(fit_km = fit_km, armval = armval)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">541</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adrs_f,</pre>
+                      <pre class="language-r">    bg_fill &lt;- if (isTRUE(control_annot_surv_med[["fill"]])) "#00000020" else control_annot_surv_med[["fill"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">542</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">543</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     response = "Response",</pre>
+                      <pre class="language-r">    gg_surv_med &lt;- df2gg(surv_med_tbl, font_size = font_size, colwidths = c(1, 1, 2), bg_fill = bg_fill) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">544</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     arm = "ARMCD",</pre>
+                      <pre class="language-r">      theme(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">545</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     covariates = c("AGE", "RACE")</pre>
+                      <pre class="language-r">        axis.text.y = element_text(size = font_size, face = "italic", hjust = 1),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">546</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">        plot.margin = margin(0, 2, 0, 5)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">547</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">      ) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">548</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' mod2 &lt;- fit_logistic(</pre>
+                      <pre class="language-r">      coord_cartesian(clip = "off", ylim = c(0.5, nrow(surv_med_tbl) + 1.5))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">549</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adrs_f,</pre>
+                      <pre class="language-r">    gg_surv_med &lt;- suppressMessages(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">550</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">      gg_surv_med +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">551</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     response = "Response",</pre>
+                      <pre class="language-r">        scale_x_continuous(expand = c(0.025, 0)) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">552</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     arm = "ARMCD",</pre>
+                      <pre class="language-r">        scale_y_continuous(labels = rev(rownames(surv_med_tbl)), breaks = seq_len(nrow(surv_med_tbl)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">553</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     covariates = c("AGE", "RACE"),</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">554</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     interaction = "AGE"</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">555</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">    gg_plt &lt;- cowplot::ggdraw(gg_plt) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">556</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">      cowplot::draw_plot(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">557</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        gg_surv_med,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">558</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name h_logistic_regression</pre>
+                      <pre class="language-r">        control_annot_surv_med[["x"]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">559</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">        control_annot_surv_med[["y"]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">560</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        width = control_annot_surv_med[["w"]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">561</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_logistic_regression Helper function to extract interaction variable names from a fitted</pre>
+                      <pre class="language-r">        height = control_annot_surv_med[["h"]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">562</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   model assuming only one interaction term.</pre>
+                      <pre class="language-r">        vjust = 0.5,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">563</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        hjust = 0.5</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">564</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Vector of names of interaction variables.</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">565</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">566</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">567</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_get_interaction_vars &lt;- function(fit_glm) {</pre>
+                      <pre class="language-r">  # add coxph annotation table</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">54</td>
-                    <td class="coverage">34<em>x</em></td>
+                    <td class="num">568</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(fit_glm, "glm")</pre>
+                      <pre class="language-r">  if (annot_coxph) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">55</td>
-                    <td class="coverage">34<em>x</em></td>
+                    <td class="num">569</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  terms_name &lt;- attr(stats::terms(fit_glm), "term.labels")</pre>
+                      <pre class="language-r">    coxph_tbl &lt;- h_tbl_coxph_pairwise(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">56</td>
-                    <td class="coverage">34<em>x</em></td>
+                    <td class="num">570</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  terms_order &lt;- attr(stats::terms(fit_glm), "order")</pre>
+                      <pre class="language-r">      df = df,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">34<em>x</em></td>
+                    <td class="num">571</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  interaction_term &lt;- terms_name[terms_order == 2]</pre>
+                      <pre class="language-r">      variables = variables,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">34<em>x</em></td>
+                    <td class="num">572</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(interaction_term)</pre>
+                      <pre class="language-r">      ref_group_coxph = ref_group_coxph,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">34<em>x</em></td>
+                    <td class="num">573</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  strsplit(interaction_term, split = ":")[[1]]</pre>
+                      <pre class="language-r">      control_coxph_pw = control_coxph_pw,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">574</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      annot_coxph_ref_lbls = control_annot_coxph[["ref_lbls"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">575</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">576</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_logistic_regression Helper function to get the right coefficient name from the</pre>
+                      <pre class="language-r">    bg_fill &lt;- if (isTRUE(control_annot_coxph[["fill"]])) "#00000020" else control_annot_coxph[["fill"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">577</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   interaction variable names and the given levels. The main value here is that the order</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">64</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">578</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   of first and second variable is checked in the `interaction_vars` input.</pre>
+                      <pre class="language-r">    gg_coxph &lt;- df2gg(coxph_tbl, font_size = font_size, colwidths = c(1.1, 1, 3), bg_fill = bg_fill) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">579</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      theme(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">66</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">580</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param interaction_vars (`character(2)`)\cr interaction variable names.</pre>
+                      <pre class="language-r">        axis.text.y = element_text(size = font_size, face = "italic", hjust = 1),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">581</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param first_var_with_level (`character(2)`)\cr the first variable name with the interaction level.</pre>
+                      <pre class="language-r">        plot.margin = margin(0, 2, 0, 5)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">582</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param second_var_with_level (`character(2)`)\cr the second variable name with the interaction level.</pre>
+                      <pre class="language-r">      ) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">583</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      coord_cartesian(clip = "off", ylim = c(0.5, nrow(coxph_tbl) + 1.5))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">70</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">584</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Name of coefficient.</pre>
+                      <pre class="language-r">    gg_coxph &lt;- suppressMessages(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">585</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      gg_coxph +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">72</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">586</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">        scale_x_continuous(expand = c(0.025, 0)) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">73</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">587</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_interaction_coef_name &lt;- function(interaction_vars,</pre>
+                      <pre class="language-r">        scale_y_continuous(labels = rev(rownames(coxph_tbl)), breaks = seq_len(nrow(coxph_tbl)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">588</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    first_var_with_level,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">589</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    second_var_with_level) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="num">590</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(interaction_vars, len = 2, any.missing = FALSE)</pre>
+                      <pre class="language-r">    gg_plt &lt;- cowplot::ggdraw(gg_plt) +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="num">591</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(first_var_with_level, len = 2, any.missing = FALSE)</pre>
+                      <pre class="language-r">      cowplot::draw_plot(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="num">592</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(second_var_with_level, len = 2, any.missing = FALSE)</pre>
+                      <pre class="language-r">        gg_coxph,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">55<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(c(first_var_with_level[1], second_var_with_level[1]), interaction_vars)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">80</td>
-                    <td class="coverage"></td>
+                    <td class="num">593</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        control_annot_coxph[["x"]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="num">594</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  first_name &lt;- paste(first_var_with_level, collapse = "")</pre>
+                      <pre class="language-r">        control_annot_coxph[["y"]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">82</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="num">595</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  second_name &lt;- paste(second_var_with_level, collapse = "")</pre>
+                      <pre class="language-r">        width = control_annot_coxph[["w"]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">83</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="num">596</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (first_var_with_level[1] == interaction_vars[1]) {</pre>
+                      <pre class="language-r">        height = control_annot_coxph[["h"]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">36<em>x</em></td>
+                    <td class="num">597</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste(first_name, second_name, sep = ":")</pre>
+                      <pre class="language-r">        vjust = 0.5,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">85</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">598</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (second_var_with_level[1] == interaction_vars[1]) {</pre>
+                      <pre class="language-r">        hjust = 0.5</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">599</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste(second_name, first_name, sep = ":")</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">600</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">601</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">89</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">602</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if (as_list) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">90</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">603</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_logistic_regression Helper function to calculate the odds ratio estimates</pre>
+                      <pre class="language-r">    list(plot = gg_plt, table = gg_at_risk)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">604</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   for the case when both the odds ratio and the interaction variable are categorical.</pre>
+                      <pre class="language-r">  } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">605</td>
+                    <td class="coverage">9<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    gg_plt</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">606</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">607</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param odds_ratio_var (`string`)\cr the odds ratio variable.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/analyze_variables.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param interaction_var (`string`)\cr the interaction variable.</pre>
+                      <pre class="language-r">#' Control function for descriptive statistics</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Odds ratio.</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' Sets a list of parameters for summaries of descriptive statistics. Typically used internally to specify</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_or_cat_interaction &lt;- function(odds_ratio_var,</pre>
+                      <pre class="language-r">#' details for [s_summary()]. This function family is mainly used by [analyze_vars()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 interaction_var,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 fit_glm,</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 conf_level = 0.95) {</pre>
+                      <pre class="language-r">#' @param quantiles (`numeric(2)`)\cr vector of length two to specify the quantiles to calculate.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  interaction_vars &lt;- h_get_interaction_vars(fit_glm)</pre>
+                      <pre class="language-r">#' @param quantile_type (`numeric(1)`)\cr number between 1 and 9 selecting quantile algorithms to be used.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">104</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(odds_ratio_var)</pre>
+                      <pre class="language-r">#'   Default is set to 2 as this matches the default quantile algorithm in SAS `proc univariate` set by `QNTLDEF=5`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(interaction_var)</pre>
+                      <pre class="language-r">#'   This differs from R's default. See more about `type` in [stats::quantile()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">13</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(c(odds_ratio_var, interaction_var), interaction_vars)</pre>
+                      <pre class="language-r">#' @param test_mean (`numeric(1)`)\cr number to test against the mean under the null hypothesis when calculating</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">14</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_vector(interaction_vars, len = 2)</pre>
+                      <pre class="language-r">#'   p-value.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">16</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  xs_level &lt;- fit_glm$xlevels</pre>
+                      <pre class="language-r">#' @return A list of components with the same names as the arguments.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  xs_coef &lt;- stats::coef(fit_glm)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  xs_vcov &lt;- stats::vcov(fit_glm)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- list()</pre>
+                      <pre class="language-r">control_analyze_vars &lt;- function(conf_level = 0.95,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">20</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  for (var_level in xs_level[[odds_ratio_var]][-1]) {</pre>
+                      <pre class="language-r">                                 quantiles = c(0.25, 0.75),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">114</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x &lt;- list()</pre>
+                      <pre class="language-r">                                 quantile_type = 2,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">22</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    for (ref_level in xs_level[[interaction_var]]) {</pre>
+                      <pre class="language-r">                                 test_mean = 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">38<em>x</em></td>
+                    <td class="num">23</td>
+                    <td class="coverage">1055<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      coef_names &lt;- paste0(odds_ratio_var, var_level)</pre>
+                      <pre class="language-r">  checkmate::assert_vector(quantiles, len = 2)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">38<em>x</em></td>
+                    <td class="num">24</td>
+                    <td class="coverage">1055<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (ref_level != xs_level[[interaction_var]][1]) {</pre>
+                      <pre class="language-r">  checkmate::assert_int(quantile_type, lower = 1, upper = 9)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">118</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">25</td>
+                    <td class="coverage">1055<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        interaction_coef_name &lt;- h_interaction_coef_name(</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(test_mean)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">26</td>
+                    <td class="coverage">1055<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          interaction_vars,</pre>
+                      <pre class="language-r">  lapply(quantiles, assert_proportion_value)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">120</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">27</td>
+                    <td class="coverage">1054<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          c(odds_ratio_var, var_level),</pre>
+                      <pre class="language-r">  assert_proportion_value(conf_level)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">121</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">28</td>
+                    <td class="coverage">1053<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          c(interaction_var, ref_level)</pre>
+                      <pre class="language-r">  list(conf_level = conf_level, quantiles = quantiles, quantile_type = quantile_type, test_mean = test_mean)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">24<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        coef_names &lt;- c(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">24<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          coef_names,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">24<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          interaction_coef_name</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">38<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      if (length(coef_names) &gt; 1) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">24<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        ones &lt;- t(c(1, 1))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">24<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        est &lt;- as.numeric(ones %*% xs_coef[coef_names])</pre>
+                      <pre class="language-r">#' Analyze variables</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">24<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">32</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        se &lt;- sqrt(as.numeric(ones %*% xs_vcov[coef_names, coef_names] %*% t(ones)))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">34</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        est &lt;- xs_coef[coef_names]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">35</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        se &lt;- sqrt(as.numeric(xs_vcov[coef_names, coef_names]))</pre>
+                      <pre class="language-r">#' The analyze function [analyze_vars()] creates a layout element to summarize one or more variables, using the S3</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' generic function [s_summary()] to calculate a list of summary statistics. A list of all available statistics for</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">136</td>
-                    <td class="coverage">38<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">37</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      or &lt;- exp(est)</pre>
+                      <pre class="language-r">#' numeric variables can be viewed by running `get_stats("analyze_vars_numeric")` and for non-numeric variables by</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">38<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">38</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci &lt;- exp(est + c(lcl = -1, ucl = 1) * stats::qnorm((1 + conf_level) / 2) * se)</pre>
+                      <pre class="language-r">#' running `get_stats("analyze_vars_counts")`. Use the `.stats` parameter to specify the statistics to include in your</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">38<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">39</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x[[ref_level]] &lt;- list(or = or, ci = ci)</pre>
+                      <pre class="language-r">#' output summary table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">41</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y[[var_level]] &lt;- x</pre>
+                      <pre class="language-r">#' @details</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' **Automatic digit formatting:** The number of digits to display can be automatically determined from the analyzed</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">43</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y</pre>
+                      <pre class="language-r">#' variable(s) (`vars`) for certain statistics by setting the statistic format to `"auto"` in `.formats`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' This utilizes the [format_auto()] formatting function. Note that only data for the current row &amp; variable (for all</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' columns) will be considered (`.df_row[[.var]]`, see [`rtables::additional_fun_params`]) and not the whole dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_logistic_regression Helper function to calculate the odds ratio estimates</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   for the case when either the odds ratio or the interaction variable is continuous.</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("analyze_vars_numeric")` to see</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param at (`numeric` or `NULL`)\cr optional values for the interaction variable. Otherwise</pre>
+                      <pre class="language-r">#'   statistics available for numeric variables, and `get_stats("analyze_vars_counts")` for statistics available</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the median is used.</pre>
+                      <pre class="language-r">#'   for non-numeric variables.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Odds ratio.</pre>
+                      <pre class="language-r">#' @name analyze_variables</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @order 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note We don't provide a function for the case when both variables are continuous because</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   this does not arise in this table, as the treatment arm variable will always be involved</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and categorical.</pre>
+                      <pre class="language-r">#' @describeIn analyze_variables S3 generic function to produces a variable summary.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_or_cont_interaction &lt;- function(odds_ratio_var,</pre>
+                      <pre class="language-r">#' * `s_summary()` returns different statistics depending on the class of `x`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  interaction_var,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  fit_glm,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  at = NULL,</pre>
+                      <pre class="language-r">s_summary &lt;- function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  conf_level = 0.95) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">13<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  interaction_vars &lt;- h_get_interaction_vars(fit_glm)</pre>
+                      <pre class="language-r">                      na.rm = TRUE, # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">64</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(odds_ratio_var)</pre>
+                      <pre class="language-r">                      denom,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">65</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(interaction_var)</pre>
+                      <pre class="language-r">                      .N_row, # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">66</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(c(odds_ratio_var, interaction_var), interaction_vars)</pre>
+                      <pre class="language-r">                      .N_col, # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">67</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_vector(interaction_vars, len = 2)</pre>
+                      <pre class="language-r">                      .var,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">68</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(at, min.len = 1, null.ok = TRUE, any.missing = FALSE)</pre>
+                      <pre class="language-r">                      ...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">69</td>
+                    <td class="coverage">1559<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  xs_level &lt;- fit_glm$xlevels</pre>
+                      <pre class="language-r">  checkmate::assert_flag(na.rm)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">70</td>
+                    <td class="coverage">1559<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  xs_coef &lt;- stats::coef(fit_glm)</pre>
+                      <pre class="language-r">  UseMethod("s_summary", x)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">71</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  xs_vcov &lt;- stats::vcov(fit_glm)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">72</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  xs_class &lt;- attr(fit_glm$terms, "dataClasses")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">73</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  model_data &lt;- fit_glm$model</pre>
+                      <pre class="language-r">#' @describeIn analyze_variables Method for `numeric` class.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">74</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(at)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">75</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_set_equal(xs_class[interaction_var], "numeric")</pre>
+                      <pre class="language-r">#' @param control (`list`)\cr parameters for descriptive statistics details, specified by using</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   the helper function [control_analyze_vars()]. Some possible parameter options are:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">177</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">77</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- list()</pre>
+                      <pre class="language-r">#'   * `conf_level` (`proportion`)\cr confidence level of the interval for mean and median.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">78</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (xs_class[interaction_var] == "numeric") {</pre>
+                      <pre class="language-r">#'   * `quantiles` (`numeric(2)`)\cr vector of length two to specify the quantiles.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">79</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.null(at)) {</pre>
+                      <pre class="language-r">#'   * `quantile_type` (`numeric(1)`)\cr between 1 and 9 selecting quantile algorithms to be used.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">80</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      at &lt;- ceiling(stats::median(model_data[[interaction_var]]))</pre>
+                      <pre class="language-r">#'     See more about `type` in [stats::quantile()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'   * `test_mean` (`numeric(1)`)\cr value to test against the mean under the null hypothesis when calculating p-value.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">183</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">83</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    for (var_level in xs_level[[odds_ratio_var]][-1]) {</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">84</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x &lt;- list()</pre>
+                      <pre class="language-r">#'   * If `x` is of class `numeric`, returns a `list` with the following named `numeric` items:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">85</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      for (increment in at) {</pre>
+                      <pre class="language-r">#'     * `n`: The [length()] of `x`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">86</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        coef_names &lt;- paste0(odds_ratio_var, var_level)</pre>
+                      <pre class="language-r">#'     * `sum`: The [sum()] of `x`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">87</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (increment != 0) {</pre>
+                      <pre class="language-r">#'     * `mean`: The [mean()] of `x`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">88</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          interaction_coef_name &lt;- h_interaction_coef_name(</pre>
+                      <pre class="language-r">#'     * `sd`: The [stats::sd()] of `x`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">89</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            interaction_vars,</pre>
+                      <pre class="language-r">#'     * `se`: The standard error of `x` mean, i.e.: (`sd(x) / sqrt(length(x))`).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">90</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            c(odds_ratio_var, var_level),</pre>
+                      <pre class="language-r">#'     * `mean_sd`: The [mean()] and [stats::sd()] of `x`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">91</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            c(interaction_var, "")</pre>
+                      <pre class="language-r">#'     * `mean_se`: The [mean()] of `x` and its standard error (see above).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#'     * `mean_ci`: The CI for the mean of `x` (from [stat_mean_ci()]).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">193</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">93</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          coef_names &lt;- c(</pre>
+                      <pre class="language-r">#'     * `mean_sei`: The SE interval for the mean of `x`, i.e.: ([mean()] -/+ [stats::sd()] / [sqrt()]).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">194</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">94</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            coef_names,</pre>
+                      <pre class="language-r">#'     * `mean_sdi`: The SD interval for the mean of `x`, i.e.: ([mean()] -/+ [stats::sd()]).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">95</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            interaction_coef_name</pre>
+                      <pre class="language-r">#'     * `mean_pval`: The two-sided p-value of the mean of `x` (from [stat_mean_pval()]).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#'     * `median`: The [stats::median()] of `x`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#'     * `mad`: The median absolute deviation of `x`, i.e.: ([stats::median()] of `xc`,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">198</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">98</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (length(coef_names) &gt; 1) {</pre>
+                      <pre class="language-r">#'       where `xc` = `x` - [stats::median()]).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">99</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          xvec &lt;- t(c(1, increment))</pre>
+                      <pre class="language-r">#'     * `median_ci`: The CI for the median of `x` (from [stat_median_ci()]).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">200</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">100</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          est &lt;- as.numeric(xvec %*% xs_coef[coef_names])</pre>
+                      <pre class="language-r">#'     * `quantiles`: Two sample quantiles of `x` (from [stats::quantile()]).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">201</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">101</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          se &lt;- sqrt(as.numeric(xvec %*% xs_vcov[coef_names, coef_names] %*% t(xvec)))</pre>
+                      <pre class="language-r">#'     * `iqr`: The [stats::IQR()] of `x`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">#'     * `range`: The [range_noinf()] of `x`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">203</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">103</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          est &lt;- xs_coef[coef_names]</pre>
+                      <pre class="language-r">#'     * `min`: The [max()] of `x`.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">204</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">104</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          se &lt;- sqrt(as.numeric(xs_vcov[coef_names, coef_names]))</pre>
+                      <pre class="language-r">#'     * `max`: The [min()] of `x`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">205</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#'     * `median_range`: The [median()] and [range_noinf()] of `x`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">106</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        or &lt;- exp(est)</pre>
+                      <pre class="language-r">#'     * `cv`: The coefficient of variation of `x`, i.e.: ([stats::sd()] / [mean()] * 100).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">107</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ci &lt;- exp(est + c(lcl = -1, ucl = 1) * stats::qnorm((1 + conf_level) / 2) * se)</pre>
+                      <pre class="language-r">#'     * `geom_mean`: The geometric mean of `x`, i.e.: (`exp(mean(log(x)))`).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">108</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x[[as.character(increment)]] &lt;- list(or = or, ci = ci)</pre>
+                      <pre class="language-r">#'     * `geom_cv`: The geometric coefficient of variation of `x`, i.e.: (`sqrt(exp(sd(log(x)) ^ 2) - 1) * 100`).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">110</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y[[var_level]] &lt;- x</pre>
+                      <pre class="language-r">#' @note</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' * If `x` is an empty vector, `NA` is returned. This is the expected feature so as to return `rcell` content in</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#'   `rtables` when the intersection of a column and a row delimits an empty data selection.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">113</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_set_equal(xs_class[odds_ratio_var], "numeric")</pre>
+                      <pre class="language-r">#' * When the `mean` function is applied to an empty vector, `NA` will be returned instead of `NaN`, the latter</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">214</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">114</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_set_equal(xs_class[interaction_var], "factor")</pre>
+                      <pre class="language-r">#'   being standard behavior in R.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">115</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    for (var_level in xs_level[[interaction_var]]) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">216</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">116</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      coef_names &lt;- odds_ratio_var</pre>
+                      <pre class="language-r">#' @method s_summary numeric</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">217</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">117</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (var_level != xs_level[[interaction_var]][1]) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">218</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">118</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        interaction_coef_name &lt;- h_interaction_coef_name(</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">119</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          interaction_vars,</pre>
+                      <pre class="language-r">#' # `s_summary.numeric`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">120</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          c(odds_ratio_var, ""),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">221</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">121</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          c(interaction_var, var_level)</pre>
+                      <pre class="language-r">#' ## Basic usage: empty numeric returns NA-filled items.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' s_summary(numeric())</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">123</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        coef_names &lt;- c(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">124</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          coef_names,</pre>
+                      <pre class="language-r">#' ## Management of NA values.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">225</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">125</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          interaction_coef_name</pre>
+                      <pre class="language-r">#' x &lt;- c(NA_real_, 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' s_summary(x, na.rm = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' s_summary(x, na.rm = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">128</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (length(coef_names) &gt; 1) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">229</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">129</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xvec &lt;- t(c(1, 1))</pre>
+                      <pre class="language-r">#' x &lt;- c(NA_real_, 1, 2)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">130</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        est &lt;- as.numeric(xvec %*% xs_coef[coef_names])</pre>
+                      <pre class="language-r">#' s_summary(x, stats = NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">231</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">131</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        se &lt;- sqrt(as.numeric(xvec %*% xs_vcov[coef_names, coef_names] %*% t(xvec)))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">#' ## Benefits in `rtables` contructions:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">233</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">133</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        est &lt;- xs_coef[coef_names]</pre>
+                      <pre class="language-r">#' dta_test &lt;- data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">134</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        se &lt;- sqrt(as.numeric(xs_vcov[coef_names, coef_names]))</pre>
+                      <pre class="language-r">#'   Group = rep(LETTERS[1:3], each = 2),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'   sub_group = rep(letters[1:2], each = 3),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">236</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">136</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      or &lt;- exp(est)</pre>
+                      <pre class="language-r">#'   x = 1:6</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">237</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">137</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci &lt;- exp(est + c(lcl = -1, ucl = 1) * stats::qnorm((1 + conf_level) / 2) * se)</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">238</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">138</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y[[var_level]] &lt;- list(or = or, ci = ci)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' ## The summary obtained in with `rtables`:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">241</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">141</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y</pre>
+                      <pre class="language-r">#'   split_cols_by(var = "Group") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">242</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   split_rows_by(var = "sub_group") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   analyze(vars = "x", afun = s_summary) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_logistic_regression Helper function to calculate the odds ratio estimates</pre>
+                      <pre class="language-r">#'   build_table(df = dta_test)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   in case of an interaction. This is a wrapper for [h_or_cont_interaction()] and</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   [h_or_cat_interaction()].</pre>
+                      <pre class="language-r">#' ## By comparison with `lapply`:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">247</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' X &lt;- split(dta_test, f = with(dta_test, interaction(Group, sub_group)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Odds ratio.</pre>
+                      <pre class="language-r">#' lapply(X, function(x) s_summary(x$x))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">249</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">250</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_or_interaction &lt;- function(odds_ratio_var,</pre>
+                      <pre class="language-r">s_summary.numeric &lt;- function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             interaction_var,</pre>
+                      <pre class="language-r">                              na.rm = TRUE, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">253</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             fit_glm,</pre>
+                      <pre class="language-r">                              denom,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             at = NULL,</pre>
+                      <pre class="language-r">                              .N_row, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">255</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             conf_level = 0.95) {</pre>
+                      <pre class="language-r">                              .N_col, # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">256</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">156</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  xs_class &lt;- attr(fit_glm$terms, "dataClasses")</pre>
+                      <pre class="language-r">                              .var,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">257</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">157</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any(xs_class[c(odds_ratio_var, interaction_var)] == "numeric")) {</pre>
+                      <pre class="language-r">                              control = control_analyze_vars(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">258</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">158</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    h_or_cont_interaction(</pre>
+                      <pre class="language-r">                              ...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">259</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">159</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      odds_ratio_var,</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(x)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">260</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">160</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      interaction_var,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">261</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">161</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      fit_glm,</pre>
+                      <pre class="language-r">  if (na.rm) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">262</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">162</td>
+                    <td class="coverage">1096<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      at = at,</pre>
+                      <pre class="language-r">    x &lt;- x[!is.na(x)]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">263</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">163</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      conf_level = conf_level</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">264</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">265</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">165</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (all(xs_class[c(odds_ratio_var, interaction_var)] == "factor")) {</pre>
+                      <pre class="language-r">  y &lt;- list()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">266</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">166</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    h_or_cat_interaction(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">267</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">167</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      odds_ratio_var,</pre>
+                      <pre class="language-r">  y$n &lt;- c("n" = length(x))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">268</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">168</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      interaction_var,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">269</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">169</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      fit_glm,</pre>
+                      <pre class="language-r">  y$sum &lt;- c("sum" = ifelse(length(x) == 0, NA_real_, sum(x, na.rm = FALSE)))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">270</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">170</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      conf_level = conf_level</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">271</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">171</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  y$mean &lt;- c("mean" = ifelse(length(x) == 0, NA_real_, mean(x, na.rm = FALSE)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">273</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">173</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("wrong interaction variable class, the interaction variable is not a numeric nor a factor")</pre>
+                      <pre class="language-r">  y$sd &lt;- c("sd" = stats::sd(x, na.rm = FALSE))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">274</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">275</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">175</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  y$se &lt;- c("se" = stats::sd(x, na.rm = FALSE) / sqrt(length(stats::na.omit(x))))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">276</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">277</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">177</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_logistic_regression Helper function to construct term labels from simple terms and the table</pre>
+                      <pre class="language-r">  y$mean_sd &lt;- c(y$mean, "sd" = stats::sd(x, na.rm = FALSE))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   of numbers of patients.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">279</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">179</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  y$mean_se &lt;- c(y$mean, y$se)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param terms (`character`)\cr simple terms.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">281</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">181</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param table (`table`)\cr table containing numbers for terms.</pre>
+                      <pre class="language-r">  mean_ci &lt;- stat_mean_ci(x, conf_level = control$conf_level, na.rm = FALSE, gg_helper = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">282</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">182</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  y$mean_ci &lt;- formatters::with_label(mean_ci, paste("Mean", f_conf_level(control$conf_level)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">283</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Term labels containing numbers of patients.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">284</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">184</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  mean_sei &lt;- y$mean[[1]] + c(-1, 1) * stats::sd(x, na.rm = FALSE) / sqrt(y$n)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">285</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">185</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  names(mean_sei) &lt;- c("mean_sei_lwr", "mean_sei_upr")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">286</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">186</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_simple_term_labels &lt;- function(terms,</pre>
+                      <pre class="language-r">  y$mean_sei &lt;- formatters::with_label(mean_sei, "Mean -/+ 1xSE")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 table) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">288</td>
-                    <td class="coverage">54<em>x</em></td>
+                    <td class="num">188</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(is.table(table))</pre>
+                      <pre class="language-r">  mean_sdi &lt;- y$mean[[1]] + c(-1, 1) * stats::sd(x, na.rm = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">289</td>
-                    <td class="coverage">54<em>x</em></td>
+                    <td class="num">189</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(terms, classes = c("factor", "character"))</pre>
+                      <pre class="language-r">  names(mean_sdi) &lt;- c("mean_sdi_lwr", "mean_sdi_upr")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">290</td>
-                    <td class="coverage">54<em>x</em></td>
+                    <td class="num">190</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  terms &lt;- as.character(terms)</pre>
+                      <pre class="language-r">  y$mean_sdi &lt;- formatters::with_label(mean_sdi, "Mean -/+ 1xSD")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">291</td>
-                    <td class="coverage">54<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">191</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  term_n &lt;- table[terms]</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">292</td>
-                    <td class="coverage">54<em>x</em></td>
+                    <td class="num">192</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  paste0(terms, ", n = ", term_n)</pre>
+                      <pre class="language-r">  mean_pval &lt;- stat_mean_pval(x, test_mean = control$test_mean, na.rm = FALSE, n_min = 2)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">293</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">193</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  y$mean_pval &lt;- formatters::with_label(mean_pval, paste("Mean", f_pval(control$test_mean)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">294</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">295</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">195</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_logistic_regression Helper function to construct term labels from interaction terms and the table</pre>
+                      <pre class="language-r">  y$median &lt;- c("median" = stats::median(x, na.rm = FALSE))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   of numbers of patients.</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">197</td>
+                    <td class="coverage">1098<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  y$mad &lt;- c("mad" = stats::median(x - y$median, na.rm = FALSE))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">298</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">199</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param terms1 (`character`)\cr terms for first dimension (rows).</pre>
+                      <pre class="language-r">  median_ci &lt;- stat_median_ci(x, conf_level = control$conf_level, na.rm = FALSE, gg_helper = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">299</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">200</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param terms2 (`character`)\cr terms for second dimension (rows).</pre>
+                      <pre class="language-r">  y$median_ci &lt;- formatters::with_label(median_ci, paste("Median", f_conf_level(control$conf_level)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">300</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param any (`flag`)\cr whether any of `term1` and `term2` can be fulfilled to count the</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">301</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">202</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   number of patients. In that case they can only be scalar (strings).</pre>
+                      <pre class="language-r">  q &lt;- control$quantiles</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">302</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">203</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if (any(is.na(x))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">303</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">204</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Term labels containing numbers of patients.</pre>
+                      <pre class="language-r">    qnts &lt;- rep(NA_real_, length(q))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">304</td>
+                    <td class="num">205</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">305</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">206</td>
+                    <td class="coverage">1096<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    qnts &lt;- stats::quantile(x, probs = q, type = control$quantile_type, na.rm = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">306</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_interaction_term_labels &lt;- function(terms1,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">307</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">208</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      terms2,</pre>
+                      <pre class="language-r">  names(qnts) &lt;- paste("quantile", q, sep = "_")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">308</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">209</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      table,</pre>
+                      <pre class="language-r">  y$quantiles &lt;- formatters::with_label(qnts, paste0(paste(paste0(q * 100, "%"), collapse = " and "), "-ile"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">309</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      any = FALSE) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">310</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">211</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(is.table(table))</pre>
+                      <pre class="language-r">  y$iqr &lt;- c("iqr" = ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">311</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">212</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(any)</pre>
+                      <pre class="language-r">    any(is.na(x)),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">312</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">213</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(terms1, classes = c("factor", "character"))</pre>
+                      <pre class="language-r">    NA_real_,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">313</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">214</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(terms2, classes = c("factor", "character"))</pre>
+                      <pre class="language-r">    stats::IQR(x, na.rm = FALSE, type = control$quantile_type)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">314</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">215</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  terms1 &lt;- as.character(terms1)</pre>
+                      <pre class="language-r">  ))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">315</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">216</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  terms2 &lt;- as.character(terms2)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">316</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">217</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any) {</pre>
+                      <pre class="language-r">  y$range &lt;- stats::setNames(range_noinf(x, na.rm = FALSE), c("min", "max"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">317</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">218</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_scalar(terms1)</pre>
+                      <pre class="language-r">  y$min &lt;- y$range[1]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">318</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">219</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_scalar(terms2)</pre>
+                      <pre class="language-r">  y$max &lt;- y$range[2]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">319</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">220</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste0(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">320</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">221</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      terms1, " or ", terms2, ", n = ",</pre>
+                      <pre class="language-r">  y$median_range &lt;- formatters::with_label(c(y$median, y$range), "Median (Min - Max)")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">321</td>
+                    <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Note that we double count in the initial sum the cell [terms1, terms2], therefore subtract.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">322</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">223</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sum(c(table[terms1, ], table[, terms2])) - table[terms1, terms2]</pre>
+                      <pre class="language-r">  y$cv &lt;- c("cv" = unname(y$sd) / unname(y$mean) * 100)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">323</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">324</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">  # Convert negative values to NA for log calculation.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">325</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">226</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    term_n &lt;- table[cbind(terms1, terms2)]</pre>
+                      <pre class="language-r">  x_no_negative_vals &lt;- x</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">326</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">227</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste0(terms1, " * ", terms2, ", n = ", term_n)</pre>
+                      <pre class="language-r">  x_no_negative_vals[x_no_negative_vals &lt;= 0] &lt;- NA</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">327</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">228</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  y$geom_mean &lt;- c("geom_mean" = exp(mean(log(x_no_negative_vals), na.rm = FALSE)))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">328</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">229</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  geom_mean_ci &lt;- stat_mean_ci(x, conf_level = control$conf_level, na.rm = FALSE, gg_helper = FALSE, geom_mean = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">329</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">230</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  y$geom_mean_ci &lt;- formatters::with_label(geom_mean_ci, paste("Geometric Mean", f_conf_level(control$conf_level)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">330</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_logistic_regression Helper function to tabulate the main effect</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">331</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">232</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   results of a (conditional) logistic regression model.</pre>
+                      <pre class="language-r">  y$geom_cv &lt;- c("geom_cv" = sqrt(exp(stats::sd(log(x_no_negative_vals), na.rm = FALSE) ^ 2) - 1) * 100) # styler: off</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">332</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">333</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">234</td>
+                    <td class="coverage">1098<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Tabulated main effect results from a logistic regression model.</pre>
+                      <pre class="language-r">  y</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">334</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">335</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">336</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_glm_simple_term_extract("AGE", mod1)</pre>
+                      <pre class="language-r">#' @describeIn analyze_variables Method for `factor` class.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">337</td>
+                    <td class="num">238</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_glm_simple_term_extract("ARMCD", mod1)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">338</td>
+                    <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param denom (`string`)\cr choice of denominator for factor proportions. Options are:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">339</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'   * `n`: number of values in this row and column intersection.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">340</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_glm_simple_term_extract &lt;- function(x, fit_glm) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">341</td>
-                    <td class="coverage">78<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(fit_glm, c("glm", "clogit"))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">342</td>
-                    <td class="coverage">78<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(x)</pre>
+                      <pre class="language-r">#'   * `N_row`: total number of values in this row across columns.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">343</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">344</td>
-                    <td class="coverage">78<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  xs_class &lt;- attr(fit_glm$terms, "dataClasses")</pre>
+                      <pre class="language-r">#'   * `N_col`: total number of values in this column across rows.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">345</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">243</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  xs_level &lt;- fit_glm$xlevels</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">346</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">244</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  xs_coef &lt;- summary(fit_glm)$coefficients</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">347</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">245</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  stats &lt;- if (inherits(fit_glm, "glm")) {</pre>
+                      <pre class="language-r">#'   * If `x` is of class `factor` or converted from `character`, returns a `list` with named `numeric` items:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">348</td>
-                    <td class="coverage">66<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">246</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c("estimate" = "Estimate", "std_error" = "Std. Error", "pvalue" = "Pr(&gt;|z|)")</pre>
+                      <pre class="language-r">#'     * `n`: The [length()] of `x`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">349</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#'     * `count`: A list with the number of cases for each level of the factor `x`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">350</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">248</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c("estimate" = "coef", "std_error" = "se(coef)", "pvalue" = "Pr(&gt;|z|)")</pre>
+                      <pre class="language-r">#'     * `count_fraction`: Similar to `count` but also includes the proportion of cases for each level of the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">351</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'       factor `x` relative to the denominator, or `NA` if the denominator is zero.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">352</td>
+                    <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Make sure x is not an interaction term.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">353</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">251</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(x, names(xs_class))</pre>
+                      <pre class="language-r">#' @note</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">354</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">252</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_sel &lt;- if (xs_class[x] == "numeric") x else paste0(x, xs_level[[x]][-1])</pre>
+                      <pre class="language-r">#' * If `x` is an empty `factor`, a list is still returned for `counts` with one element</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">355</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">253</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats &lt;- as.data.frame(xs_coef[x_sel, stats, drop = FALSE], stringsAsFactors = FALSE)</pre>
+                      <pre class="language-r">#'   per factor level. If there are no levels in `x`, the function fails.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">356</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">254</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  colnames(x_stats) &lt;- names(stats)</pre>
+                      <pre class="language-r">#' * If factor variables contain `NA`, these `NA` values are excluded by default. To include `NA` values</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">357</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">255</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats$estimate &lt;- as.list(x_stats$estimate)</pre>
+                      <pre class="language-r">#'   set `na.rm = FALSE` and missing values will be displayed as an `NA` level. Alternatively, an explicit</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">358</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">256</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats$std_error &lt;- as.list(x_stats$std_error)</pre>
+                      <pre class="language-r">#'   factor level can be defined for `NA` values during pre-processing via [df_explicit_na()] - the</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">359</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">257</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats$pvalue &lt;- as.list(x_stats$pvalue)</pre>
+                      <pre class="language-r">#'   default `na_level` (`"&lt;Missing&gt;"`) will also be excluded when `na.rm` is set to `TRUE`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">360</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">258</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats$df &lt;- as.list(1)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">361</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">259</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (xs_class[x] == "numeric") {</pre>
+                      <pre class="language-r">#' @method s_summary factor</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">362</td>
-                    <td class="coverage">60<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">260</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_stats$term &lt;- x</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">363</td>
-                    <td class="coverage">60<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">261</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_stats$term_label &lt;- if (inherits(fit_glm, "glm")) {</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">364</td>
-                    <td class="coverage">48<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">262</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      formatters::var_labels(fit_glm$data[x], fill = TRUE)</pre>
+                      <pre class="language-r">#' # `s_summary.factor`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">365</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">366</td>
+                    <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # We just fill in here with the `term` itself as we don't have the data available.</pre>
+                      <pre class="language-r">#' ## Basic usage:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">367</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">265</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x</pre>
+                      <pre class="language-r">#' s_summary(factor(c("a", "a", "b", "c", "a")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">368</td>
+                    <td class="num">266</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">369</td>
-                    <td class="coverage">60<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">267</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_stats$is_variable_summary &lt;- FALSE</pre>
+                      <pre class="language-r">#' # Empty factor returns zero-filled items.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">370</td>
-                    <td class="coverage">60<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">268</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_stats$is_term_summary &lt;- TRUE</pre>
+                      <pre class="language-r">#' s_summary(factor(levels = c("a", "b", "c")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">371</td>
+                    <td class="num">269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">372</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">270</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_class(fit_glm, "glm")</pre>
+                      <pre class="language-r">#' ## Management of NA values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">373</td>
+                    <td class="num">271</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # The reason is that we don't have the original data set in the `clogit` object</pre>
+                      <pre class="language-r">#' x &lt;- factor(c(NA, "Female"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">374</td>
+                    <td class="num">272</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # and therefore cannot determine the `x_numbers` here.</pre>
+                      <pre class="language-r">#' x &lt;- explicit_na(x)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">375</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">273</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_numbers &lt;- table(fit_glm$data[[x]])</pre>
+                      <pre class="language-r">#' s_summary(x, na.rm = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">376</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">274</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_stats$term &lt;- xs_level[[x]][-1]</pre>
+                      <pre class="language-r">#' s_summary(x, na.rm = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">377</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">275</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_stats$term_label &lt;- h_simple_term_labels(x_stats$term, x_numbers)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">378</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">276</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_stats$is_variable_summary &lt;- FALSE</pre>
+                      <pre class="language-r">#' ## Different denominators.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">379</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">277</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_stats$is_term_summary &lt;- TRUE</pre>
+                      <pre class="language-r">#' x &lt;- factor(c("a", "a", "b", "c", "a"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">380</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">278</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    main_effects &lt;- car::Anova(fit_glm, type = 3, test.statistic = "Wald")</pre>
+                      <pre class="language-r">#' s_summary(x, denom = "N_row", .N_row = 10L)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">381</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">279</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_main &lt;- data.frame(</pre>
+                      <pre class="language-r">#' s_summary(x, denom = "N_col", .N_col = 20L)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">382</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">280</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pvalue = main_effects[x, "Pr(&gt;Chisq)", drop = TRUE],</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">383</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">281</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      term = xs_level[[x]][1],</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">384</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">282</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      term_label = paste("Reference", h_simple_term_labels(xs_level[[x]][1], x_numbers)),</pre>
+                      <pre class="language-r">s_summary.factor &lt;- function(x,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">385</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">283</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df = main_effects[x, "Df", drop = TRUE],</pre>
+                      <pre class="language-r">                             na.rm = TRUE, # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">386</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">284</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">                             denom = c("n", "N_row", "N_col"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">387</td>
+                    <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">                             .N_row, # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">388</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">286</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_main$pvalue &lt;- as.list(x_main$pvalue)</pre>
+                      <pre class="language-r">                             .N_col, # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">389</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">287</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_main$df &lt;- as.list(x_main$df)</pre>
+                      <pre class="language-r">                             ...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">390</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">288</td>
+                    <td class="coverage">302<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_main$estimate &lt;- list(numeric(0))</pre>
+                      <pre class="language-r">  assert_valid_factor(x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">391</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">289</td>
+                    <td class="coverage">299<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_main$std_error &lt;- list(numeric(0))</pre>
+                      <pre class="language-r">  denom &lt;- match.arg(denom)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">392</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">290</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (length(xs_level[[x]][-1]) == 1) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">393</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">291</td>
+                    <td class="coverage">299<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x_main$pvalue &lt;- list(numeric(0))</pre>
+                      <pre class="language-r">  if (na.rm) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">394</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">292</td>
+                    <td class="coverage">290<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x_main$df &lt;- list(numeric(0))</pre>
+                      <pre class="language-r">    x &lt;- x[!is.na(x)] %&gt;% fct_discard("&lt;Missing&gt;")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">395</td>
+                    <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">396</td>
-                    <td class="coverage">18<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    x_main$is_variable_summary &lt;- TRUE</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">397</td>
-                    <td class="coverage">18<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    x_main$is_term_summary &lt;- FALSE</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">398</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">294</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_stats &lt;- rbind(x_main, x_stats)</pre>
+                      <pre class="language-r">    x &lt;- x %&gt;% explicit_na(label = "NA")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">399</td>
+                    <td class="num">295</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">400</td>
-                    <td class="coverage">78<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  x_stats$variable &lt;- x</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">401</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">296</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats$variable_label &lt;- if (inherits(fit_glm, "glm")) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">402</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="num">297</td>
+                    <td class="coverage">299<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    formatters::var_labels(fit_glm$data[x], fill = TRUE)</pre>
+                      <pre class="language-r">  y &lt;- list()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">403</td>
+                    <td class="num">298</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">404</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">299</td>
+                    <td class="coverage">299<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x</pre>
+                      <pre class="language-r">  y$n &lt;- length(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">405</td>
+                    <td class="num">300</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">406</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">301</td>
+                    <td class="coverage">299<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats$interaction &lt;- ""</pre>
+                      <pre class="language-r">  y$count &lt;- as.list(table(x, useNA = "ifany"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">407</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">302</td>
+                    <td class="coverage">299<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats$interaction_label &lt;- ""</pre>
+                      <pre class="language-r">  dn &lt;- switch(denom,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">408</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">303</td>
+                    <td class="coverage">299<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats$reference &lt;- ""</pre>
+                      <pre class="language-r">    n = length(x),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">409</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">304</td>
+                    <td class="coverage">299<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats$reference_label &lt;- ""</pre>
+                      <pre class="language-r">    N_row = .N_row,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">410</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">305</td>
+                    <td class="coverage">299<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  rownames(x_stats) &lt;- NULL</pre>
+                      <pre class="language-r">    N_col = .N_col</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">411</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">306</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats[c(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">412</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">307</td>
+                    <td class="coverage">299<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "variable",</pre>
+                      <pre class="language-r">  y$count_fraction &lt;- lapply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">413</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">308</td>
+                    <td class="coverage">299<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "variable_label",</pre>
+                      <pre class="language-r">    y$count,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">414</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">309</td>
+                    <td class="coverage">299<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "term",</pre>
+                      <pre class="language-r">    function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">415</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">310</td>
+                    <td class="coverage">2172<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "term_label",</pre>
+                      <pre class="language-r">      c(x, ifelse(dn &gt; 0, x / dn, 0))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">416</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">311</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "interaction",</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">417</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">312</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "interaction_label",</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">418</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">313</td>
+                    <td class="coverage">299<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "reference",</pre>
+                      <pre class="language-r">  y$fraction &lt;- lapply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">419</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">314</td>
+                    <td class="coverage">299<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "reference_label",</pre>
+                      <pre class="language-r">    y$count,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">420</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">315</td>
+                    <td class="coverage">299<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "estimate",</pre>
+                      <pre class="language-r">    function(count) c("num" = count, "denom" = dn)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">421</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">316</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "std_error",</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">422</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">317</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "df",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">423</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">318</td>
+                    <td class="coverage">299<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "pvalue",</pre>
+                      <pre class="language-r">  y$n_blq &lt;- sum(grepl("BLQ|LTR|&lt;[1-9]|&lt;PCLLOQ", x))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">424</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">319</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "is_variable_summary",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">425</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">320</td>
+                    <td class="coverage">299<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "is_term_summary"</pre>
+                      <pre class="language-r">  y</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">426</td>
+                    <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )]</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">427</td>
+                    <td class="num">322</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">428</td>
+                    <td class="num">323</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @describeIn analyze_variables Method for `character` class. This makes an automatic</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">429</td>
+                    <td class="num">324</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_logistic_regression Helper function to tabulate the interaction term</pre>
+                      <pre class="language-r">#'   conversion to factor (with a warning) and then forwards to the method for factors.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">430</td>
+                    <td class="num">325</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   results of a logistic regression model.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">431</td>
+                    <td class="num">326</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param verbose (`flag`)\cr defaults to `TRUE`, which prints out warnings and messages. It is mainly used</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">432</td>
+                    <td class="num">327</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Tabulated interaction term results from a logistic regression model.</pre>
+                      <pre class="language-r">#'   to print out information about factor casting.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">433</td>
+                    <td class="num">328</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">434</td>
+                    <td class="num">329</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @note</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">435</td>
+                    <td class="num">330</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_glm_interaction_extract("ARMCD:AGE", mod2)</pre>
+                      <pre class="language-r">#' * Automatic conversion of character to factor does not guarantee that the table</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">436</td>
+                    <td class="num">331</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   can be generated correctly. In particular for sparse tables this very likely can fail.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">437</td>
+                    <td class="num">332</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'   It is therefore better to always pre-process the dataset such that factors are manually</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">438</td>
+                    <td class="num">333</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_glm_interaction_extract &lt;- function(x, fit_glm) {</pre>
+                      <pre class="language-r">#'   created from character variables before passing the dataset to [rtables::build_table()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">439</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">334</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  vars &lt;- h_get_interaction_vars(fit_glm)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">440</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">335</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  xs_class &lt;- attr(fit_glm$terms, "dataClasses")</pre>
+                      <pre class="language-r">#' @method s_summary character</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">441</td>
+                    <td class="num">336</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">442</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">337</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(x)</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">443</td>
+                    <td class="num">338</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' # `s_summary.character`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">444</td>
+                    <td class="num">339</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Only take two-way interaction</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">445</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">340</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_vector(vars, len = 2)</pre>
+                      <pre class="language-r">#' ## Basic usage:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">446</td>
+                    <td class="num">341</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' s_summary(c("a", "a", "b", "c", "a"), .var = "x", verbose = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">447</td>
+                    <td class="num">342</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Only consider simple case: first variable in interaction is arm, a categorical variable</pre>
+                      <pre class="language-r">#' s_summary(c("a", "a", "b", "c", "a", ""), .var = "x", na.rm = FALSE, verbose = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">448</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">343</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_disjunct(xs_class[vars[1]], "numeric")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">449</td>
+                    <td class="num">344</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">450</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">345</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  xs_level &lt;- fit_glm$xlevels</pre>
+                      <pre class="language-r">s_summary.character &lt;- function(x,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">451</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">346</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  xs_coef &lt;- summary(fit_glm)$coefficients</pre>
+                      <pre class="language-r">                                na.rm = TRUE, # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">452</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">347</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  main_effects &lt;- car::Anova(fit_glm, type = 3, test.statistic = "Wald")</pre>
+                      <pre class="language-r">                                denom = c("n", "N_row", "N_col"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">453</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">348</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  stats &lt;- c("estimate" = "Estimate", "std_error" = "Std. Error", "pvalue" = "Pr(&gt;|z|)")</pre>
+                      <pre class="language-r">                                .N_row, # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">454</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">349</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  v1_comp &lt;- xs_level[[vars[1]]][-1]</pre>
+                      <pre class="language-r">                                .N_col, # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">455</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">350</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (xs_class[vars[2]] == "numeric") {</pre>
+                      <pre class="language-r">                                .var,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">456</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">351</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_stats &lt;- as.data.frame(</pre>
+                      <pre class="language-r">                                verbose = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">457</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">352</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      xs_coef[paste0(vars[1], v1_comp, ":", vars[2]), stats, drop = FALSE],</pre>
+                      <pre class="language-r">                                ...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">458</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      stringsAsFactors = FALSE</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">459</td>
-                    <td class="coverage"></td>
+                    <td class="num">353</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  if (na.rm) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">460</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">354</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    colnames(x_stats) &lt;- names(stats)</pre>
+                      <pre class="language-r">    y &lt;- as_factor_keep_attributes(x, verbose = verbose)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">461</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">355</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_stats$term &lt;- v1_comp</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">462</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">356</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_numbers &lt;- table(fit_glm$data[[vars[1]]])</pre>
+                      <pre class="language-r">    y &lt;- as_factor_keep_attributes(x, verbose = verbose, na_level = "NA")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">463</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">357</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_stats$term_label &lt;- h_simple_term_labels(v1_comp, x_numbers)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">464</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">358</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    v1_ref &lt;- xs_level[[vars[1]]][1]</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">465</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">359</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    term_main &lt;- v1_ref</pre>
+                      <pre class="language-r">  s_summary(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">466</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">360</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ref_label &lt;- h_simple_term_labels(v1_ref, x_numbers)</pre>
+                      <pre class="language-r">    x = y,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">467</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">361</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (xs_class[vars[2]] != "numeric") {</pre>
+                      <pre class="language-r">    na.rm = na.rm,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">468</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">362</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    v2_comp &lt;- xs_level[[vars[2]]][-1]</pre>
+                      <pre class="language-r">    denom = denom,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">469</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">363</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    v1_v2_grid &lt;- expand.grid(v1 = v1_comp, v2 = v2_comp)</pre>
+                      <pre class="language-r">    .N_row = .N_row,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">470</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">364</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_sel &lt;- paste(</pre>
+                      <pre class="language-r">    .N_col = .N_col,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">471</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">365</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      paste0(vars[1], v1_v2_grid$v1),</pre>
+                      <pre class="language-r">    ...</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">472</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">366</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      paste0(vars[2], v1_v2_grid$v2),</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">473</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">367</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sep = ":"</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">474</td>
+                    <td class="num">368</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">475</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">369</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_stats &lt;- as.data.frame(xs_coef[x_sel, stats, drop = FALSE], stringsAsFactors = FALSE)</pre>
+                      <pre class="language-r">#' @describeIn analyze_variables Method for `logical` class.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">476</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">370</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    colnames(x_stats) &lt;- names(stats)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">477</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">371</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_stats$term &lt;- paste(v1_v2_grid$v1, "*", v1_v2_grid$v2)</pre>
+                      <pre class="language-r">#' @param denom (`string`)\cr choice of denominator for proportion. Options are:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">478</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">372</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_numbers &lt;- table(fit_glm$data[[vars[1]]], fit_glm$data[[vars[2]]])</pre>
+                      <pre class="language-r">#'   * `n`: number of values in this row and column intersection.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">479</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">373</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_stats$term_label &lt;- h_interaction_term_labels(v1_v2_grid$v1, v1_v2_grid$v2, x_numbers)</pre>
+                      <pre class="language-r">#'   * `N_row`: total number of values in this row across columns.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">480</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">374</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    v1_ref &lt;- xs_level[[vars[1]]][1]</pre>
+                      <pre class="language-r">#'   * `N_col`: total number of values in this column across rows.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">481</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">375</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    v2_ref &lt;- xs_level[[vars[2]]][1]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">482</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">376</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    term_main &lt;- paste(vars[1], vars[2], sep = " * ")</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">483</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">377</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ref_label &lt;- h_interaction_term_labels(v1_ref, v2_ref, x_numbers, any = TRUE)</pre>
+                      <pre class="language-r">#'   * If `x` is of class `logical`, returns a `list` with named `numeric` items:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">484</td>
+                    <td class="num">378</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'     * `n`: The [length()] of `x` (possibly after removing `NA`s).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">485</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">379</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats$df &lt;- as.list(1)</pre>
+                      <pre class="language-r">#'     * `count`: Count of `TRUE` in `x`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">486</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">380</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats$pvalue &lt;- as.list(x_stats$pvalue)</pre>
+                      <pre class="language-r">#'     * `count_fraction`: Count and proportion of `TRUE` in `x` relative to the denominator, or `NA` if the</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">487</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">381</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats$is_variable_summary &lt;- FALSE</pre>
+                      <pre class="language-r">#'       denominator is zero. Note that `NA`s in `x` are never counted or leading to `NA` here.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">488</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">382</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats$is_term_summary &lt;- TRUE</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">489</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">383</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_main &lt;- data.frame(</pre>
+                      <pre class="language-r">#' @method s_summary logical</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">490</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">384</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pvalue = main_effects[x, "Pr(&gt;Chisq)", drop = TRUE],</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">491</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">385</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    term = term_main,</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">492</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">386</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    term_label = paste("Reference", ref_label),</pre>
+                      <pre class="language-r">#' # `s_summary.logical`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">493</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">387</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df = main_effects[x, "Df", drop = TRUE],</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">494</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">388</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">#' ## Basic usage:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">495</td>
+                    <td class="num">389</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' s_summary(c(TRUE, FALSE, TRUE, TRUE))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">496</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">390</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_main$pvalue &lt;- as.list(x_main$pvalue)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">497</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">391</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_main$df &lt;- as.list(x_main$df)</pre>
+                      <pre class="language-r">#' # Empty factor returns zero-filled items.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">498</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">392</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_main$estimate &lt;- list(numeric(0))</pre>
+                      <pre class="language-r">#' s_summary(as.logical(c()))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">499</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">393</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_main$std_error &lt;- list(numeric(0))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">500</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">394</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_main$is_variable_summary &lt;- TRUE</pre>
+                      <pre class="language-r">#' ## Management of NA values.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">501</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">395</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_main$is_term_summary &lt;- FALSE</pre>
+                      <pre class="language-r">#' x &lt;- c(NA, TRUE, FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">502</td>
+                    <td class="num">396</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' s_summary(x, na.rm = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">503</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">397</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats &lt;- rbind(x_main, x_stats)</pre>
+                      <pre class="language-r">#' s_summary(x, na.rm = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">504</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">398</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats$variable &lt;- x</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">505</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">399</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats$variable_label &lt;- paste(</pre>
+                      <pre class="language-r">#' ## Different denominators.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">506</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">400</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "Interaction of",</pre>
+                      <pre class="language-r">#' x &lt;- c(TRUE, FALSE, TRUE, TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">507</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">401</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    formatters::var_labels(fit_glm$data[vars[1]], fill = TRUE),</pre>
+                      <pre class="language-r">#' s_summary(x, denom = "N_row", .N_row = 10L)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">508</td>
+                    <td class="num">402</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "*",</pre>
+                      <pre class="language-r">#' s_summary(x, denom = "N_col", .N_col = 20L)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">509</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">403</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    formatters::var_labels(fit_glm$data[vars[2]], fill = TRUE)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">510</td>
+                    <td class="num">404</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">511</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">405</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats$interaction &lt;- ""</pre>
+                      <pre class="language-r">s_summary.logical &lt;- function(x,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">512</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">406</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats$interaction_label &lt;- ""</pre>
+                      <pre class="language-r">                              na.rm = TRUE, # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">513</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">407</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats$reference &lt;- ""</pre>
+                      <pre class="language-r">                              denom = c("n", "N_row", "N_col"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">514</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">408</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats$reference_label &lt;- ""</pre>
+                      <pre class="language-r">                              .N_row, # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">515</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">409</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  rownames(x_stats) &lt;- NULL</pre>
+                      <pre class="language-r">                              .N_col, # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">516</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">410</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats[c(</pre>
+                      <pre class="language-r">                              ...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">517</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">411</td>
+                    <td class="coverage">184<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "variable",</pre>
+                      <pre class="language-r">  denom &lt;- match.arg(denom)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">518</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">412</td>
+                    <td class="coverage">182<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "variable_label",</pre>
+                      <pre class="language-r">  if (na.rm) x &lt;- x[!is.na(x)]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">519</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">413</td>
+                    <td class="coverage">184<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "term",</pre>
+                      <pre class="language-r">  y &lt;- list()</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">520</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">414</td>
+                    <td class="coverage">184<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "term_label",</pre>
+                      <pre class="language-r">  y$n &lt;- length(x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">521</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">415</td>
+                    <td class="coverage">184<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "interaction",</pre>
+                      <pre class="language-r">  count &lt;- sum(x, na.rm = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">522</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">416</td>
+                    <td class="coverage">184<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "interaction_label",</pre>
+                      <pre class="language-r">  dn &lt;- switch(denom,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">523</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">417</td>
+                    <td class="coverage">184<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "reference",</pre>
+                      <pre class="language-r">    n = length(x),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">524</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">418</td>
+                    <td class="coverage">184<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "reference_label",</pre>
+                      <pre class="language-r">    N_row = .N_row,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">525</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">419</td>
+                    <td class="coverage">184<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "estimate",</pre>
+                      <pre class="language-r">    N_col = .N_col</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">526</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">420</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "std_error",</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">527</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">421</td>
+                    <td class="coverage">184<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "df",</pre>
+                      <pre class="language-r">  y$count &lt;- count</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">528</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">422</td>
+                    <td class="coverage">184<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "pvalue",</pre>
+                      <pre class="language-r">  y$count_fraction &lt;- c(count, ifelse(dn &gt; 0, count / dn, 0))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">529</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">423</td>
+                    <td class="coverage">184<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "is_variable_summary",</pre>
+                      <pre class="language-r">  y$n_blq &lt;- 0L</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">530</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">424</td>
+                    <td class="coverage">184<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "is_term_summary"</pre>
+                      <pre class="language-r">  y</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">531</td>
+                    <td class="num">425</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )]</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">532</td>
+                    <td class="num">426</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">533</td>
+                    <td class="num">427</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @describeIn analyze_variables Formatted analysis function which is used as `afun` in `analyze_vars()` and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">534</td>
+                    <td class="num">428</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_logistic_regression Helper function to tabulate the interaction</pre>
+                      <pre class="language-r">#'   `compare_vars()` and as `cfun` in `summarize_colvars()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">535</td>
+                    <td class="num">429</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   results of a logistic regression model. This basically is a wrapper for</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">536</td>
+                    <td class="num">430</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   [h_or_interaction()] and [h_glm_simple_term_extract()] which puts the results</pre>
+                      <pre class="language-r">#' @param compare (`flag`)\cr whether comparison statistics should be analyzed instead of summary statistics</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">537</td>
+                    <td class="num">431</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   in the right data frame format.</pre>
+                      <pre class="language-r">#'   (`compare = TRUE` adds `pval` statistic comparing against reference group).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">538</td>
+                    <td class="num">432</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">539</td>
+                    <td class="num">433</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `data.frame` of tabulated interaction term results from a logistic regression model.</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">540</td>
+                    <td class="num">434</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' * `a_summary()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">541</td>
+                    <td class="num">435</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">542</td>
+                    <td class="num">436</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_glm_inter_term_extract("AGE", "ARMCD", mod2)</pre>
+                      <pre class="language-r">#' @note</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">543</td>
+                    <td class="num">437</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' * To use for comparison (with additional p-value statistic), parameter `compare` must be set to `TRUE`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">544</td>
+                    <td class="num">438</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' * Ensure that either all `NA` values are converted to an explicit `NA` level or all `NA` values are left as is.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">545</td>
+                    <td class="num">439</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_glm_inter_term_extract &lt;- function(odds_ratio_var,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">546</td>
+                    <td class="num">440</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     interaction_var,</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">547</td>
+                    <td class="num">441</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     fit_glm,</pre>
+                      <pre class="language-r">#' a_summary(factor(c("a", "a", "b", "c", "a")), .N_row = 10, .N_col = 10)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">548</td>
+                    <td class="num">442</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     ...) {</pre>
+                      <pre class="language-r">#' a_summary(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">549</td>
+                    <td class="num">443</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # First obtain the main effects.</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">550</td>
-                    <td class="coverage">13<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  main_stats &lt;- h_glm_simple_term_extract(odds_ratio_var, fit_glm)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">551</td>
-                    <td class="coverage">13<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  main_stats$is_reference_summary &lt;- FALSE</pre>
+                      <pre class="language-r">#'   factor(c("a", "a", "b", "c", "a")),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">552</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">444</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  main_stats$odds_ratio &lt;- NA</pre>
+                      <pre class="language-r">#'   .ref_group = factor(c("a", "a", "b", "c")), compare = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">553</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">445</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  main_stats$lcl &lt;- NA</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">554</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">446</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  main_stats$ucl &lt;- NA</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">555</td>
+                    <td class="num">447</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' a_summary(c("A", "B", "A", "C"), .var = "x", .N_col = 10, .N_row = 10, verbose = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">556</td>
+                    <td class="num">448</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Then we get the odds ratio estimates and put into df form.</pre>
+                      <pre class="language-r">#' a_summary(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">557</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">449</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  or_numbers &lt;- h_or_interaction(odds_ratio_var, interaction_var, fit_glm, ...)</pre>
+                      <pre class="language-r">#'   c("A", "B", "A", "C"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">558</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">450</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  is_num_or_var &lt;- attr(fit_glm$terms, "dataClasses")[odds_ratio_var] == "numeric"</pre>
+                      <pre class="language-r">#'   .ref_group = c("B", "A", "C"), .var = "x", compare = TRUE, verbose = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">559</td>
+                    <td class="num">451</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">560</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">452</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is_num_or_var) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">561</td>
+                    <td class="num">453</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Numeric OR variable case.</pre>
+                      <pre class="language-r">#' a_summary(c(TRUE, FALSE, FALSE, TRUE, TRUE), .N_row = 10, .N_col = 10)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">562</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">454</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    references &lt;- names(or_numbers)</pre>
+                      <pre class="language-r">#' a_summary(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">563</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">455</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n_ref &lt;- length(references)</pre>
+                      <pre class="language-r">#'   c(TRUE, FALSE, FALSE, TRUE, TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">564</td>
+                    <td class="num">456</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   .ref_group = c(TRUE, FALSE), .in_ref_col = TRUE, compare = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">565</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">457</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extract_from_list &lt;- function(l, name, pos = 1) {</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">566</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">458</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      unname(unlist(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">567</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">459</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        lapply(or_numbers, function(x) {</pre>
+                      <pre class="language-r">#' a_summary(rnorm(10), .N_col = 10, .N_row = 20, .var = "bla")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">568</td>
-                    <td class="coverage">36<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">460</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x[[name]][pos]</pre>
+                      <pre class="language-r">#' a_summary(rnorm(10, 5, 1), .ref_group = rnorm(20, -5, 1), .var = "bla", compare = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">569</td>
+                    <td class="num">461</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        })</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">570</td>
+                    <td class="num">462</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ))</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">571</td>
+                    <td class="num">463</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">a_summary &lt;- function(x,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">572</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">464</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    or_stats &lt;- data.frame(</pre>
+                      <pre class="language-r">                      .N_col, # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">573</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">465</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      variable = odds_ratio_var,</pre>
+                      <pre class="language-r">                      .N_row, # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">574</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">466</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      variable_label = unname(formatters::var_labels(fit_glm$data[odds_ratio_var], fill = TRUE)),</pre>
+                      <pre class="language-r">                      .var = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">575</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">467</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      term = odds_ratio_var,</pre>
+                      <pre class="language-r">                      .df_row = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">576</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">468</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      term_label = unname(formatters::var_labels(fit_glm$data[odds_ratio_var], fill = TRUE)),</pre>
+                      <pre class="language-r">                      .ref_group = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">577</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">469</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      interaction = interaction_var,</pre>
+                      <pre class="language-r">                      .in_ref_col = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">578</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">470</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      interaction_label = unname(formatters::var_labels(fit_glm$data[interaction_var], fill = TRUE)),</pre>
+                      <pre class="language-r">                      compare = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">579</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">471</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      reference = references,</pre>
+                      <pre class="language-r">                      .stats = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">580</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">472</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      reference_label = references,</pre>
+                      <pre class="language-r">                      .formats = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">581</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">473</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      estimate = NA,</pre>
+                      <pre class="language-r">                      .labels = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">582</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">474</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      std_error = NA,</pre>
+                      <pre class="language-r">                      .indent_mods = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">583</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">475</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      odds_ratio = extract_from_list(or_numbers, "or"),</pre>
+                      <pre class="language-r">                      na.rm = TRUE, # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">584</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">476</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lcl = extract_from_list(or_numbers, "ci", pos = "lcl"),</pre>
+                      <pre class="language-r">                      na_str = default_na_str(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">585</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">477</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ucl = extract_from_list(or_numbers, "ci", pos = "ucl"),</pre>
+                      <pre class="language-r">                      ...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">586</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">478</td>
+                    <td class="coverage">324<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df = NA,</pre>
+                      <pre class="language-r">  extra_args &lt;- list(...)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">587</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">479</td>
+                    <td class="coverage">324<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pvalue = NA,</pre>
+                      <pre class="language-r">  if (is.numeric(x)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">588</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">480</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      is_variable_summary = FALSE,</pre>
+                      <pre class="language-r">    type &lt;- "numeric"</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">589</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">481</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      is_term_summary = FALSE,</pre>
+                      <pre class="language-r">    if (!is.null(.stats) &amp;&amp; any(grepl("^pval", .stats))) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">590</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">482</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      is_reference_summary = TRUE</pre>
+                      <pre class="language-r">      .stats[grepl("^pval", .stats)] &lt;- "pval" # tmp fix xxx</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">591</td>
+                    <td class="num">483</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">592</td>
+                    <td class="num">484</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">593</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">485</td>
+                    <td class="coverage">238<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Categorical OR variable case.</pre>
+                      <pre class="language-r">    type &lt;- "counts"</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">594</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">486</td>
+                    <td class="coverage">238<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    references &lt;- names(or_numbers[[1]])</pre>
+                      <pre class="language-r">    if (!is.null(.stats) &amp;&amp; any(grepl("^pval", .stats))) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">595</td>
+                    <td class="num">487</td>
                     <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n_ref &lt;- length(references)</pre>
+                      <pre class="language-r">      .stats[grepl("^pval", .stats)] &lt;- "pval_counts" # tmp fix xxx</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">596</td>
+                    <td class="num">488</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">597</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    extract_from_list &lt;- function(l, name, pos = 1) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">598</td>
-                    <td class="coverage">27<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      unname(unlist(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">599</td>
-                    <td class="coverage">27<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        lapply(or_numbers, function(x) {</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">600</td>
-                    <td class="coverage">48<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">489</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          lapply(x, function(y) y[[name]][pos])</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">601</td>
+                    <td class="num">490</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        })</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">602</td>
+                    <td class="num">491</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ))</pre>
+                      <pre class="language-r">  # If one col has NA vals, must add NA row to other cols (using placeholder lvl `fill-na-level`)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">603</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">492</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  if (any(is.na(.df_row[[.var]])) &amp;&amp; !any(is.na(x)) &amp;&amp; !na.rm) levels(x) &lt;- c(levels(x), "fill-na-level")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">604</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">493</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    or_stats &lt;- data.frame(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">605</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">494</td>
+                    <td class="coverage">324<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      variable = odds_ratio_var,</pre>
+                      <pre class="language-r">  x_stats &lt;- if (!compare) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">606</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">495</td>
+                    <td class="coverage">300<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      variable_label = unname(formatters::var_labels(fit_glm$data[odds_ratio_var], fill = TRUE)),</pre>
+                      <pre class="language-r">    s_summary(x = x, .N_col = .N_col, .N_row = .N_row, na.rm = na.rm, ...)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">607</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">496</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      term = rep(names(or_numbers), each = n_ref),</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">608</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">497</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      term_label = h_simple_term_labels(rep(names(or_numbers), each = n_ref), table(fit_glm$data[[odds_ratio_var]])),</pre>
+                      <pre class="language-r">    s_compare(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">609</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">498</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      interaction = interaction_var,</pre>
+                      <pre class="language-r">      x = x, .N_col = .N_col, .N_row = .N_row, na.rm = na.rm, .ref_group = .ref_group, .in_ref_col = .in_ref_col, ...</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">610</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">499</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      interaction_label = unname(formatters::var_labels(fit_glm$data[interaction_var], fill = TRUE)),</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">611</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">500</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      reference = unlist(lapply(or_numbers, names)),</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">612</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">501</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      reference_label = unlist(lapply(or_numbers, names)),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">613</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">502</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      estimate = NA,</pre>
+                      <pre class="language-r">  # Fill in with formatting defaults if needed</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">614</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">503</td>
+                    <td class="coverage">324<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      std_error = NA,</pre>
+                      <pre class="language-r">  met_grp &lt;- paste0(c("analyze_vars", type), collapse = "_")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">615</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">504</td>
+                    <td class="coverage">324<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      odds_ratio = extract_from_list(or_numbers, "or"),</pre>
+                      <pre class="language-r">  .stats &lt;- get_stats(met_grp, stats_in = .stats, add_pval = compare)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">616</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">505</td>
+                    <td class="coverage">324<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lcl = extract_from_list(or_numbers, "ci", pos = "lcl"),</pre>
+                      <pre class="language-r">  .formats &lt;- get_formats_from_stats(.stats, .formats)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">617</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">506</td>
+                    <td class="coverage">324<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ucl = extract_from_list(or_numbers, "ci", pos = "ucl"),</pre>
+                      <pre class="language-r">  .indent_mods &lt;- get_indents_from_stats(.stats, .indent_mods)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">618</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">507</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df = NA,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">619</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">508</td>
+                    <td class="coverage">324<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pvalue = NA,</pre>
+                      <pre class="language-r">  lbls &lt;- get_labels_from_stats(.stats, .labels)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">620</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">509</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      is_variable_summary = FALSE,</pre>
+                      <pre class="language-r">  # Check for custom labels from control_analyze_vars</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">621</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">510</td>
+                    <td class="coverage">324<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      is_term_summary = FALSE,</pre>
+                      <pre class="language-r">  .labels &lt;- if ("control" %in% names(extra_args)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">622</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">511</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      is_reference_summary = TRUE</pre>
+                      <pre class="language-r">    lbls %&gt;% labels_use_control(extra_args[["control"]], .labels)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">623</td>
+                    <td class="num">512</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">513</td>
+                    <td class="coverage">323<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    lbls</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">624</td>
+                    <td class="num">514</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">625</td>
+                    <td class="num">515</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">626</td>
-                    <td class="coverage">13<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  df &lt;- rbind(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">627</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">516</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    main_stats[, names(or_stats)],</pre>
+                      <pre class="language-r">  if ("count_fraction_fixed_dp" %in% .stats) x_stats[["count_fraction_fixed_dp"]] &lt;- x_stats[["count_fraction"]]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">628</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">517</td>
+                    <td class="coverage">324<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    or_stats</pre>
+                      <pre class="language-r">  x_stats &lt;- x_stats[.stats]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">629</td>
+                    <td class="num">518</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">630</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">519</td>
+                    <td class="coverage">324<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df[order(-df$is_variable_summary, df$term, -df$is_term_summary, df$reference), ]</pre>
+                      <pre class="language-r">  if (is.factor(x) || is.character(x)) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">631</td>
+                    <td class="num">520</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    # Ungroup statistics with values for each level of x</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">632</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">521</td>
+                    <td class="coverage">234<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    x_ungrp &lt;- ungroup_stats(x_stats, .formats, .labels, .indent_mods)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">633</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">522</td>
+                    <td class="coverage">234<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_logistic_regression Helper function to tabulate the results including</pre>
+                      <pre class="language-r">    x_stats &lt;- x_ungrp[["x"]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">634</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">523</td>
+                    <td class="coverage">234<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   odds ratios and confidence intervals of simple terms.</pre>
+                      <pre class="language-r">    .formats &lt;- x_ungrp[[".formats"]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">635</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">524</td>
+                    <td class="coverage">234<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    .labels &lt;- gsub("fill-na-level", "NA", x_ungrp[[".labels"]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">636</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">525</td>
+                    <td class="coverage">234<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Tabulated statistics for the given variable(s) from the logistic regression model.</pre>
+                      <pre class="language-r">    .indent_mods &lt;- x_ungrp[[".indent_mods"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">637</td>
+                    <td class="num">526</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">638</td>
+                    <td class="num">527</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">639</td>
+                    <td class="num">528</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_logistic_simple_terms("AGE", mod1)</pre>
+                      <pre class="language-r">  # Auto format handling</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">640</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">529</td>
+                    <td class="coverage">324<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  .formats &lt;- apply_auto_formatting(.formats, x_stats, .df_row, .var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">641</td>
+                    <td class="num">530</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">642</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">531</td>
+                    <td class="coverage">324<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_logistic_simple_terms &lt;- function(x, fit_glm, conf_level = 0.95) {</pre>
+                      <pre class="language-r">  in_rows(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">643</td>
-                    <td class="coverage">53<em>x</em></td>
+                    <td class="num">532</td>
+                    <td class="coverage">324<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(fit_glm, c("glm", "clogit"))</pre>
+                      <pre class="language-r">    .list = x_stats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">644</td>
-                    <td class="coverage">53<em>x</em></td>
+                    <td class="num">533</td>
+                    <td class="coverage">324<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(fit_glm, "glm")) {</pre>
+                      <pre class="language-r">    .formats = .formats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">645</td>
-                    <td class="coverage">42<em>x</em></td>
+                    <td class="num">534</td>
+                    <td class="coverage">324<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_set_equal(fit_glm$family$family, "binomial")</pre>
+                      <pre class="language-r">    .names = names(.labels),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">646</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">535</td>
+                    <td class="coverage">324<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    .labels = .labels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">647</td>
-                    <td class="coverage">53<em>x</em></td>
+                    <td class="num">536</td>
+                    <td class="coverage">324<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  terms_name &lt;- attr(stats::terms(fit_glm), "term.labels")</pre>
+                      <pre class="language-r">    .indent_mods = .indent_mods,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">648</td>
-                    <td class="coverage">53<em>x</em></td>
+                    <td class="num">537</td>
+                    <td class="coverage">324<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  xs_class &lt;- attr(fit_glm$terms, "dataClasses")</pre>
+                      <pre class="language-r">    .format_na_strs = na_str</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">649</td>
-                    <td class="coverage">53<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">538</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  interaction &lt;- terms_name[which(!terms_name %in% names(xs_class))]</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">650</td>
-                    <td class="coverage">53<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">539</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(x, terms_name)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">651</td>
-                    <td class="coverage">53<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">540</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(interaction) != 0) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">652</td>
+                    <td class="num">541</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Make sure any item in x is not part of interaction term</pre>
+                      <pre class="language-r">#' @describeIn analyze_variables Layout-creating function which can take statistics function arguments</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">653</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">542</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_disjunct(x, unlist(strsplit(interaction, ":")))</pre>
+                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">654</td>
+                    <td class="num">543</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">655</td>
-                    <td class="coverage">53<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">544</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats &lt;- lapply(x, h_glm_simple_term_extract, fit_glm)</pre>
+                      <pre class="language-r">#' @param ... arguments passed to `s_summary()`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">656</td>
-                    <td class="coverage">53<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">545</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats &lt;- do.call(rbind, x_stats)</pre>
+                      <pre class="language-r">#' @param .indent_mods (named `integer`)\cr indent modifiers for the labels. Each element of the vector</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">657</td>
-                    <td class="coverage">53<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">546</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  q_norm &lt;- stats::qnorm((1 + conf_level) / 2)</pre>
+                      <pre class="language-r">#'   should be a name-value pair with name corresponding to a statistic specified in `.stats` and value the indentation</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">658</td>
-                    <td class="coverage">53<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">547</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats$odds_ratio &lt;- lapply(x_stats$estimate, exp)</pre>
+                      <pre class="language-r">#'   for that statistic's row label.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">659</td>
-                    <td class="coverage">53<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">548</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats$lcl &lt;- Map(function(or, se) exp(log(or) - q_norm * se), x_stats$odds_ratio, x_stats$std_error)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">660</td>
-                    <td class="coverage">53<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">549</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats$ucl &lt;- Map(function(or, se) exp(log(or) + q_norm * se), x_stats$odds_ratio, x_stats$std_error)</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">661</td>
-                    <td class="coverage">53<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">550</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats$ci &lt;- Map(function(lcl, ucl) c(lcl, ucl), lcl = x_stats$lcl, ucl = x_stats$ucl)</pre>
+                      <pre class="language-r">#' * `analyze_vars()` returns a layout object suitable for passing to further layouting functions,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">662</td>
-                    <td class="coverage">53<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">551</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats</pre>
+                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">663</td>
+                    <td class="num">552</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   the statistics from `s_summary()` to the table layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">664</td>
+                    <td class="num">553</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">665</td>
+                    <td class="num">554</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_logistic_regression Helper function to tabulate the results including</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">666</td>
+                    <td class="num">555</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   odds ratios and confidence intervals of interaction terms.</pre>
+                      <pre class="language-r">#' ## Fabricated dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">667</td>
+                    <td class="num">556</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' dta_test &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">668</td>
+                    <td class="num">557</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Tabulated statistics for the given variable(s) from the logistic regression model.</pre>
+                      <pre class="language-r">#'   USUBJID = rep(1:6, each = 3),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">669</td>
+                    <td class="num">558</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   PARAMCD = rep("lab", 6 * 3),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">670</td>
+                    <td class="num">559</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   AVISIT  = rep(paste0("V", 1:3), 6),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">671</td>
+                    <td class="num">560</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_logistic_inter_terms(c("RACE", "AGE", "ARMCD", "AGE:ARMCD"), mod2)</pre>
+                      <pre class="language-r">#'   ARM     = rep(LETTERS[1:3], rep(6, 3)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">672</td>
+                    <td class="num">561</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   AVAL    = c(9:1, rep(NA, 9))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">673</td>
+                    <td class="num">562</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">674</td>
+                    <td class="num">563</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_logistic_inter_terms &lt;- function(x,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">675</td>
+                    <td class="num">564</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   fit_glm,</pre>
+                      <pre class="language-r">#' # `analyze_vars()` in `rtables` pipelines</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">676</td>
+                    <td class="num">565</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   conf_level = 0.95,</pre>
+                      <pre class="language-r">#' ## Default output within a `rtables` pipeline.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">677</td>
+                    <td class="num">566</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   at = NULL) {</pre>
+                      <pre class="language-r">#' l &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">678</td>
+                    <td class="num">567</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Find out the interaction variables and interaction term.</pre>
+                      <pre class="language-r">#'   split_cols_by(var = "ARM") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">679</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">568</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  inter_vars &lt;- h_get_interaction_vars(fit_glm)</pre>
+                      <pre class="language-r">#'   split_rows_by(var = "AVISIT") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">680</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">569</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_vector(inter_vars, len = 2)</pre>
+                      <pre class="language-r">#'   analyze_vars(vars = "AVAL")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">681</td>
+                    <td class="num">570</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">682</td>
+                    <td class="num">571</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' build_table(l, df = dta_test)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">683</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">572</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  inter_term_index &lt;- intersect(grep(inter_vars[1], x), grep(inter_vars[2], x))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">684</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">573</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  inter_term &lt;- x[inter_term_index]</pre>
+                      <pre class="language-r">#' ## Select and format statistics output.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">685</td>
+                    <td class="num">574</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' l &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">686</td>
+                    <td class="num">575</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # For the non-interaction vars we need the standard stuff.</pre>
+                      <pre class="language-r">#'   split_cols_by(var = "ARM") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">687</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">576</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  normal_terms &lt;- setdiff(x, union(inter_vars, inter_term))</pre>
+                      <pre class="language-r">#'   split_rows_by(var = "AVISIT") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">688</td>
+                    <td class="num">577</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   analyze_vars(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">689</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">578</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats &lt;- lapply(normal_terms, h_glm_simple_term_extract, fit_glm)</pre>
+                      <pre class="language-r">#'     vars = "AVAL",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">690</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">579</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats &lt;- do.call(rbind, x_stats)</pre>
+                      <pre class="language-r">#'     .stats = c("n", "mean_sd", "quantiles"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">691</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">580</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  q_norm &lt;- stats::qnorm((1 + conf_level) / 2)</pre>
+                      <pre class="language-r">#'     .formats = c("mean_sd" = "xx.x, xx.x"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">692</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">581</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats$odds_ratio &lt;- lapply(x_stats$estimate, exp)</pre>
+                      <pre class="language-r">#'     .labels = c(n = "n", mean_sd = "Mean, SD", quantiles = c("Q1 - Q3"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">693</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">582</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats$lcl &lt;- Map(function(or, se) exp(log(or) - q_norm * se), x_stats$odds_ratio, x_stats$std_error)</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">694</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">583</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats$ucl &lt;- Map(function(or, se) exp(log(or) + q_norm * se), x_stats$odds_ratio, x_stats$std_error)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">695</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">584</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  normal_stats &lt;- x_stats</pre>
+                      <pre class="language-r">#' build_table(l, df = dta_test)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">696</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">585</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  normal_stats$is_reference_summary &lt;- FALSE</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">697</td>
+                    <td class="num">586</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' ## Use arguments interpreted by `s_summary`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">698</td>
+                    <td class="num">587</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Now the interaction term itself.</pre>
+                      <pre class="language-r">#' l &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">699</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">588</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  inter_term_stats &lt;- h_glm_interaction_extract(inter_term, fit_glm)</pre>
+                      <pre class="language-r">#'   split_cols_by(var = "ARM") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">700</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">589</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  inter_term_stats$odds_ratio &lt;- NA</pre>
+                      <pre class="language-r">#'   split_rows_by(var = "AVISIT") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">701</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">590</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  inter_term_stats$lcl &lt;- NA</pre>
+                      <pre class="language-r">#'   analyze_vars(vars = "AVAL", na.rm = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">702</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">591</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  inter_term_stats$ucl &lt;- NA</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">703</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">592</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  inter_term_stats$is_reference_summary &lt;- FALSE</pre>
+                      <pre class="language-r">#' build_table(l, df = dta_test)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">704</td>
+                    <td class="num">593</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">705</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">594</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  is_intervar1_numeric &lt;- attr(fit_glm$terms, "dataClasses")[inter_vars[1]] == "numeric"</pre>
+                      <pre class="language-r">#' ## Handle `NA` levels first when summarizing factors.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">706</td>
+                    <td class="num">595</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' dta_test$AVISIT &lt;- NA_character_</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">707</td>
+                    <td class="num">596</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Interaction stuff.</pre>
+                      <pre class="language-r">#' dta_test &lt;- df_explicit_na(dta_test)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">708</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">597</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  inter_stats_one &lt;- h_glm_inter_term_extract(</pre>
+                      <pre class="language-r">#' l &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">709</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">598</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    inter_vars[1],</pre>
+                      <pre class="language-r">#'   split_cols_by(var = "ARM") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">710</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">599</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    inter_vars[2],</pre>
+                      <pre class="language-r">#'   analyze_vars(vars = "AVISIT", na.rm = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">711</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">600</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    fit_glm,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">712</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">601</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    conf_level = conf_level,</pre>
+                      <pre class="language-r">#' build_table(l, df = dta_test)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">713</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">602</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    at = `if`(is_intervar1_numeric, NULL, at)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">714</td>
+                    <td class="num">603</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' # auto format</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">715</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">604</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  inter_stats_two &lt;- h_glm_inter_term_extract(</pre>
+                      <pre class="language-r">#' dt &lt;- data.frame("VAR" = c(0.001, 0.2, 0.0011000, 3, 4))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">716</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">605</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    inter_vars[2],</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">717</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">606</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    inter_vars[1],</pre>
+                      <pre class="language-r">#'   analyze_vars(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">718</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">607</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    fit_glm,</pre>
+                      <pre class="language-r">#'     vars = "VAR",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">719</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">608</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    conf_level = conf_level,</pre>
+                      <pre class="language-r">#'     .stats = c("n", "mean", "mean_sd", "range"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">720</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">609</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    at = `if`(is_intervar1_numeric, at, NULL)</pre>
+                      <pre class="language-r">#'     .formats = c("mean_sd" = "auto", "range" = "auto")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">721</td>
+                    <td class="num">610</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">722</td>
+                    <td class="num">611</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   build_table(dt)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">723</td>
+                    <td class="num">612</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Now just combine everything in one data frame.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">724</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">613</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  col_names &lt;- c(</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">725</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">614</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "variable",</pre>
+                      <pre class="language-r">#' @order 2</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">726</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">615</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "variable_label",</pre>
+                      <pre class="language-r">analyze_vars &lt;- function(lyt,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">727</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">616</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "term",</pre>
+                      <pre class="language-r">                         vars,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">728</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">617</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "term_label",</pre>
+                      <pre class="language-r">                         var_labels = vars,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">729</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">618</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "interaction",</pre>
+                      <pre class="language-r">                         na_str = default_na_str(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">730</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">619</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "interaction_label",</pre>
+                      <pre class="language-r">                         nested = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">731</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">620</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "reference",</pre>
+                      <pre class="language-r">                         ...,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">732</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">621</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "reference_label",</pre>
+                      <pre class="language-r">                         na.rm = TRUE, # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">733</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">622</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "estimate",</pre>
+                      <pre class="language-r">                         show_labels = "default",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">734</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">623</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "std_error",</pre>
+                      <pre class="language-r">                         table_names = vars,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">735</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">624</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "df",</pre>
+                      <pre class="language-r">                         section_div = NA_character_,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">736</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">625</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "pvalue",</pre>
+                      <pre class="language-r">                         .stats = c("n", "mean_sd", "median", "range", "count_fraction"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">737</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">626</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "odds_ratio",</pre>
+                      <pre class="language-r">                         .formats = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">738</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">627</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "lcl",</pre>
+                      <pre class="language-r">                         .labels = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">739</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">628</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "ucl",</pre>
+                      <pre class="language-r">                         .indent_mods = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">740</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">629</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "is_variable_summary",</pre>
+                      <pre class="language-r">  extra_args &lt;- list(.stats = .stats, na.rm = na.rm, na_str = na_str, ...)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">741</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">630</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "is_term_summary",</pre>
+                      <pre class="language-r">  if (!is.null(.formats)) extra_args[[".formats"]] &lt;- .formats</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">742</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">631</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "is_reference_summary"</pre>
+                      <pre class="language-r">  if (!is.null(.labels)) extra_args[[".labels"]] &lt;- .labels</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">632</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (!is.null(.indent_mods)) extra_args[[".indent_mods"]] &lt;- .indent_mods</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">743</td>
+                    <td class="num">633</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">744</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">634</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df &lt;- rbind(</pre>
+                      <pre class="language-r">  analyze(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">745</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">635</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    inter_stats_one[, col_names],</pre>
+                      <pre class="language-r">    lyt = lyt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">746</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">636</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    inter_stats_two[, col_names],</pre>
+                      <pre class="language-r">    vars = vars,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">747</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">637</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    inter_term_stats[, col_names]</pre>
+                      <pre class="language-r">    var_labels = var_labels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">748</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">638</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    afun = a_summary,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">749</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">639</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(normal_terms) &gt; 0) {</pre>
+                      <pre class="language-r">    na_str = na_str,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">750</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">640</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df &lt;- rbind(</pre>
+                      <pre class="language-r">    nested = nested,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">751</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">641</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      normal_stats[, col_names],</pre>
+                      <pre class="language-r">    extra_args = extra_args,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">752</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">642</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df</pre>
+                      <pre class="language-r">    inclNAs = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">753</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">643</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    show_labels = show_labels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">754</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">644</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    table_names = table_names,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">755</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">645</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df$ci &lt;- combine_vectors(df$lcl, df$ucl)</pre>
+                      <pre class="language-r">    section_div = section_div</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">756</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">646</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">757</td>
+                    <td class="num">647</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -51132,14 +51961,14 @@ <h2>tern coverage - 95.64%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/g_forest.R" class="hidden">
+            <div id="R/h_survival_duration_subgroups.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create a forest plot from an `rtable`</pre>
+                      <pre class="language-r">#' Helper functions for tabulating survival duration by subgroup</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -51153,14057 +51982,14278 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Given a [rtables::rtable()] object with at least one column with a single value and one column with 2</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' values, converts table to a [ggplot2::ggplot()] object and generates an accompanying forest plot. The</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' table and forest plot are printed side-by-side.</pre>
+                      <pre class="language-r">#' Helper functions that tabulate in a data frame statistics such as median survival</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' time and hazard ratio for population subgroups.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams rtable2gg</pre>
+                      <pre class="language-r">#' @inheritParams survival_coxph_pairwise</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' @inheritParams survival_duration_subgroups</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param tbl (`VTableTree`)\cr `rtables` table with at least one column with a single value and one column with 2</pre>
+                      <pre class="language-r">#' @param arm (`factor`)\cr the treatment group variable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   values.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param col_x (`integer(1)` or `NULL`)\cr column index with estimator. By default tries to get this from</pre>
+                      <pre class="language-r">#' @details Main functionality is to prepare data for use in a layout-creating function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `tbl` attribute `col_x`, otherwise needs to be manually specified. If `NULL`, points will be excluded</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   from forest plot.</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param col_ci (`integer(1)` or `NULL`)\cr column index with confidence intervals. By default tries to get this from</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `tbl` attribute `col_ci`, otherwise needs to be manually specified. If `NULL`, lines will be excluded</pre>
+                      <pre class="language-r">#' library(forcats)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   from forest plot.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param vline (`numeric(1)` or `NULL`)\cr x coordinate for vertical line, if `NULL` then the line is omitted.</pre>
+                      <pre class="language-r">#' adtte &lt;- tern_ex_adtte</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param forest_header (`character(2)`)\cr text displayed to the left and right of `vline`, respectively.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   If `vline = NULL` then `forest_header` is not printed. By default tries to get this from `tbl` attribute</pre>
+                      <pre class="language-r">#' # Save variable labels before data processing steps.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `forest_header`. If `NULL`, defaults will be extracted from the table if possible, and set to</pre>
+                      <pre class="language-r">#' adtte_labels &lt;- formatters::var_labels(adtte)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `"Comparison\nBetter"` and `"Treatment\nBetter"` if not.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param xlim (`numeric(2)`)\cr limits for x axis.</pre>
+                      <pre class="language-r">#' adtte_f &lt;- adtte %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param logx (`flag`)\cr show the x-values on logarithm scale.</pre>
+                      <pre class="language-r">#'   filter(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x_at (`numeric`)\cr x-tick locations, if `NULL`, `x_at` is set to `vline` and both `xlim` values.</pre>
+                      <pre class="language-r">#'     PARAMCD == "OS",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param width_row_names `r lifecycle::badge("deprecated")` Please use the `lbl_col_padding` argument instead.</pre>
+                      <pre class="language-r">#'     ARM %in% c("B: Placebo", "A: Drug X"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param width_columns (`numeric`)\cr a vector of column widths. Each element's position in</pre>
+                      <pre class="language-r">#'     SEX %in% c("M", "F")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `colwidths` corresponds to the column of `tbl` in the same position. If `NULL`, column widths are calculated</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   according to maximum number of characters per column.</pre>
+                      <pre class="language-r">#'   mutate(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param width_forest `r lifecycle::badge("deprecated")` Please use the `rel_width_forest` argument instead.</pre>
+                      <pre class="language-r">#'     # Reorder levels of ARM to display reference arm before treatment arm.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param rel_width_forest (`proportion`)\cr proportion of total width to allocate to the forest plot. Relative</pre>
+                      <pre class="language-r">#'     ARM = droplevels(fct_relevel(ARM, "B: Placebo")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   width of table is then `1 - rel_width_forest`. If `as_list = TRUE`, this parameter is ignored.</pre>
+                      <pre class="language-r">#'     SEX = droplevels(SEX),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param font_size (`numeric(1)`)\cr font size.</pre>
+                      <pre class="language-r">#'     is_event = CNSR == 0</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param col_symbol_size (`numeric` or `NULL`)\cr column index from `tbl` containing data to be used</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to determine relative size for estimator plot symbol. Typically, the symbol size is proportional</pre>
+                      <pre class="language-r">#' labels &lt;- c("ARM" = adtte_labels[["ARM"]], "SEX" = adtte_labels[["SEX"]], "is_event" = "Event Flag")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to the sample size used to calculate the estimator. If `NULL`, the same symbol size is used for all subgroups.</pre>
+                      <pre class="language-r">#' formatters::var_labels(adtte_f)[names(labels)] &lt;- labels</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   By default tries to get this from `tbl` attribute `col_symbol_size`, otherwise needs to be manually specified.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param col (`character`)\cr color(s).</pre>
+                      <pre class="language-r">#' @name h_survival_duration_subgroups</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ggtheme (`theme`)\cr a graphical theme as provided by `ggplot2` to control styling of the plot.</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param as_list (`flag`)\cr whether the two `ggplot` objects should be returned as a list. If `TRUE`, a named list</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   with two elements, `table` and `plot`, will be returned. If `FALSE` (default) the table and forest plot are</pre>
+                      <pre class="language-r">#' @describeIn h_survival_duration_subgroups Helper to prepare a data frame of median survival times by arm.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   printed side-by-side via [cowplot::plot_grid()].</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param gp `r lifecycle::badge("deprecated")` `g_forest` is now generated as a `ggplot` object. This argument</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   is no longer used.</pre>
+                      <pre class="language-r">#' * `h_survtime_df()` returns a `data.frame` with columns `arm`, `n`, `n_events`, and `median`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param draw `r lifecycle::badge("deprecated")` `g_forest` is now generated as a `ggplot` object. This argument</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   is no longer used.</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param newpage `r lifecycle::badge("deprecated")` `g_forest` is now generated as a `ggplot` object. This argument</pre>
+                      <pre class="language-r">#' # Extract median survival time for one group.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   is no longer used.</pre>
+                      <pre class="language-r">#' h_survtime_df(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   tte = adtte_f$AVAL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `ggplot` forest plot and table.</pre>
+                      <pre class="language-r">#'   is_event = adtte_f$is_event,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   arm = adtte_f$ARM</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(forcats)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(nestcolor)</pre>
+                      <pre class="language-r">h_survtime_df &lt;- function(tte, is_event, arm) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">57</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">79<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(tte)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">58</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adrs &lt;- tern_ex_adrs</pre>
+                      <pre class="language-r">  checkmate::assert_logical(is_event, len = length(tte))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">59</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' n_records &lt;- 20</pre>
+                      <pre class="language-r">  assert_valid_factor(arm, len = length(tte))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adrs_labels &lt;- formatters::var_labels(adrs, fill = TRUE)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">61</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adrs &lt;- adrs %&gt;%</pre>
+                      <pre class="language-r">  df_tte &lt;- data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">62</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(PARAMCD == "BESRSPI") %&gt;%</pre>
+                      <pre class="language-r">    tte = tte,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">63</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(ARM %in% c("A: Drug X", "B: Placebo")) %&gt;%</pre>
+                      <pre class="language-r">    is_event = is_event,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">64</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   slice(seq_len(n_records)) %&gt;%</pre>
+                      <pre class="language-r">    stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   droplevels() %&gt;%</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mutate(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     # Reorder levels of factor to make the placebo group the reference arm.</pre>
+                      <pre class="language-r">  # Delete NAs</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">68</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ARM = fct_relevel(ARM, "B: Placebo"),</pre>
+                      <pre class="language-r">  non_missing_rows &lt;- stats::complete.cases(df_tte)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">69</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     rsp = AVALC == "CR"</pre>
+                      <pre class="language-r">  df_tte &lt;- df_tte[non_missing_rows, ]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">70</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">  arm &lt;- arm[non_missing_rows]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' formatters::var_labels(adrs) &lt;- c(adrs_labels, "Response")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">72</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- extract_rsp_subgroups(</pre>
+                      <pre class="language-r">  lst_tte &lt;- split(df_tte, arm)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">73</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(rsp = "rsp", arm = "ARM", subgroups = c("SEX", "STRATA2")),</pre>
+                      <pre class="language-r">  lst_results &lt;- Map(function(x, arm) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">74</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">156<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adrs</pre>
+                      <pre class="language-r">    if (nrow(x) &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">75</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">      s_surv &lt;- s_surv_time(x, .var = "tte", is_event = "is_event")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">76</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Full commonly used response table.</pre>
+                      <pre class="language-r">      median_est &lt;- unname(as.numeric(s_surv$median))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">77</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      n_events &lt;- sum(x$is_event)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tbl &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">79</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   tabulate_rsp_subgroups(df)</pre>
+                      <pre class="language-r">      median_est &lt;- NA</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">80</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_forest(tbl)</pre>
+                      <pre class="language-r">      n_events &lt;- NA</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Odds ratio only table.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">83</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">156<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">84</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">156<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tbl_or &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">      arm = arm,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">85</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">156<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   tabulate_rsp_subgroups(df, vars = c("n_tot", "or", "ci"))</pre>
+                      <pre class="language-r">      n = nrow(x),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">86</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">156<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_forest(</pre>
+                      <pre class="language-r">      n_events = n_events,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">87</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">156<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   tbl_or,</pre>
+                      <pre class="language-r">      median = median_est,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">88</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">156<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   forest_header = c("Comparison\nBetter", "Treatment\nBetter")</pre>
+                      <pre class="language-r">      stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">90</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }, lst_tte, names(lst_tte))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Survival forest plot example.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">92</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adtte &lt;- tern_ex_adtte</pre>
+                      <pre class="language-r">  df &lt;- do.call(rbind, args = c(lst_results, make.row.names = FALSE))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">93</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Save variable labels before data processing steps.</pre>
+                      <pre class="language-r">  df$arm &lt;- factor(df$arm, levels = levels(arm))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">94</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adtte_labels &lt;- formatters::var_labels(adtte, fill = TRUE)</pre>
+                      <pre class="language-r">  df</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adtte_f &lt;- adtte %&gt;%</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     PARAMCD == "OS",</pre>
+                      <pre class="language-r">#' @describeIn h_survival_duration_subgroups Summarizes median survival times by arm and across subgroups</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ARM %in% c("B: Placebo", "A: Drug X"),</pre>
+                      <pre class="language-r">#'    in a data frame. `variables` corresponds to the names of variables found in `data`, passed as a named list and</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     SEX %in% c("M", "F")</pre>
+                      <pre class="language-r">#'    requires elements `tte`, `is_event`, `arm` and optionally `subgroups`. `groups_lists` optionally specifies</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">#'    groupings for `subgroups` variables.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mutate(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     # Reorder levels of ARM to display reference arm before treatment arm.</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ARM = droplevels(fct_relevel(ARM, "B: Placebo")),</pre>
+                      <pre class="language-r">#' * `h_survtime_subgroups_df()` returns a `data.frame` with columns `arm`, `n`, `n_events`, `median`, `subgroup`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     SEX = droplevels(SEX),</pre>
+                      <pre class="language-r">#'   `var`, `var_label`, and `row_type`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     AVALU = as.character(AVALU),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     is_event = CNSR == 0</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#' # Extract median survival time for multiple groups.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' labels &lt;- list(</pre>
+                      <pre class="language-r">#' h_survtime_subgroups_df(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "ARM" = adtte_labels["ARM"],</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "SEX" = adtte_labels["SEX"],</pre>
+                      <pre class="language-r">#'     tte = "AVAL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "AVALU" = adtte_labels["AVALU"],</pre>
+                      <pre class="language-r">#'     is_event = "is_event",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "is_event" = "Event Flag"</pre>
+                      <pre class="language-r">#'     arm = "ARM",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'     subgroups = c("SEX", "BMRKR2")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' formatters::var_labels(adtte_f)[names(labels)] &lt;- as.character(labels)</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- extract_survival_subgroups(</pre>
+                      <pre class="language-r">#'   data = adtte_f</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tte = "AVAL",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     is_event = "is_event",</pre>
+                      <pre class="language-r">#' # Define groupings for BMRKR2 levels.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     arm = "ARM", subgroups = c("SEX", "BMRKR2")</pre>
+                      <pre class="language-r">#' h_survtime_subgroups_df(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adtte_f</pre>
+                      <pre class="language-r">#'     tte = "AVAL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'     is_event = "is_event",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' table_hr &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">#'     arm = "ARM",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   tabulate_survival_subgroups(df, time_unit = adtte_f$AVALU[1])</pre>
+                      <pre class="language-r">#'     subgroups = c("SEX", "BMRKR2")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_forest(table_hr)</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   data = adtte_f,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Works with any `rtable`.</pre>
+                      <pre class="language-r">#'   groups_lists = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tbl &lt;- rtable(</pre>
+                      <pre class="language-r">#'     BMRKR2 = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   header = c("E", "CI", "N"),</pre>
+                      <pre class="language-r">#'       "low" = "LOW",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   rrow("", 1, c(.8, 1.2), 200),</pre>
+                      <pre class="language-r">#'       "low/medium" = c("LOW", "MEDIUM"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   rrow("", 1.2, c(1.1, 1.4), 50)</pre>
+                      <pre class="language-r">#'       "low/medium/high" = c("LOW", "MEDIUM", "HIGH")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_forest(</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   tbl = tbl,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   col_x = 1,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   col_ci = 2,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   xlim = c(0.5, 2),</pre>
+                      <pre class="language-r">h_survtime_subgroups_df &lt;- function(variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   x_at = c(0.5, 1, 2),</pre>
+                      <pre class="language-r">                                    data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   col_symbol_size = 3</pre>
+                      <pre class="language-r">                                    groups_lists = list(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">                                    label_all = "All Patients") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">141</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_character(variables$tte)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">142</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tbl &lt;- rtable(</pre>
+                      <pre class="language-r">  checkmate::assert_character(variables$is_event)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">143</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   header = rheader(</pre>
+                      <pre class="language-r">  checkmate::assert_character(variables$arm)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">144</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     rrow("", rcell("A", colspan = 2)),</pre>
+                      <pre class="language-r">  checkmate::assert_character(variables$subgroups, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     rrow("", "c1", "c2")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">146</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">  assert_df_with_variables(data, variables)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   rrow("row 1", 1, c(.8, 1.2)),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">148</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   rrow("row 2", 1.2, c(1.1, 1.4))</pre>
+                      <pre class="language-r">  checkmate::assert_string(label_all)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_forest(</pre>
+                      <pre class="language-r">  # Add All Patients.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">151</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   tbl = tbl,</pre>
+                      <pre class="language-r">  result_all &lt;- h_survtime_df(data[[variables$tte]], data[[variables$is_event]], data[[variables$arm]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">152</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   col_x = 1,</pre>
+                      <pre class="language-r">  result_all$subgroup &lt;- label_all</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">153</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   col_ci = 2,</pre>
+                      <pre class="language-r">  result_all$var &lt;- "ALL"</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">154</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   xlim = c(0.5, 2),</pre>
+                      <pre class="language-r">  result_all$var_label &lt;- label_all</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">155</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   x_at = c(0.5, 1, 2),</pre>
+                      <pre class="language-r">  result_all$row_type &lt;- "content"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   vline = 1,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   forest_header = c("Hello", "World")</pre>
+                      <pre class="language-r">  # Add Subgroups.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">158</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  if (is.null(variables$subgroups)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">159</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    result_all</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">161</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">g_forest &lt;- function(tbl,</pre>
+                      <pre class="language-r">    l_data &lt;- h_split_by_subgroups(data, variables$subgroups, groups_lists = groups_lists)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">162</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     col_x = attr(tbl, "col_x"),</pre>
+                      <pre class="language-r">    l_result &lt;- lapply(l_data, function(grp) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">163</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     col_ci = attr(tbl, "col_ci"),</pre>
+                      <pre class="language-r">      result &lt;- h_survtime_df(grp$df[[variables$tte]], grp$df[[variables$is_event]], grp$df[[variables$arm]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">164</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     vline = 1,</pre>
+                      <pre class="language-r">      result_labels &lt;- grp$df_labels[rep(1, times = nrow(result)), ]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">165</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">60<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     forest_header = attr(tbl, "forest_header"),</pre>
+                      <pre class="language-r">      cbind(result, result_labels)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     xlim = c(0.1, 10),</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">167</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     logx = TRUE,</pre>
+                      <pre class="language-r">    result_subgroups &lt;- do.call(rbind, args = c(l_result, make.row.names = FALSE))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">168</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     x_at = c(0.1, 1, 10),</pre>
+                      <pre class="language-r">    result_subgroups$row_type &lt;- "analysis"</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">169</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     width_row_names = lifecycle::deprecated(),</pre>
+                      <pre class="language-r">    rbind(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">170</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     width_columns = NULL,</pre>
+                      <pre class="language-r">      result_all,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">171</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     width_forest = lifecycle::deprecated(),</pre>
+                      <pre class="language-r">      result_subgroups</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     lbl_col_padding = 0,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     rel_width_forest = 0.25,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     font_size = 12,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     col_symbol_size = attr(tbl, "col_symbol_size"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     col = getOption("ggplot2.discrete.colour")[1],</pre>
+                      <pre class="language-r">#' @describeIn h_survival_duration_subgroups Helper to prepare a data frame with estimates of</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     ggtheme = NULL,</pre>
+                      <pre class="language-r">#'   treatment hazard ratio.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     as_list = FALSE,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     gp = lifecycle::deprecated(),</pre>
+                      <pre class="language-r">#' @param strata_data (`factor`, `data.frame`, or `NULL`)\cr required if stratified analysis is performed.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     draw = lifecycle::deprecated(),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     newpage = lifecycle::deprecated()) {</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Deprecated argument warnings</pre>
+                      <pre class="language-r">#' * `h_coxph_df()` returns a `data.frame` with columns `arm`, `n_tot`, `n_tot_events`, `hr`, `lcl`, `ucl`,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">183</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (lifecycle::is_present(width_row_names)) {</pre>
+                      <pre class="language-r">#'   `conf_level`, `pval` and `pval_label`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">184</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">185</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "0.9.4", "g_forest(width_row_names)", "g_forest(lbl_col_padding)",</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">186</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      details = "The width of the row label column can be adjusted via the `lbl_col_padding` parameter."</pre>
+                      <pre class="language-r">#' # Extract hazard ratio for one group.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' h_coxph_df(adtte_f$AVAL, adtte_f$is_event, adtte_f$ARM)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">189</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (lifecycle::is_present(width_forest)) {</pre>
+                      <pre class="language-r">#' # Extract hazard ratio for one group with stratification factor.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">190</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
+                      <pre class="language-r">#' h_coxph_df(adtte_f$AVAL, adtte_f$is_event, adtte_f$ARM, strata_data = adtte_f$STRATA1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">191</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "0.9.4", "g_forest(width_forest)", "g_forest(rel_width_forest)",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">192</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      details = "Relative width of the forest plot (as a proportion) can be set via the `rel_width_forest` parameter."</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">h_coxph_df &lt;- function(tte, is_event, arm, strata_data = NULL, control = control_coxph()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">194</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">85<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(tte)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">195</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">85<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (lifecycle::is_present(gp)) {</pre>
+                      <pre class="language-r">  checkmate::assert_logical(is_event, len = length(tte))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">196</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">85<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
+                      <pre class="language-r">  assert_valid_factor(arm, n.levels = 2, len = length(tte))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">197</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "0.9.4", "g_forest(gp)", "g_forest(ggtheme)",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">198</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">85<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      details = paste(</pre>
+                      <pre class="language-r">  df_tte &lt;- data.frame(tte = tte, is_event = is_event)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">199</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">85<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "`g_forest` is now generated as a `ggplot` object.",</pre>
+                      <pre class="language-r">  strata_vars &lt;- NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">200</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Additional display settings should be supplied via the `ggtheme` parameter."</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">201</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">85<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  if (!is.null(strata_data)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">202</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    if (is.data.frame(strata_data)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">203</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      strata_vars &lt;- names(strata_data)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">204</td>
                     <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (lifecycle::is_present(draw)) {</pre>
+                      <pre class="language-r">      checkmate::assert_data_frame(strata_data, nrows = nrow(df_tte))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">205</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
+                      <pre class="language-r">      assert_df_with_factors(strata_data, as.list(stats::setNames(strata_vars, strata_vars)))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">206</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "0.9.4", "g_forest(draw)",</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">207</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      details = "`g_forest` now generates `ggplot` objects. This parameter has no effect."</pre>
+                      <pre class="language-r">      assert_valid_factor(strata_data, len = nrow(df_tte))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">208</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      strata_vars &lt;- "strata_data"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">210</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (lifecycle::is_present(newpage)) {</pre>
+                      <pre class="language-r">    df_tte[strata_vars] &lt;- strata_data</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">211</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">212</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "0.9.4", "g_forest(newpage)",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">213</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">85<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      details = "`g_forest` now generates `ggplot` objects. This parameter has no effect."</pre>
+                      <pre class="language-r">  l_df &lt;- split(df_tte, arm)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">215</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">85<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  if (nrow(l_df[[1]]) &gt; 0 &amp;&amp; nrow(l_df[[2]]) &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # Hazard ratio and CI.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">217</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">79<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(tbl, "VTableTree")</pre>
+                      <pre class="language-r">    result &lt;- s_coxph_pairwise(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">218</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">79<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(col_x, lower = 0, upper = ncol(tbl), null.ok = TRUE)</pre>
+                      <pre class="language-r">      df = l_df[[2]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">219</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">79<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(col_ci, lower = 0, upper = ncol(tbl), null.ok = TRUE)</pre>
+                      <pre class="language-r">      .ref_group = l_df[[1]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">220</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">79<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(col_symbol_size, lower = 0, upper = ncol(tbl), null.ok = TRUE)</pre>
+                      <pre class="language-r">      .in_ref_col = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">221</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">79<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(font_size, lower = 0)</pre>
+                      <pre class="language-r">      .var = "tte",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">222</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">79<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(col, null.ok = TRUE)</pre>
+                      <pre class="language-r">      is_event = "is_event",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">223</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">79<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(is.null(col) | length(col) == 1 | length(col) == nrow(tbl))</pre>
+                      <pre class="language-r">      strata = strata_vars,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">224</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">79<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      control = control</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Extract info from table</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">226</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mat &lt;- matrix_form(tbl, indent_rownames = TRUE)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">227</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">79<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mat_strings &lt;- formatters::mf_strings(mat)</pre>
+                      <pre class="language-r">    df &lt;- data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">228</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nlines_hdr &lt;- formatters::mf_nlheader(mat)</pre>
+                      <pre class="language-r">      # Dummy column needed downstream to create a nested header.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">229</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">79<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nrows_body &lt;- nrow(mat_strings) - nlines_hdr</pre>
+                      <pre class="language-r">      arm = " ",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">230</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">79<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tbl_stats &lt;- mat_strings[nlines_hdr, -1]</pre>
+                      <pre class="language-r">      n_tot = unname(as.numeric(result$n_tot)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">231</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">79<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      n_tot_events = unname(as.numeric(result$n_tot_events)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">232</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">79<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Generate and modify table as ggplot object</pre>
+                      <pre class="language-r">      hr = unname(as.numeric(result$hr)),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">233</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">79<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  gg_table &lt;- rtable2gg(tbl, fontsize = font_size, colwidths = width_columns, lbl_col_padding = lbl_col_padding) +</pre>
+                      <pre class="language-r">      lcl = unname(result$hr_ci[1]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">234</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">79<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    theme(plot.margin = margin(0, 0, 0, 0.025, "npc"))</pre>
+                      <pre class="language-r">      ucl = unname(result$hr_ci[2]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">235</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">79<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  gg_table$scales$scales[[1]]$expand &lt;- c(0.01, 0.01)</pre>
+                      <pre class="language-r">      conf_level = control[["conf_level"]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">236</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">79<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  gg_table$scales$scales[[2]]$limits[2] &lt;- nrow(mat_strings) + 1</pre>
+                      <pre class="language-r">      pval = as.numeric(result$pvalue),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">237</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">79<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (nlines_hdr == 2) {</pre>
+                      <pre class="language-r">      pval_label = obj_label(result$pvalue),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">238</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">79<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gg_table$scales$scales[[2]]$expand &lt;- c(0, 0)</pre>
+                      <pre class="language-r">      stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">239</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    arms &lt;- unique(mat_strings[1, ][nzchar(trimws(mat_strings[1, ]))])</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">  } else if (</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">241</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    arms &lt;- NULL</pre>
+                      <pre class="language-r">    (nrow(l_df[[1]]) == 0 &amp;&amp; nrow(l_df[[2]]) &gt; 0) ||</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">242</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      (nrow(l_df[[1]]) &gt; 0 &amp;&amp; nrow(l_df[[2]]) == 0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  ) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">244</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tbl_df &lt;- as_result_df(tbl)</pre>
+                      <pre class="language-r">    df_tte_complete &lt;- df_tte[stats::complete.cases(df_tte), ]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">245</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  dat_cols &lt;- seq(which(names(tbl_df) == "node_class") + 1, ncol(tbl_df))</pre>
+                      <pre class="language-r">    df &lt;- data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">246</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tbl_df &lt;- tbl_df[, c(which(names(tbl_df) == "row_num"), dat_cols)]</pre>
+                      <pre class="language-r">      # Dummy column needed downstream to create a nested header.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">247</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  names(tbl_df) &lt;- c("row_num", tbl_stats)</pre>
+                      <pre class="language-r">      arm = " ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">248</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      n_tot = nrow(df_tte_complete),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">249</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Check table data columns</pre>
+                      <pre class="language-r">      n_tot_events = sum(df_tte_complete$is_event),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">250</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(col_ci)) {</pre>
+                      <pre class="language-r">      hr = NA,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">251</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ci_col &lt;- col_ci + 1</pre>
+                      <pre class="language-r">      lcl = NA,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">252</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">      ucl = NA,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">253</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tbl_df[["empty_ci"]] &lt;- rep(list(c(NA_real_, NA_real_)), nrow(tbl_df))</pre>
+                      <pre class="language-r">      conf_level = control[["conf_level"]],</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">254</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ci_col &lt;- which(names(tbl_df) == "empty_ci")</pre>
+                      <pre class="language-r">      pval = NA,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">255</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      pval_label = NA,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">256</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(tbl_df[, ci_col][[1]]) != 2) stop("CI column must have two elements (lower and upper limits).")</pre>
+                      <pre class="language-r">      stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">258</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(col_x)) {</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">259</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_col &lt;- col_x + 1</pre>
+                      <pre class="language-r">    df &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">      # Dummy column needed downstream to create a nested header.</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">261</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tbl_df[["empty_x"]] &lt;- NA_real_</pre>
+                      <pre class="language-r">      arm = " ",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">262</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_col &lt;- which(names(tbl_df) == "empty_x")</pre>
+                      <pre class="language-r">      n_tot = 0L,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">263</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      n_tot_events = 0L,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">264</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(col_symbol_size)) {</pre>
+                      <pre class="language-r">      hr = NA,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">265</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    sym_size &lt;- unlist(tbl_df[, col_symbol_size + 1])</pre>
+                      <pre class="language-r">      lcl = NA,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">266</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">      ucl = NA,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">267</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    sym_size &lt;- rep(1, nrow(tbl_df))</pre>
+                      <pre class="language-r">      conf_level = control[["conf_level"]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">268</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      pval = NA,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">269</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      pval_label = NA,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">270</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tbl_df[, c("ci_lwr", "ci_upr")] &lt;- t(sapply(tbl_df[, ci_col], unlist))</pre>
+                      <pre class="language-r">      stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">271</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x &lt;- unlist(tbl_df[, x_col])</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">272</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lwr &lt;- unlist(tbl_df[["ci_lwr"]])</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">273</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  upr &lt;- unlist(tbl_df[["ci_upr"]])</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">274</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">85<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  row_num &lt;- nrow(mat_strings) - tbl_df[["row_num"]] - as.numeric(nlines_hdr == 2)</pre>
+                      <pre class="language-r">  df</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">275</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">276</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(col)) col &lt;- "#343cff"</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">277</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(col) == 1) col &lt;- rep(col, nrow(tbl_df))</pre>
+                      <pre class="language-r">#' @describeIn h_survival_duration_subgroups Summarizes estimates of the treatment hazard ratio</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">278</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(x_at)) x_at &lt;- union(xlim, vline)</pre>
+                      <pre class="language-r">#'   across subgroups in a data frame. `variables` corresponds to the names of variables found in</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">279</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_labels &lt;- x_at</pre>
+                      <pre class="language-r">#'   `data`, passed as a named list and requires elements `tte`, `is_event`, `arm` and</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">280</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   optionally `subgroups` and `strata`. `groups_lists` optionally specifies</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">281</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Apply log transformation</pre>
+                      <pre class="language-r">#'   groupings for `subgroups` variables.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">282</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (logx) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">283</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_t &lt;- log(x)</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">284</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lwr_t &lt;- log(lwr)</pre>
+                      <pre class="language-r">#' * `h_coxph_subgroups_df()` returns a `data.frame` with columns `arm`, `n_tot`, `n_tot_events`, `hr`,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">285</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    upr_t &lt;- log(upr)</pre>
+                      <pre class="language-r">#'   `lcl`, `ucl`, `conf_level`, `pval`, `pval_label`, `subgroup`, `var`, `var_label`, and `row_type`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">286</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xlim_t &lt;- log(xlim)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">288</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_t &lt;- x</pre>
+                      <pre class="language-r">#' # Extract hazard ratio for multiple groups.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">289</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lwr_t &lt;- lwr</pre>
+                      <pre class="language-r">#' h_coxph_subgroups_df(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">290</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    upr_t &lt;- upr</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">291</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xlim_t &lt;- xlim</pre>
+                      <pre class="language-r">#'     tte = "AVAL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">292</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'     is_event = "is_event",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     arm = "ARM",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Set up plot area</pre>
+                      <pre class="language-r">#'     subgroups = c("SEX", "BMRKR2")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">295</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  gg_plt &lt;- ggplot(data = tbl_df) +</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">296</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    theme(</pre>
+                      <pre class="language-r">#'   data = adtte_f</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">297</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      panel.background = element_rect(fill = "transparent", color = NA_character_),</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">298</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot.background = element_rect(fill = "transparent", color = NA_character_),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">299</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      panel.grid.major = element_blank(),</pre>
+                      <pre class="language-r">#' # Define groupings of BMRKR2 levels.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">300</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      panel.grid.minor = element_blank(),</pre>
+                      <pre class="language-r">#' h_coxph_subgroups_df(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">301</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      axis.title.x = element_blank(),</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">302</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      axis.title.y = element_blank(),</pre>
+                      <pre class="language-r">#'     tte = "AVAL",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">303</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      axis.line.x = element_line(),</pre>
+                      <pre class="language-r">#'     is_event = "is_event",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">304</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      axis.text = element_text(size = font_size),</pre>
+                      <pre class="language-r">#'     arm = "ARM",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">305</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      legend.position = "none",</pre>
+                      <pre class="language-r">#'     subgroups = c("SEX", "BMRKR2")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">306</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot.margin = margin(0, 0.1, 0.05, 0, "npc")</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) +</pre>
+                      <pre class="language-r">#'   data = adtte_f,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">308</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    scale_x_continuous(</pre>
+                      <pre class="language-r">#'   groups_lists = list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">309</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      transform = ifelse(logx, "log", "identity"),</pre>
+                      <pre class="language-r">#'     BMRKR2 = list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">310</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      limits = xlim,</pre>
+                      <pre class="language-r">#'       "low" = "LOW",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">311</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      breaks = x_at,</pre>
+                      <pre class="language-r">#'       "low/medium" = c("LOW", "MEDIUM"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">312</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      labels = x_labels,</pre>
+                      <pre class="language-r">#'       "low/medium/high" = c("LOW", "MEDIUM", "HIGH")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">313</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      expand = c(0.01, 0)</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) +</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">315</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    scale_y_continuous(</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">316</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      limits = c(0, nrow(mat_strings) + 1),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">317</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      breaks = NULL,</pre>
+                      <pre class="language-r">#' # Extract hazard ratio for multiple groups with stratification factors.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">318</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      expand = c(0, 0)</pre>
+                      <pre class="language-r">#' h_coxph_subgroups_df(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">319</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) +</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">320</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    coord_cartesian(clip = "off")</pre>
+                      <pre class="language-r">#'     tte = "AVAL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     is_event = "is_event",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">322</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(ggtheme)) {</pre>
+                      <pre class="language-r">#'     arm = "ARM",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">323</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gg_plt &lt;- gg_plt + annotate(</pre>
+                      <pre class="language-r">#'     subgroups = c("SEX", "BMRKR2"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">324</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "rect",</pre>
+                      <pre class="language-r">#'     strata = c("STRATA1", "STRATA2")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">325</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      xmin = xlim[1],</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">326</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      xmax = xlim[2],</pre>
+                      <pre class="language-r">#'   data = adtte_f</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">327</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ymin = 0,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">328</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ymax = nrows_body + 0.5,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">329</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      fill = "grey92"</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">330</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">h_coxph_subgroups_df &lt;- function(variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">331</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                                 data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">332</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                 groups_lists = list(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">333</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(vline)) {</pre>
+                      <pre class="language-r">                                 control = control_coxph(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">334</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Set default forest header</pre>
+                      <pre class="language-r">                                 label_all = "All Patients") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">335</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.null(forest_header)) {</pre>
+                      <pre class="language-r">  if ("strat" %in% names(variables)) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">336</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      forest_header &lt;- c(</pre>
+                      <pre class="language-r">    warning(</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">337</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        paste(if (length(arms) == 2) arms[1] else "Comparison", "Better", sep = "\n"),</pre>
+                      <pre class="language-r">      "Warning: the `strat` element name of the `variables` list argument to `h_coxph_subgroups_df() ",</pre>
                     </td>
                   </tr>
                   <tr class="missed">
                     <td class="num">338</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        paste(if (length(arms) == 2) arms[2] else "Treatment", "Better", sep = "\n")</pre>
+                      <pre class="language-r">      "was deprecated in tern 0.9.4.\n  ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">339</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      "Please use the name `strata` instead of `strat` in the `variables` argument."</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">340</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">341</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    variables[["strata"]] &lt;- variables[["strat"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">342</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Add vline and forest header labels</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">343</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mid_pts &lt;- if (logx) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">344</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      c(exp(mean(log(c(xlim[1], vline)))), exp(mean(log(c(vline, xlim[2])))))</pre>
+                      <pre class="language-r">  checkmate::assert_character(variables$tte)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">345</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">  checkmate::assert_character(variables$is_event)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">346</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      c(mean(c(xlim[1], vline)), mean(c(vline, xlim[2])))</pre>
+                      <pre class="language-r">  checkmate::assert_character(variables$arm)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">347</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  checkmate::assert_character(variables$subgroups, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">348</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gg_plt &lt;- gg_plt +</pre>
+                      <pre class="language-r">  checkmate::assert_character(variables$strata, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">349</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      annotate(</pre>
+                      <pre class="language-r">  assert_df_with_factors(data, list(val = variables$arm), min.levels = 2, max.levels = 2)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">350</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "segment",</pre>
+                      <pre class="language-r">  assert_df_with_variables(data, variables)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">351</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = vline, xend = vline, y = 0, yend = nrows_body + 0.5</pre>
+                      <pre class="language-r">  checkmate::assert_string(label_all)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">352</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ) +</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">353</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      annotate(</pre>
+                      <pre class="language-r">  # Add All Patients.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">354</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "text",</pre>
+                      <pre class="language-r">  result_all &lt;- h_coxph_df(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">355</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = mid_pts[1], y = nrows_body + 1.25,</pre>
+                      <pre class="language-r">    tte = data[[variables$tte]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">356</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label = forest_header[1],</pre>
+                      <pre class="language-r">    is_event = data[[variables$is_event]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">357</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        size = font_size / .pt,</pre>
+                      <pre class="language-r">    arm = data[[variables$arm]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">358</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        lineheight = 0.9</pre>
+                      <pre class="language-r">    strata_data = if (is.null(variables$strata)) NULL else data[variables$strata],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">359</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ) +</pre>
+                      <pre class="language-r">    control = control</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">360</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      annotate(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">361</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "text",</pre>
+                      <pre class="language-r">  result_all$subgroup &lt;- label_all</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">362</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = mid_pts[2], y = nrows_body + 1.25,</pre>
+                      <pre class="language-r">  result_all$var &lt;- "ALL"</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">363</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label = forest_header[2],</pre>
+                      <pre class="language-r">  result_all$var_label &lt;- label_all</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">364</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        size = font_size / .pt,</pre>
+                      <pre class="language-r">  result_all$row_type &lt;- "content"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">365</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        lineheight = 0.9</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">366</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  # Add Subgroups.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">367</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  if (is.null(variables$subgroups)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">368</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    result_all</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">369</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Add points to plot</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">370</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any(!is.na(x_t))) {</pre>
+                      <pre class="language-r">    l_data &lt;- h_split_by_subgroups(data, variables$subgroups, groups_lists = groups_lists)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">371</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_t[x &lt; xlim[1] | x &gt; xlim[2]] &lt;- NA</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">372</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gg_plt &lt;- gg_plt + geom_point(</pre>
+                      <pre class="language-r">    l_result &lt;- lapply(l_data, function(grp) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">373</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = x_t,</pre>
+                      <pre class="language-r">      result &lt;- h_coxph_df(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">374</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y = row_num,</pre>
+                      <pre class="language-r">        tte = grp$df[[variables$tte]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">375</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      color = col,</pre>
+                      <pre class="language-r">        is_event = grp$df[[variables$is_event]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">376</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      aes(size = sym_size),</pre>
+                      <pre class="language-r">        arm = grp$df[[variables$arm]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">377</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      na.rm = TRUE</pre>
+                      <pre class="language-r">        strata_data = if (is.null(variables$strata)) NULL else grp$df[variables$strata],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">378</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        control = control</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">379</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">380</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      result_labels &lt;- grp$df_labels[rep(1, times = nrow(result)), ]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">381</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  for (i in seq_len(nrow(tbl_df))) {</pre>
+                      <pre class="language-r">      cbind(result, result_labels)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">382</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Determine which arrow(s) to add to CI lines</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">383</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    which_arrow &lt;- c(lwr_t[i] &lt; xlim_t[1], upr_t[i] &gt; xlim_t[2])</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">384</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    which_arrow &lt;- dplyr::case_when(</pre>
+                      <pre class="language-r">    result_subgroups &lt;- do.call(rbind, args = c(l_result, make.row.names = FALSE))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">385</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      all(which_arrow) ~ "both",</pre>
+                      <pre class="language-r">    result_subgroups$row_type &lt;- "analysis"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">386</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      which_arrow[1] ~ "first",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">387</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      which_arrow[2] ~ "last",</pre>
+                      <pre class="language-r">    rbind(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">388</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      TRUE ~ NA_character_</pre>
+                      <pre class="language-r">      result_all,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">389</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      result_subgroups</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">390</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">391</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Add CI lines</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">392</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gg_plt &lt;- gg_plt +</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">393</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.na(which_arrow)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">394</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        annotate(</pre>
+                      <pre class="language-r">#' Split data frame by subgroups</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">395</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "segment",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">396</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = if (!which_arrow %in% c("first", "both")) lwr[i] else xlim[1],</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">397</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          xend = if (!which_arrow %in% c("last", "both")) upr[i] else xlim[2],</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">398</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          y = row_num[i], yend = row_num[i],</pre>
+                      <pre class="language-r">#' Split a data frame into a non-nested list of subsets.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">399</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          color = if (length(col) == 1) col else col[i],</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">400</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          arrow = arrow(length = unit(0.05, "npc"), ends = which_arrow),</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">401</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          na.rm = TRUE</pre>
+                      <pre class="language-r">#' @inheritParams survival_duration_subgroups</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">402</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' @param data (`data.frame`)\cr dataset to split.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">403</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">#' @param subgroups (`character`)\cr names of factor variables from `data` used to create subsets.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">404</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        annotate(</pre>
+                      <pre class="language-r">#'   Unused levels not present in `data` are dropped. Note that the order in this vector</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">405</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "segment",</pre>
+                      <pre class="language-r">#'   determines the order in the downstream table.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">406</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = lwr[i], xend = upr[i],</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">407</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          y = row_num[i], yend = row_num[i],</pre>
+                      <pre class="language-r">#' @return A list with subset data (`df`) and metadata about the subset (`df_labels`).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">408</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          color = if (length(col) == 1) col else col[i],</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">409</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          na.rm = TRUE</pre>
+                      <pre class="language-r">#' @details Main functionality is to prepare data for use in forest plot layouts.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">410</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">411</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">412</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' df &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">413</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   x = c(1:5),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">414</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Apply custom ggtheme to plot</pre>
+                      <pre class="language-r">#'   y = factor(c("A", "B", "A", "B", "A"), levels = c("A", "B", "C")),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">415</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(ggtheme)) gg_plt &lt;- gg_plt + ggtheme</pre>
+                      <pre class="language-r">#'   z = factor(c("C", "C", "D", "D", "D"), levels = c("D", "C"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">416</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">417</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (as_list) {</pre>
+                      <pre class="language-r">#' formatters::var_labels(df) &lt;- paste("label for", names(df))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">418</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">419</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      table = gg_table,</pre>
+                      <pre class="language-r">#' h_split_by_subgroups(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">420</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      plot = gg_plt</pre>
+                      <pre class="language-r">#'   data = df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">421</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'   subgroups = c("y", "z")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">422</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">423</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    cowplot::plot_grid(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">424</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      gg_table,</pre>
+                      <pre class="language-r">#' h_split_by_subgroups(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">425</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      gg_plt,</pre>
+                      <pre class="language-r">#'   data = df,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">426</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      align = "h",</pre>
+                      <pre class="language-r">#'   subgroups = c("y", "z"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">427</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      axis = "tblr",</pre>
+                      <pre class="language-r">#'   groups_lists = list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">428</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rel_widths = c(1 - rel_width_forest, rel_width_forest)</pre>
+                      <pre class="language-r">#'     y = list("AB" = c("A", "B"), "C" = "C")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">429</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">430</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">431</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">432</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">433</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Forest plot grob</pre>
+                      <pre class="language-r">h_split_by_subgroups &lt;- function(data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">434</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                 subgroups,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">435</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
+                      <pre class="language-r">                                 groups_lists = list()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">436</td>
+                    <td class="coverage">66<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_character(subgroups, min.len = 1, any.missing = FALSE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">437</td>
+                    <td class="coverage">66<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_list(groups_lists, names = "named")</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">438</td>
+                    <td class="coverage">66<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_subset(names(groups_lists), subgroups)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">439</td>
+                    <td class="coverage">66<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  assert_df_with_factors(data, as.list(stats::setNames(subgroups, subgroups)))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">440</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">441</td>
+                    <td class="coverage">66<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  data_labels &lt;- unname(formatters::var_labels(data))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">442</td>
+                    <td class="coverage">66<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  df_subgroups &lt;- data[, subgroups, drop = FALSE]</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">443</td>
+                    <td class="coverage">66<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  subgroup_labels &lt;- formatters::var_labels(df_subgroups, fill = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">437</td>
+                    <td class="num">444</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams g_forest</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">445</td>
+                    <td class="coverage">66<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  l_labels &lt;- Map(function(grp_i, name_i) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">446</td>
+                    <td class="coverage">120<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    existing_levels &lt;- levels(droplevels(grp_i))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">447</td>
+                    <td class="coverage">120<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    grp_levels &lt;- if (name_i %in% names(groups_lists)) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">438</td>
+                    <td class="num">448</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param tbl (`VTableTree`)\cr `rtables` table object.</pre>
+                      <pre class="language-r">      # For this variable groupings are defined. We check which groups are contained in the data.</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">449</td>
+                    <td class="coverage">11<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      group_list_i &lt;- groups_lists[[name_i]]</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">450</td>
+                    <td class="coverage">11<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      group_has_levels &lt;- vapply(group_list_i, function(lvls) any(lvls %in% existing_levels), TRUE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">451</td>
+                    <td class="coverage">11<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      names(which(group_has_levels))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">439</td>
+                    <td class="num">452</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`numeric`)\cr coordinate of point.</pre>
+                      <pre class="language-r">    } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">453</td>
+                    <td class="coverage">109<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      existing_levels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">440</td>
+                    <td class="num">454</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param lower,upper (`numeric`)\cr lower/upper bound of the confidence interval.</pre>
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">455</td>
+                    <td class="coverage">120<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    df_labels &lt;- data.frame(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">456</td>
+                    <td class="coverage">120<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      subgroup = grp_levels,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">457</td>
+                    <td class="coverage">120<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      var = name_i,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">458</td>
+                    <td class="coverage">120<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      var_label = unname(subgroup_labels[name_i]),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">459</td>
+                    <td class="coverage">120<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      stringsAsFactors = FALSE # Rationale is that subgroups may not be unique.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">441</td>
+                    <td class="num">460</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param symbol_size (`numeric`)\cr vector with relative size for plot symbol.</pre>
+                      <pre class="language-r">    )</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">461</td>
+                    <td class="coverage">66<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }, df_subgroups, names(df_subgroups))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">442</td>
+                    <td class="num">462</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   If `NULL`, the same symbol size is used.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">443</td>
+                    <td class="num">463</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  # Create a data frame with one row per subgroup.</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">464</td>
+                    <td class="coverage">66<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  df_labels &lt;- do.call(rbind, args = c(l_labels, make.row.names = FALSE))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">465</td>
+                    <td class="coverage">66<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  row_label &lt;- paste0(df_labels$var, ".", df_labels$subgroup)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">466</td>
+                    <td class="coverage">66<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  row_split_var &lt;- factor(row_label, levels = row_label)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">444</td>
+                    <td class="num">467</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">445</td>
+                    <td class="num">468</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The heights get automatically determined.</pre>
+                      <pre class="language-r">  # Create a list of data subsets.</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">469</td>
+                    <td class="coverage">66<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  lapply(split(df_labels, row_split_var), function(row_i) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">470</td>
+                    <td class="coverage">294<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    which_row &lt;- if (row_i$var %in% names(groups_lists)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">471</td>
+                    <td class="coverage">31<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      data[[row_i$var]] %in% groups_lists[[row_i$var]][[row_i$subgroup]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">446</td>
+                    <td class="num">472</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">473</td>
+                    <td class="coverage">263<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      data[[row_i$var]] == row_i$subgroup</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">447</td>
+                    <td class="num">474</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">475</td>
+                    <td class="coverage">294<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    df &lt;- data[which_row, ]</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">476</td>
+                    <td class="coverage">294<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    rownames(df) &lt;- NULL</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">477</td>
+                    <td class="coverage">294<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    formatters::var_labels(df) &lt;- data_labels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">448</td>
+                    <td class="num">478</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tbl &lt;- rtable(</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">479</td>
+                    <td class="coverage">294<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    list(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">480</td>
+                    <td class="coverage">294<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      df = df,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">481</td>
+                    <td class="coverage">294<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      df_labels = data.frame(row_i, row.names = NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">449</td>
+                    <td class="num">482</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   header = rheader(</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">450</td>
+                    <td class="num">483</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     rrow("", "E", rcell("CI", colspan = 2), "N"),</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">451</td>
+                    <td class="num">484</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     rrow("", "A", "B", "C", "D")</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/h_map_for_count_abnormal.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">452</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#' Helper function to create a map data frame for `trim_levels_to_map()`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">453</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   rrow("row 1", 1, 0.8, 1.1, 16),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">454</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   rrow("row 2", 1.4, 0.8, 1.6, 25),</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">455</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   rrow("row 3", 1.2, 0.8, 1.6, 36)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">456</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' Helper function to create a map data frame from the input dataset, which can be used as an argument in the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">457</td>
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' `trim_levels_to_map` split function. Based on different method, the map is constructed differently.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">458</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x &lt;- c(1, 1.4, 1.2)</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">459</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' lower &lt;- c(0.8, 0.8, 0.8)</pre>
+                      <pre class="language-r">#' @param abnormal (named `list`)\cr identifying the abnormal range level(s) in `df`. Based on the levels of</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">460</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' upper &lt;- c(1.1, 1.6, 1.6)</pre>
+                      <pre class="language-r">#'   abnormality of the input dataset, it can be something like `list(Low = "LOW LOW", High = "HIGH HIGH")` or</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">461</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # numeric vector with multiplication factor to scale each circle radius</pre>
+                      <pre class="language-r">#'   `abnormal = list(Low = "LOW", High = "HIGH"))`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">462</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # default radius is 1/3.5 lines</pre>
+                      <pre class="language-r">#' @param method (`string`)\cr indicates how the returned map will be constructed. Can be `"default"` or `"range"`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">463</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' symbol_scale &lt;- c(1, 1.25, 1.5)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">464</td>
+                    <td class="num">14</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @return A map `data.frame`.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">465</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Internal function - forest_grob</pre>
+                      <pre class="language-r">#' @note If method is `"default"`, the returned map will only have the abnormal directions that are observed in the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">466</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' \donttest{</pre>
+                      <pre class="language-r">#'   `df`, and records with all normal values will be excluded to avoid error in creating layout. If method is</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">467</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' p &lt;- forest_grob(tbl, x, lower, upper,</pre>
+                      <pre class="language-r">#'   `"range"`, the returned map will be based on the rule that at least one observation with low range &gt; 0</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">468</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   vline = 1, forest_header = c("A", "B"),</pre>
+                      <pre class="language-r">#'   for low direction and at least one observation with high range is not missing for high direction.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">469</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   x_at = c(.1, 1, 10), xlim = c(0.1, 10), logx = TRUE, symbol_size = symbol_scale,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">470</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   vp = grid::plotViewport(margins = c(1, 1, 1, 1))</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">471</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' adlb &lt;- df_explicit_na(tern_ex_adlb)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">472</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">473</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' draw_grob(p)</pre>
+                      <pre class="language-r">#' h_map_for_count_abnormal(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">474</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#'   df = adlb,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">475</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   variables = list(anl = "ANRIND", split_rows = c("LBCAT", "PARAM")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">476</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">#'   abnormal = list(low = c("LOW"), high = c("HIGH")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">477</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'   method = "default",</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">29</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   na_str = "&lt;Missing&gt;"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">478</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">forest_grob &lt;- function(tbl,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">479</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        x,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">480</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        lower,</pre>
+                      <pre class="language-r">#' df &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">481</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        upper,</pre>
+                      <pre class="language-r">#'   USUBJID = c(rep("1", 4), rep("2", 4), rep("3", 4)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">482</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        vline,</pre>
+                      <pre class="language-r">#'   AVISIT = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">483</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        forest_header,</pre>
+                      <pre class="language-r">#'     rep("WEEK 1", 2),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">484</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        xlim = NULL,</pre>
+                      <pre class="language-r">#'     rep("WEEK 2", 2),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">485</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        logx = FALSE,</pre>
+                      <pre class="language-r">#'     rep("WEEK 1", 2),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">486</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        x_at = NULL,</pre>
+                      <pre class="language-r">#'     rep("WEEK 2", 2),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">487</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        width_row_names = NULL,</pre>
+                      <pre class="language-r">#'     rep("WEEK 1", 2),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">488</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        width_columns = NULL,</pre>
+                      <pre class="language-r">#'     rep("WEEK 2", 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">489</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        width_forest = grid::unit(1, "null"),</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">490</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        symbol_size = NULL,</pre>
+                      <pre class="language-r">#'   PARAM = rep(c("ALT", "CPR"), 6),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">491</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        col = "blue",</pre>
+                      <pre class="language-r">#'   ANRIND = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">492</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        name = NULL,</pre>
+                      <pre class="language-r">#'     "NORMAL", "NORMAL", "LOW",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">493</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        gp = NULL,</pre>
+                      <pre class="language-r">#'     "HIGH", "LOW", "LOW", "HIGH", "HIGH", rep("NORMAL", 4)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">494</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        vp = NULL) {</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">495</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">47</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
+                      <pre class="language-r">#'   ANRLO = rep(5, 12),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">496</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">48</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "0.9.4", "forest_grob()",</pre>
+                      <pre class="language-r">#'   ANRHI = rep(20, 12)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">497</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">49</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    details = "`g_forest` now generates `ggplot` objects. This function is no longer used within `tern`."</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">498</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' df$ANRIND &lt;- factor(df$ANRIND, levels = c("LOW", "HIGH", "NORMAL"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">499</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' h_map_for_count_abnormal(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">500</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">52</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nr &lt;- nrow(tbl)</pre>
+                      <pre class="language-r">#'   df = df,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">501</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">53</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(vline)) {</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">502</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">54</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_true(is.null(forest_header))</pre>
+                      <pre class="language-r">#'     anl = "ANRIND",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">503</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#'     split_rows = c("PARAM"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">504</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">56</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_number(vline)</pre>
+                      <pre class="language-r">#'     range_low = "ANRLO",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">505</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">57</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_character(forest_header, len = 2, null.ok = TRUE)</pre>
+                      <pre class="language-r">#'     range_high = "ANRHI"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">506</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">507</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   abnormal = list(low = c("LOW"), high = c("HIGH")),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">508</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">60</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(x, len = nr)</pre>
+                      <pre class="language-r">#'   method = "range",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">509</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">61</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(lower, len = nr)</pre>
+                      <pre class="language-r">#'   na_str = "&lt;Missing&gt;"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">510</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">62</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(upper, len = nr)</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">511</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">63</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(symbol_size, len = nr, null.ok = TRUE)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">512</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">64</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(col)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">513</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">h_map_for_count_abnormal &lt;- function(df,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">514</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">66</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(symbol_size)) {</pre>
+                      <pre class="language-r">                                     variables = list(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">515</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">67</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    symbol_size &lt;- rep(1, nr)</pre>
+                      <pre class="language-r">                                       anl = "ANRIND",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">516</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                                       split_rows = c("PARAM"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">517</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                       range_low = "ANRLO",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">518</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(xlim)) {</pre>
+                      <pre class="language-r">                                       range_high = "ANRHI"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">519</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">71</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    r &lt;- range(c(x, lower, upper), na.rm = TRUE)</pre>
+                      <pre class="language-r">                                     ),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">520</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">72</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xlim &lt;- r + c(-0.05, 0.05) * diff(r)</pre>
+                      <pre class="language-r">                                     abnormal = list(low = c("LOW", "LOW LOW"), high = c("HIGH", "HIGH HIGH")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">521</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                                     method = c("default", "range"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">522</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                     na_str = "&lt;Missing&gt;") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">523</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">75</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (logx) {</pre>
+                      <pre class="language-r">  method &lt;- match.arg(method)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">524</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    if (is.null(x_at)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">525</td>
-                    <td class="coverage">!</td>
+                    <td class="num">76</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x_at &lt;- pretty(log(stats::na.omit(c(x, lower, upper))))</pre>
+                      <pre class="language-r">  checkmate::assert_subset(c("anl", "split_rows"), names(variables))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">526</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">77</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x_labels &lt;- exp(x_at)</pre>
+                      <pre class="language-r">  checkmate::assert_false(anyNA(df[variables$split_rows]))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">527</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">78</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">  assert_df_with_variables(df,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">528</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">79</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x_labels &lt;- x_at</pre>
+                      <pre class="language-r">    variables = list(anl = variables$anl, split_rows = variables$split_rows),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">529</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">80</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x_at &lt;- log(x_at)</pre>
+                      <pre class="language-r">    na_level = na_str</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">530</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">531</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    xlim &lt;- log(xlim)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">532</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    x &lt;- log(x)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">533</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">82</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lower &lt;- log(lower)</pre>
+                      <pre class="language-r">  assert_df_with_factors(df, list(val = variables$anl))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">534</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">83</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    upper &lt;- log(upper)</pre>
+                      <pre class="language-r">  assert_valid_factor(df[[variables$anl]], any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">535</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">84</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.null(vline)) {</pre>
+                      <pre class="language-r">  assert_list_of_variables(variables)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">536</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">85</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vline &lt;- log(vline)</pre>
+                      <pre class="language-r">  checkmate::assert_list(abnormal, types = "character", len = 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">537</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">538</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">539</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    x_labels &lt;- TRUE</pre>
+                      <pre class="language-r">  # Drop usued levels from df as they are not supposed to be in the final map</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">540</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">88</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  df &lt;- droplevels(df)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">541</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">542</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">90</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data_forest_vp &lt;- grid::dataViewport(xlim, c(0, 1))</pre>
+                      <pre class="language-r">  normal_value &lt;- setdiff(levels(df[[variables$anl]]), unlist(abnormal))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">543</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">544</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Get table content as matrix form.</pre>
+                      <pre class="language-r">  # Based on the understanding of clinical data, there should only be one level of normal which is "NORMAL"</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">545</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">93</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mf &lt;- matrix_form(tbl)</pre>
+                      <pre class="language-r">  checkmate::assert_vector(normal_value, len = 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">546</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">547</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Use `rtables` indent_string eventually.</pre>
+                      <pre class="language-r">  # Default method will only have what is observed in the df, and records with all normal values will be excluded to</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">548</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">96</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mf$strings[, 1] &lt;- paste0(</pre>
+                      <pre class="language-r">  # avoid error in layout building.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">549</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">97</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    strrep("    ", c(rep(0, attr(mf, "nrow_header")), mf$row_info$indent)),</pre>
+                      <pre class="language-r">  if (method == "default") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">550</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">98</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mf$strings[, 1]</pre>
+                      <pre class="language-r">    df_abnormal &lt;- subset(df, df[[variables$anl]] %in% unlist(abnormal))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">551</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">99</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    map &lt;- unique(df_abnormal[c(variables$split_rows, variables$anl)])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">552</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">100</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    map_normal &lt;- unique(subset(map, select = variables$split_rows))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">553</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">101</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n_header &lt;- attr(mf, "nrow_header")</pre>
+                      <pre class="language-r">    map_normal[[variables$anl]] &lt;- normal_value</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">554</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">102</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    map &lt;- rbind(map, map_normal)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">555</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">103</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any(mf$display[, 1] == FALSE)) stop("row names need to be always displayed")</pre>
+                      <pre class="language-r">  } else if (method == "range") {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">556</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # range method follows the rule that at least one observation with ANRLO &gt; 0 for low</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">557</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Pre-process the data to be used in lapply and cell_in_rows.</pre>
+                      <pre class="language-r">    # direction and at least one observation with ANRHI is not missing for high direction.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">558</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">106</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  to_args_for_cell_in_rows_fun &lt;- function(part = c("body", "header"),</pre>
+                      <pre class="language-r">    checkmate::assert_subset(c("range_low", "range_high"), names(variables))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">559</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">107</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                           underline_colspan = FALSE) {</pre>
+                      <pre class="language-r">    checkmate::assert_subset(c("LOW", "HIGH"), toupper(names(abnormal)))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">560</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">108</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    part &lt;- match.arg(part)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">561</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">109</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (part == "body") {</pre>
+                      <pre class="language-r">    assert_df_with_variables(df,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">562</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">110</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      mat_row_indices &lt;- seq_len(nrow(tbl)) + n_header</pre>
+                      <pre class="language-r">      variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">563</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      row_ind_offset &lt;- -n_header</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">564</td>
-                    <td class="coverage"></td>
+                    <td class="num">111</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">        range_low = variables$range_low,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">565</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">112</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      mat_row_indices &lt;- seq_len(n_header)</pre>
+                      <pre class="language-r">        range_high = variables$range_high</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">566</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">113</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      row_ind_offset &lt;- 0</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">567</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">568</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">569</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">116</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lapply(mat_row_indices, function(i) {</pre>
+                      <pre class="language-r">    # Define low direction of map</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">570</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">117</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      disp &lt;- mf$display[i, -1]</pre>
+                      <pre class="language-r">    df_low &lt;- subset(df, df[[variables$range_low]] &gt; 0)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">571</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">118</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      list(</pre>
+                      <pre class="language-r">    map_low &lt;- unique(df_low[variables$split_rows])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">572</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">119</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        row_name = mf$strings[i, 1],</pre>
+                      <pre class="language-r">    low_levels &lt;- unname(unlist(abnormal[toupper(names(abnormal)) == "LOW"]))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">573</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">120</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        cells = mf$strings[i, -1][disp],</pre>
+                      <pre class="language-r">    low_levels_df &lt;- as.data.frame(low_levels)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">574</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">121</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        cell_spans = mf$spans[i, -1][disp],</pre>
+                      <pre class="language-r">    colnames(low_levels_df) &lt;- variables$anl</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">575</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">122</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        row_index = i + row_ind_offset,</pre>
+                      <pre class="language-r">    low_levels_df &lt;- do.call("rbind", replicate(nrow(map_low), low_levels_df, simplify = FALSE))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">576</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">123</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        underline_colspan = underline_colspan</pre>
+                      <pre class="language-r">    rownames(map_low) &lt;- NULL # Just to avoid strange row index in case upstream functions changed</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">577</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">124</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    map_low &lt;- map_low[rep(seq_len(nrow(map_low)), each = length(low_levels)), , drop = FALSE]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">578</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">125</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">    map_low &lt;- cbind(map_low, low_levels_df)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">579</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">580</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # Define high direction of map</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">581</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">128</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  args_header &lt;- to_args_for_cell_in_rows_fun("header", underline_colspan = TRUE)</pre>
+                      <pre class="language-r">    df_high &lt;- subset(df, df[[variables$range_high]] != na_str | !is.na(df[[variables$range_high]]))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">582</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">129</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  args_body &lt;- to_args_for_cell_in_rows_fun("body", underline_colspan = FALSE)</pre>
+                      <pre class="language-r">    map_high &lt;- unique(df_high[variables$split_rows])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">583</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">130</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    high_levels &lt;- unname(unlist(abnormal[toupper(names(abnormal)) == "HIGH"]))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">584</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">131</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  grid::gTree(</pre>
+                      <pre class="language-r">    high_levels_df &lt;- as.data.frame(high_levels)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">585</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">132</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    name = name,</pre>
+                      <pre class="language-r">    colnames(high_levels_df) &lt;- variables$anl</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">586</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">133</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    children = grid::gList(</pre>
+                      <pre class="language-r">    high_levels_df &lt;- do.call("rbind", replicate(nrow(map_high), high_levels_df, simplify = FALSE))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">587</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">134</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      grid::gTree(</pre>
+                      <pre class="language-r">    rownames(map_high) &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">588</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">135</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        children = do.call(grid::gList, lapply(args_header, do.call, what = cell_in_rows)),</pre>
+                      <pre class="language-r">    map_high &lt;- map_high[rep(seq_len(nrow(map_high)), each = length(high_levels)), , drop = FALSE]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">589</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">136</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        vp = grid::vpPath("vp_table_layout", "vp_header")</pre>
+                      <pre class="language-r">    map_high &lt;- cbind(map_high, high_levels_df)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">590</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">591</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">138</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      grid::gTree(</pre>
+                      <pre class="language-r">    # Define normal of map</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">592</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">139</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        children = do.call(grid::gList, lapply(args_body, do.call, what = cell_in_rows)),</pre>
+                      <pre class="language-r">    map_normal &lt;- unique(rbind(map_low, map_high)[variables$split_rows])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">593</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">140</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        vp = grid::vpPath("vp_table_layout", "vp_body")</pre>
+                      <pre class="language-r">    map_normal[variables$anl] &lt;- normal_value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">594</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">595</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">142</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      grid::linesGrob(</pre>
+                      <pre class="language-r">    map &lt;- rbind(map_low, map_high, map_normal)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">596</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">143</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        grid::unit(c(0, 1), "npc"),</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">597</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">144</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        y = grid::unit(c(.5, .5), "npc"),</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">145</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  # map should be all characters</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">598</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">146</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        vp = grid::vpPath("vp_table_layout", "vp_spacer")</pre>
+                      <pre class="language-r">  map &lt;- data.frame(lapply(map, as.character), stringsAsFactors = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">599</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">600</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # forest part</pre>
+                      <pre class="language-r">  # sort the map final output by split_rows variables</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">601</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">149</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (is.null(vline)) {</pre>
+                      <pre class="language-r">  for (i in rev(seq_len(length(variables$split_rows)))) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">602</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">150</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        NULL</pre>
+                      <pre class="language-r">    map &lt;- map[order(map[[i]]), ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">603</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">604</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        grid::gTree(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">605</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">152</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          children = grid::gList(</pre>
+                      <pre class="language-r">  map</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">606</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">153</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            grid::gTree(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">607</td>
-                    <td class="coverage">1<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/count_occurrences.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
+                  <tr class="never">
+                    <td class="num">1</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              children = grid::gList(</pre>
+                      <pre class="language-r">#' Count occurrences</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">608</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                # this may overflow, to fix, look here</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">609</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                # https://stackoverflow.com/questions/33623169/add-multi-line-footnote-to-tablegrob-while-using-gridextra-in-r # nolint</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">610</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                grid::textGrob(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">611</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  forest_header[1],</pre>
+                      <pre class="language-r">#' The analyze function [count_occurrences()] creates a layout element to calculate occurrence counts for patients.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">612</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  x = grid::unit(vline, "native") - grid::unit(1, "lines"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">613</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">7</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  just = c("right", "center")</pre>
+                      <pre class="language-r">#' This function analyzes the variable(s) supplied to `vars` and returns a table of occurrence counts for</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">614</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                ),</pre>
+                      <pre class="language-r">#' each unique value (or level) of the variable(s). This variable (or variables) must be</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">615</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                grid::textGrob(</pre>
+                      <pre class="language-r">#' non-numeric. The `id` variable is used to indicate unique subject identifiers (defaults to `USUBJID`).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">616</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  forest_header[2],</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">617</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  x = grid::unit(vline, "native") + grid::unit(1, "lines"),</pre>
+                      <pre class="language-r">#' If there are multiple occurrences of the same value recorded for a patient, the value is only counted once.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">618</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  just = c("left", "center")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">619</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">#' The summarize function [summarize_occurrences()] performs the same function as [count_occurrences()] except it</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">620</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              ),</pre>
+                      <pre class="language-r">#' creates content rows, not data rows, to summarize the current table row/column context and operates on the level of</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">621</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">15</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              vp = grid::vpStack(grid::viewport(layout.pos.col = ncol(tbl) + 2), data_forest_vp)</pre>
+                      <pre class="language-r">#' the latest row split or the root of the table if no row splits have occurred.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">622</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">623</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">624</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          vp = grid::vpPath("vp_table_layout", "vp_header")</pre>
+                      <pre class="language-r">#' @param drop (`flag`)\cr whether non-appearing occurrence levels should be dropped from the resulting table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">625</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'   Note that in that case the remaining occurrence levels in the table are sorted alphabetically.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">626</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("count_occurrences")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">627</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      grid::gTree(</pre>
+                      <pre class="language-r">#'   to see available statistics for this function.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">628</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">22</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        children = grid::gList(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">629</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">23</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          grid::gTree(</pre>
+                      <pre class="language-r">#' @note By default, occurrences which don't appear in a given row split are dropped from the table and</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">630</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            children = grid::gList(</pre>
+                      <pre class="language-r">#'   the occurrences in the table are sorted alphabetically per row split. Therefore, the corresponding layout</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">631</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">25</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              grid::rectGrob(gp = grid::gpar(col = "gray90", fill = "gray90")),</pre>
+                      <pre class="language-r">#'   needs to use `split_fun = drop_split_levels` in the `split_rows_by` calls. Use `drop = FALSE` if you would</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">632</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">26</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              if (is.null(vline)) {</pre>
+                      <pre class="language-r">#'   like to show all occurrences.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">633</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">27</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                NULL</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">634</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              } else {</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">635</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">29</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                grid::linesGrob(</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">636</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">30</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  x = grid::unit(rep(vline, 2), "native"),</pre>
+                      <pre class="language-r">#' df &lt;- data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">637</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">31</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  y = grid::unit(c(0, 1), "npc"),</pre>
+                      <pre class="language-r">#'   USUBJID = as.character(c(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">638</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">32</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  gp = grid::gpar(lwd = 2),</pre>
+                      <pre class="language-r">#'     1, 1, 2, 4, 4, 4,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">639</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">33</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  vp = data_forest_vp</pre>
+                      <pre class="language-r">#'     6, 6, 6, 7, 7, 8</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">640</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">#'   )),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">641</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              },</pre>
+                      <pre class="language-r">#'   MHDECOD = c(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">642</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">36</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              grid::xaxisGrob(at = x_at, label = x_labels, vp = data_forest_vp)</pre>
+                      <pre class="language-r">#'     "MH1", "MH2", "MH1", "MH1", "MH1", "MH3",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">643</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            ),</pre>
+                      <pre class="language-r">#'     "MH2", "MH2", "MH3", "MH1", "MH2", "MH4"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">644</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">38</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            vp = grid::viewport(layout.pos.col = ncol(tbl) + 2)</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">645</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#'   ARM = rep(c("A", "B"), each = 6),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">646</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">#'   SEX = c("F", "F", "M", "M", "M", "M", "F", "F", "F", "M", "M", "F")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">647</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">41</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        vp = grid::vpPath("vp_table_layout", "vp_body")</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">648</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">#' df_adsl &lt;- df %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">649</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">43</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      grid::gTree(</pre>
+                      <pre class="language-r">#'   select(USUBJID, ARM) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">650</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">44</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        children = do.call(</pre>
+                      <pre class="language-r">#'   unique()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">651</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">45</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          grid::gList,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">652</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">46</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          Map(</pre>
+                      <pre class="language-r">#' @name count_occurrences</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">653</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">47</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            function(xi, li, ui, row_index, size_i, col) {</pre>
+                      <pre class="language-r">#' @order 1</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">654</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">48</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              forest_dot_line(</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">655</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">49</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                xi,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">656</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">50</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                li,</pre>
+                      <pre class="language-r">#' @describeIn count_occurrences Statistics function which counts number of patients that report an</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">657</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">51</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                ui,</pre>
+                      <pre class="language-r">#' occurrence.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">658</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">52</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                row_index,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">659</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">53</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                xlim,</pre>
+                      <pre class="language-r">#' @param denom (`string`)\cr choice of denominator for patient proportions. Can be:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">660</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">54</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                symbol_size = size_i,</pre>
+                      <pre class="language-r">#'   - `N_col`: total number of patients in this column across rows</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">661</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">55</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                col = col,</pre>
+                      <pre class="language-r">#'   - `n`: number of patients with any occurrences</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">662</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">56</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                datavp = data_forest_vp</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">663</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">664</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            },</pre>
+                      <pre class="language-r">#' * `s_count_occurrences()` returns a list with:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">665</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">59</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            x,</pre>
+                      <pre class="language-r">#'   * `count`: list of counts with one element per occurrence.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">666</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">60</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            lower,</pre>
+                      <pre class="language-r">#'   * `count_fraction`: list of counts and fractions with one element per occurrence.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">667</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">61</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            upper,</pre>
+                      <pre class="language-r">#'   * `fraction`: list of numerators and denominators with one element per occurrence.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">668</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">62</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            seq_along(x),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">669</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">63</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            symbol_size,</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">670</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">64</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            col,</pre>
+                      <pre class="language-r">#' # Count unique occurrences per subject.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">671</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">65</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            USE.NAMES = FALSE</pre>
+                      <pre class="language-r">#' s_count_occurrences(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">672</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#'   df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">673</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">#'   .N_col = 4L,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">674</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">68</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        vp = grid::vpPath("vp_table_layout", "vp_body")</pre>
+                      <pre class="language-r">#'   .df_row = df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">675</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'   .var = "MHDECOD",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">676</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">#'   id = "USUBJID"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">677</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">71</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    childrenvp = forest_viewport(tbl, width_row_names, width_columns, width_forest),</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">678</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">72</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vp = vp,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">679</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">73</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gp = gp</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">680</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">s_count_occurrences &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">681</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">                                denom = c("N_col", "n"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">682</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                .N_col, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">683</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">cell_in_rows &lt;- function(row_name,</pre>
+                      <pre class="language-r">                                .df_row,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">684</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         cells,</pre>
+                      <pre class="language-r">                                drop = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">685</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         cell_spans,</pre>
+                      <pre class="language-r">                                .var = "MHDECOD",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">686</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         row_index,</pre>
+                      <pre class="language-r">                                id = "USUBJID") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">687</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">81</td>
+                    <td class="coverage">126<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         underline_colspan = FALSE) {</pre>
+                      <pre class="language-r">  checkmate::assert_flag(drop)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">688</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">82</td>
+                    <td class="coverage">126<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(row_name)</pre>
+                      <pre class="language-r">  assert_df_with_variables(df, list(range = .var, id = id))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">689</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">83</td>
+                    <td class="coverage">126<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(cells, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">  checkmate::assert_count(.N_col)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">690</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">84</td>
+                    <td class="coverage">126<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(cell_spans, len = length(cells), any.missing = FALSE)</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(df[[.var]], classes = c("factor", "character"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">691</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">85</td>
+                    <td class="coverage">126<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(row_index)</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(df[[id]], classes = c("factor", "character"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">692</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">86</td>
+                    <td class="coverage">126<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(underline_colspan)</pre>
+                      <pre class="language-r">  denom &lt;- match.arg(denom)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">693</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">694</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">88</td>
+                    <td class="coverage">126<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  vp_name_rn &lt;- paste0("rowname-", row_index)</pre>
+                      <pre class="language-r">  occurrences &lt;- if (drop) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">695</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">89</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  g_rowname &lt;- if (!is.null(row_name) &amp;&amp; row_name != "") {</pre>
+                      <pre class="language-r">    # Note that we don't try to preserve original level order here since a) that would required</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">696</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">90</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    grid::textGrob(</pre>
+                      <pre class="language-r">    # more time to look up in large original levels and b) that would fail for character input variable.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">697</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">91</td>
+                    <td class="coverage">115<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      name = vp_name_rn,</pre>
+                      <pre class="language-r">    occurrence_levels &lt;- sort(unique(.df_row[[.var]]))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">698</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">92</td>
+                    <td class="coverage">115<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      label = row_name,</pre>
+                      <pre class="language-r">    if (length(occurrence_levels) == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">699</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">93</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = grid::unit(0, "npc"),</pre>
+                      <pre class="language-r">      stop(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">700</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">94</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      just = c("left", "center"),</pre>
+                      <pre class="language-r">        "no empty `.df_row` input allowed when `drop = TRUE`,",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">701</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">95</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vp = grid::vpPath(paste0("rowname-", row_index))</pre>
+                      <pre class="language-r">        " please use `split_fun = drop_split_levels` in the `rtables` `split_rows_by` calls"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">702</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">703</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">704</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">98</td>
+                    <td class="coverage">114<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    NULL</pre>
+                      <pre class="language-r">    factor(df[[.var]], levels = occurrence_levels)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">705</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">100</td>
+                    <td class="coverage">11<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    df[[.var]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">706</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">707</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">102</td>
+                    <td class="coverage">125<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  gl_cols &lt;- if (!(length(cells) &gt; 0)) {</pre>
+                      <pre class="language-r">  ids &lt;- factor(df[[id]])</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">708</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">103</td>
+                    <td class="coverage">125<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list(NULL)</pre>
+                      <pre class="language-r">  dn &lt;- switch(denom,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">709</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">104</td>
+                    <td class="coverage">125<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">    n = nlevels(ids),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">710</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">105</td>
+                    <td class="coverage">125<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    j &lt;- 1 # column index of cell</pre>
+                      <pre class="language-r">    N_col = .N_col</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">711</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">712</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">107</td>
+                    <td class="coverage">125<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lapply(seq_along(cells), function(k) {</pre>
+                      <pre class="language-r">  has_occurrence_per_id &lt;- table(occurrences, ids) &gt; 0</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">713</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">108</td>
+                    <td class="coverage">125<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cell_ascii &lt;- cells[[k]]</pre>
+                      <pre class="language-r">  n_ids_per_occurrence &lt;- as.list(rowSums(has_occurrence_per_id))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">714</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">109</td>
+                    <td class="coverage">125<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cs &lt;- cell_spans[[k]]</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">715</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">110</td>
+                    <td class="coverage">125<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    count = n_ids_per_occurrence,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">716</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">111</td>
+                    <td class="coverage">125<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (is.na(cell_ascii) || is.null(cell_ascii)) {</pre>
+                      <pre class="language-r">    count_fraction = lapply(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">717</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">112</td>
+                    <td class="coverage">125<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        cell_ascii &lt;- "NA"</pre>
+                      <pre class="language-r">      n_ids_per_occurrence,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">718</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">113</td>
+                    <td class="coverage">125<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      function(i, denom) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">114</td>
+                    <td class="coverage">514<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        if (i == 0 &amp;&amp; denom == 0) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">115</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          c(0, 0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">719</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">720</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">117</td>
+                    <td class="coverage">514<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cell_name &lt;- paste0("g-cell-", row_index, "-", j)</pre>
+                      <pre class="language-r">          c(i, i / denom)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">721</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">722</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">119</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cell_grobs &lt;- if (identical(cell_ascii, "")) {</pre>
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">723</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">120</td>
+                    <td class="coverage">125<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        NULL</pre>
+                      <pre class="language-r">      denom = dn</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">724</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">725</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">122</td>
+                    <td class="coverage">125<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (cs == 1) {</pre>
+                      <pre class="language-r">    fraction = lapply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">726</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">123</td>
+                    <td class="coverage">125<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          grid::textGrob(</pre>
+                      <pre class="language-r">      n_ids_per_occurrence,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">727</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">124</td>
+                    <td class="coverage">125<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            label = cell_ascii,</pre>
+                      <pre class="language-r">      function(i, denom) c("num" = i, "denom" = denom),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">728</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">125</td>
+                    <td class="coverage">125<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            name = cell_name,</pre>
+                      <pre class="language-r">      denom = dn</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">729</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">126</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            vp = grid::vpPath(paste0("cell-", row_index, "-", j))</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">730</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">731</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">732</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # +1 because of rowname</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">733</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">130</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          vp_joined_cols &lt;- grid::viewport(layout.pos.row = row_index, layout.pos.col = seq(j + 1, j + cs))</pre>
+                      <pre class="language-r">#' @describeIn count_occurrences Formatted analysis function which is used as `afun`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">734</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   in `count_occurrences()`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">735</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">132</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          lab &lt;- grid::textGrob(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">736</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">133</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            label = cell_ascii,</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">737</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">134</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            name = cell_name,</pre>
+                      <pre class="language-r">#' * `a_count_occurrences()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">738</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">135</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            vp = vp_joined_cols</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">739</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">740</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' a_count_occurrences(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">741</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">138</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (!underline_colspan || grepl("^[[:space:]]*$", cell_ascii)) {</pre>
+                      <pre class="language-r">#'   df,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">742</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">139</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            lab</pre>
+                      <pre class="language-r">#'   .N_col = 4L,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">743</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          } else {</pre>
+                      <pre class="language-r">#'   .df_row = df,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">744</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">141</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            grid::gList(</pre>
+                      <pre class="language-r">#'   .var = "MHDECOD",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">745</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">142</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              lab,</pre>
+                      <pre class="language-r">#'   id = "USUBJID"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">746</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">143</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              grid::linesGrob(</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">747</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">144</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                x = grid::unit.c(grid::unit(.2, "lines"), grid::unit(1, "npc") - grid::unit(.2, "lines")),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">748</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">145</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                y = grid::unit(c(0, 0), "npc"),</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">749</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">146</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                vp = vp_joined_cols</pre>
+                      <pre class="language-r">a_count_occurrences &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">750</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">                                labelstr = "",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">751</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">                                id = "USUBJID",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">752</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">                                denom = c("N_col", "n"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">753</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">                                drop = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">754</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">                                .N_col, # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">755</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">152</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      j &lt;&lt;- j + cs</pre>
+                      <pre class="language-r">                                .var = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">756</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                .df_row = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">757</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">154</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cell_grobs</pre>
+                      <pre class="language-r">                                .stats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">758</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">                                .formats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">759</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                                .labels = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">760</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                .indent_mods = NULL,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">158</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                                na_str = default_na_str()) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">761</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">159</td>
+                    <td class="coverage">85<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  grid::gList(</pre>
+                      <pre class="language-r">  denom &lt;- match.arg(denom)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">762</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">160</td>
+                    <td class="coverage">85<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    g_rowname,</pre>
+                      <pre class="language-r">  x_stats &lt;- s_count_occurrences(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">763</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">161</td>
+                    <td class="coverage">85<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    do.call(grid::gList, gl_cols)</pre>
+                      <pre class="language-r">    df = df, denom = denom, .N_col = .N_col, .df_row = .df_row, drop = drop, .var = .var, id = id</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">764</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">765</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">163</td>
+                    <td class="coverage">85<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  if (is.null(unlist(x_stats))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">766</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">164</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    return(NULL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">767</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Graphic object: forest dot line</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">768</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">166</td>
+                    <td class="coverage">82<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  x_lvls &lt;- names(x_stats[[1]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">769</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">770</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  # Fill in with formatting defaults if needed</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">771</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">169</td>
+                    <td class="coverage">82<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Calculate the `grob` corresponding to the dot line within the forest plot.</pre>
+                      <pre class="language-r">  .stats &lt;- get_stats("count_occurrences", stats_in = .stats)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">772</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">170</td>
+                    <td class="coverage">82<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  .formats &lt;- get_formats_from_stats(.stats, .formats)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">773</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">171</td>
+                    <td class="coverage">82<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">  .labels &lt;- get_labels_from_stats(.stats, .labels, row_nms = x_lvls)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">774</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">172</td>
+                    <td class="coverage">82<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">  .indent_mods &lt;- get_indents_from_stats(.stats, .indent_mods, row_nms = x_lvls)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">775</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">forest_dot_line &lt;- function(x,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">776</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">174</td>
+                    <td class="coverage">81<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            lower,</pre>
+                      <pre class="language-r">  if ("count_fraction_fixed_dp" %in% .stats) x_stats[["count_fraction_fixed_dp"]] &lt;- x_stats[["count_fraction"]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">777</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">175</td>
+                    <td class="coverage">82<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            upper,</pre>
+                      <pre class="language-r">  x_stats &lt;- x_stats[.stats]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">778</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            row_index,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">779</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            xlim,</pre>
+                      <pre class="language-r">  # Ungroup statistics with values for each level of x</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">780</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">178</td>
+                    <td class="coverage">82<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            symbol_size = 1,</pre>
+                      <pre class="language-r">  x_ungrp &lt;- ungroup_stats(x_stats, .formats, list(), list())</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">179</td>
+                    <td class="coverage">82<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  x_stats &lt;- x_ungrp[["x"]]</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">180</td>
+                    <td class="coverage">82<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  .formats &lt;- x_ungrp[[".formats"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">781</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            col = "blue",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">782</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            datavp) {</pre>
+                      <pre class="language-r">  # Auto format handling</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">783</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">183</td>
+                    <td class="coverage">82<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
+                      <pre class="language-r">  .formats &lt;- apply_auto_formatting(.formats, x_stats, .df_row, .var)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">784</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">184</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "0.9.4", "forest_dot_line()",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">785</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">185</td>
+                    <td class="coverage">82<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    details = "`g_forest` now generates `ggplot` objects. This function is no longer used within `tern`."</pre>
+                      <pre class="language-r">  in_rows(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">786</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">186</td>
+                    <td class="coverage">82<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    .list = x_stats,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">787</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">187</td>
+                    <td class="coverage">82<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    .formats = .formats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">788</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">188</td>
+                    <td class="coverage">82<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ci &lt;- c(lower, upper)</pre>
+                      <pre class="language-r">    .names = .labels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">789</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">189</td>
+                    <td class="coverage">82<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any(!is.na(c(x, ci)))) {</pre>
+                      <pre class="language-r">    .labels = .labels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">790</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">190</td>
+                    <td class="coverage">82<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # line</pre>
+                      <pre class="language-r">    .indent_mods = .indent_mods,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">791</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">191</td>
+                    <td class="coverage">82<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y &lt;- grid::unit(c(0.5, 0.5), "npc")</pre>
+                      <pre class="language-r">    .format_na_strs = na_str</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">792</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">793</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">193</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    g_line &lt;- if (all(!is.na(ci)) &amp;&amp; ci[2] &gt; xlim[1] &amp;&amp; ci[1] &lt; xlim[2]) {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">794</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # -</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">795</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">195</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (ci[1] &gt;= xlim[1] &amp;&amp; ci[2] &lt;= xlim[2]) {</pre>
+                      <pre class="language-r">#' @describeIn count_occurrences Layout-creating function which can take statistics function arguments</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">796</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">196</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        grid::linesGrob(x = grid::unit(c(ci[1], ci[2]), "native"), y = y)</pre>
+                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">797</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">197</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (ci[1] &lt; xlim[1] &amp;&amp; ci[2] &gt; xlim[2]) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">798</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # &lt;-&gt;</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">799</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">199</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        grid::linesGrob(</pre>
+                      <pre class="language-r">#' * `count_occurrences()` returns a layout object suitable for passing to further layouting functions,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">800</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">200</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = grid::unit(xlim, "native"),</pre>
+                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">801</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">201</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          y = y,</pre>
+                      <pre class="language-r">#'   the statistics from `s_count_occurrences()` to the table layout.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">802</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">202</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          arrow = grid::arrow(angle = 30, length = grid::unit(0.5, "lines"), ends = "both")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">803</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">804</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">204</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (ci[1] &lt; xlim[1] &amp;&amp; ci[2] &lt;= xlim[2]) {</pre>
+                      <pre class="language-r">#' # Create table layout</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">805</td>
+                    <td class="num">205</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # &lt;-</pre>
+                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">806</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">206</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        grid::linesGrob(</pre>
+                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">807</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">207</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = grid::unit(c(xlim[1], ci[2]), "native"),</pre>
+                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">808</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">208</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          y = y,</pre>
+                      <pre class="language-r">#'   count_occurrences(vars = "MHDECOD", .stats = c("count_fraction"))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">809</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">209</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          arrow = grid::arrow(angle = 30, length = grid::unit(0.5, "lines"), ends = "first")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">810</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' # Apply table layout to data and produce `rtable` object</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">811</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">211</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else if (ci[1] &gt;= xlim[1] &amp;&amp; ci[2] &gt; xlim[2]) {</pre>
+                      <pre class="language-r">#' tbl &lt;- lyt %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">812</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # -&gt;</pre>
+                      <pre class="language-r">#'   build_table(df, alt_counts_df = df_adsl) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">813</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">213</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        grid::linesGrob(</pre>
+                      <pre class="language-r">#'   prune_table()</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">814</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">214</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = grid::unit(c(ci[1], xlim[2]), "native"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">815</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">215</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          y = y,</pre>
+                      <pre class="language-r">#' tbl</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">816</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">216</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          arrow = grid::arrow(angle = 30, length = grid::unit(0.5, "lines"), ends = "last")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">817</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">818</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' @order 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">819</td>
+                    <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">count_occurrences &lt;- function(lyt,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">820</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">220</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      NULL</pre>
+                      <pre class="language-r">                              vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">821</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">                              id = "USUBJID",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">822</td>
+                    <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                              drop = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">823</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">223</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    g_circle &lt;- if (!is.na(x) &amp;&amp; x &gt;= xlim[1] &amp;&amp; x &lt;= xlim[2]) {</pre>
+                      <pre class="language-r">                              var_labels = vars,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">824</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">224</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      grid::circleGrob(</pre>
+                      <pre class="language-r">                              show_labels = "hidden",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">825</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">225</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = grid::unit(x, "native"),</pre>
+                      <pre class="language-r">                              riskdiff = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">826</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">226</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        y = y,</pre>
+                      <pre class="language-r">                              na_str = default_na_str(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">827</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">227</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        r = grid::unit(1 / 3.5 * symbol_size, "lines"),</pre>
+                      <pre class="language-r">                              nested = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">828</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">228</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        name = "point"</pre>
+                      <pre class="language-r">                              ...,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">829</td>
+                    <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">                              table_names = vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">830</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">                              .stats = "count_fraction_fixed_dp",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">831</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">231</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      NULL</pre>
+                      <pre class="language-r">                              .formats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">832</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">                              .labels = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">833</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                              .indent_mods = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">834</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">234</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    grid::gTree(</pre>
+                      <pre class="language-r">  checkmate::assert_flag(riskdiff)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">835</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">235</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      children = grid::gList(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">836</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">236</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        grid::gTree(</pre>
+                      <pre class="language-r">  extra_args &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">837</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">237</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          children = grid::gList(</pre>
+                      <pre class="language-r">    .stats = .stats, .formats = .formats, .labels = .labels, .indent_mods = .indent_mods, na_str = na_str</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">838</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">238</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            grid::gList(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">839</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">239</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              g_line,</pre>
+                      <pre class="language-r">  s_args &lt;- list(id = id, drop = drop, ...)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">240</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">840</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">241</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              g_circle</pre>
+                      <pre class="language-r">  if (isFALSE(riskdiff)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">841</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">242</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">    extra_args &lt;- c(extra_args, s_args)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">842</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ),</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">843</td>
+                    <td class="num">244</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          vp = datavp,</pre>
+                      <pre class="language-r">    extra_args &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">844</td>
+                    <td class="num">245</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          gp = grid::gpar(col = col, fill = col)</pre>
+                      <pre class="language-r">      extra_args,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">845</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">246</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">846</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">247</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">        afun = list("s_count_occurrences" = a_count_occurrences),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">847</td>
+                    <td class="num">248</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vp = grid::vpPath(paste0("forest-", row_index))</pre>
+                      <pre class="language-r">        s_args = s_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">848</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">849</td>
+                    <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">850</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    NULL</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">851</td>
+                    <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">852</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">853</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">854</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">253</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create a viewport tree for the forest plot</pre>
+                      <pre class="language-r">  analyze(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">855</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">254</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    lyt = lyt,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">856</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">255</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
+                      <pre class="language-r">    vars = vars,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">857</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">256</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    afun = ifelse(isFALSE(riskdiff), a_count_occurrences, afun_riskdiff),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">858</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">257</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param tbl (`VTableTree`)\cr `rtables` table object.</pre>
+                      <pre class="language-r">    var_labels = var_labels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">859</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">258</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param width_row_names (`grid::unit`)\cr width of row names.</pre>
+                      <pre class="language-r">    show_labels = show_labels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">860</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">259</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param width_columns (`grid::unit`)\cr width of column spans.</pre>
+                      <pre class="language-r">    table_names = table_names,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">861</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">260</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param width_forest (`grid::unit`)\cr width of the forest plot.</pre>
+                      <pre class="language-r">    na_str = na_str,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">862</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">261</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param gap_column (`grid::unit`)\cr gap width between the columns.</pre>
+                      <pre class="language-r">    nested = nested,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">863</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">262</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param gap_header (`grid::unit`)\cr gap width between the header.</pre>
+                      <pre class="language-r">    extra_args = extra_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">864</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param mat_form (`MatrixPrintForm`)\cr matrix print form of the table.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">865</td>
+                    <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">866</td>
+                    <td class="num">265</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A viewport tree.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">867</td>
+                    <td class="num">266</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @describeIn count_occurrences Layout-creating function which can take content function arguments</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">868</td>
+                    <td class="num">267</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::summarize_row_groups()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">869</td>
+                    <td class="num">268</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(grid)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">870</td>
+                    <td class="num">269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">871</td>
+                    <td class="num">270</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tbl &lt;- rtable(</pre>
+                      <pre class="language-r">#' * `summarize_occurrences()` returns a layout object suitable for passing to further layouting functions,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">872</td>
+                    <td class="num">271</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   header = rheader(</pre>
+                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted content rows</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">873</td>
+                    <td class="num">272</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     rrow("", "E", rcell("CI", colspan = 2)),</pre>
+                      <pre class="language-r">#'   containing the statistics from `s_count_occurrences()` to the table layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">874</td>
+                    <td class="num">273</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     rrow("", "A", "B", "C")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">875</td>
+                    <td class="num">274</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">876</td>
+                    <td class="num">275</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   rrow("row 1", 1, 0.8, 1.1),</pre>
+                      <pre class="language-r">#' # Layout creating function with custom format.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">877</td>
+                    <td class="num">276</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   rrow("row 2", 1.4, 0.8, 1.6),</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">878</td>
+                    <td class="num">277</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   rrow("row 3", 1.2, 0.8, 1.2)</pre>
+                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">879</td>
+                    <td class="num">278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   split_rows_by("SEX", child_labels = "visible") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">880</td>
+                    <td class="num">279</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   summarize_occurrences(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">881</td>
+                    <td class="num">280</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' \donttest{</pre>
+                      <pre class="language-r">#'     var = "MHDECOD",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">882</td>
+                    <td class="num">281</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' v &lt;- forest_viewport(tbl)</pre>
+                      <pre class="language-r">#'     .formats = c("count_fraction" = "xx.xx (xx.xx%)")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">883</td>
+                    <td class="num">282</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">884</td>
+                    <td class="num">283</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid::grid.newpage()</pre>
+                      <pre class="language-r">#'   build_table(df, alt_counts_df = df_adsl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">885</td>
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' showViewport(v)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">886</td>
+                    <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">887</td>
+                    <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @order 3</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">888</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">summarize_occurrences &lt;- function(lyt,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">889</td>
+                    <td class="num">288</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">forest_viewport &lt;- function(tbl,</pre>
+                      <pre class="language-r">                                  var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">890</td>
+                    <td class="num">289</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            width_row_names = NULL,</pre>
+                      <pre class="language-r">                                  id = "USUBJID",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">891</td>
+                    <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            width_columns = NULL,</pre>
+                      <pre class="language-r">                                  drop = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">892</td>
+                    <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            width_forest = grid::unit(1, "null"),</pre>
+                      <pre class="language-r">                                  riskdiff = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">893</td>
+                    <td class="num">292</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            gap_column = grid::unit(1, "lines"),</pre>
+                      <pre class="language-r">                                  na_str = default_na_str(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">894</td>
+                    <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            gap_header = grid::unit(1, "lines"),</pre>
+                      <pre class="language-r">                                  ...,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">895</td>
+                    <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            mat_form = NULL) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">896</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">897</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    "0.9.4",</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">898</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    "forest_viewport()",</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">899</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    details = "`g_forest` now generates `ggplot` objects. This function is no longer used within `tern`."</pre>
+                      <pre class="language-r">                                  .stats = "count_fraction_fixed_dp",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">900</td>
+                    <td class="num">295</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">                                  .formats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">901</td>
+                    <td class="num">296</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">902</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(tbl, "VTableTree")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">903</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(grid::is.unit(width_forest))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">904</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(width_row_names)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">905</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_true(grid::is.unit(width_row_names))</pre>
+                      <pre class="language-r">                                  .indent_mods = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">906</td>
+                    <td class="num">297</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                                  .labels = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">907</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(width_columns)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">908</td>
-                    <td class="coverage">!</td>
+                    <td class="num">298</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_true(grid::is.unit(width_columns))</pre>
+                      <pre class="language-r">  checkmate::assert_flag(riskdiff)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">909</td>
+                    <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">910</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">300</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  extra_args &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">911</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">301</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(mat_form)) mat_form &lt;- matrix_form(tbl)</pre>
+                      <pre class="language-r">    .stats = .stats, .formats = .formats, .labels = .labels, .indent_mods = .indent_mods, na_str = na_str</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">912</td>
+                    <td class="num">302</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">913</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">303</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mat_form$strings[!mat_form$display] &lt;- ""</pre>
+                      <pre class="language-r">  s_args &lt;- list(id = id, drop = drop, ...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">914</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">915</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  nr &lt;- nrow(tbl)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">916</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">305</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nc &lt;- ncol(tbl)</pre>
+                      <pre class="language-r">  if (isFALSE(riskdiff)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">917</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">306</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nr_h &lt;- attr(mat_form, "nrow_header")</pre>
+                      <pre class="language-r">    extra_args &lt;- c(extra_args, s_args)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">918</td>
+                    <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">919</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">308</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(width_row_names) || is.null(width_columns)) {</pre>
+                      <pre class="language-r">    extra_args &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">920</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">309</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tbl_widths &lt;- formatters::propose_column_widths(mat_form)</pre>
+                      <pre class="language-r">      extra_args,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">921</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">310</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    strs_with_width &lt;- strrep("x", tbl_widths) # that works for mono spaced fonts</pre>
+                      <pre class="language-r">      list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">922</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">311</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.null(width_row_names)) width_row_names &lt;- grid::stringWidth(strs_with_width[1])</pre>
+                      <pre class="language-r">        afun = list("s_count_occurrences" = a_count_occurrences),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">923</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    if (is.null(width_columns)) width_columns &lt;- grid::stringWidth(strs_with_width[-1])</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">924</td>
-                    <td class="coverage"></td>
+                    <td class="num">312</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        s_args = s_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">925</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">926</td>
+                    <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Widths for row name, cols, forest.</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">927</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  widths &lt;- grid::unit.c(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">928</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    width_row_names + gap_column,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">929</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    width_columns + gap_column,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">930</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    width_forest</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">931</td>
+                    <td class="num">315</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">932</td>
+                    <td class="num">316</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">933</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">317</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n_lines_per_row &lt;- apply(</pre>
+                      <pre class="language-r">  summarize_row_groups(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">934</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">318</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    X = mat_form$strings,</pre>
+                      <pre class="language-r">    lyt = lyt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">935</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">319</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    MARGIN = 1,</pre>
+                      <pre class="language-r">    var = var,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">936</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">320</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    FUN = function(row) {</pre>
+                      <pre class="language-r">    cfun = ifelse(isFALSE(riskdiff), a_count_occurrences, afun_riskdiff),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">937</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">321</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tmp &lt;- vapply(</pre>
+                      <pre class="language-r">    na_str = na_str,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">938</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">322</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        gregexpr("\n", row, fixed = TRUE),</pre>
+                      <pre class="language-r">    extra_args = extra_args</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">939</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">323</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        attr, numeric(1),</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">940</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">324</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "match.length"</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">941</td>
-                    <td class="coverage">10<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/survival_duration_subgroups.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
+                  <tr class="never">
+                    <td class="num">1</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ) + 1</pre>
+                      <pre class="language-r">#' Tabulate survival duration by subgroup</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">942</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">2</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      max(c(tmp, 1))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">943</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">944</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">945</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' The [tabulate_survival_subgroups()] function creates a layout element to tabulate survival duration by subgroup,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">946</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  i_header &lt;- seq_len(nr_h)</pre>
+                      <pre class="language-r">#' returning statistics including median survival time and hazard ratio for each population subgroup. The table is</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">947</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' created from `df`, a list of data frames returned by [extract_survival_subgroups()], with the statistics to include</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">948</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  height_body_rows &lt;- grid::unit(n_lines_per_row[-i_header] * 1.2, "lines")</pre>
+                      <pre class="language-r">#' specified via the `vars` parameter.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">949</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  height_header_rows &lt;- grid::unit(n_lines_per_row[i_header] * 1.2, "lines")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">950</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' A forest plot can be created from the resulting table using the [g_forest()] function.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">951</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  height_body &lt;- grid::unit(sum(n_lines_per_row[-i_header]) * 1.2, "lines")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">952</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  height_header &lt;- grid::unit(sum(n_lines_per_row[i_header]) * 1.2, "lines")</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">953</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @inheritParams survival_coxph_pairwise</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">954</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">14</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nc_g &lt;- nc + 2 # number of columns incl. row names and forest</pre>
+                      <pre class="language-r">#' @param df (`list`)\cr list of data frames containing all analysis variables. List should be</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">955</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   created using [extract_survival_subgroups()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">956</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">16</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  vp_tbl &lt;- grid::vpTree(</pre>
+                      <pre class="language-r">#' @param vars (`character`)\cr the names of statistics to be reported among:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">957</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    parent = grid::viewport(</pre>
+                      <pre class="language-r">#'   * `n_tot_events`: Total number of events per group.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">958</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      name = "vp_table_layout",</pre>
+                      <pre class="language-r">#'   * `n_events`: Number of events per group.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">959</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      layout = grid::grid.layout(</pre>
+                      <pre class="language-r">#'   * `n_tot`: Total number of observations per group.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">960</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">20</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nrow = 3, ncol = 1,</pre>
+                      <pre class="language-r">#'   * `n`: Number of observations per group.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">961</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        heights = grid::unit.c(height_header, gap_header, height_body)</pre>
+                      <pre class="language-r">#'   * `median`: Median survival time.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">962</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'   * `hr`: Hazard ratio.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">963</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">#'   * `ci`: Confidence interval of hazard ratio.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">964</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    children = grid::vpList(</pre>
+                      <pre class="language-r">#'   * `pval`: p-value of the effect.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">965</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">25</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vp_forest_table_part(nr_h, nc_g, 1, 1, widths, height_header_rows, "vp_header"),</pre>
+                      <pre class="language-r">#'   Note, one of the statistics `n_tot` and `n_tot_events`, as well as both `hr` and `ci`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">966</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">26</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vp_forest_table_part(nr, nc_g, 3, 1, widths, height_body_rows, "vp_body"),</pre>
+                      <pre class="language-r">#'   are required.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">967</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">27</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      grid::viewport(name = "vp_spacer", layout.pos.row = 2, layout.pos.col = 1)</pre>
+                      <pre class="language-r">#' @param time_unit (`string`)\cr label with unit of median survival time. Default `NULL` skips displaying unit.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">968</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">969</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @details These functions create a layout starting from a data frame which contains</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">970</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">30</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  vp_tbl</pre>
+                      <pre class="language-r">#'   the required statistics. Tables typically used as part of forest plot.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">971</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">972</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @seealso [extract_survival_subgroups()]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">973</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Viewport forest plot: table part</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">974</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">975</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">976</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">977</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Prepares a viewport for the table included in the forest plot.</pre>
+                      <pre class="language-r">#' adtte &lt;- tern_ex_adtte</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">978</td>
+                    <td class="num">38</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' # Save variable labels before data processing steps.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">979</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">#' adtte_labels &lt;- formatters::var_labels(adtte)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">980</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">981</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">vp_forest_table_part &lt;- function(nrow,</pre>
+                      <pre class="language-r">#' adtte_f &lt;- adtte %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">982</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 ncol,</pre>
+                      <pre class="language-r">#'   filter(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">983</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 l_row,</pre>
+                      <pre class="language-r">#'     PARAMCD == "OS",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">984</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 l_col,</pre>
+                      <pre class="language-r">#'     ARM %in% c("B: Placebo", "A: Drug X"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">985</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 widths,</pre>
+                      <pre class="language-r">#'     SEX %in% c("M", "F")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">986</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 heights,</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">987</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 name) {</pre>
+                      <pre class="language-r">#'   mutate(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">988</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">49</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
+                      <pre class="language-r">#'     # Reorder levels of ARM to display reference arm before treatment arm.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">989</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">50</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "0.9.4", "vp_forest_table_part()",</pre>
+                      <pre class="language-r">#'     ARM = droplevels(forcats::fct_relevel(ARM, "B: Placebo")),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">990</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">51</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    details = "`g_forest` now generates `ggplot` objects. This function is no longer used within `tern`."</pre>
+                      <pre class="language-r">#'     SEX = droplevels(SEX),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">991</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'     AVALU = as.character(AVALU),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">992</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     is_event = CNSR == 0</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">993</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">54</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  grid::vpTree(</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">994</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">55</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    grid::viewport(</pre>
+                      <pre class="language-r">#' labels &lt;- c(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">995</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">56</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      name = name,</pre>
+                      <pre class="language-r">#'   "ARM" = adtte_labels[["ARM"]],</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">996</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">57</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      layout.pos.row = l_row,</pre>
+                      <pre class="language-r">#'   "SEX" = adtte_labels[["SEX"]],</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">997</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">58</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      layout.pos.col = l_col,</pre>
+                      <pre class="language-r">#'   "AVALU" = adtte_labels[["AVALU"]],</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">998</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">59</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      layout = grid::grid.layout(nrow = nrow, ncol = ncol, widths = widths, heights = heights)</pre>
+                      <pre class="language-r">#'   "is_event" = "Event Flag"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">999</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1000</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">61</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    children = grid::vpList(</pre>
+                      <pre class="language-r">#' formatters::var_labels(adtte_f)[names(labels)] &lt;- labels</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1001</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">62</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      do.call(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1002</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">63</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        grid::vpList,</pre>
+                      <pre class="language-r">#' df &lt;- extract_survival_subgroups(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1003</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">64</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        lapply(</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1004</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">65</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          seq_len(nrow), function(i) {</pre>
+                      <pre class="language-r">#'     tte = "AVAL",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1005</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">66</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            grid::viewport(layout.pos.row = i, layout.pos.col = 1, name = paste0("rowname-", i))</pre>
+                      <pre class="language-r">#'     is_event = "is_event",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1006</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">#'     arm = "ARM", subgroups = c("SEX", "BMRKR2")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1007</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1008</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">#'   label_all = "Total Patients",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1009</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      do.call(</pre>
+                      <pre class="language-r">#'   data = adtte_f</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1010</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">71</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        grid::vpList,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1011</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">72</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        apply(</pre>
+                      <pre class="language-r">#' df</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1012</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">73</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          expand.grid(seq_len(nrow), seq_len(ncol - 2)),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1013</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">74</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          1,</pre>
+                      <pre class="language-r">#' df_grouped &lt;- extract_survival_subgroups(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1014</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">75</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          function(x) {</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1015</td>
-                    <td class="coverage">35<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">76</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            i &lt;- x[1]</pre>
+                      <pre class="language-r">#'     tte = "AVAL",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1016</td>
-                    <td class="coverage">35<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">77</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            j &lt;- x[2]</pre>
+                      <pre class="language-r">#'     is_event = "is_event",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1017</td>
-                    <td class="coverage">35<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">78</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            grid::viewport(layout.pos.row = i, layout.pos.col = j + 1, name = paste0("cell-", i, "-", j))</pre>
+                      <pre class="language-r">#'     arm = "ARM", subgroups = c("SEX", "BMRKR2")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1018</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1019</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'   data = adtte_f,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1020</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">#'   groups_lists = list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1021</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">82</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      do.call(</pre>
+                      <pre class="language-r">#'     BMRKR2 = list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1022</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">83</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        grid::vpList,</pre>
+                      <pre class="language-r">#'       "low" = "LOW",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1023</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">84</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        lapply(</pre>
+                      <pre class="language-r">#'       "low/medium" = c("LOW", "MEDIUM"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1024</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">85</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          seq_len(nrow),</pre>
+                      <pre class="language-r">#'       "low/medium/high" = c("LOW", "MEDIUM", "HIGH")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1025</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">86</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          function(i) {</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">1026</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">87</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            grid::viewport(layout.pos.row = i, layout.pos.col = ncol, name = paste0("forest-", i))</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1027</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1028</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' df_grouped</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1029</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1030</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' @name survival_duration_subgroups</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1031</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @order 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1032</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1033</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1034</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Forest rendering</pre>
+                      <pre class="language-r">#' Prepare survival data for population subgroups in data frames</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1035</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1036</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1037</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1038</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Renders the forest grob.</pre>
+                      <pre class="language-r">#' Prepares estimates of median survival times and treatment hazard ratios for population subgroups in</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1039</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' data frames. Simple wrapper for [h_survtime_subgroups_df()] and [h_coxph_subgroups_df()]. Result is a `list`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1040</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">#' of two `data.frame`s: `survtime` and `hr`. `variables` corresponds to the names of variables found in `data`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1041</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' passed as a named `list` and requires elements `tte`, `is_event`, `arm` and optionally `subgroups` and `strata`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1042</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">grid.forest &lt;- function(...) { # nolint</pre>
+                      <pre class="language-r">#' `groups_lists` optionally specifies groupings for `subgroups` variables.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1043</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">104</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1044</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">105</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "0.9.4", "grid.forest()",</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1045</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">106</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    details = "`g_forest` now generates `ggplot` objects. This function is no longer used within `tern`."</pre>
+                      <pre class="language-r">#' @inheritParams survival_duration_subgroups</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1046</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @inheritParams survival_coxph_pairwise</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1047</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">1048</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">109</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  grid::grid.draw(forest_grob(...))</pre>
+                      <pre class="language-r">#' @return A named `list` of two elements:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">1049</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   * `survtime`: A `data.frame` containing columns `arm`, `n`, `n_events`, `median`, `subgroup`, `var`,</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/summarize_ancova.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Summarize analysis of covariance (ANCOVA) results</pre>
+                      <pre class="language-r">#'     `var_label`, and `row_type`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   * `hr`: A `data.frame` containing columns `arm`, `n_tot`, `n_tot_events`, `hr`, `lcl`, `ucl`, `conf_level`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#'     `pval`, `pval_label`, `subgroup`, `var`, `var_label`, and `row_type`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The analyze function [summarize_ancova()] creates a layout element to summarize ANCOVA results.</pre>
+                      <pre class="language-r">#' @seealso [survival_duration_subgroups]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function can be used to analyze multiple endpoints and/or multiple timepoints within the response variable(s)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' specified as `vars`.</pre>
+                      <pre class="language-r">extract_survival_subgroups &lt;- function(variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                       data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Additional variables for the analysis, namely an arm (grouping) variable and covariate variables, can be defined</pre>
+                      <pre class="language-r">                                       groups_lists = list(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' via the `variables` argument. See below for more details on how to specify `variables`. An interaction term can</pre>
+                      <pre class="language-r">                                       control = control_coxph(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' be implemented in the model if needed. The interaction variable that should interact with the arm variable is</pre>
+                      <pre class="language-r">                                       label_all = "All Patients") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">123</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' specified via the `interaction_term` parameter, and the specific value of `interaction_term` for which to extract</pre>
+                      <pre class="language-r">  if ("strat" %in% names(variables)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">124</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the ANCOVA results via the `interaction_y` parameter.</pre>
+                      <pre class="language-r">    warning(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">125</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      "Warning: the `strat` element name of the `variables` list argument to `extract_survival_subgroups() ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">126</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_ancova</pre>
+                      <pre class="language-r">      "was deprecated in tern 0.9.4.\n  ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">127</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">      "Please use the name `strata` instead of `strat` in the `variables` argument."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param interaction_y (`string` or `flag`)\cr a selected item inside of the `interaction_item` variable which will be</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">129</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   used to select the specific ANCOVA results. if the interaction is not needed, the default option is `FALSE`.</pre>
+                      <pre class="language-r">    variables[["strata"]] &lt;- variables[["strat"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("summarize_ancova")`</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to see available statistics for this function.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">132</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  df_survtime &lt;- h_survtime_subgroups_df(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">133</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name summarize_ancova</pre>
+                      <pre class="language-r">    variables,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">134</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 1</pre>
+                      <pre class="language-r">    data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">135</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">    groups_lists = groups_lists,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">136</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    label_all = label_all</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function to return results of a linear model</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">138</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  df_hr &lt;- h_coxph_subgroups_df(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">139</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">    variables,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">140</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">141</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">    groups_lists = groups_lists,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">142</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .df_row (`data.frame`)\cr data set that includes all the variables that are called in `.var` and `variables`.</pre>
+                      <pre class="language-r">    control = control,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">143</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    label_all = label_all</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param variables (named `list` of `string`)\cr list of additional analysis variables, with expected elements:</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `arm` (`string`)\cr group variable, for which the covariate adjusted means of multiple groups will be</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">146</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  list(survtime = df_survtime, hr = df_hr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     summarized. Specifically, the first level of `arm` variable is taken as the reference group.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `covariates` (`character`)\cr a vector that can contain single variable names (such as `"X1"`), and/or</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     interaction terms indicated by `"X1 * X2"`.</pre>
+                      <pre class="language-r">#' @describeIn survival_duration_subgroups  Formatted analysis function which is used as</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param interaction_item (`string` or `NULL`)\cr name of the variable that should have interactions</pre>
+                      <pre class="language-r">#'   `afun` in `tabulate_survival_subgroups()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   with arm. if the interaction is not needed, the default option is `NULL`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return The summary of a linear model.</pre>
+                      <pre class="language-r">#' * `a_survival_subgroups()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_ancova(</pre>
+                      <pre class="language-r">a_survival_subgroups &lt;- function(.formats = list( # nolint start</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .var = "Sepal.Length",</pre>
+                      <pre class="language-r">                                   n = "xx",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .df_row = iris,</pre>
+                      <pre class="language-r">                                   n_events = "xx",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(arm = "Species", covariates = c("Petal.Length * Petal.Width", "Sepal.Width"))</pre>
+                      <pre class="language-r">                                   n_tot_events = "xx",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">                                   median = "xx.x",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                   n_tot = "xx",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                                   hr = list(format_extreme_values(2L)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_ancova &lt;- function(.var,</pre>
+                      <pre class="language-r">                                   ci = list(format_extreme_values_ci(2L)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     .df_row,</pre>
+                      <pre class="language-r">                                   pval = "x.xxxx | (&lt;0.0001)"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     variables,</pre>
+                      <pre class="language-r">                                 ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     interaction_item = NULL) {</pre>
+                      <pre class="language-r">                                 na_str = default_na_str()) { # nolint end</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">55</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="num">167</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(.var)</pre>
+                      <pre class="language-r">  checkmate::assert_list(.formats)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">56</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="num">168</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(variables)</pre>
+                      <pre class="language-r">  checkmate::assert_subset(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="num">169</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(names(variables), c("arm", "covariates"))</pre>
+                      <pre class="language-r">    names(.formats),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="num">170</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(.df_row, list(rsp = .var))</pre>
+                      <pre class="language-r">    c("n", "n_events", "median", "n_tot", "n_tot_events", "hr", "ci", "pval", "riskdiff")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">172</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  arm &lt;- variables$arm</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">173</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  covariates &lt;- variables$covariates</pre>
+                      <pre class="language-r">  afun_lst &lt;- Map(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">26<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(covariates) &amp;&amp; length(covariates) &gt; 0) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">63</td>
-                    <td class="coverage"></td>
+                    <td class="num">174</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Get all covariate variable names in the model.</pre>
+                      <pre class="language-r">    function(stat, fmt, na_str) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">64</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">175</td>
+                    <td class="coverage">160<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_list &lt;- get_covariates(covariates)</pre>
+                      <pre class="language-r">      function(df, labelstr = "", ...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">11<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    assert_df_with_variables(.df_row, var_list)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">66</td>
-                    <td class="coverage"></td>
+                    <td class="num">176</td>
+                    <td class="coverage">312<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        in_rows(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">177</td>
+                    <td class="coverage">312<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          .list = as.list(df[[stat]]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">178</td>
+                    <td class="coverage">312<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  covariates_part &lt;- paste(covariates, collapse = " + ")</pre>
+                      <pre class="language-r">          .labels = as.character(df$subgroup),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">69</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">179</td>
+                    <td class="coverage">312<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (covariates_part != "") {</pre>
+                      <pre class="language-r">          .formats = fmt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">70</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">180</td>
+                    <td class="coverage">312<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    formula &lt;- stats::as.formula(paste0(.var, " ~ ", covariates_part, " + ", arm))</pre>
+                      <pre class="language-r">          .format_na_strs = na_str</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">182</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    formula &lt;- stats::as.formula(paste0(.var, " ~ ", arm))</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">184</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    stat = names(.formats),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">185</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(interaction_item)) {</pre>
+                      <pre class="language-r">    fmt = .formats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">76</td>
+                    <td class="num">186</td>
                     <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    specs &lt;- arm</pre>
+                      <pre class="language-r">    na_str = na_str</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">188</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">189</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    specs &lt;- c(arm, interaction_item)</pre>
+                      <pre class="language-r">  afun_lst</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">192</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lm_fit &lt;- stats::lm(</pre>
+                      <pre class="language-r">#' @describeIn survival_duration_subgroups Table-creating function which creates a table</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">82</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">193</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    formula = formula,</pre>
+                      <pre class="language-r">#'   summarizing survival by subgroup. This function is a wrapper for [rtables::analyze_colvars()]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">83</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">194</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data = .df_row</pre>
+                      <pre class="language-r">#'   and [rtables::summarize_row_groups()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">85</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">196</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  emmeans_fit &lt;- emmeans::emmeans(</pre>
+                      <pre class="language-r">#' @param label_all `r lifecycle::badge("deprecated")`\cr please assign the `label_all` parameter within the</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">197</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lm_fit,</pre>
+                      <pre class="language-r">#'   [extract_survival_subgroups()] function when creating `df`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Specify here the group variable over which EMM are desired.</pre>
+                      <pre class="language-r">#' @param riskdiff (`list`)\cr if a risk (proportion) difference column should be added, a list of settings to apply</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">88</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">199</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    specs = specs,</pre>
+                      <pre class="language-r">#'   within the column. See [control_riskdiff()] for details. If `NULL`, no risk difference column will be added. If</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Pass the data again so that the factor levels of the arm variable can be inferred.</pre>
+                      <pre class="language-r">#'   `riskdiff$arm_x` and `riskdiff$arm_y` are `NULL`, the first level of `df$survtime$arm` will be used as `arm_x`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">201</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data = .df_row</pre>
+                      <pre class="language-r">#'   and the second level as `arm_y`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @return An `rtables` table summarizing survival by subgroup.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">93</td>
-                    <td class="coverage">25<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">204</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  emmeans_fit</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">205</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' ## Table with default columns.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn summarize_ancova Statistics function that produces a named list of results</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   of the investigated linear model.</pre>
+                      <pre class="language-r">#'   tabulate_survival_subgroups(df, time_unit = adtte_f$AVALU[1])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' ## Table with a manually chosen set of columns: adding "pval".</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_ancova()` returns a named list of 5 statistics:</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `n`: Count of complete sample size for the group.</pre>
+                      <pre class="language-r">#'   tabulate_survival_subgroups(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `lsmean`: Estimated marginal means in the group.</pre>
+                      <pre class="language-r">#'     df = df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `lsmean_diff`: Difference in estimated marginal means in comparison to the reference group.</pre>
+                      <pre class="language-r">#'     vars = c("n_tot_events", "n_events", "median", "hr", "ci", "pval"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     If working with the reference group, this will be empty.</pre>
+                      <pre class="language-r">#'     time_unit = adtte_f$AVALU[1]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `lsmean_diff_ci`: Confidence level for difference in estimated marginal means in comparison</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     to the reference group.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `pval`: p-value (not adjusted for multiple comparisons).</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @order 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">tabulate_survival_subgroups &lt;- function(lyt,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_ancova &lt;- function(df,</pre>
+                      <pre class="language-r">                                        df,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">222</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                                        vars = c("n_tot_events", "n_events", "median", "hr", "ci"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     .var,</pre>
+                      <pre class="language-r">                                        groups_lists = list(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     .df_row,</pre>
+                      <pre class="language-r">                                        label_all = lifecycle::deprecated(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     variables,</pre>
+                      <pre class="language-r">                                        time_unit = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     .ref_group,</pre>
+                      <pre class="language-r">                                        riskdiff = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     .in_ref_col,</pre>
+                      <pre class="language-r">                                        na_str = default_na_str(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     conf_level,</pre>
+                      <pre class="language-r">                                        .formats = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     interaction_y = FALSE,</pre>
+                      <pre class="language-r">                                          n = "xx", n_events = "xx", n_tot_events = "xx", median = "xx.x", n_tot = "xx",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     interaction_item = NULL) {</pre>
+                      <pre class="language-r">                                          hr = list(format_extreme_values(2L)), ci = list(format_extreme_values_ci(2L)),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">231</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  emmeans_fit &lt;- h_ancova(.var = .var, variables = variables, .df_row = .df_row, interaction_item = interaction_item)</pre>
+                      <pre class="language-r">                                          pval = "x.xxxx | (&lt;0.0001)"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                        )) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">121</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">233</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  sum_fit &lt;- summary(</pre>
+                      <pre class="language-r">  checkmate::assert_list(riskdiff, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">122</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">234</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    emmeans_fit,</pre>
+                      <pre class="language-r">  checkmate::assert_true(any(c("n_tot", "n_tot_events") %in% vars))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">235</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    level = conf_level</pre>
+                      <pre class="language-r">  checkmate::assert_true(all(c("hr", "ci") %in% vars))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">125</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">237</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if (lifecycle::is_present(label_all)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">238</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  arm &lt;- variables$arm</pre>
+                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">127</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">239</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      "0.9.5", "tabulate_survival_subgroups(label_all)",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">240</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  sum_level &lt;- as.character(unique(df[[arm]]))</pre>
+                      <pre class="language-r">      details =</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">241</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        "Please assign the `label_all` parameter within the `extract_survival_subgroups()` function when creating `df`."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Ensure that there is only one element in sum_level.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">244</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_scalar(sum_level)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  # Create "ci" column from "lcl" and "ucl"</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">246</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  sum_fit_level &lt;- sum_fit[sum_fit[[arm]] == sum_level, ]</pre>
+                      <pre class="language-r">  df$hr$ci &lt;- combine_vectors(df$hr$lcl, df$hr$ucl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Get the index of the ref arm</pre>
+                      <pre class="language-r">  # Fill in missing formats with defaults</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">136</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">249</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (interaction_y != FALSE) {</pre>
+                      <pre class="language-r">  default_fmts &lt;- eval(formals(tabulate_survival_subgroups)$.formats)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">250</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y &lt;- unlist(df[(df[[interaction_item]] == interaction_y), .var])</pre>
+                      <pre class="language-r">  .formats &lt;- c(.formats, default_fmts[vars[!vars %in% names(.formats)]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # convert characters selected in interaction_y into the numeric order</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">252</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    interaction_y &lt;- which(sum_fit_level[[interaction_item]] == interaction_y)</pre>
+                      <pre class="language-r">  # Extract additional parameters from df</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">253</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    sum_fit_level &lt;- sum_fit_level[interaction_y, ]</pre>
+                      <pre class="language-r">  conf_level &lt;- df$hr$conf_level[1]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">141</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">254</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # if interaction is called, reset the index</pre>
+                      <pre class="language-r">  method &lt;- df$hr$pval_label[1]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">255</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ref_key &lt;- seq(sum_fit[[arm]][unique(.ref_group[[arm]])])</pre>
+                      <pre class="language-r">  colvars &lt;- d_survival_subgroups_colvars(vars, conf_level = conf_level, method = method, time_unit = time_unit)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">256</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ref_key &lt;- tail(ref_key, n = 1)</pre>
+                      <pre class="language-r">  survtime_vars &lt;- intersect(colvars$vars, c("n", "n_events", "median"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">257</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ref_key &lt;- (interaction_y - 1) * length(unique(.df_row[[arm]])) + ref_key</pre>
+                      <pre class="language-r">  hr_vars &lt;- intersect(names(colvars$labels), c("n_tot", "n_tot_events", "hr", "ci", "pval"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">145</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">258</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">  colvars_survtime &lt;- list(vars = survtime_vars, labels = colvars$labels[survtime_vars])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">259</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y &lt;- df[[.var]]</pre>
+                      <pre class="language-r">  colvars_hr &lt;- list(vars = hr_vars, labels = colvars$labels[hr_vars])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Get the index of the ref arm when interaction is not called</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">261</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ref_key &lt;- seq(sum_fit[[arm]][unique(.ref_group[[arm]])])</pre>
+                      <pre class="language-r">  extra_args &lt;- list(groups_lists = groups_lists, conf_level = conf_level, method = method)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">149</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">262</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ref_key &lt;- tail(ref_key, n = 1)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  # Get analysis function for each statistic</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">264</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  afun_lst &lt;- a_survival_subgroups(.formats = c(.formats, riskdiff = riskdiff$format), na_str = na_str)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">265</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">266</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (.in_ref_col) {</pre>
+                      <pre class="language-r">  # Add risk difference column</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">153</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">267</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list(</pre>
+                      <pre class="language-r">  if (!is.null(riskdiff)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">154</td>
+                    <td class="num">268</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n = length(y[!is.na(y)]),</pre>
+                      <pre class="language-r">    if (is.null(riskdiff$arm_x)) riskdiff$arm_x &lt;- levels(df$survtime$arm)[1]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">155</td>
+                    <td class="num">269</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lsmean = formatters::with_label(sum_fit_level$emmean, "Adjusted Mean"),</pre>
+                      <pre class="language-r">    if (is.null(riskdiff$arm_y)) riskdiff$arm_y &lt;- levels(df$survtime$arm)[2]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">156</td>
+                    <td class="num">270</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lsmean_diff = formatters::with_label(character(), "Difference in Adjusted Means"),</pre>
+                      <pre class="language-r">    colvars_hr$vars &lt;- c(colvars_hr$vars, "riskdiff")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">157</td>
+                    <td class="num">271</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lsmean_diff_ci = formatters::with_label(character(), f_conf_level(conf_level)),</pre>
+                      <pre class="language-r">    colvars_hr$labels &lt;- c(colvars_hr$labels, riskdiff = riskdiff$col_label)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">158</td>
+                    <td class="num">272</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pval = formatters::with_label(character(), "p-value")</pre>
+                      <pre class="language-r">    arm_cols &lt;- paste(rep(c("n_events", "n_events", "n", "n")), c(riskdiff$arm_x, riskdiff$arm_y), sep = "_")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">273</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">160</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">274</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">    df_prop_diff &lt;- df$survtime %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">161</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">275</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Estimate the differences between the marginal means.</pre>
+                      <pre class="language-r">      dplyr::select(-"median") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">162</td>
+                    <td class="num">276</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    emmeans_contrasts &lt;- emmeans::contrast(</pre>
+                      <pre class="language-r">      tidyr::pivot_wider(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">163</td>
+                    <td class="num">277</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      emmeans_fit,</pre>
+                      <pre class="language-r">        id_cols = c("subgroup", "var", "var_label", "row_type"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">164</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">278</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Compare all arms versus the control arm.</pre>
+                      <pre class="language-r">        names_from = "arm",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">165</td>
+                    <td class="num">279</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      method = "trt.vs.ctrl",</pre>
+                      <pre class="language-r">        values_from = c("n", "n_events")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">280</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Take the arm factor from .ref_group as the control arm.</pre>
+                      <pre class="language-r">      ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">167</td>
+                    <td class="num">281</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ref = ref_key,</pre>
+                      <pre class="language-r">      dplyr::rowwise() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">168</td>
+                    <td class="num">282</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      level = conf_level</pre>
+                      <pre class="language-r">      dplyr::mutate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">169</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">283</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        riskdiff = stat_propdiff_ci(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">170</td>
+                    <td class="num">284</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    sum_contrasts &lt;- summary(</pre>
+                      <pre class="language-r">          x = as.list(.data[[arm_cols[1]]]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">171</td>
+                    <td class="num">285</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      emmeans_contrasts,</pre>
+                      <pre class="language-r">          y = as.list(.data[[arm_cols[2]]]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">172</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">286</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Derive confidence intervals, t-tests and p-values.</pre>
+                      <pre class="language-r">          N_x = .data[[arm_cols[3]]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">173</td>
+                    <td class="num">287</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      infer = TRUE,</pre>
+                      <pre class="language-r">          N_y = .data[[arm_cols[4]]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">288</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Do not adjust the p-values for multiplicity.</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">289</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      adjust = "none"</pre>
+                      <pre class="language-r">      ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">176</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">290</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      dplyr::select(-dplyr::all_of(arm_cols))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">178</td>
+                    <td class="num">292</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    contrast_lvls &lt;- gsub(</pre>
+                      <pre class="language-r">    df$hr &lt;- df$hr %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">179</td>
+                    <td class="num">293</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "^\\(|\\)$", "", gsub(paste0(" - \\(*", .ref_group[[arm]][1], ".*"), "", sum_contrasts$contrast)</pre>
+                      <pre class="language-r">      dplyr::left_join(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">180</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">294</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        df_prop_diff,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">181</td>
+                    <td class="num">295</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.null(interaction_item)) {</pre>
+                      <pre class="language-r">        by = c("subgroup", "var", "var_label", "row_type")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">182</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">296</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sum_contrasts_level &lt;- sum_contrasts[grepl(sum_level, contrast_lvls, fixed = TRUE), ]</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">297</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">298</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sum_contrasts_level &lt;- sum_contrasts[sum_level == contrast_lvls, ]</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  # Add columns from table_survtime (optional)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">300</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (interaction_y != FALSE) {</pre>
+                      <pre class="language-r">  if (length(colvars_survtime$vars) &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">187</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">301</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sum_contrasts_level &lt;- sum_contrasts_level[interaction_y, ]</pre>
+                      <pre class="language-r">    lyt_survtime &lt;- split_cols_by(lyt = lyt, var = "arm")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">188</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">302</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    lyt_survtime &lt;- split_rows_by(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">189</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">303</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      lyt = lyt_survtime,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">304</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list(</pre>
+                      <pre class="language-r">      var = "row_type",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">305</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n = length(y[!is.na(y)]),</pre>
+                      <pre class="language-r">      split_fun = keep_split_levels("content"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">306</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lsmean = formatters::with_label(sum_fit_level$emmean, "Adjusted Mean"),</pre>
+                      <pre class="language-r">      nested = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">193</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">307</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lsmean_diff = formatters::with_label(sum_contrasts_level$estimate, "Difference in Adjusted Means"),</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">194</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">308</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lsmean_diff_ci = formatters::with_label(</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">309</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    # Add "All Patients" row</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">310</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        c(sum_contrasts_level$lower.CL, sum_contrasts_level$upper.CL),</pre>
+                      <pre class="language-r">    lyt_survtime &lt;- summarize_row_groups(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">311</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        f_conf_level(conf_level)</pre>
+                      <pre class="language-r">      lyt = lyt_survtime,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">197</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">312</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">      var = "var_label",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">198</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">313</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pval = formatters::with_label(sum_contrasts_level$p.value, "p-value")</pre>
+                      <pre class="language-r">      cfun = afun_lst[names(colvars_survtime$labels)],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">199</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">314</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      na_str = na_str,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">200</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">315</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      extra_args = extra_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">316</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">202</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">317</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    lyt_survtime &lt;- split_cols_by_multivar(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">203</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">318</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn summarize_ancova Formatted analysis function which is used as `afun` in `summarize_ancova()`.</pre>
+                      <pre class="language-r">      lyt = lyt_survtime,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">204</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">319</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      vars = colvars_survtime$vars,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">205</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">320</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">      varlabels = colvars_survtime$labels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `a_ancova()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">322</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">323</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    # Add analysis rows</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">209</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">324</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">a_ancova &lt;- make_afun(</pre>
+                      <pre class="language-r">    if ("analysis" %in% df$survtime$row_type) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">210</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">325</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_ancova,</pre>
+                      <pre class="language-r">      lyt_survtime &lt;- split_rows_by(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">211</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">326</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .indent_mods = c("n" = 0L, "lsmean" = 0L, "lsmean_diff" = 0L, "lsmean_diff_ci" = 1L, "pval" = 1L),</pre>
+                      <pre class="language-r">        lyt = lyt_survtime,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">212</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">327</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats = c(</pre>
+                      <pre class="language-r">        var = "row_type",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">213</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">328</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "n" = "xx",</pre>
+                      <pre class="language-r">        split_fun = keep_split_levels("analysis"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">214</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">329</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "lsmean" = "xx.xx",</pre>
+                      <pre class="language-r">        nested = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">215</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">330</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "lsmean_diff" = "xx.xx",</pre>
+                      <pre class="language-r">        child_labels = "hidden"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">331</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "lsmean_diff_ci" = "(xx.xx, xx.xx)",</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">217</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">332</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "pval" = "x.xxxx | (&lt;0.0001)"</pre>
+                      <pre class="language-r">      lyt_survtime &lt;- split_rows_by(lyt = lyt_survtime, var = "var_label", nested = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">218</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">333</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ),</pre>
+                      <pre class="language-r">      lyt_survtime &lt;- analyze_colvars(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">219</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">334</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .null_ref_cells = FALSE</pre>
+                      <pre class="language-r">        lyt = lyt_survtime,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">220</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">335</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">        afun = afun_lst[names(colvars_survtime$labels)],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">221</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">336</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        na_str = na_str,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">222</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">337</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn summarize_ancova Layout-creating function which can take statistics function arguments</pre>
+                      <pre class="language-r">        inclNAs = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">223</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">338</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
+                      <pre class="language-r">        extra_args = extra_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">339</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">340</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">341</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `summarize_ancova()` returns a layout object suitable for passing to further layouting functions,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">227</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">342</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
+                      <pre class="language-r">    table_survtime &lt;- build_table(lyt_survtime, df = df$survtime)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</td>
+                    <td class="num">343</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the statistics from `s_ancova()` to the table layout.</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">229</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">344</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    table_survtime &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</td>
+                    <td class="num">345</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">231</td>
+                    <td class="num">346</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</td>
+                    <td class="num">347</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("Species", ref_group = "setosa") %&gt;%</pre>
+                      <pre class="language-r">  # Add columns from table_hr ("n_tot_events" or "n_tot", "or" and "ci" required)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">233</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">348</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                      <pre class="language-r">  lyt_hr &lt;- split_cols_by(lyt = lyt, var = "arm")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">234</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">349</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   summarize_ancova(</pre>
+                      <pre class="language-r">  lyt_hr &lt;- split_rows_by(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">235</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">350</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     vars = "Petal.Length",</pre>
+                      <pre class="language-r">    lyt = lyt_hr,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">236</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">351</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     variables = list(arm = "Species", covariates = NULL),</pre>
+                      <pre class="language-r">    var = "row_type",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">237</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">352</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     table_names = "unadj",</pre>
+                      <pre class="language-r">    split_fun = keep_split_levels("content"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">238</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">353</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     conf_level = 0.95, var_labels = "Unadjusted comparison",</pre>
+                      <pre class="language-r">    nested = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</td>
+                    <td class="num">354</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .labels = c(lsmean = "Mean", lsmean_diff = "Difference in Means")</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">240</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">355</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">  lyt_hr &lt;- summarize_row_groups(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">241</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">356</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   summarize_ancova(</pre>
+                      <pre class="language-r">    lyt = lyt_hr,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">242</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">357</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     vars = "Petal.Length",</pre>
+                      <pre class="language-r">    var = "var_label",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">243</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">358</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     variables = list(arm = "Species", covariates = c("Sepal.Length", "Sepal.Width")),</pre>
+                      <pre class="language-r">    cfun = afun_lst[names(colvars_hr$labels)],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">244</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">359</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     table_names = "adj",</pre>
+                      <pre class="language-r">    na_str = na_str,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">245</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">360</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     conf_level = 0.95, var_labels = "Adjusted comparison (covariates: Sepal.Length and Sepal.Width)"</pre>
+                      <pre class="language-r">    extra_args = extra_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</td>
+                    <td class="num">361</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">247</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">362</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(iris)</pre>
+                      <pre class="language-r">  lyt_hr &lt;- split_cols_by_multivar(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">248</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">363</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    lyt = lyt_hr,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">249</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">364</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    vars = colvars_hr$vars,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">250</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">365</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 2</pre>
+                      <pre class="language-r">    varlabels = colvars_hr$labels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">366</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">summarize_ancova &lt;- function(lyt,</pre>
+                      <pre class="language-r">  ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">252</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">367</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             vars,</pre>
+                      <pre class="language-r">    append_topleft("Baseline Risk Factors")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">253</td>
+                    <td class="num">368</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             variables,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</td>
+                    <td class="num">369</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             conf_level,</pre>
+                      <pre class="language-r">  # Add analysis rows</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">255</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">370</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             interaction_y = FALSE,</pre>
+                      <pre class="language-r">  if ("analysis" %in% df$survtime$row_type) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">256</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">371</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             interaction_item = NULL,</pre>
+                      <pre class="language-r">    lyt_hr &lt;- split_rows_by(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">257</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">372</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             var_labels,</pre>
+                      <pre class="language-r">      lyt = lyt_hr,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">258</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">373</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             na_str = default_na_str(),</pre>
+                      <pre class="language-r">      var = "row_type",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">259</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">374</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             nested = TRUE,</pre>
+                      <pre class="language-r">      split_fun = keep_split_levels("analysis"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">260</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">375</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             ...,</pre>
+                      <pre class="language-r">      nested = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">261</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">376</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             show_labels = "visible",</pre>
+                      <pre class="language-r">      child_labels = "hidden"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</td>
+                    <td class="num">377</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             table_names = vars,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">263</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">378</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             .stats = NULL,</pre>
+                      <pre class="language-r">    lyt_hr &lt;- split_rows_by(lyt = lyt_hr, var = "var_label", nested = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">264</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">379</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             .formats = NULL,</pre>
+                      <pre class="language-r">    lyt_hr &lt;- analyze_colvars(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">265</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">380</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             .labels = NULL,</pre>
+                      <pre class="language-r">      lyt = lyt_hr,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">266</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">381</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             .indent_mods = NULL) {</pre>
+                      <pre class="language-r">      afun = afun_lst[names(colvars_hr$labels)],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">267</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">382</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(</pre>
+                      <pre class="language-r">      na_str = na_str,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">268</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">383</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    variables = variables, conf_level = conf_level, interaction_y = interaction_y,</pre>
+                      <pre class="language-r">      inclNAs = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">269</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">384</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    interaction_item = interaction_item, ...</pre>
+                      <pre class="language-r">      extra_args = extra_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</td>
+                    <td class="num">385</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">271</td>
+                    <td class="num">386</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">387</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">272</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">388</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  afun &lt;- make_afun(</pre>
+                      <pre class="language-r">  table_hr &lt;- build_table(lyt_hr, df = df$hr)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">273</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">389</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    a_ancova,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">274</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">390</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    interaction_y = interaction_y,</pre>
+                      <pre class="language-r">  # Join tables, add forest plot attributes</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">275</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">391</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    interaction_item = interaction_item,</pre>
+                      <pre class="language-r">  n_tot_ids &lt;- grep("^n_tot", colvars_hr$vars)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">276</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">392</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .stats = .stats,</pre>
+                      <pre class="language-r">  if (is.null(table_survtime)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">277</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">393</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .formats = .formats,</pre>
+                      <pre class="language-r">    result &lt;- table_hr</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">278</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">394</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .labels = .labels,</pre>
+                      <pre class="language-r">    hr_id &lt;- match("hr", colvars_hr$vars)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">279</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">395</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .indent_mods = .indent_mods</pre>
+                      <pre class="language-r">    ci_id &lt;- match("ci", colvars_hr$vars)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">396</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">281</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">397</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    result &lt;- cbind_rtables(table_hr[, n_tot_ids], table_survtime, table_hr[, -n_tot_ids])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">282</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">398</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  analyze(</pre>
+                      <pre class="language-r">    hr_id &lt;- length(n_tot_ids) + ncol(table_survtime) + match("hr", colvars_hr$vars[-n_tot_ids])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">283</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">399</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt,</pre>
+                      <pre class="language-r">    ci_id &lt;- length(n_tot_ids) + ncol(table_survtime) + match("ci", colvars_hr$vars[-n_tot_ids])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">284</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">400</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars,</pre>
+                      <pre class="language-r">    n_tot_ids &lt;- seq_along(n_tot_ids)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">285</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">401</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_labels = var_labels,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">286</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">402</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    show_labels = show_labels,</pre>
+                      <pre class="language-r">  structure(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">287</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">403</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table_names = table_names,</pre>
+                      <pre class="language-r">    result,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">288</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">404</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    afun = afun,</pre>
+                      <pre class="language-r">    forest_header = paste0(rev(levels(df$survtime$arm)), "\nBetter"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">289</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">405</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">    col_x = hr_id,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">290</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">406</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nested = nested,</pre>
+                      <pre class="language-r">    col_ci = ci_id,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">291</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">407</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args = extra_args</pre>
+                      <pre class="language-r">    col_symbol_size = n_tot_ids[1] # for scaling the symbol sizes in forest plots</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">292</td>
+                    <td class="num">408</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">293</td>
+                    <td class="num">409</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/utils_rtables.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"># Utility functions to cooperate with {rtables} package</pre>
-                    </td>
-                  </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">410</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">411</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Convert table into matrix of strings</pre>
+                      <pre class="language-r">#' Labels for column variables in survival duration by subgroup table</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">412</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">413</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">414</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">415</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function to use mostly within tests. `with_spaces`parameter allows</pre>
+                      <pre class="language-r">#' Internal function to check variables included in [tabulate_survival_subgroups()] and create column labels.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">416</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' to test not only for content but also indentation and table structure.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">417</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `print_txt_to_copy` instead facilitate the testing development by returning a well</pre>
+                      <pre class="language-r">#' @inheritParams tabulate_survival_subgroups</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">418</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' formatted text that needs only to be copied and pasted in the expected output.</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">419</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param method (`string`)\cr p-value method for testing hazard ratio = 1.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">420</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams formatters::toString</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">421</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`VTableTree`)\cr `rtables` table object.</pre>
+                      <pre class="language-r">#' @return A `list` of variables and their labels to tabulate.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">422</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param with_spaces (`flag`)\cr whether the tested table should keep the indentation and other relevant spaces.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">423</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param print_txt_to_copy (`flag`)\cr utility to have a way to copy the input table directly</pre>
+                      <pre class="language-r">#' @note At least one of `n_tot` and `n_tot_events` must be provided in `vars`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">424</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   into the expected variable instead of copying it too manually.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">425</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">426</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `matrix` of `string`s. If `print_txt_to_copy = TRUE` the well formatted printout of the</pre>
+                      <pre class="language-r">d_survival_subgroups_colvars &lt;- function(vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">427</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   table will be printed to console, ready to be copied as a expected value.</pre>
+                      <pre class="language-r">                                         conf_level,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">428</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                         method,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">429</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">                                         time_unit = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">430</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tbl &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">  checkmate::assert_character(vars)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">431</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by("SEX") %&gt;%</pre>
+                      <pre class="language-r">  checkmate::assert_string(time_unit, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">432</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
+                      <pre class="language-r">  checkmate::assert_subset(c("hr", "ci"), vars)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">433</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze("AGE") %&gt;%</pre>
+                      <pre class="language-r">  checkmate::assert_true(any(c("n_tot", "n_tot_events") %in% vars))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">434</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(tern_ex_adsl)</pre>
+                      <pre class="language-r">  checkmate::assert_subset(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">435</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    vars,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">436</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' to_string_matrix(tbl, widths = ceiling(propose_column_widths(tbl) / 2))</pre>
+                      <pre class="language-r">    c("n", "n_events", "median", "n_tot", "n_tot_events", "hr", "ci", "pval")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">437</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">438</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">439</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">to_string_matrix &lt;- function(x, widths = NULL, max_width = NULL,</pre>
+                      <pre class="language-r">  propcase_time_label &lt;- if (!is.null(time_unit)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">440</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             hsep = formatters::default_hsep(),</pre>
+                      <pre class="language-r">    paste0("Median (", time_unit, ")")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">441</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             with_spaces = TRUE, print_txt_to_copy = FALSE) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">34</td>
-                    <td class="coverage">11<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(with_spaces)</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">35</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">442</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(print_txt_to_copy)</pre>
+                      <pre class="language-r">    "Median"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">36</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">443</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_int(max_width, null.ok = TRUE)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">444</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">38</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">445</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (inherits(x, "MatrixPrintForm")) {</pre>
+                      <pre class="language-r">  varlabels &lt;- c(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">39</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">446</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tx &lt;- x</pre>
+                      <pre class="language-r">    n = "n",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">447</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">    n_events = "Events",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">41</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">448</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tx &lt;- matrix_form(x, TRUE)</pre>
+                      <pre class="language-r">    median = propcase_time_label,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">449</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    n_tot = "Total n",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">450</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    n_tot_events = "Total Events",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">44</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">451</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tf_wrap &lt;- FALSE</pre>
+                      <pre class="language-r">    hr = "Hazard Ratio",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">45</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">452</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(max_width)) {</pre>
+                      <pre class="language-r">    ci = paste0(100 * conf_level, "% Wald CI"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">46</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">453</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tf_wrap &lt;- TRUE</pre>
+                      <pre class="language-r">    pval = method</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">454</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">455</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  # Producing the matrix to test</pre>
-                    </td>
-                  </tr>
                   <tr class="covered">
-                    <td class="num">50</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">456</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (with_spaces) {</pre>
+                      <pre class="language-r">  colvars &lt;- vars</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">51</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">457</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    out &lt;- strsplit(toString(tx, widths = widths, tf_wrap = tf_wrap, max_width = max_width, hsep = hsep), "\n")[[1]]</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">458</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">  # The `lcl` variable is just a placeholder available in the analysis data,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">53</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">459</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    out &lt;- tx$strings</pre>
+                      <pre class="language-r">  # it is not acutally used in the tabulation.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">460</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  # Variables used in the tabulation are lcl and ucl, see `a_survival_subgroups` for details.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">55</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">461</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  colvars[colvars == "ci"] &lt;- "lcl"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">462</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Printing to console formatted output that needs to be copied in "expected"</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">463</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (print_txt_to_copy) {</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">464</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    out_tmp &lt;- out</pre>
+                      <pre class="language-r">    vars = colvars,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">465</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!with_spaces) {</pre>
+                      <pre class="language-r">    labels = varlabels[vars]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">466</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      out_tmp &lt;- apply(out, 1, paste0, collapse = '", "')</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">467</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">2<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/estimate_multinomial_rsp.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
+                  <tr class="never">
+                    <td class="num">1</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    cat(paste0('c(\n  "', paste0(out_tmp, collapse = '",\n  "'), '"\n)'))</pre>
+                      <pre class="language-r">#' Estimate proportions of each level of a variable</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Return values</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(out)</pre>
+                      <pre class="language-r">#' The analyze &amp; summarize function [estimate_multinomial_response()] creates a layout element to estimate the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' proportion and proportion confidence interval for each level of a factor variable. The primary analysis variable,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' `var`, should be a factor variable, the values of which will be used as labels within the output table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Blank for missing input</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function to use in tabulating model results.</pre>
+                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("estimate_multinomial_response")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   to see available statistics for this function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`vector`)\cr input for a cell.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @seealso Relevant description function [d_onco_rsp_label()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return An empty `character` vector if all entries in `x` are missing (`NA`), otherwise</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the unlisted version of `x`.</pre>
+                      <pre class="language-r">#' @name estimate_multinomial_rsp</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @order 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">unlist_and_blank_na &lt;- function(x) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">267<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  unl &lt;- unlist(x)</pre>
+                      <pre class="language-r">#' Description of standard oncology response</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">267<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">20</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (all(is.na(unl))) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">82</td>
-                    <td class="coverage">161<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    character()</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">106<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">23</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    unl</pre>
+                      <pre class="language-r">#' Describe the oncology response in a standard way.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @param x (`character`)\cr the standard oncology codes to be described.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Constructor for content functions given a data frame with flag input</pre>
+                      <pre class="language-r">#' @return Response labels.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This can be useful for tabulating model results.</pre>
+                      <pre class="language-r">#' @seealso [estimate_multinomial_rsp()]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param analysis_var (`string`)\cr variable name for the column containing values to be returned by the</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   content function.</pre>
+                      <pre class="language-r">#' d_onco_rsp_label(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param flag_var (`string`)\cr variable name for the logical column identifying which row should be returned.</pre>
+                      <pre class="language-r">#'   c("CR", "PR", "SD", "NON CR/PD", "PD", "NE", "Missing", "&lt;Missing&gt;", "NE/Missing")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param format (`string`)\cr `rtables` format to use.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A content function which gives `df$analysis_var` at the row identified by</pre>
+                      <pre class="language-r">#' # Adding some values not considered in d_onco_rsp_label</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `.df_row$flag` in the given format.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' d_onco_rsp_label(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'   c("CR", "PR", "hello", "hi")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">cfun_by_flag &lt;- function(analysis_var,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         flag_var,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         format = "xx",</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         .indent_mods = NULL) {</pre>
+                      <pre class="language-r">d_onco_rsp_label &lt;- function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">61<em>x</em></td>
+                    <td class="num">44</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(analysis_var)</pre>
+                      <pre class="language-r">  x &lt;- as.character(x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">61<em>x</em></td>
+                    <td class="num">45</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(flag_var)</pre>
+                      <pre class="language-r">  desc &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">61<em>x</em></td>
+                    <td class="num">46</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  function(df, labelstr) {</pre>
+                      <pre class="language-r">    CR           = "Complete Response (CR)",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">265<em>x</em></td>
+                    <td class="num">47</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    row_index &lt;- which(df[[flag_var]])</pre>
+                      <pre class="language-r">    PR           = "Partial Response (PR)",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">265<em>x</em></td>
+                    <td class="num">48</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x &lt;- unlist_and_blank_na(df[[analysis_var]][row_index])</pre>
+                      <pre class="language-r">    MR           = "Minimal/Minor Response (MR)",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">265<em>x</em></td>
+                    <td class="num">49</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    formatters::with_label(</pre>
+                      <pre class="language-r">    MRD          = "Minimal Residual Disease (MRD)",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">265<em>x</em></td>
+                    <td class="num">50</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rcell(x, format = format, indent_mod = .indent_mods),</pre>
+                      <pre class="language-r">    SD           = "Stable Disease (SD)",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">265<em>x</em></td>
+                    <td class="num">51</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      labelstr</pre>
+                      <pre class="language-r">    PD           = "Progressive Disease (PD)",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">113</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">52</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    `NON CR/PD`  = "Non-CR or Non-PD (NON CR/PD)",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">114</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">53</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    NE           = "Not Evaluable (NE)",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">115</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">54</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    `NE/Missing` = "Missing or unevaluable",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">116</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">55</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    Missing      = "Missing",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">117</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">56</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Content row function to add row total to labels</pre>
+                      <pre class="language-r">    `NA`         = "Not Applicable (NA)",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">118</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">57</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    ND           = "Not Done (ND)"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This takes the label of the latest row split level and adds the row total from `df` in parentheses.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function differs from [c_label_n_alt()] by taking row counts from `df` rather than</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">121</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">60</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `alt_counts_df`, and is used by [add_rowcounts()] when `alt_counts` is set to `FALSE`.</pre>
+                      <pre class="language-r">  values_label &lt;- vapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">122</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">61</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    X = x,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">123</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">62</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">    FUN.VALUE = character(1),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">124</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">63</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    function(val) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">125</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">64</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A list with formatted [rtables::CellValue()] with the row count value and the correct label.</pre>
+                      <pre class="language-r">      if (val %in% names(desc)) desc[val] else val</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note It is important here to not use `df` but rather `.N_row` in the implementation, because</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the former is already split by columns and will refer to the first column of the data only.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">129</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">68</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  return(factor(values_label, levels = c(intersect(desc, values_label), setdiff(values_label, desc))))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [c_label_n_alt()] which performs the same function but retrieves row counts from</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `alt_counts_df` instead of `df`.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @describeIn estimate_multinomial_rsp Statistics function which feeds the length of `x` as number</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'   of successes, and `.N_col` as total number of successes and failures into [s_proportion()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">c_label_n &lt;- function(df,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      labelstr,</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      .N_row) { # nolint</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">273<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  label &lt;- paste0(labelstr, " (N=", .N_row, ")")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">273<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  in_rows(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">273<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    .list = list(row_count = formatters::with_label(c(.N_row, .N_row), label)),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">273<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    .formats = c(row_count = function(x, ...) "")</pre>
+                      <pre class="language-r">#' * `s_length_proportion()` returns statistics from [s_proportion()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' s_length_proportion(rep("CR", 10), .N_col = 100)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Content row function to add `alt_counts_df` row total to labels</pre>
+                      <pre class="language-r">#' s_length_proportion(factor(character(0)), .N_col = 100)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This takes the label of the latest row split level and adds the row total from `alt_counts_df`</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' in parentheses. This function differs from [c_label_n()] by taking row counts from `alt_counts_df`</pre>
+                      <pre class="language-r">s_length_proportion &lt;- function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' rather than `df`, and is used by [add_rowcounts()] when `alt_counts` is set to `TRUE`.</pre>
+                      <pre class="language-r">                                .N_col, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">150</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">85</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(x, classes = c("factor", "character"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">151</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">86</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_vector(x, min.len = 0, max.len = .N_col)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">152</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">87</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A list with formatted [rtables::CellValue()] with the row count value and the correct label.</pre>
+                      <pre class="language-r">  checkmate::assert_vector(unique(x), min.len = 0, max.len = 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">154</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">89</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [c_label_n()] which performs the same function but retrieves row counts from `df` instead</pre>
+                      <pre class="language-r">  n_true &lt;- length(x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">155</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">90</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   of `alt_counts_df`.</pre>
+                      <pre class="language-r">  n_false &lt;- .N_col - n_true</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">156</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">91</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  x_logical &lt;- rep(c(TRUE, FALSE), c(n_true, n_false))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">157</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">92</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">  s_proportion(df = x_logical, ...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">c_label_n_alt &lt;- function(df,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          labelstr,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          .alt_df_row) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">7<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  N_row_alt &lt;- nrow(.alt_df_row) # nolint</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">7<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  label &lt;- paste0(labelstr, " (N=", N_row_alt, ")")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">7<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  in_rows(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">7<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    .list = list(row_count = formatters::with_label(c(N_row_alt, N_row_alt), label)),</pre>
+                      <pre class="language-r">#' @describeIn estimate_multinomial_rsp Formatted analysis function which is used as `afun`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">96</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .formats = c(row_count = function(x, ...) "")</pre>
+                      <pre class="language-r">#'   in `estimate_multinomial_response()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' * `a_length_proportion()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Layout-creating function to add row total counts</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' a_length_proportion(rep("CR", 10), .N_col = 100)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' a_length_proportion(factor(character(0)), .N_col = 100)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This works analogously to [rtables::add_colcounts()] but on the rows. This function</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  is a wrapper for [rtables::summarize_row_groups()].</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">a_length_proportion &lt;- make_afun(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">  s_length_proportion,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param alt_counts (`flag`)\cr whether row counts should be taken from `alt_counts_df` (`TRUE`)</pre>
+                      <pre class="language-r">  .formats = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or from `df` (`FALSE`). Defaults to `FALSE`.</pre>
+                      <pre class="language-r">    n_prop = "xx (xx.x%)",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    prop_ci = "(xx.xx, xx.xx)"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A modified layout where the latest row split labels now have the row-wise</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   total counts (i.e. without column-based subsetting) attached in parentheses.</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note Row count values are contained in these row count rows but are not displayed</pre>
+                      <pre class="language-r">#' @describeIn estimate_multinomial_rsp Layout-creating function which can take statistics function arguments</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   so that they are not considered zero rows by default when pruning.</pre>
+                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()] and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   [rtables::summarize_row_groups()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
+                      <pre class="language-r">#' * `estimate_multinomial_response()` returns a layout object suitable for passing to further layouting functions,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by("RACE", split_fun = drop_split_levels) %&gt;%</pre>
+                      <pre class="language-r">#'   the statistics from `s_length_proportion()` to the table layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_rowcounts() %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze("AGE", afun = list_wrap_x(summary), format = "xx.xx") %&gt;%</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(DM)</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' # Use of the layout creating function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">add_rowcounts &lt;- function(lyt, alt_counts = FALSE) {</pre>
+                      <pre class="language-r">#' dta_test &lt;- data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">197</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">128</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  summarize_row_groups(</pre>
+                      <pre class="language-r">#'   USUBJID = paste0("S", 1:12),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">198</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">129</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt,</pre>
+                      <pre class="language-r">#'   ARM     = factor(rep(LETTERS[1:3], each = 4)),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">130</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    cfun = if (alt_counts) c_label_n_alt else c_label_n</pre>
+                      <pre class="language-r">#'   AVAL    = c(A = c(1, 1, 1, 1), B = c(0, 0, 1, 1), C = c(0, 0, 0, 0))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' ) %&gt;% mutate(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   AVALC = factor(AVAL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     levels = c(0, 1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Obtain column indices</pre>
+                      <pre class="language-r">#'     labels = c("Complete Response (CR)", "Partial Response (PR)")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">205</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function to extract column indices from a `VTableTree` for a given</pre>
+                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' vector of column names.</pre>
+                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   estimate_multinomial_response(var = "AVALC")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param table_tree (`VTableTree`)\cr `rtables` table object to extract the indices from.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param col_names (`character`)\cr vector of column names.</pre>
+                      <pre class="language-r">#' tbl &lt;- build_table(lyt, dta_test)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A vector of column indices.</pre>
+                      <pre class="language-r">#' tbl</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_col_indices &lt;- function(table_tree, col_names) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">217</td>
-                    <td class="coverage">1256<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(table_tree, "VTableNodeInfo")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">218</td>
-                    <td class="coverage">1256<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(col_names, names(attr(col_info(table_tree), "cextra_args")), empty.ok = FALSE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">1256<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  match(col_names, names(attr(col_info(table_tree), "cextra_args")))</pre>
+                      <pre class="language-r">#' @order 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">estimate_multinomial_response &lt;- function(lyt,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                          var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Labels or names of list elements</pre>
+                      <pre class="language-r">                                          na_str = default_na_str(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">223</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                          nested = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Internal helper function for working with nested statistic function results which typically</pre>
+                      <pre class="language-r">                                          ...,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' don't have labels but names that we can use.</pre>
+                      <pre class="language-r">                                          show_labels = "hidden",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                          table_names = var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`list`)\cr a list.</pre>
+                      <pre class="language-r">                                          .stats = "prop_ci",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                          .formats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `character` vector with the labels or names for the list elements.</pre>
+                      <pre class="language-r">                                          .labels = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                          .indent_mods = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">231</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">159</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">  extra_args &lt;- list(...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">labels_or_names &lt;- function(x) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">233</td>
-                    <td class="coverage">190<em>x</em></td>
+                    <td class="num">161</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(x, c("data.frame", "list"))</pre>
+                      <pre class="language-r">  afun &lt;- make_afun(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">190<em>x</em></td>
+                    <td class="num">162</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  labs &lt;- sapply(x, obj_label)</pre>
+                      <pre class="language-r">    a_length_proportion,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">235</td>
-                    <td class="coverage">190<em>x</em></td>
+                    <td class="num">163</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nams &lt;- rlang::names2(x)</pre>
+                      <pre class="language-r">    .stats = .stats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">236</td>
-                    <td class="coverage">190<em>x</em></td>
+                    <td class="num">164</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  label_is_null &lt;- sapply(labs, is.null)</pre>
+                      <pre class="language-r">    .formats = .formats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">237</td>
-                    <td class="coverage">190<em>x</em></td>
+                    <td class="num">165</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result &lt;- unlist(ifelse(label_is_null, nams, labs))</pre>
+                      <pre class="language-r">    .labels = .labels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">238</td>
-                    <td class="coverage">190<em>x</em></td>
+                    <td class="num">166</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(result)</pre>
+                      <pre class="language-r">    .indent_mods = .indent_mods</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">168</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  lyt &lt;- split_rows_by(lyt, var = var)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">169</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  lyt &lt;- summarize_row_groups(lyt, na_str = na_str)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">241</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">171</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Convert to `rtable`</pre>
+                      <pre class="language-r">  analyze(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">242</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">172</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    lyt,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">243</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">173</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">    vars = var,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">244</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">174</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    afun = afun,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">245</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">175</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This is a new generic function to convert objects to `rtable` tables.</pre>
+                      <pre class="language-r">    show_labels = show_labels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">246</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">176</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    table_names = table_names,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">247</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">177</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`data.frame`)\cr the object which should be converted to an `rtable`.</pre>
+                      <pre class="language-r">    na_str = na_str,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">178</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    nested = nested,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">179</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    extra_args = extra_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... additional arguments for methods.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">249</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/h_incidence_rate.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">250</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return An `rtables` table object. Note that the concrete class will depend on the method used.</pre>
+                      <pre class="language-r">#' Helper functions for incidence rate</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">253</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">as.rtable &lt;- function(x, ...) { # nolint</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">254</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  UseMethod("as.rtable", x)</pre>
+                      <pre class="language-r">#' @param control (`list`)\cr parameters for estimation details, specified by using</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">255</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   the helper function [control_incidence_rate()]. Possible parameter options are:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">256</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   * `conf_level`: (`proportion`)\cr confidence level for the estimated incidence rate.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn as.rtable Method for converting a `data.frame` that contains numeric columns to `rtable`.</pre>
+                      <pre class="language-r">#'   * `conf_type`: (`string`)\cr `normal` (default), `normal_log`, `exact`, or `byar`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     for confidence interval type.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">259</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param format (`string` or `function`)\cr the format which should be used for the columns.</pre>
+                      <pre class="language-r">#'   * `input_time_unit`: (`string`)\cr `day`, `week`, `month`, or `year` (default)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">260</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     indicating time unit for data input.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">261</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @method as.rtable data.frame</pre>
+                      <pre class="language-r">#'   * `num_pt_year`: (`numeric`)\cr time unit for desired output (in person-years).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param person_years (`numeric(1)`)\cr total person-years at risk.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">263</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @param alpha (`numeric(1)`)\cr two-sided alpha-level for confidence interval.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">264</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x &lt;- data.frame(</pre>
+                      <pre class="language-r">#' @param n_events (`integer(1)`)\cr number of events observed.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   a = 1:10,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">266</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   b = rnorm(10)</pre>
+                      <pre class="language-r">#' @return Estimated incidence rate, `rate`, and associated confidence interval, `rate_ci`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' as.rtable(x)</pre>
+                      <pre class="language-r">#' @seealso [incidence_rate]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @name h_incidence_rate</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">271</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">as.rtable.data.frame &lt;- function(x, format = "xx.xx", ...) {</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">272</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">23</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(unlist(x))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">273</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  do.call(</pre>
+                      <pre class="language-r">#' @describeIn h_incidence_rate Helper function to estimate the incidence rate and</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">274</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">25</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rtable,</pre>
+                      <pre class="language-r">#'   associated confidence interval.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">275</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">26</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">276</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">27</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      list(</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">277</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">28</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        header = labels_or_names(x),</pre>
+                      <pre class="language-r">h_incidence_rate &lt;- function(person_years,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">278</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">29</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        format = format</pre>
+                      <pre class="language-r">                             n_events,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">                             control = control_incidence_rate()) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">280</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">31</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      Map(</pre>
+                      <pre class="language-r">  alpha &lt;- 1 - control$conf_level</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">281</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">32</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        function(row, row_name) {</pre>
+                      <pre class="language-r">  est &lt;- switch(control$conf_type,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">282</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="num">33</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          do.call(</pre>
+                      <pre class="language-r">    normal = h_incidence_rate_normal(person_years, n_events, alpha),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">283</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="num">34</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            rrow,</pre>
+                      <pre class="language-r">    normal_log = h_incidence_rate_normal_log(person_years, n_events, alpha),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">284</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="num">35</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            c(as.list(unname(row)),</pre>
+                      <pre class="language-r">    exact = h_incidence_rate_exact(person_years, n_events, alpha),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">285</td>
-                    <td class="coverage">20<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">              row.name = row_name</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">286</td>
-                    <td class="coverage"></td>
+                    <td class="num">36</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">    byar = h_incidence_rate_byar(person_years, n_events, alpha)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        },</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">289</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">39</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        row = as.data.frame(t(x)),</pre>
+                      <pre class="language-r">  num_pt_year &lt;- control$num_pt_year</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">290</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">40</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        row_name = rownames(x)</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">291</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">41</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    rate = est$rate * num_pt_year,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">292</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">42</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    rate_ci = est$rate_ci * num_pt_year</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">293</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">294</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">295</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Split parameters</pre>
+                      <pre class="language-r">#' @describeIn h_incidence_rate Helper function to estimate the incidence rate and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   associated confidence interval based on the normal approximation for the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">298</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#'   incidence rate. Unit is one person-year.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">299</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">300</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' It divides the data in the vector `param` into the groups defined by `f` based on specified `values`. It is relevant</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">301</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' in `rtables` layers so as to distribute parameters `.stats` or' `.formats` into lists with items corresponding to</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">302</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' specific analysis function.</pre>
+                      <pre class="language-r">#' h_incidence_rate_normal(200, 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">303</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">304</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @param param (`vector`)\cr the parameter to be split.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">305</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @param value (`vector`)\cr the value used to split.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">306</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param f (`list`)\cr the reference to make the split.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">307</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">h_incidence_rate_normal &lt;- function(person_years,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">308</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A named `list` with the same element names as `f`, each containing the elements specified in `.stats`.</pre>
+                      <pre class="language-r">                                    n_events,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">309</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                    alpha = 0.05) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">310</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">57</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  checkmate::assert_number(person_years)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">311</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">58</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' f &lt;- list(</pre>
+                      <pre class="language-r">  checkmate::assert_number(n_events)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">312</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">59</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   surv = c("pt_at_risk", "event_free_rate", "rate_se", "rate_ci"),</pre>
+                      <pre class="language-r">  assert_proportion_value(alpha)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">313</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   surv_diff = c("rate_diff", "rate_diff_ci", "ztest_pval")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">314</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">61</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  est &lt;- n_events / person_years</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">315</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">62</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  se &lt;- sqrt(est / person_years)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">316</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">63</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' .stats &lt;- c("pt_at_risk", "rate_diff")</pre>
+                      <pre class="language-r">  ci &lt;- est + c(-1, 1) * stats::qnorm(1 - alpha / 2) * se</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">317</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_split_param(.stats, .stats, f = f)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">318</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">65</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  list(rate = est, rate_ci = ci)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">319</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # $surv</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">320</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # [1] "pt_at_risk"</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">321</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' #</pre>
+                      <pre class="language-r">#' @describeIn h_incidence_rate Helper function to estimate the incidence rate and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">322</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # $surv_diff</pre>
+                      <pre class="language-r">#'   associated confidence interval based on the normal approximation for the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">323</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # [1] "rate_diff"</pre>
+                      <pre class="language-r">#'   logarithm of the incidence rate. Unit is one person-year.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">324</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">325</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' .formats &lt;- c("pt_at_risk" = "xx", "event_free_rate" = "xxx")</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">326</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_split_param(.formats, names(.formats), f = f)</pre>
+                      <pre class="language-r">#' h_incidence_rate_normal_log(200, 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">327</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">328</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # $surv</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">329</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # pt_at_risk event_free_rate</pre>
+                      <pre class="language-r">h_incidence_rate_normal_log &lt;- function(person_years,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">330</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # "xx"           "xxx"</pre>
+                      <pre class="language-r">                                        n_events,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">331</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' #</pre>
+                      <pre class="language-r">                                        alpha = 0.05) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">332</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">79</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # $surv_diff</pre>
+                      <pre class="language-r">  checkmate::assert_number(person_years)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">333</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">80</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # NULL</pre>
+                      <pre class="language-r">  checkmate::assert_number(n_events)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">334</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">81</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  assert_proportion_value(alpha)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">335</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">336</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">83</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_split_param &lt;- function(param,</pre>
+                      <pre class="language-r">  rate_est &lt;- n_events / person_years</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">337</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">84</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          value,</pre>
+                      <pre class="language-r">  rate_se &lt;- sqrt(rate_est / person_years)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">338</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">85</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          f) {</pre>
+                      <pre class="language-r">  lrate_est &lt;- log(rate_est)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">339</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">86</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- lapply(f, function(x) param[value %in% x])</pre>
+                      <pre class="language-r">  lrate_se &lt;- rate_se / rate_est</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">340</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="num">87</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lapply(y, function(x) if (length(x) == 0) NULL else x)</pre>
+                      <pre class="language-r">  ci &lt;- exp(lrate_est + c(-1, 1) * stats::qnorm(1 - alpha / 2) * lrate_se)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">341</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">342</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">89</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  list(rate = rate_est, rate_ci = ci)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">343</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Get selected statistics names</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">344</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">345</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function to be used for creating `afun`.</pre>
+                      <pre class="language-r">#' @describeIn h_incidence_rate Helper function to estimate the incidence rate and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">346</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   associated exact confidence interval. Unit is one person-year.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">347</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .stats (`vector` or `NULL`)\cr input to the layout creating function. Note that `NULL` means</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">348</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   in this context that all default statistics should be used.</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">349</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param all_stats (`character`)\cr all statistics which can be selected here potentially.</pre>
+                      <pre class="language-r">#' h_incidence_rate_exact(200, 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">350</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">351</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `character` vector with the selected statistics.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">352</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">h_incidence_rate_exact &lt;- function(person_years,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">353</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">                                   n_events,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">354</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">afun_selected_stats &lt;- function(.stats, all_stats) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">355</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(.stats, null.ok = TRUE)</pre>
+                      <pre class="language-r">                                   alpha = 0.05) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">356</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">102</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(all_stats)</pre>
+                      <pre class="language-r">  checkmate::assert_number(person_years)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">357</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">103</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(.stats)) {</pre>
+                      <pre class="language-r">  checkmate::assert_number(n_events)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">358</td>
+                    <td class="num">104</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    all_stats</pre>
+                      <pre class="language-r">  assert_proportion_value(alpha)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">359</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">360</td>
+                    <td class="num">106</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    intersect(.stats, all_stats)</pre>
+                      <pre class="language-r">  est &lt;- n_events / person_years</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">361</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">107</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  lcl &lt;- stats::qchisq(p = (alpha) / 2, df = 2 * n_events) / (2 * person_years)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">362</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">108</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  ucl &lt;- stats::qchisq(p = 1 - (alpha) / 2, df = 2 * n_events + 2) / (2 * person_years)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">363</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">364</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' Add variable labels to top left corner in table</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">365</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">366</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">110</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">  list(rate = est, rate_ci = c(lcl, ucl))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">367</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">368</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper layout-creating function to append the variable labels of a given variables vector</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">369</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' from a given dataset in the top left corner. If a variable label is not found then the</pre>
+                      <pre class="language-r">#' @describeIn h_incidence_rate Helper function to estimate the incidence rate and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">370</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' variable name itself is used instead. Multiple variable labels are concatenated with slashes.</pre>
+                      <pre class="language-r">#'   associated Byar's confidence interval. Unit is one person-year.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">371</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">372</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">373</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param vars (`character`)\cr variable names of which the labels are to be looked up in `df`.</pre>
+                      <pre class="language-r">#' h_incidence_rate_byar(200, 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">374</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param indent (`integer(1)`)\cr non-negative number of nested indent space, default to 0L which means no indent.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">375</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   1L means two spaces indent, 2L means four spaces indent and so on.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">376</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">h_incidence_rate_byar &lt;- function(person_years,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">377</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A modified layout with the new variable label(s) added to the top-left material.</pre>
+                      <pre class="language-r">                                  n_events,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">378</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                  alpha = 0.05) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">379</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">123</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note This is not an optimal implementation of course, since we are using here the data set</pre>
+                      <pre class="language-r">  checkmate::assert_number(person_years)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">380</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">124</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   itself during the layout creation. When we have a more mature `rtables` implementation then</pre>
+                      <pre class="language-r">  checkmate::assert_number(n_events)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">381</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">125</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   this will also be improved or not necessary anymore.</pre>
+                      <pre class="language-r">  assert_proportion_value(alpha)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">382</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">383</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">127</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  est &lt;- n_events / person_years</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">384</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">128</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">  seg_1 &lt;- n_events + 0.5</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">385</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">129</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
+                      <pre class="language-r">  seg_2 &lt;- 1 - 1 / (9 * (n_events + 0.5))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">386</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">130</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                      <pre class="language-r">  seg_3 &lt;- stats::qnorm(1 - alpha / 2) * sqrt(1 / (n_events + 0.5)) / 3</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">387</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">131</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by("SEX") %&gt;%</pre>
+                      <pre class="language-r">  lcl &lt;- seg_1 * ((seg_2 - seg_3)^3) / person_years</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">388</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">132</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   append_varlabels(DM, "SEX") %&gt;%</pre>
+                      <pre class="language-r">  ucl &lt;- seg_1 * ((seg_2 + seg_3)^3) / person_years</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">389</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze("AGE", afun = mean) %&gt;%</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">134</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  list(rate = est, rate_ci = c(lcl, ucl))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">390</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   append_varlabels(DM, "AGE", indent = 1)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/summarize_ancova.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">391</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' build_table(lyt, DM)</pre>
+                      <pre class="language-r">#' Summarize analysis of covariance (ANCOVA) results</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">392</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">393</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">394</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">395</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by("SEX") %&gt;%</pre>
+                      <pre class="language-r">#' The analyze function [summarize_ancova()] creates a layout element to summarize ANCOVA results.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">396</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze("AGE", afun = mean) %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">397</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   append_varlabels(DM, c("SEX", "AGE"))</pre>
+                      <pre class="language-r">#' This function can be used to analyze multiple endpoints and/or multiple timepoints within the response variable(s)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">398</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' build_table(lyt, DM)</pre>
+                      <pre class="language-r">#' specified as `vars`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">399</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">400</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' Additional variables for the analysis, namely an arm (grouping) variable and covariate variables, can be defined</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">401</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">append_varlabels &lt;- function(lyt, df, vars, indent = 0L) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">402</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (checkmate::test_flag(indent)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">403</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    warning("indent argument is now accepting integers. Boolean indent will be converted to integers.")</pre>
+                      <pre class="language-r">#' via the `variables` argument. See below for more details on how to specify `variables`. An interaction term can</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">404</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    indent &lt;- as.integer(indent)</pre>
+                      <pre class="language-r">#' be implemented in the model if needed. The interaction variable that should interact with the arm variable is</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">405</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' specified via the `interaction_term` parameter, and the specific value of `interaction_term` for which to extract</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">406</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' the ANCOVA results via the `interaction_y` parameter.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">407</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">15</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(df)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">408</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">16</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(vars)</pre>
+                      <pre class="language-r">#' @inheritParams h_ancova</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">409</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_count(indent)</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">410</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param interaction_y (`string` or `flag`)\cr a selected item inside of the `interaction_item` variable which will be</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">411</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lab &lt;- formatters::var_labels(df[vars], fill = TRUE)</pre>
+                      <pre class="language-r">#'   used to select the specific ANCOVA results. if the interaction is not needed, the default option is `FALSE`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">412</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">20</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lab &lt;- paste(lab, collapse = " / ")</pre>
+                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("summarize_ancova")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">413</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  space &lt;- paste(rep(" ", indent * 2), collapse = "")</pre>
+                      <pre class="language-r">#'   to see available statistics for this function.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">414</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">22</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lab &lt;- paste0(space, lab)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">415</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @name summarize_ancova</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">416</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  append_topleft(lyt, lab)</pre>
+                      <pre class="language-r">#' @order 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">417</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">418</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">419</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Default string replacement for `NA` values</pre>
+                      <pre class="language-r">#' Helper function to return results of a linear model</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">420</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">421</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">422</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">423</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The default string used to represent `NA` values. This value is used as the default</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">424</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' value for the `na_str` argument throughout the `tern` package, and printed in place</pre>
+                      <pre class="language-r">#' @param .df_row (`data.frame`)\cr data set that includes all the variables that are called in `.var` and `variables`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">425</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' of `NA` values in output tables. If not specified for each `tern` function by the user</pre>
+                      <pre class="language-r">#' @param variables (named `list` of `string`)\cr list of additional analysis variables, with expected elements:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">426</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' via the `na_str` argument, or in the R environment options via [set_default_na_str()],</pre>
+                      <pre class="language-r">#'   * `arm` (`string`)\cr group variable, for which the covariate adjusted means of multiple groups will be</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">427</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' then `NA` is used.</pre>
+                      <pre class="language-r">#'     summarized. Specifically, the first level of `arm` variable is taken as the reference group.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">428</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   * `covariates` (`character`)\cr a vector that can contain single variable names (such as `"X1"`), and/or</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">429</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param na_str (`string`)\cr single string value to set in the R environment options as</pre>
+                      <pre class="language-r">#'     interaction terms indicated by `"X1 * X2"`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">430</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the default value to replace `NA`s. Use `getOption("tern_default_na_str")` to check the</pre>
+                      <pre class="language-r">#' @param interaction_item (`string` or `NULL`)\cr name of the variable that should have interactions</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">431</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   current value set in the R environment (defaults to `NULL` if not set).</pre>
+                      <pre class="language-r">#'   with arm. if the interaction is not needed, the default option is `NULL`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">432</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">433</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name default_na_str</pre>
+                      <pre class="language-r">#' @return The summary of a linear model.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">434</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">435</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">436</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn default_na_str Accessor for default `NA` value replacement string.</pre>
+                      <pre class="language-r">#' h_ancova(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">437</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   .var = "Sepal.Length",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">438</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'   .df_row = iris,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">439</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `default_na_str` returns the current value if an R environment option has been set</pre>
+                      <pre class="language-r">#'   variables = list(arm = "Species", covariates = c("Petal.Length * Petal.Width", "Sepal.Width"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">440</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   for `"tern_default_na_str"`, or `NA_character_` otherwise.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">441</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">442</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">443</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Default settings</pre>
+                      <pre class="language-r">h_ancova &lt;- function(.var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">444</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' default_na_str()</pre>
+                      <pre class="language-r">                     .df_row,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">445</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' getOption("tern_default_na_str")</pre>
+                      <pre class="language-r">                     variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">446</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                     interaction_item = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">447</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">55</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Set custom value</pre>
+                      <pre class="language-r">  checkmate::assert_string(.var)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">448</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">56</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' set_default_na_str("&lt;Missing&gt;")</pre>
+                      <pre class="language-r">  checkmate::assert_list(variables)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">449</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">57</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_subset(names(variables), c("arm", "covariates"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">450</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">58</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Settings after value has been set</pre>
+                      <pre class="language-r">  assert_df_with_variables(.df_row, list(rsp = .var))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">451</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' default_na_str()</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">452</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">60</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' getOption("tern_default_na_str")</pre>
+                      <pre class="language-r">  arm &lt;- variables$arm</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">453</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">61</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  covariates &lt;- variables$covariates</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">454</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">62</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  if (!is.null(covariates) &amp;&amp; length(covariates) &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">455</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">default_na_str &lt;- function() {</pre>
+                      <pre class="language-r">    # Get all covariate variable names in the model.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">456</td>
-                    <td class="coverage">331<em>x</em></td>
+                    <td class="num">64</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  getOption("tern_default_na_str", default = NA_character_)</pre>
+                      <pre class="language-r">    var_list &lt;- get_covariates(covariates)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">457</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">65</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    assert_df_with_variables(.df_row, var_list)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">458</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">459</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn default_na_str Setter for default `NA` value replacement string. Sets the</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">460</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">68</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   option `"tern_default_na_str"` within the R environment.</pre>
+                      <pre class="language-r">  covariates_part &lt;- paste(covariates, collapse = " + ")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">461</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">69</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if (covariates_part != "") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">462</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">70</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">    formula &lt;- stats::as.formula(paste0(.var, " ~ ", covariates_part, " + ", arm))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">463</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `set_default_na_str` has no return value.</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">464</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">72</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    formula &lt;- stats::as.formula(paste0(.var, " ~ ", arm))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">465</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">466</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">set_default_na_str &lt;- function(na_str) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">467</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">75</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(na_str, len = 1, null.ok = TRUE)</pre>
+                      <pre class="language-r">  if (is.null(interaction_item)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">468</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">76</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  options("tern_default_na_str" = na_str)</pre>
+                      <pre class="language-r">    specs &lt;- arm</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">469</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/riskdiff.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">78</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Split function to configure risk difference column</pre>
+                      <pre class="language-r">    specs &lt;- c(arm, interaction_item)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">81</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  lm_fit &lt;- stats::lm(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">82</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Wrapper function for [rtables::add_combo_levels()] which configures settings for the risk difference</pre>
+                      <pre class="language-r">    formula = formula,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">83</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' column to be added to an `rtables` object. To add a risk difference column to a table, this function</pre>
+                      <pre class="language-r">    data = .df_row</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' should be used as `split_fun` in calls to [rtables::split_cols_by()], followed by setting argument</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">85</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `riskdiff` to `TRUE` in all following analyze function calls.</pre>
+                      <pre class="language-r">  emmeans_fit &lt;- emmeans::emmeans(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">86</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    lm_fit,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param arm_x (`string`)\cr name of reference arm to use in risk difference calculations.</pre>
+                      <pre class="language-r">    # Specify here the group variable over which EMM are desired.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">88</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param arm_y (`character`)\cr names of one or more arms to compare to reference arm in risk difference</pre>
+                      <pre class="language-r">    specs = specs,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   calculations. A new column will be added for each value of `arm_y`.</pre>
+                      <pre class="language-r">    # Pass the data again so that the factor levels of the arm variable can be inferred.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">90</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param col_label (`character`)\cr labels to use when rendering the risk difference column within the table.</pre>
+                      <pre class="language-r">    data = .df_row</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   If more than one comparison arm is specified in `arm_y`, default labels will specify which two arms are</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   being compared (reference arm vs. comparison arm).</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">93</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param pct (`flag`)\cr whether output should be returned as percentages. Defaults to `TRUE`.</pre>
+                      <pre class="language-r">  emmeans_fit</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A closure suitable for use as a split function (`split_fun`) within [rtables::split_cols_by()]</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   when creating a table layout.</pre>
+                      <pre class="language-r">#' @describeIn summarize_ancova Statistics function that produces a named list of results</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   of the investigated linear model.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [stat_propdiff_ci()] for details on risk difference calculation.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' * `s_ancova()` returns a named list of 5 statistics:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adae &lt;- tern_ex_adae</pre>
+                      <pre class="language-r">#'   * `n`: Count of complete sample size for the group.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adae$AESEV &lt;- factor(adae$AESEV)</pre>
+                      <pre class="language-r">#'   * `lsmean`: Estimated marginal means in the group.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   * `lsmean_diff`: Difference in estimated marginal means in comparison to the reference group.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">#'     If working with the reference group, this will be empty.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARMCD", split_fun = add_riskdiff(arm_x = "ARM A", arm_y = c("ARM B", "ARM C"))) %&gt;%</pre>
+                      <pre class="language-r">#'   * `lsmean_diff_ci`: Confidence level for difference in estimated marginal means in comparison</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   count_occurrences_by_grade(</pre>
+                      <pre class="language-r">#'     to the reference group.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     var = "AESEV",</pre>
+                      <pre class="language-r">#'   * `pval`: p-value (not adjusted for multiple comparisons).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     riskdiff = TRUE</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">s_ancova &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tbl &lt;- build_table(lyt, df = adae)</pre>
+                      <pre class="language-r">                     .var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tbl</pre>
+                      <pre class="language-r">                     .df_row,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                     variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                     .ref_group,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">add_riskdiff &lt;- function(arm_x,</pre>
+                      <pre class="language-r">                     .in_ref_col,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         arm_y,</pre>
+                      <pre class="language-r">                     conf_level,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         col_label = paste0(</pre>
+                      <pre class="language-r">                     interaction_y = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           "Risk Difference (%) (95% CI)", if (length(arm_y) &gt; 1) paste0("\n", arm_x, " vs. ", arm_y)</pre>
+                      <pre class="language-r">                     interaction_item = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">119</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         ),</pre>
+                      <pre class="language-r">  emmeans_fit &lt;- h_ancova(.var = .var, variables = variables, .df_row = .df_row, interaction_item = interaction_item)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         pct = TRUE) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">44</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">121</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(arm_x, len = 1)</pre>
+                      <pre class="language-r">  sum_fit &lt;- summary(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">45</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">122</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(arm_y, min.len = 1)</pre>
+                      <pre class="language-r">    emmeans_fit,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">46</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">123</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(col_label, len = length(arm_y))</pre>
+                      <pre class="language-r">    level = conf_level</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">48</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">125</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  combodf &lt;- tibble::tribble(~valname, ~label, ~levelcombo, ~exargs)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">126</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  for (i in seq_len(length(arm_y))) {</pre>
+                      <pre class="language-r">  arm &lt;- variables$arm</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">50</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">127</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    combodf &lt;- rbind(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">51</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">128</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      combodf,</pre>
+                      <pre class="language-r">  sum_level &lt;- as.character(unique(df[[arm]]))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">52</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">129</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tibble::tribble(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">53</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">130</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ~valname, ~label, ~levelcombo, ~exargs,</pre>
+                      <pre class="language-r">  # Ensure that there is only one element in sum_level.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">54</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">131</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        paste("riskdiff", arm_x, arm_y[i], sep = "_"), col_label[i], c(arm_x, arm_y[i]), list()</pre>
+                      <pre class="language-r">  checkmate::assert_scalar(sum_level)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">133</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  sum_fit_level &lt;- sum_fit[sum_fit[[arm]] == sum_level, ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  # Get the index of the ref arm</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">136</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (pct) combodf$valname &lt;- paste0(combodf$valname, "_pct")</pre>
+                      <pre class="language-r">  if (interaction_y != FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">137</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  add_combo_levels(combodf)</pre>
+                      <pre class="language-r">    y &lt;- unlist(df[(df[[interaction_item]] == interaction_y), .var])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    # convert characters selected in interaction_y into the numeric order</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">139</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    interaction_y &lt;- which(sum_fit_level[[interaction_item]] == interaction_y)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">140</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Analysis function to calculate risk difference column values</pre>
+                      <pre class="language-r">    sum_fit_level &lt;- sum_fit_level[interaction_y, ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    # if interaction is called, reset the index</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">64</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">142</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' In the risk difference column, this function uses the statistics function associated with `afun` to</pre>
+                      <pre class="language-r">    ref_key &lt;- seq(sum_fit[[arm]][unique(.ref_group[[arm]])])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">143</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' calculates risk difference values from arm X (reference group) and arm Y. These arms are specified</pre>
+                      <pre class="language-r">    ref_key &lt;- tail(ref_key, n = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">66</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">144</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' when configuring the risk difference column which is done using the [add_riskdiff()] split function in</pre>
+                      <pre class="language-r">    ref_key &lt;- (interaction_y - 1) * length(unique(.df_row[[arm]])) + ref_key</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the previous call to [rtables::split_cols_by()]. For all other columns, applies `afun` as usual. This</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">68</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">146</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' function utilizes the [stat_propdiff_ci()] function to perform risk difference calculations.</pre>
+                      <pre class="language-r">    y &lt;- df[[.var]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    # Get the index of the ref arm when interaction is not called</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">70</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">148</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">    ref_key &lt;- seq(sum_fit[[arm]][unique(.ref_group[[arm]])])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">149</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param afun (named `list`)\cr a named list containing one name-value pair where the name corresponds to</pre>
+                      <pre class="language-r">    ref_key &lt;- tail(ref_key, n = 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the name of the statistics function that should be used in calculations and the value is the corresponding</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analysis function.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">152</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param s_args (named `list`)\cr additional arguments to be passed to the statistics function and analysis</pre>
+                      <pre class="language-r">  if (.in_ref_col) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">75</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">153</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   function supplied in `afun`.</pre>
+                      <pre class="language-r">    list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">76</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">154</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      n = length(y[!is.na(y)]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">77</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">155</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A list of formatted [rtables::CellValue()].</pre>
+                      <pre class="language-r">      lsmean = formatters::with_label(sum_fit_level$emmean, "Adjusted Mean"),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">156</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      lsmean_diff = formatters::with_label(character(), "Difference in Adjusted Means"),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">157</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      lsmean_diff_ci = formatters::with_label(character(), f_conf_level(conf_level)),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">158</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      pval = formatters::with_label(character(), "p-value")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * [stat_propdiff_ci()] for details on risk difference calculation.</pre>
+                      <pre class="language-r">    # Estimate the differences between the marginal means.</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">162</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    emmeans_contrasts &lt;- emmeans::contrast(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">163</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      emmeans_fit,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * Split function [add_riskdiff()] which, when used as `split_fun` within [rtables::split_cols_by()] with</pre>
+                      <pre class="language-r">      # Compare all arms versus the control arm.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">165</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `riskdiff` argument set to `TRUE` in subsequent analyze functions calls, adds a risk difference column</pre>
+                      <pre class="language-r">      method = "trt.vs.ctrl",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to a table layout.</pre>
+                      <pre class="language-r">      # Take the arm factor from .ref_group as the control arm.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">84</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">167</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      ref = ref_key,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">168</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">      level = conf_level</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">afun_riskdiff &lt;- function(df,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">87</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">170</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          labelstr = "",</pre>
+                      <pre class="language-r">    sum_contrasts &lt;- summary(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">88</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">171</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          .var,</pre>
+                      <pre class="language-r">      emmeans_contrasts,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          .N_col, # nolint</pre>
+                      <pre class="language-r">      # Derive confidence intervals, t-tests and p-values.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">90</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">173</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          .N_row, # nolint</pre>
+                      <pre class="language-r">      infer = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          .df_row,</pre>
+                      <pre class="language-r">      # Do not adjust the p-values for multiplicity.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">92</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">175</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          .spl_context,</pre>
+                      <pre class="language-r">      adjust = "none"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          .all_col_counts,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          .stats,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">95</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">178</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          .formats = NULL,</pre>
+                      <pre class="language-r">    contrast_lvls &lt;- gsub(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">96</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">179</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          .labels = NULL,</pre>
+                      <pre class="language-r">      "^\\(|\\)$", "", gsub(paste0(" - \\(*", .ref_group[[arm]][1], ".*"), "", sum_contrasts$contrast)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          .indent_mods = NULL,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">98</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">181</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          na_str = default_na_str(),</pre>
+                      <pre class="language-r">    if (!is.null(interaction_item)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">99</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">182</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          afun,</pre>
+                      <pre class="language-r">      sum_contrasts_level &lt;- sum_contrasts[grepl(sum_level, contrast_lvls, fixed = TRUE), ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          s_args = list()) {</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">130<em>x</em></td>
+                    <td class="num">184</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!any(grepl("riskdiff", names(.spl_context)))) {</pre>
+                      <pre class="language-r">      sum_contrasts_level &lt;- sum_contrasts[sum_level == contrast_lvls, ]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">102</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">185</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop(</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">103</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">186</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Please set up levels to use in risk difference calculations using the `add_riskdiff` ",</pre>
+                      <pre class="language-r">    if (interaction_y != FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">104</td>
+                    <td class="num">187</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "split function within `split_cols_by`. See ?add_riskdiff for details."</pre>
+                      <pre class="language-r">      sum_contrasts_level &lt;- sum_contrasts_level[interaction_y, ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">130<em>x</em></td>
+                    <td class="num">190</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(afun, len = 1, types = "function")</pre>
+                      <pre class="language-r">    list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">130<em>x</em></td>
+                    <td class="num">191</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_named(afun)</pre>
+                      <pre class="language-r">      n = length(y[!is.na(y)]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">130<em>x</em></td>
+                    <td class="num">192</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  afun_args &lt;- list(</pre>
+                      <pre class="language-r">      lsmean = formatters::with_label(sum_fit_level$emmean, "Adjusted Mean"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">130<em>x</em></td>
+                    <td class="num">193</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .var = .var, .df_row = .df_row, .N_row = .N_row, denom = "N_col", labelstr = labelstr,</pre>
+                      <pre class="language-r">      lsmean_diff = formatters::with_label(sum_contrasts_level$estimate, "Difference in Adjusted Means"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">130<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    .stats = .stats, .formats = .formats, .labels = .labels, .indent_mods = .indent_mods, na_str = na_str</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">112</td>
-                    <td class="coverage"></td>
+                    <td class="num">194</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      lsmean_diff_ci = formatters::with_label(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">130<em>x</em></td>
+                    <td class="num">195</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  afun_args &lt;- afun_args[intersect(names(afun_args), names(as.list(args(afun[[1]]))))]</pre>
+                      <pre class="language-r">        c(sum_contrasts_level$lower.CL, sum_contrasts_level$upper.CL),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">114</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">196</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if ("denom" %in% names(s_args)) afun_args[["denom"]] &lt;- NULL</pre>
+                      <pre class="language-r">        f_conf_level(conf_level)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">130<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  cur_split &lt;- tail(.spl_context$cur_col_split_val[[1]], 1)</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">130<em>x</em></td>
+                    <td class="num">198</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!grepl("^riskdiff", cur_split)) {</pre>
+                      <pre class="language-r">      pval = formatters::with_label(sum_contrasts_level$p.value, "p-value")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Apply basic afun (no risk difference) in all other columns</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">96<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">200</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    do.call(afun[[1]], args = c(list(df = df, .N_col = .N_col), afun_args, s_args))</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">121</td>
-                    <td class="coverage">34<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">202</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    arm_x &lt;- strsplit(cur_split, "_")[[1]][2]</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">122</td>
-                    <td class="coverage">34<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">203</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    arm_y &lt;- strsplit(cur_split, "_")[[1]][3]</pre>
+                      <pre class="language-r">#' @describeIn summarize_ancova Formatted analysis function which is used as `afun` in `summarize_ancova()`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">34<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">204</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (length(.spl_context$cur_col_split[[1]]) &gt; 1) { # Different split name for nested column splits</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">205</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      arm_spl_x &lt;- gsub("riskdiff", "", paste0(strsplit(.spl_context$cur_col_id[1], "_")[[1]][c(1, 2)], collapse = ""))</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">206</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      arm_spl_y &lt;- gsub("riskdiff", "", paste0(strsplit(.spl_context$cur_col_id[1], "_")[[1]][c(1, 3)], collapse = ""))</pre>
+                      <pre class="language-r">#' * `a_ancova()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">208</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      arm_spl_x &lt;- arm_x</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">209</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      arm_spl_y &lt;- arm_y</pre>
+                      <pre class="language-r">a_ancova &lt;- make_afun(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  s_ancova,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">34<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">211</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    N_col_x &lt;- .all_col_counts[[arm_spl_x]] # nolint</pre>
+                      <pre class="language-r">  .indent_mods = c("n" = 0L, "lsmean" = 0L, "lsmean_diff" = 0L, "lsmean_diff_ci" = 1L, "pval" = 1L),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">34<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">212</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    N_col_y &lt;- .all_col_counts[[arm_spl_y]] # nolint</pre>
+                      <pre class="language-r">  .formats = c(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">34<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">213</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    cur_var &lt;- tail(.spl_context$cur_col_split[[1]], 1)</pre>
+                      <pre class="language-r">    "n" = "xx",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    "lsmean" = "xx.xx",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Apply statistics function to arm X and arm Y data</pre>
+                      <pre class="language-r">    "lsmean_diff" = "xx.xx",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">135</td>
-                    <td class="coverage">34<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">216</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    s_args &lt;- c(s_args, afun_args[intersect(names(afun_args), names(as.list(args(names(afun)))))])</pre>
+                      <pre class="language-r">    "lsmean_diff_ci" = "(xx.xx, xx.xx)",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">136</td>
-                    <td class="coverage">34<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">217</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    s_x &lt;- do.call(names(afun), args = c(list(df = df[df[[cur_var]] == arm_x, ], .N_col = N_col_x), s_args))</pre>
+                      <pre class="language-r">    "pval" = "x.xxxx | (&lt;0.0001)"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">34<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">218</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    s_y &lt;- do.call(names(afun), args = c(list(df = df[df[[cur_var]] == arm_y, ], .N_col = N_col_y), s_args))</pre>
+                      <pre class="language-r">  ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  .null_ref_cells = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Get statistic name and row names</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">34<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">221</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stat &lt;- ifelse("count_fraction" %in% names(s_x), "count_fraction", "unique")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">34<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">222</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if ("flag_variables" %in% names(s_args)) {</pre>
+                      <pre class="language-r">#' @describeIn summarize_ancova Layout-creating function which can take statistics function arguments</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">223</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      var_nms &lt;- s_args$flag_variables</pre>
+                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">32<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">224</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else if (!is.null(names(s_x[[stat]]))) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">225</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      var_nms &lt;- names(s_x[[stat]])</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">#' * `summarize_ancova()` returns a layout object suitable for passing to further layouting functions,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">227</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      var_nms &lt;- ""</pre>
+                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">228</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      s_x[[stat]] &lt;- list(s_x[[stat]])</pre>
+                      <pre class="language-r">#'   the statistics from `s_ancova()` to the table layout.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">229</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      s_y[[stat]] &lt;- list(s_y[[stat]])</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Calculate risk difference for each row, repeated if multiple statistics in table</pre>
+                      <pre class="language-r">#'   split_cols_by("Species", ref_group = "setosa") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">34<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">233</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pct &lt;- tail(strsplit(cur_split, "_")[[1]], 1) == "pct"</pre>
+                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">153</td>
-                    <td class="coverage">34<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">234</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rd_ci &lt;- rep(stat_propdiff_ci(</pre>
+                      <pre class="language-r">#'   summarize_ancova(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">154</td>
-                    <td class="coverage">34<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">235</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lapply(s_x[[stat]], `[`, 1), lapply(s_y[[stat]], `[`, 1),</pre>
+                      <pre class="language-r">#'     vars = "Petal.Length",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">34<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">236</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      N_col_x, N_col_y,</pre>
+                      <pre class="language-r">#'     variables = list(arm = "Species", covariates = NULL),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">34<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">237</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      list_names = var_nms,</pre>
+                      <pre class="language-r">#'     table_names = "unadj",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">34<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">238</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pct = pct</pre>
+                      <pre class="language-r">#'     conf_level = 0.95, var_labels = "Unadjusted comparison",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">34<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">239</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ), max(1, length(.stats)))</pre>
+                      <pre class="language-r">#'     .labels = c(lsmean = "Mean", lsmean_diff = "Difference in Means")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">160</td>
-                    <td class="coverage">34<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">241</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    in_rows(.list = rd_ci, .formats = "xx.x (xx.x - xx.x)", .indent_mods = .indent_mods)</pre>
+                      <pre class="language-r">#'   summarize_ancova(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'     vars = "Petal.Length",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'     variables = list(arm = "Species", covariates = c("Sepal.Length", "Sepal.Width")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     table_names = "adj",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Control function for risk difference column</pre>
+                      <pre class="language-r">#'     conf_level = 0.95, var_labels = "Adjusted comparison (covariates: Sepal.Length and Sepal.Width)"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#'   build_table(iris)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Sets a list of parameters to use when generating a risk (proportion) difference column. Used as input to the</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `riskdiff` parameter of [tabulate_rsp_subgroups()] and [tabulate_survival_subgroups()].</pre>
+                      <pre class="language-r">#' @order 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">summarize_ancova &lt;- function(lyt,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams add_riskdiff</pre>
+                      <pre class="language-r">                             vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param format (`string` or `function`)\cr the format label (string) or formatting function to apply to the risk</pre>
+                      <pre class="language-r">                             variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   difference statistic. See the `3d` string options in [formatters::list_valid_format_labels()] for possible format</pre>
+                      <pre class="language-r">                             conf_level,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   strings. Defaults to `"xx.x (xx.x - xx.x)"`.</pre>
+                      <pre class="language-r">                             interaction_y = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                             interaction_item = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `list` of items with names corresponding to the arguments.</pre>
+                      <pre class="language-r">                             var_labels,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">258</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                             na_str = default_na_str(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [add_riskdiff()], [tabulate_rsp_subgroups()], and [tabulate_survival_subgroups()].</pre>
+                      <pre class="language-r">                             nested = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                             ...,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">                             show_labels = "visible",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">262</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' control_riskdiff()</pre>
+                      <pre class="language-r">                             table_names = vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' control_riskdiff(arm_x = "ARM A", arm_y = "ARM B")</pre>
+                      <pre class="language-r">                             .stats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                             .formats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">265</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                             .labels = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">266</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">control_riskdiff &lt;- function(arm_x = NULL,</pre>
+                      <pre class="language-r">                             .indent_mods = NULL) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">267</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  extra_args &lt;- list(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">268</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    variables = variables, conf_level = conf_level, interaction_y = interaction_y,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">269</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    interaction_item = interaction_item, ...</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">270</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             arm_y = NULL,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">271</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             format = "xx.x (xx.x - xx.x)",</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">272</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  afun &lt;- make_afun(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">273</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    a_ancova,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">274</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    interaction_y = interaction_y,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">275</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    interaction_item = interaction_item,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">276</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    .stats = .stats,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">277</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    .formats = .formats,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">278</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    .labels = .labels,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">279</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    .indent_mods = .indent_mods</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">280</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             col_label = "Risk Difference (%) (95% CI)",</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">281</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             pct = TRUE) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">282</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(arm_x, len = 1, null.ok = TRUE)</pre>
+                      <pre class="language-r">  analyze(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">283</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(arm_y, min.len = 1, null.ok = TRUE)</pre>
+                      <pre class="language-r">    lyt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">284</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(format, len = 1)</pre>
+                      <pre class="language-r">    vars,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">193</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">285</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(col_label)</pre>
+                      <pre class="language-r">    var_labels = var_labels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">194</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">286</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(pct)</pre>
+                      <pre class="language-r">    show_labels = show_labels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">195</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">287</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    table_names = table_names,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">288</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(arm_x = arm_x, arm_y = arm_y, format = format, col_label = col_label, pct = pct)</pre>
+                      <pre class="language-r">    afun = afun,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">289</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    na_str = na_str,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">290</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    nested = nested,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">291</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    extra_args = extra_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">292</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -65212,14 +66262,14 @@ <h2>tern coverage - 95.64%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/abnormal_by_baseline.R" class="hidden">
+            <div id="R/h_adsl_adlb_merge_using_worst_flag.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Count patients with abnormal analysis range values by baseline status</pre>
+                      <pre class="language-r">#' Helper function for deriving analysis datasets for select laboratory tables</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -65247,154 +66297,154 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The analyze function [count_abnormal_by_baseline()] creates a layout element to count patients with abnormal</pre>
+                      <pre class="language-r">#' Helper function that merges ADSL and ADLB datasets so that missing lab test records are inserted in the</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' analysis range values, categorized by baseline status.</pre>
+                      <pre class="language-r">#' output dataset. Remember that `na_level` must match the needed pre-processing</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' done with [df_explicit_na()] to have the desired output.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function analyzes primary analysis variable `var` which indicates abnormal range results. Additional</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' analysis variables that can be supplied as a list via the `variables` parameter are `id` (defaults to</pre>
+                      <pre class="language-r">#' @param adsl (`data.frame`)\cr ADSL data frame.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `USUBJID`), a variable to indicate unique subject identifiers, and `baseline` (defaults to `BNRIND`), a</pre>
+                      <pre class="language-r">#' @param adlb (`data.frame`)\cr ADLB data frame.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' variable to indicate baseline reference ranges.</pre>
+                      <pre class="language-r">#' @param worst_flag (named `character`)\cr worst post-baseline lab flag variable. See how this is implemented in the</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   following examples.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' For each direction specified via the `abnormal` parameter (e.g. High or Low), we condition on baseline</pre>
+                      <pre class="language-r">#' @param by_visit (`flag`)\cr defaults to `FALSE` to generate worst grade per patient.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' range result and count patients in the numerator and denominator as follows for each of the following</pre>
+                      <pre class="language-r">#'   If worst grade per patient per visit is specified for `worst_flag`, then</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' categories:</pre>
+                      <pre class="language-r">#'   `by_visit` should be `TRUE` to generate worst grade patient per visit.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `Not &lt;abnormality&gt;`</pre>
+                      <pre class="language-r">#' @param no_fillin_visits (named `character`)\cr visits that are not considered for post-baseline worst toxicity</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `num`:  The number of patients without abnormality at baseline (excluding those with missing baseline)</pre>
+                      <pre class="language-r">#'   grade. Defaults to `c("SCREENING", "BASELINE")`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       and with at least one abnormality post-baseline.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `denom`: The number of patients without abnormality at baseline (excluding those with missing baseline).</pre>
+                      <pre class="language-r">#' @return `df` containing variables shared between `adlb` and `adsl` along with variables `PARAM`, `PARAMCD`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `&lt;Abnormality&gt;`</pre>
+                      <pre class="language-r">#'   `ATOXGR`, and `BTOXGR` relevant for analysis. Optionally, `AVISIT` are `AVISITN` are included when</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `num`: The number of patients with abnormality as baseline and at least one abnormality post-baseline.</pre>
+                      <pre class="language-r">#'   `by_visit = TRUE` and `no_fillin_visits = c("SCREENING", "BASELINE")`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `denom`: The number of patients with abnormality at baseline.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `Total`</pre>
+                      <pre class="language-r">#' @details In the result data missing records will be created for the following situations:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `num`: The number of patients with at least one post-baseline record and at least one abnormality</pre>
+                      <pre class="language-r">#'   * Patients who are present in `adsl` but have no lab data in `adlb` (both baseline and post-baseline).</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       post-baseline.</pre>
+                      <pre class="language-r">#'   * Patients who do not have any post-baseline lab values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `denom`: The number of patients with at least one post-baseline record.</pre>
+                      <pre class="language-r">#'   * Patients without any post-baseline values flagged as the worst.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -65408,539 +66458,539 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function assumes that `df` has been filtered to only include post-baseline records.</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' # `h_adsl_adlb_merge_using_worst_flag`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' adlb_out &lt;- h_adsl_adlb_merge_using_worst_flag(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param abnormal (`character`)\cr values identifying the abnormal range level(s) in `.var`.</pre>
+                      <pre class="language-r">#'   tern_ex_adsl,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("abnormal_by_baseline")`</pre>
+                      <pre class="language-r">#'   tern_ex_adlb,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to see available statistics for this function.</pre>
+                      <pre class="language-r">#'   worst_flag = c("WGRHIFL" = "Y")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `df` should be filtered to include only post-baseline records.</pre>
+                      <pre class="language-r">#' # `h_adsl_adlb_merge_using_worst_flag` by visit example</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * If the baseline variable or analysis variable contains `NA` records, it is expected that `df` has been</pre>
+                      <pre class="language-r">#' adlb_out_by_visit &lt;- h_adsl_adlb_merge_using_worst_flag(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   pre-processed using [df_explicit_na()] or [explicit_na()].</pre>
+                      <pre class="language-r">#'   tern_ex_adsl,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   tern_ex_adlb,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso Relevant description function [d_count_abnormal_by_baseline()].</pre>
+                      <pre class="language-r">#'   worst_flag = c("WGRLOVFL" = "Y"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   by_visit = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name abnormal_by_baseline</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 1</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">h_adsl_adlb_merge_using_worst_flag &lt;- function(adsl, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Description function for `s_count_abnormal_by_baseline()`</pre>
+                      <pre class="language-r">                                               adlb,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                               worst_flag = c("WGRHIFL" = "Y"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">                                               by_visit = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                               no_fillin_visits = c("SCREENING", "BASELINE")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">50</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Description function that produces the labels for [s_count_abnormal_by_baseline()].</pre>
+                      <pre class="language-r">  col_names &lt;- names(worst_flag)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">51</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  filter_values &lt;- worst_flag</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams abnormal_by_baseline</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">53</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  temp &lt;- Map(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">54</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Abnormal category labels for [s_count_abnormal_by_baseline()].</pre>
+                      <pre class="language-r">    function(x, y) which(adlb[[x]] == y),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">55</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    col_names,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">56</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    filter_values</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' d_count_abnormal_by_baseline("LOW")</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">59</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  position_satisfy_filters &lt;- Reduce(intersect, temp)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">d_count_abnormal_by_baseline &lt;- function(abnormal) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">61</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  not_abn_name &lt;- paste("Not", tolower(abnormal))</pre>
+                      <pre class="language-r">  adsl_adlb_common_columns &lt;- intersect(colnames(adsl), colnames(adlb))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">62</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  abn_name &lt;- paste0(toupper(substr(abnormal, 1, 1)), tolower(substring(abnormal, 2)))</pre>
+                      <pre class="language-r">  columns_from_adlb &lt;- c("USUBJID", "PARAM", "PARAMCD", "AVISIT", "AVISITN", "ATOXGR", "BTOXGR")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">63</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  total_name &lt;- "Total"</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">64</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  adlb_f &lt;- adlb[position_satisfy_filters, ] %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">65</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">    dplyr::filter(!.data[["AVISIT"]] %in% no_fillin_visits)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">66</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    not_abnormal = not_abn_name,</pre>
+                      <pre class="language-r">  adlb_f &lt;- adlb_f[, columns_from_adlb]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">67</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    abnormal = abn_name,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">68</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    total = total_name</pre>
+                      <pre class="language-r">  avisits_grid &lt;- adlb %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">69</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    dplyr::filter(!.data[["AVISIT"]] %in% no_fillin_visits) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">70</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    dplyr::pull(.data[["AVISIT"]]) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">71</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    unique()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn abnormal_by_baseline Statistics function for a single `abnormal` level.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">73</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if (by_visit) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">74</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param na_str (`string`)\cr the explicit `na_level` argument you used in the pre-processing steps (maybe with</pre>
+                      <pre class="language-r">    adsl_lb &lt;- expand.grid(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">75</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   [df_explicit_na()]). The default is `"&lt;Missing&gt;"`.</pre>
+                      <pre class="language-r">      USUBJID = unique(adsl$USUBJID),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">76</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      AVISIT = avisits_grid,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">77</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">      PARAMCD = unique(adlb$PARAMCD)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_count_abnormal_by_baseline()` returns statistic `fraction` which is a named list with 3 labeled elements:</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `not_abnormal`, `abnormal`, and `total`. Each element contains a vector with `num` and `denom` patient counts.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">80</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    adsl_lb &lt;- adsl_lb %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">81</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">      dplyr::left_join(unique(adlb[c("AVISIT", "AVISITN")]), by = "AVISIT") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">82</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_count_abnormal_by_baseline &lt;- function(df,</pre>
+                      <pre class="language-r">      dplyr::left_join(unique(adlb[c("PARAM", "PARAMCD")]), by = "PARAMCD")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         .var,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">84</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         abnormal,</pre>
+                      <pre class="language-r">    adsl1 &lt;- adsl[, adsl_adlb_common_columns]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">85</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         na_str = "&lt;Missing&gt;",</pre>
+                      <pre class="language-r">    adsl_lb &lt;- adsl1 %&gt;% merge(adsl_lb, by = "USUBJID")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         variables = list(id = "USUBJID", baseline = "BNRIND")) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">87</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(.var)</pre>
+                      <pre class="language-r">    by_variables_from_adlb &lt;- c("USUBJID", "AVISIT", "AVISITN", "PARAMCD", "PARAM")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">88</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(abnormal)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">89</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(na_str)</pre>
+                      <pre class="language-r">    adlb_btoxgr &lt;- adlb %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">90</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(df, c(range = .var, variables))</pre>
+                      <pre class="language-r">      dplyr::select(c("USUBJID", "PARAMCD", "BTOXGR")) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">91</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(names(variables), c("id", "baseline"))</pre>
+                      <pre class="language-r">      unique() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">92</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(df[[variables$id]], classes = c("factor", "character"))</pre>
+                      <pre class="language-r">      dplyr::rename("BTOXGR_MAP" = "BTOXGR")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">93</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(df[[variables$baseline]], classes = c("factor", "character"))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">94</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(df[[.var]], classes = c("factor", "character"))</pre>
+                      <pre class="language-r">    adlb_out &lt;- merge(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">95</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      adlb_f,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">96</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # If input is passed as character, changed to factor</pre>
+                      <pre class="language-r">      adsl_lb,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">97</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df[[.var]] &lt;- as_factor_keep_attributes(df[[.var]], na_level = na_str)</pre>
+                      <pre class="language-r">      by = by_variables_from_adlb,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">98</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df[[variables$baseline]] &lt;- as_factor_keep_attributes(df[[variables$baseline]], na_level = na_str)</pre>
+                      <pre class="language-r">      all = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">99</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      sort = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">100</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_valid_factor(df[[.var]], any.missing = FALSE)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">101</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_valid_factor(df[[variables$baseline]], any.missing = FALSE)</pre>
+                      <pre class="language-r">    adlb_out &lt;- adlb_out %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">102</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      dplyr::left_join(adlb_btoxgr, by = c("USUBJID", "PARAMCD")) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">103</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Keep only records with valid analysis value.</pre>
+                      <pre class="language-r">      dplyr::mutate(BTOXGR = .data$BTOXGR_MAP) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">104</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df &lt;- df[df[[.var]] != na_str, ]</pre>
+                      <pre class="language-r">      dplyr::select(-"BTOXGR_MAP")</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -65952,86 +67002,86 @@ <h2>tern coverage - 95.64%</h2>
                   </tr>
                   <tr class="covered">
                     <td class="num">106</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  anl &lt;- data.frame(</pre>
+                      <pre class="language-r">    adlb_var_labels &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">107</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    id = df[[variables$id]],</pre>
+                      <pre class="language-r">      formatters::var_labels(adlb[by_variables_from_adlb]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">108</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var = df[[.var]],</pre>
+                      <pre class="language-r">      formatters::var_labels(adlb[columns_from_adlb[!columns_from_adlb %in% by_variables_from_adlb]]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">109</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    baseline = df[[variables$baseline]],</pre>
+                      <pre class="language-r">      formatters::var_labels(adsl[adsl_adlb_common_columns[adsl_adlb_common_columns != "USUBJID"]])</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">110</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">112</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    adsl_lb &lt;- expand.grid(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">113</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Total:</pre>
+                      <pre class="language-r">      USUBJID = unique(adsl$USUBJID),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">114</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  #  - Patients in denominator: have at least one valid measurement post-baseline.</pre>
+                      <pre class="language-r">      PARAMCD = unique(adlb$PARAMCD)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  #  - Patients in numerator: have at least one abnormality.</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">116</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  total_denom &lt;- length(unique(anl$id))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">117</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  total_num &lt;- length(unique(anl$id[anl$var == abnormal]))</pre>
+                      <pre class="language-r">    adsl_lb &lt;- adsl_lb %&gt;% dplyr::left_join(unique(adlb[c("PARAM", "PARAMCD")]), by = "PARAMCD")</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -66041,18 +67091,18 @@ <h2>tern coverage - 95.64%</h2>
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">119</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Baseline NA records are counted only in total rows.</pre>
+                      <pre class="language-r">    adsl1 &lt;- adsl[, adsl_adlb_common_columns]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">120</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  anl &lt;- anl[anl$baseline != na_str, ]</pre>
+                      <pre class="language-r">    adsl_lb &lt;- adsl1 %&gt;% merge(adsl_lb, by = "USUBJID")</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -66062,151 +67112,151 @@ <h2>tern coverage - 95.64%</h2>
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">122</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Abnormal:</pre>
+                      <pre class="language-r">    by_variables_from_adlb &lt;- c("USUBJID", "PARAMCD", "PARAM")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  #   - Patients in denominator: have abnormality at baseline.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">124</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  #   - Patients in numerator: have abnormality at baseline AND</pre>
+                      <pre class="language-r">    adlb_out &lt;- merge(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">125</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  #     have at least one abnormality post-baseline.</pre>
+                      <pre class="language-r">      adlb_f,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">126</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  abn_denom &lt;- length(unique(anl$id[anl$baseline == abnormal]))</pre>
+                      <pre class="language-r">      adsl_lb,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">127</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  abn_num &lt;- length(unique(anl$id[anl$baseline == abnormal &amp; anl$var == abnormal]))</pre>
+                      <pre class="language-r">      by = by_variables_from_adlb,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">128</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      all = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">129</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Not abnormal:</pre>
+                      <pre class="language-r">      sort = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  #   - Patients in denominator: do not have abnormality at baseline.</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  #   - Patients in numerator: do not have abnormality at baseline AND</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">132</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  #     have at least one abnormality post-baseline.</pre>
+                      <pre class="language-r">    adlb_var_labels &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">133</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  not_abn_denom &lt;- length(unique(anl$id[anl$baseline != abnormal]))</pre>
+                      <pre class="language-r">      formatters::var_labels(adlb[by_variables_from_adlb]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">134</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  not_abn_num &lt;- length(unique(anl$id[anl$baseline != abnormal &amp; anl$var == abnormal]))</pre>
+                      <pre class="language-r">      formatters::var_labels(adlb[columns_from_adlb[!columns_from_adlb %in% by_variables_from_adlb]]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">135</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      formatters::var_labels(adsl[adsl_adlb_common_columns[adsl_adlb_common_columns != "USUBJID"]])</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">136</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  labels &lt;- d_count_abnormal_by_baseline(abnormal)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">137</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(fraction = list(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">138</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    not_abnormal = formatters::with_label(c(num = not_abn_num, denom = not_abn_denom), labels$not_abnormal),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">139</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    abnormal = formatters::with_label(c(num = abn_num, denom = abn_denom), labels$abnormal),</pre>
+                      <pre class="language-r">  adlb_out$ATOXGR &lt;- as.factor(adlb_out$ATOXGR)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">140</td>
                     <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    total = formatters::with_label(c(num = total_num, denom = total_denom), labels$total)</pre>
+                      <pre class="language-r">  adlb_out$BTOXGR &lt;- as.factor(adlb_out$BTOXGR)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">142</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  formatters::var_labels(adlb_out) &lt;- adlb_var_labels</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -66216,6964 +67266,7103 @@ <h2>tern coverage - 95.64%</h2>
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">144</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn abnormal_by_baseline Formatted analysis function which is used as `afun`</pre>
+                      <pre class="language-r">  adlb_out</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   in `count_abnormal_by_baseline()`.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/utils_grid.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Stack multiple grobs</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `a_count_abnormal_by_baseline()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' Stack grobs as a new grob with 1 column and multiple rows layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">a_count_abnormal_by_baseline &lt;- make_afun(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_count_abnormal_by_baseline,</pre>
+                      <pre class="language-r">#' @param ... grobs.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats = c(fraction = format_fraction)</pre>
+                      <pre class="language-r">#' @param grobs (`list` of `grob`)\cr a list of grobs.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">#' @param padding (`grid::unit`)\cr unit of length 1, space between each grob.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param vp (`viewport` or `NULL`)\cr a [viewport()] object (or `NULL`).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn abnormal_by_baseline Layout-creating function which can take statistics function arguments</pre>
+                      <pre class="language-r">#' @param name (`string`)\cr a character identifier for the grob.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
+                      <pre class="language-r">#' @param gp (`gpar`)\cr a [gpar()] object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' @return A `grob`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `count_abnormal_by_baseline()` returns a layout object suitable for passing to further layouting functions,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the statistics from `s_count_abnormal_by_baseline()` to the table layout.</pre>
+                      <pre class="language-r">#' library(grid)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' g1 &lt;- circleGrob(gp = gpar(col = "blue"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- data.frame(</pre>
+                      <pre class="language-r">#' g2 &lt;- circleGrob(gp = gpar(col = "red"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   USUBJID = as.character(c(1:6)),</pre>
+                      <pre class="language-r">#' g3 &lt;- textGrob("TEST TEXT")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ANRIND = factor(c(rep("LOW", 4), "NORMAL", "HIGH")),</pre>
+                      <pre class="language-r">#' grid.newpage()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   BNRIND = factor(c("LOW", "NORMAL", "HIGH", NA, "LOW", "NORMAL"))</pre>
+                      <pre class="language-r">#' grid.draw(stack_grobs(g1, g2, g3))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- df_explicit_na(df)</pre>
+                      <pre class="language-r">#' showViewport()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Layout creating function.</pre>
+                      <pre class="language-r">#' grid.newpage()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">#' pushViewport(viewport(layout = grid.layout(1, 2)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   count_abnormal_by_baseline(var = "ANRIND", abnormal = c(High = "HIGH")) %&gt;%</pre>
+                      <pre class="language-r">#' vp1 &lt;- viewport(layout.pos.row = 1, layout.pos.col = 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(df)</pre>
+                      <pre class="language-r">#' grid.draw(stack_grobs(g1, g2, g3, vp = vp1, name = "test"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' # Passing of statistics function and formatting arguments.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">178</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' df2 &lt;- data.frame(</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">179</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   ID = as.character(c(1, 2, 3, 4)),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   RANGE = factor(c("NORMAL", "LOW", "HIGH", "HIGH")),</pre>
+                      <pre class="language-r">#' showViewport()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   BLRANGE = factor(c("LOW", "HIGH", "HIGH", "NORMAL"))</pre>
+                      <pre class="language-r">#' grid.ls(grobs = TRUE, viewports = TRUE, print = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">stack_grobs &lt;- function(...,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   count_abnormal_by_baseline(</pre>
+                      <pre class="language-r">                        grobs = list(...),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     var = "RANGE",</pre>
+                      <pre class="language-r">                        padding = grid::unit(2, "line"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     abnormal = c(Low = "LOW"),</pre>
+                      <pre class="language-r">                        vp = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     variables = list(id = "ID", baseline = "BLRANGE"),</pre>
+                      <pre class="language-r">                        gp = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .formats = c(fraction = "xx / xx"),</pre>
+                      <pre class="language-r">                        name = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">190</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">42</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .indent_mods = c(fraction = 2L)</pre>
+                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">191</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">43</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">    "0.9.4",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">192</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">44</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(df2)</pre>
+                      <pre class="language-r">    "stack_grobs()",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">193</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">45</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    details = "`tern` plotting functions no longer generate `grob` objects."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 2</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">196</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">48</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">count_abnormal_by_baseline &lt;- function(lyt,</pre>
+                      <pre class="language-r">  checkmate::assert_true(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">197</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">49</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       var,</pre>
+                      <pre class="language-r">    all(vapply(grobs, grid::is.grob, logical(1)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       abnormal,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       variables = list(id = "USUBJID", baseline = "BNRIND"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">200</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">52</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       na_str = "&lt;Missing&gt;",</pre>
+                      <pre class="language-r">  if (length(grobs) == 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">201</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">53</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       nested = TRUE,</pre>
+                      <pre class="language-r">    return(grobs[[1]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       ...,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       table_names = abnormal,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">204</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">56</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       .stats = NULL,</pre>
+                      <pre class="language-r">  n_layout &lt;- 2 * length(grobs) - 1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">205</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">57</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       .formats = NULL,</pre>
+                      <pre class="language-r">  hts &lt;- lapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">206</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">58</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       .labels = NULL,</pre>
+                      <pre class="language-r">    seq(1, n_layout),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">207</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">59</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       .indent_mods = NULL) {</pre>
+                      <pre class="language-r">    function(i) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">60</td>
+                    <td class="coverage">39<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(abnormal, len = length(table_names), names = "named")</pre>
+                      <pre class="language-r">      if (i %% 2 != 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">209</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">61</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(var)</pre>
+                      <pre class="language-r">        grid::unit(1, "null")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">63</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(abnormal = abnormal, variables = variables, na_str = na_str, ...)</pre>
+                      <pre class="language-r">        padding</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  afun &lt;- make_afun(</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">214</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">65</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    a_count_abnormal_by_baseline,</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">66</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .stats = .stats,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">216</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">67</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .formats = .formats,</pre>
+                      <pre class="language-r">  hts &lt;- do.call(grid::unit.c, hts)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">217</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">68</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .labels = .labels,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">218</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">69</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .indent_mods = .indent_mods,</pre>
+                      <pre class="language-r">  main_vp &lt;- grid::viewport(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">70</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .ungroup_stats = "fraction"</pre>
+                      <pre class="language-r">    layout = grid::grid.layout(nrow = n_layout, ncol = 1, heights = hts)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">221</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  for (i in seq_along(abnormal)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    extra_args[["abnormal"]] &lt;- abnormal[i]</pre>
-                    </td>
-                  </tr>
                   <tr class="never">
-                    <td class="num">223</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">73</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt &lt;- analyze(</pre>
+                      <pre class="language-r">  nested_grobs &lt;- Map(function(g, i) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">225</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">74</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt = lyt,</pre>
+                      <pre class="language-r">    grid::gTree(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">75</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vars = var,</pre>
+                      <pre class="language-r">      children = grid::gList(g),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">76</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      var_labels = names(abnormal[i]),</pre>
+                      <pre class="language-r">      vp = grid::viewport(layout.pos.row = i, layout.pos.col = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">77</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      afun = afun,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">229</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">78</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      na_str = na_str,</pre>
+                      <pre class="language-r">  }, grobs, seq_along(grobs) * 2 - 1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">79</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nested = nested,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">231</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">80</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      table_names = table_names[i],</pre>
+                      <pre class="language-r">  grobs_mainvp &lt;- grid::gTree(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">81</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      extra_args = extra_args,</pre>
+                      <pre class="language-r">    children = do.call(grid::gList, nested_grobs),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">233</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">82</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      show_labels = "visible"</pre>
+                      <pre class="language-r">    vp = main_vp</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">234</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">236</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">85</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lyt</pre>
+                      <pre class="language-r">  grid::gTree(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">237</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">86</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    children = grid::gList(grobs_mainvp),</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/summarize_coxreg.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">87</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Cox proportional hazards regression</pre>
+                      <pre class="language-r">    vp = vp,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">88</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    gp = gp,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">89</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">    name = name</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Fits a Cox regression model and estimates hazard ratio to describe the effect size in a survival analysis.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' Arrange multiple grobs</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("summarize_coxreg")`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to see available statistics for this function.</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details Cox models are the most commonly used methods to estimate the magnitude of</pre>
+                      <pre class="language-r">#' Arrange grobs as a new grob with `n * m (rows * cols)` layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the effect in survival analysis. It assumes proportional hazards: the ratio</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   of the hazards between groups (e.g., two arms) is constant over time.</pre>
+                      <pre class="language-r">#' @inheritParams stack_grobs</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   This ratio is referred to as the "hazard ratio" (HR) and is one of the</pre>
+                      <pre class="language-r">#' @param ncol (`integer(1)`)\cr number of columns in layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   most commonly reported metrics to describe the effect size in survival</pre>
+                      <pre class="language-r">#' @param nrow (`integer(1)`)\cr number of rows in layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analysis (NEST Team, 2020).</pre>
+                      <pre class="language-r">#' @param padding_ht (`grid::unit`)\cr unit of length 1, vertical space between each grob.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param padding_wt (`grid::unit`)\cr unit of length 1, horizontal space between each grob.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [fit_coxreg] for relevant fitting functions, [h_cox_regression] for relevant</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   helper functions, and [tidy_coxreg] for custom tidy methods.</pre>
+                      <pre class="language-r">#' @return A `grob`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(survival)</pre>
+                      <pre class="language-r">#' library(grid)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Testing dataset [survival::bladder].</pre>
+                      <pre class="language-r">#' \donttest{</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' set.seed(1, kind = "Mersenne-Twister")</pre>
+                      <pre class="language-r">#' num &lt;- lapply(1:9, textGrob)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dta_bladder &lt;- with(</pre>
+                      <pre class="language-r">#' grid::grid.newpage()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = bladder[bladder$enum &lt; 5, ],</pre>
+                      <pre class="language-r">#' grid.draw(arrange_grobs(grobs = num, ncol = 2))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   tibble::tibble(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     TIME = stop,</pre>
+                      <pre class="language-r">#' showViewport()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     STATUS = event,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ARM = as.factor(rx),</pre>
+                      <pre class="language-r">#' g1 &lt;- circleGrob(gp = gpar(col = "blue"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     COVAR1 = as.factor(enum) %&gt;% formatters::with_label("A Covariate Label"),</pre>
+                      <pre class="language-r">#' g2 &lt;- circleGrob(gp = gpar(col = "red"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     COVAR2 = factor(</pre>
+                      <pre class="language-r">#' g3 &lt;- textGrob("TEST TEXT")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       sample(as.factor(enum)),</pre>
+                      <pre class="language-r">#' grid::grid.newpage()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       levels = 1:4, labels = c("F", "F", "M", "M")</pre>
+                      <pre class="language-r">#' grid.draw(arrange_grobs(g1, g2, g3, nrow = 2))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ) %&gt;% formatters::with_label("Sex (F/M)")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#' showViewport()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dta_bladder$AGE &lt;- sample(20:60, size = nrow(dta_bladder), replace = TRUE)</pre>
+                      <pre class="language-r">#' grid::grid.newpage()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dta_bladder$STUDYID &lt;- factor("X")</pre>
+                      <pre class="language-r">#' grid.draw(arrange_grobs(g1, g2, g3, ncol = 3))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' u1_variables &lt;- list(</pre>
+                      <pre class="language-r">#' grid::grid.newpage()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   time = "TIME", event = "STATUS", arm = "ARM", covariates = c("COVAR1", "COVAR2")</pre>
+                      <pre class="language-r">#' grid::pushViewport(grid::viewport(layout = grid::grid.layout(1, 2)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' vp1 &lt;- grid::viewport(layout.pos.row = 1, layout.pos.col = 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' grid.draw(arrange_grobs(g1, g2, g3, ncol = 2, vp = vp1))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' u2_variables &lt;- list(time = "TIME", event = "STATUS", covariates = c("COVAR1", "COVAR2"))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' showViewport()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' m1_variables &lt;- list(</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   time = "TIME", event = "STATUS", arm = "ARM", covariates = c("COVAR1", "COVAR2")</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">arrange_grobs &lt;- function(...,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                          grobs = list(...),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' m2_variables &lt;- list(time = "TIME", event = "STATUS", covariates = c("COVAR1", "COVAR2"))</pre>
+                      <pre class="language-r">                          ncol = NULL, nrow = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                          padding_ht = grid::unit(2, "line"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name cox_regression</pre>
+                      <pre class="language-r">                          padding_wt = grid::unit(2, "line"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 1</pre>
+                      <pre class="language-r">                          vp = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">                          gp = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                          name = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">144</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn cox_regression Statistics function that transforms results tabulated</pre>
+                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">145</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   from [fit_coxreg_univar()] or [fit_coxreg_multivar()] into a list.</pre>
+                      <pre class="language-r">    "0.9.4",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">146</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    "arrange_grobs()",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">147</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param model_df (`data.frame`)\cr contains the resulting model fit from a [fit_coxreg]</pre>
+                      <pre class="language-r">    details = "`tern` plotting functions no longer generate `grob` objects."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   function with tidying applied via [broom::tidy()].</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .stats (`character`)\cr the names of statistics to be reported among:</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">64</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">150</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `n`: number of observations (univariate only)</pre>
+                      <pre class="language-r">  checkmate::assert_true(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">151</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `hr`: hazard ratio</pre>
+                      <pre class="language-r">    all(vapply(grobs, grid::is.grob, logical(1)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `ci`: confidence interval</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `pval`: p-value of the treatment effect</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">68</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">154</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `pval_inter`: p-value of the interaction effect between the treatment and the covariate (univariate only)</pre>
+                      <pre class="language-r">  if (length(grobs) == 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">155</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .which_vars (`character`)\cr which rows should statistics be returned for from the given model.</pre>
+                      <pre class="language-r">    return(grobs[[1]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Defaults to `"all"`. Other options include `"var_main"` for main effects, `"inter"` for interaction effects,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and `"multi_lvl"` for multivariate model covariate level rows. When `.which_vars` is `"all"`, specific</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">72</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">158</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables can be selected by specifying `.var_nms`.</pre>
+                      <pre class="language-r">  if (is.null(ncol) &amp;&amp; is.null(nrow)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">73</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">159</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .var_nms (`character`)\cr the `term` value of rows in `df` for which `.stats` should be returned. Typically</pre>
+                      <pre class="language-r">    ncol &lt;- 1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">160</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   this is the name of a variable. If using variable labels, `var` should be a vector of both the desired</pre>
+                      <pre class="language-r">    nrow &lt;- ceiling(length(grobs) / ncol)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">75</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">161</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variable name and the variable label in that order to see all `.stats` related to that variable. When `.which_vars`</pre>
+                      <pre class="language-r">  } else if (!is.null(ncol) &amp;&amp; is.null(nrow)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">76</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">162</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   is `"var_main"`, `.var_nms` should be only the variable name.</pre>
+                      <pre class="language-r">    nrow &lt;- ceiling(length(grobs) / ncol)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">77</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">163</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  } else if (is.null(ncol) &amp;&amp; !is.null(nrow)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">78</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">164</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">    ncol &lt;- ceiling(length(grobs) / nrow)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_coxreg()` returns the selected statistic for from the Cox regression model for the selected variable(s).</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">81</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">167</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  if (ncol * nrow &lt; length(grobs)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">168</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # s_coxreg</pre>
+                      <pre class="language-r">    stop("specififed ncol and nrow are not enough for arranging the grobs ")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Univariate</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">171</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' univar_model &lt;- fit_coxreg_univar(variables = u1_variables, data = dta_bladder)</pre>
+                      <pre class="language-r">  if (ncol == 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">86</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">172</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df1 &lt;- broom::tidy(univar_model)</pre>
+                      <pre class="language-r">    return(stack_grobs(grobs = grobs, padding = padding_ht, vp = vp, gp = gp, name = name))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_coxreg(model_df = df1, .stats = "hr")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">89</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">175</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  n_col &lt;- 2 * ncol - 1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">90</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">176</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Univariate with interactions</pre>
+                      <pre class="language-r">  n_row &lt;- 2 * nrow - 1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">91</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">177</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' univar_model_inter &lt;- fit_coxreg_univar(</pre>
+                      <pre class="language-r">  hts &lt;- lapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">92</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">178</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = u1_variables, control = control_coxreg(interaction = TRUE), data = dta_bladder</pre>
+                      <pre class="language-r">    seq(1, n_row),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">93</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">179</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    function(i) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">94</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">180</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df1_inter &lt;- broom::tidy(univar_model_inter)</pre>
+                      <pre class="language-r">      if (i %% 2 != 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">95</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">181</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        grid::unit(1, "null")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_coxreg(model_df = df1_inter, .stats = "hr", .which_vars = "inter", .var_nms = "COVAR1")</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">97</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">183</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        padding_ht</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Univariate without treatment arm - only "COVAR2" covariate effects</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' univar_covs_model &lt;- fit_coxreg_univar(variables = u2_variables, data = dta_bladder)</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df1_covs &lt;- broom::tidy(univar_covs_model)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">101</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">187</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  hts &lt;- do.call(grid::unit.c, hts)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_coxreg(model_df = df1_covs, .stats = "hr", .var_nms = c("COVAR2", "Sex (F/M)"))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">103</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">189</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  wts &lt;- lapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">104</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">190</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Multivariate.</pre>
+                      <pre class="language-r">    seq(1, n_col),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">105</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">191</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' multivar_model &lt;- fit_coxreg_multivar(variables = m1_variables, data = dta_bladder)</pre>
+                      <pre class="language-r">    function(i) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">106</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">192</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df2 &lt;- broom::tidy(multivar_model)</pre>
+                      <pre class="language-r">      if (i %% 2 != 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">107</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">193</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        grid::unit(1, "null")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_coxreg(model_df = df2, .stats = "pval", .which_vars = "var_main", .var_nms = "COVAR1")</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">109</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">195</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_coxreg(</pre>
+                      <pre class="language-r">        padding_wt</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   model_df = df2, .stats = "pval", .which_vars = "multi_lvl",</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .var_nms = c("COVAR1", "A Covariate Label")</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">113</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">199</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  wts &lt;- do.call(grid::unit.c, wts)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Multivariate without treatment arm - only "COVAR1" main effect</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">115</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">201</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' multivar_covs_model &lt;- fit_coxreg_multivar(variables = m2_variables, data = dta_bladder)</pre>
+                      <pre class="language-r">  main_vp &lt;- grid::viewport(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">116</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">202</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df2_covs &lt;- broom::tidy(multivar_covs_model)</pre>
+                      <pre class="language-r">    layout = grid::grid.layout(nrow = n_row, ncol = n_col, widths = wts, heights = hts)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_coxreg(model_df = df2_covs, .stats = "hr")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">119</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">205</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  nested_grobs &lt;- list()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">120</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">206</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  k &lt;- 0</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">121</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">207</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_coxreg &lt;- function(model_df, .stats, .which_vars = "all", .var_nms = NULL) {</pre>
+                      <pre class="language-r">  for (i in seq(nrow) * 2 - 1) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">122</td>
-                    <td class="coverage">291<em>x</em></td>
+                    <td class="num">208</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(model_df, list(term = "term", stat = .stats))</pre>
+                      <pre class="language-r">    for (j in seq(ncol) * 2 - 1) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">291<em>x</em></td>
+                    <td class="num">209</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(model_df$term, classes = c("factor", "character"))</pre>
+                      <pre class="language-r">      k &lt;- k + 1</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">291<em>x</em></td>
+                    <td class="num">210</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  model_df$term &lt;- as.character(model_df$term)</pre>
+                      <pre class="language-r">      if (k &lt;= length(grobs)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">291<em>x</em></td>
+                    <td class="num">211</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .var_nms &lt;- .var_nms[!is.na(.var_nms)]</pre>
+                      <pre class="language-r">        nested_grobs &lt;- c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">126</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">212</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          nested_grobs,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">289<em>x</em></td>
+                    <td class="num">213</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(.var_nms) &gt; 0) model_df &lt;- model_df[model_df$term %in% .var_nms, ]</pre>
+                      <pre class="language-r">          list(grid::gTree(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">69<em>x</em></td>
+                    <td class="num">214</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (.which_vars == "multi_lvl") model_df$term &lt;- tail(.var_nms, 1)</pre>
+                      <pre class="language-r">            children = grid::gList(grobs[[k]]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">129</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">215</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            vp = grid::viewport(layout.pos.row = i, layout.pos.col = j)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # We need a list with names corresponding to the stats to display of equal length to the list of stats.</pre>
+                      <pre class="language-r">          ))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">291<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">217</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- split(model_df, f = model_df$term, drop = FALSE)</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">291<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">218</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- stats::setNames(y, nm = rep(.stats, length(y)))</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">291<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">220</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (.which_vars == "var_main") {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">135</td>
-                    <td class="coverage">128<em>x</em></td>
+                    <td class="num">221</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y &lt;- lapply(y, function(x) x[1, ]) # only main effect</pre>
+                      <pre class="language-r">  grobs_mainvp &lt;- grid::gTree(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">136</td>
-                    <td class="coverage">163<em>x</em></td>
+                    <td class="num">222</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (.which_vars %in% c("inter", "multi_lvl")) {</pre>
+                      <pre class="language-r">    children = do.call(grid::gList, nested_grobs),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">120<em>x</em></td>
+                    <td class="num">223</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y &lt;- lapply(y, function(x) if (nrow(y[[1]]) &gt; 1) x[-1, ] else x) # exclude main effect</pre>
+                      <pre class="language-r">    vp = main_vp</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">291<em>x</em></td>
+                    <td class="num">226</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lapply(</pre>
+                      <pre class="language-r">  grid::gTree(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">291<em>x</em></td>
+                    <td class="num">227</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    X = y,</pre>
+                      <pre class="language-r">    children = grid::gList(grobs_mainvp),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">291<em>x</em></td>
+                    <td class="num">228</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    FUN = function(x) {</pre>
+                      <pre class="language-r">    vp = vp,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">295<em>x</em></td>
+                    <td class="num">229</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      z &lt;- as.list(x[[.stats]])</pre>
+                      <pre class="language-r">    gp = gp,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">295<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      stats::setNames(z, nm = x$term_label)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">145</td>
-                    <td class="coverage"></td>
+                    <td class="num">230</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    name = name</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn cox_regression Analysis function which is used as `afun` in [rtables::analyze()]</pre>
+                      <pre class="language-r">#' Draw `grob`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and `cfun` in [rtables::summarize_row_groups()] within `summarize_coxreg()`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param eff (`flag`)\cr whether treatment effect should be calculated. Defaults to `FALSE`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">238</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param var_main (`flag`)\cr whether main effects should be calculated. Defaults to `FALSE`.</pre>
+                      <pre class="language-r">#' Draw grob on device page.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param na_str (`string`)\cr custom string to replace all `NA` values with. Defaults to `""`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param cache_env (`environment`)\cr an environment object used to cache the regression model in order to</pre>
+                      <pre class="language-r">#' @param grob (`grob`)\cr grid object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   avoid repeatedly fitting the same model for every row in the table. Defaults to `NULL` (no caching).</pre>
+                      <pre class="language-r">#' @param newpage (`flag`)\cr draw on a new page.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param varlabels (`list`)\cr a named list corresponds to the names of variables found in data, passed</pre>
+                      <pre class="language-r">#' @param vp (`viewport` or `NULL`)\cr a [viewport()] object (or `NULL`).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   as a named list and corresponding to time, event, arm, strata, and covariates terms. If arm is missing</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   from variables, then only Cox model(s) including the covariates will be fitted and the corresponding</pre>
+                      <pre class="language-r">#' @return A `grob`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   effect estimates will be tabulated later.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `a_coxreg()` returns formatted [rtables::CellValue()].</pre>
+                      <pre class="language-r">#' library(grid)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' \donttest{</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' a_coxreg(</pre>
+                      <pre class="language-r">#' rect &lt;- rectGrob(width = grid::unit(0.5, "npc"), height = grid::unit(0.5, "npc"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   df = dta_bladder,</pre>
+                      <pre class="language-r">#' rect %&gt;% draw_grob(vp = grid::viewport(angle = 45))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   labelstr = "Label 1",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = u1_variables,</pre>
+                      <pre class="language-r">#' num &lt;- lapply(1:10, textGrob)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .spl_context = list(value = "COVAR1"),</pre>
+                      <pre class="language-r">#' num %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .stats = "n",</pre>
+                      <pre class="language-r">#'   arrange_grobs(grobs = .) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .formats = "xx"</pre>
+                      <pre class="language-r">#'   draw_grob()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">258</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' showViewport()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' a_coxreg(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   df = dta_bladder,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">262</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   labelstr = "",</pre>
+                      <pre class="language-r">draw_grob &lt;- function(grob, newpage = TRUE, vp = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">178</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">263</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = u1_variables,</pre>
+                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">179</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">264</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .spl_context = list(value = "COVAR2"),</pre>
+                      <pre class="language-r">    "0.9.4",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">180</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">265</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .stats = "pval",</pre>
+                      <pre class="language-r">    "draw_grob()",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">181</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">266</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .formats = "xx.xxxx"</pre>
+                      <pre class="language-r">    details = "`tern` plotting functions no longer generate `grob` objects."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">267</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">268</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">184</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">269</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  if (newpage) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">185</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">270</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">a_coxreg &lt;- function(df,</pre>
+                      <pre class="language-r">    grid::grid.newpage()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">271</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     labelstr,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">187</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">272</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     eff = FALSE,</pre>
+                      <pre class="language-r">  if (!is.null(vp)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">188</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">273</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     var_main = FALSE,</pre>
+                      <pre class="language-r">    grid::pushViewport(vp)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">274</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     multivar = FALSE,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">190</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">275</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     variables,</pre>
+                      <pre class="language-r">  grid::grid.draw(grob)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">276</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     at = list(),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">277</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     control = control_coxreg(),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     .spl_context,</pre>
+                      <pre class="language-r">tern_grob &lt;- function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">194</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">279</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     .stats,</pre>
+                      <pre class="language-r">  class(x) &lt;- unique(c("ternGrob", class(x)))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">195</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">280</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     .formats,</pre>
+                      <pre class="language-r">  x</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">281</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     .indent_mods = NULL,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">282</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     na_str = "",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">283</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                     cache_env = NULL) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">288<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  cov_no_arm &lt;- !multivar &amp;&amp; !"arm" %in% names(variables) &amp;&amp; control$interaction # special case: univar no arm</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">200</td>
-                    <td class="coverage">288<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  cov &lt;- tail(.spl_context$value, 1) # current variable/covariate</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">201</td>
-                    <td class="coverage">288<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  var_lbl &lt;- formatters::var_labels(df)[cov] # check for df labels</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">288<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (length(labelstr) &gt; 1) {</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">203</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">284</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    labelstr &lt;- if (cov %in% names(labelstr)) labelstr[[cov]] else var_lbl # use df labels if none</pre>
+                      <pre class="language-r">print.ternGrob &lt;- function(x, ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">204</td>
-                    <td class="coverage">280<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">285</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (!is.na(var_lbl) &amp;&amp; labelstr == cov &amp;&amp; cov %in% variables$covariates) {</pre>
+                      <pre class="language-r">  grid::grid.newpage()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">67<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">286</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    labelstr &lt;- var_lbl</pre>
+                      <pre class="language-r">  grid::grid.draw(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">288<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (eff || multivar || cov_no_arm) {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">143<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/utils_rtables.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
+                  <tr class="never">
+                    <td class="num">1</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    control$interaction &lt;- FALSE</pre>
+                      <pre class="language-r"># Utility functions to cooperate with {rtables} package</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">145<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">3</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    variables$covariates &lt;- cov</pre>
+                      <pre class="language-r">#' Convert table into matrix of strings</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">50<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (var_main) control$interaction &lt;- TRUE</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">214</td>
-                    <td class="coverage">288<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">7</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(cache_env[[cov]])) {</pre>
+                      <pre class="language-r">#' Helper function to use mostly within tests. `with_spaces`parameter allows</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">47<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!multivar) {</pre>
+                      <pre class="language-r">#' to test not only for content but also indentation and table structure.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">216</td>
-                    <td class="coverage">32<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      model &lt;- fit_coxreg_univar(variables = variables, data = df, at = at, control = control) %&gt;% broom::tidy()</pre>
+                      <pre class="language-r">#' `print_txt_to_copy` instead facilitate the testing development by returning a well</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">#' formatted text that needs only to be copied and pasted in the expected output.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">218</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      model &lt;- fit_coxreg_multivar(variables = variables, data = df, control = control) %&gt;% broom::tidy()</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">219</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' @inheritParams formatters::toString</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">47<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">13</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    cache_env[[cov]] &lt;- model</pre>
+                      <pre class="language-r">#' @param x (`VTableTree`)\cr `rtables` table object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' @param with_spaces (`flag`)\cr whether the tested table should keep the indentation and other relevant spaces.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">241<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">15</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    model &lt;- cache_env[[cov]]</pre>
+                      <pre class="language-r">#' @param print_txt_to_copy (`flag`)\cr utility to have a way to copy the input table directly</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">223</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   into the expected variable instead of copying it too manually.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">148<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!multivar &amp;&amp; !var_main) model[, "pval_inter"] &lt;- NA_real_</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @return A `matrix` of `string`s. If `print_txt_to_copy = TRUE` the well formatted printout of the</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">288<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (cov_no_arm || (!cov_no_arm &amp;&amp; !"arm" %in% names(variables) &amp;&amp; is.numeric(df[[cov]]))) {</pre>
+                      <pre class="language-r">#'   table will be printed to console, ready to be copied as a expected value.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">20</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    multivar &lt;- TRUE</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!cov_no_arm) var_main &lt;- TRUE</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' tbl &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   split_rows_by("SEX") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">231</td>
-                    <td class="coverage">288<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  vars_coxreg &lt;- list(which_vars = "all", var_nms = NULL)</pre>
+                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">288<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">25</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (eff) {</pre>
+                      <pre class="language-r">#'   analyze("AGE") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">233</td>
-                    <td class="coverage">65<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">26</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (multivar &amp;&amp; !var_main) { # multivar treatment level</pre>
+                      <pre class="language-r">#'   build_table(tern_ex_adsl)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">27</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      var_lbl_arm &lt;- formatters::var_labels(df)[[variables$arm]]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">235</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">28</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vars_coxreg[c("var_nms", "which_vars")] &lt;- list(c(variables$arm, var_lbl_arm), "multi_lvl")</pre>
+                      <pre class="language-r">#' to_string_matrix(tbl, widths = ceiling(propose_column_widths(tbl) / 2))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else { # treatment effect</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">237</td>
-                    <td class="coverage">53<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">30</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vars_coxreg["var_nms"] &lt;- variables$arm</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">238</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">31</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (var_main) vars_coxreg["which_vars"] &lt;- "var_main"</pre>
+                      <pre class="language-r">to_string_matrix &lt;- function(x, widths = NULL, max_width = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">                             hsep = formatters::default_hsep(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">                             with_spaces = TRUE, print_txt_to_copy = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">241</td>
-                    <td class="coverage">223<em>x</em></td>
+                    <td class="num">34</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!multivar || (multivar &amp;&amp; var_main &amp;&amp; !is.numeric(df[[cov]]))) { # covariate effect/level</pre>
+                      <pre class="language-r">  checkmate::assert_flag(with_spaces)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">242</td>
-                    <td class="coverage">166<em>x</em></td>
+                    <td class="num">35</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vars_coxreg[c("var_nms", "which_vars")] &lt;- list(cov, "var_main")</pre>
+                      <pre class="language-r">  checkmate::assert_flag(print_txt_to_copy)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">243</td>
-                    <td class="coverage">57<em>x</em></td>
+                    <td class="num">36</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else if (multivar) { # multivar covariate level</pre>
+                      <pre class="language-r">  checkmate::assert_int(max_width, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">244</td>
-                    <td class="coverage">57<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">37</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vars_coxreg[c("var_nms", "which_vars")] &lt;- list(c(cov, var_lbl), "multi_lvl")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">245</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">38</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (var_main) model[cov, .stats] &lt;- NA_real_</pre>
+                      <pre class="language-r">  if (inherits(x, "MatrixPrintForm")) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">39</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    tx &lt;- x</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">247</td>
-                    <td class="coverage">50<em>x</em></td>
+                    <td class="num">41</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!multivar &amp;&amp; !var_main &amp;&amp; control$interaction) vars_coxreg["which_vars"] &lt;- "inter" # interaction effect</pre>
+                      <pre class="language-r">    tx &lt;- matrix_form(x, TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">249</td>
-                    <td class="coverage">288<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">43</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  var_vals &lt;- s_coxreg(model, .stats, .which_vars = vars_coxreg$which_vars, .var_nms = vars_coxreg$var_nms)[[1]]</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">250</td>
-                    <td class="coverage">288<em>x</em></td>
+                    <td class="num">44</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  var_names &lt;- if (all(grepl("\\(reference = ", names(var_vals))) &amp;&amp; labelstr != tail(.spl_context$value, 1)) {</pre>
+                      <pre class="language-r">  tf_wrap &lt;- FALSE</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">251</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="num">45</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste(c(labelstr, tail(strsplit(names(var_vals), " ")[[1]], 3)), collapse = " ") # "reference" main effect labels</pre>
+                      <pre class="language-r">  if (!is.null(max_width)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">252</td>
-                    <td class="coverage">288<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">46</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if ((!multivar &amp;&amp; !eff &amp;&amp; !(!var_main &amp;&amp; control$interaction) &amp;&amp; nchar(labelstr) &gt; 0) ||</pre>
+                      <pre class="language-r">    tf_wrap &lt;- TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">253</td>
-                    <td class="coverage">288<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">47</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    (multivar &amp;&amp; var_main &amp;&amp; is.numeric(df[[cov]]))) { # nolint</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">254</td>
-                    <td class="coverage">71<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">48</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    labelstr # other main effect labels</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">49</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  # Producing the matrix to test</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">255</td>
-                    <td class="coverage">288<em>x</em></td>
+                    <td class="num">50</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (multivar &amp;&amp; !eff &amp;&amp; !var_main &amp;&amp; is.numeric(df[[cov]])) {</pre>
+                      <pre class="language-r">  if (with_spaces) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">256</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">51</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "All" # multivar numeric covariate</pre>
+                      <pre class="language-r">    out &lt;- strsplit(toString(tx, widths = widths, tf_wrap = tf_wrap, max_width = max_width, hsep = hsep), "\n")[[1]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">258</td>
-                    <td class="coverage">178<em>x</em></td>
+                    <td class="num">53</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    names(var_vals)</pre>
+                      <pre class="language-r">    out &lt;- tx$strings</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">259</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
+                  <tr class="never">
+                    <td class="num">55</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">56</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  # Printing to console formatted output that needs to be copied in "expected"</pre>
+                    </td>
+                  </tr>
                   <tr class="covered">
-                    <td class="num">260</td>
-                    <td class="coverage">288<em>x</em></td>
+                    <td class="num">57</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  in_rows(</pre>
+                      <pre class="language-r">  if (print_txt_to_copy) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">261</td>
-                    <td class="coverage">288<em>x</em></td>
+                    <td class="num">58</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .list = var_vals, .names = var_names, .labels = var_names, .indent_mods = .indent_mods,</pre>
+                      <pre class="language-r">    out_tmp &lt;- out</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">262</td>
-                    <td class="coverage">288<em>x</em></td>
+                    <td class="num">59</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .formats = stats::setNames(rep(.formats, length(var_names)), var_names),</pre>
+                      <pre class="language-r">    if (!with_spaces) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">263</td>
-                    <td class="coverage">288<em>x</em></td>
+                    <td class="num">60</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .format_na_strs = stats::setNames(rep(na_str, length(var_names)), var_names)</pre>
+                      <pre class="language-r">      out_tmp &lt;- apply(out, 1, paste0, collapse = '", "')</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">264</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">62</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    cat(paste0('c(\n  "', paste0(out_tmp, collapse = '",\n  "'), '"\n)'))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">266</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn cox_regression Layout-creating function which creates a Cox regression summary table</pre>
+                      <pre class="language-r">  # Return values</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">268</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">66</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   layout. This function is a wrapper for several `rtables` layouting functions. This function</pre>
+                      <pre class="language-r">  return(out)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   is a wrapper for [rtables::analyze_colvars()] and [rtables::summarize_row_groups()].</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">271</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams fit_coxreg_univar</pre>
+                      <pre class="language-r">#' Blank for missing input</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param multivar (`flag`)\cr whether multivariate Cox regression should run (defaults to `FALSE`), otherwise</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">273</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   univariate Cox regression will run.</pre>
+                      <pre class="language-r">#' Helper function to use in tabulating model results.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">274</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param common_var (`string`)\cr the name of a factor variable in the dataset which takes the same value</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   for all rows. This should be created during pre-processing if no such variable currently exists.</pre>
+                      <pre class="language-r">#' @param x (`vector`)\cr input for a cell.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">276</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .section_div (`string` or `NA`)\cr string which should be repeated as a section divider between sections.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">277</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Defaults to `NA` for no section divider. If a vector of two strings are given, the first will be used between</pre>
+                      <pre class="language-r">#' @return An empty `character` vector if all entries in `x` are missing (`NA`), otherwise</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   treatment and covariate sections and the second between different covariates.</pre>
+                      <pre class="language-r">#'   the unlisted version of `x`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">281</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `summarize_coxreg()` returns a layout object suitable for passing to further layouting functions,</pre>
+                      <pre class="language-r">unlist_and_blank_na &lt;- function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">282</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">80</td>
+                    <td class="coverage">267<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add a Cox regression table</pre>
+                      <pre class="language-r">  unl &lt;- unlist(x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">283</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">81</td>
+                    <td class="coverage">267<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   containing the chosen statistics to the table layout.</pre>
+                      <pre class="language-r">  if (all(is.na(unl))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">284</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">82</td>
+                    <td class="coverage">161<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    character()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">285</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [fit_coxreg_univar()] and [fit_coxreg_multivar()] which also take the `variables`, `data`,</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">286</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">84</td>
+                    <td class="coverage">106<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `at` (univariate only), and `control` arguments but return unformatted univariate and multivariate</pre>
+                      <pre class="language-r">    unl</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Cox regression models, respectively.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">289</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # summarize_coxreg</pre>
+                      <pre class="language-r">#' Constructor for content functions given a data frame with flag input</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">291</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">292</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result_univar &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">#' This can be useful for tabulating model results.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">293</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   summarize_coxreg(variables = u1_variables) %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">294</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(dta_bladder)</pre>
+                      <pre class="language-r">#' @param analysis_var (`string`)\cr variable name for the column containing values to be returned by the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">295</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result_univar</pre>
+                      <pre class="language-r">#'   content function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param flag_var (`string`)\cr variable name for the logical column identifying which row should be returned.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result_univar_covs &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">#' @param format (`string`)\cr `rtables` format to use.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">298</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   summarize_coxreg(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">299</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     variables = u2_variables,</pre>
+                      <pre class="language-r">#' @return A content function which gives `df$analysis_var` at the row identified by</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">300</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">#'   `.df_row$flag` in the given format.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">301</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(dta_bladder)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">302</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result_univar_covs</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">303</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">cfun_by_flag &lt;- function(analysis_var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">304</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result_multivar &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">                         flag_var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">305</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   summarize_coxreg(</pre>
+                      <pre class="language-r">                         format = "xx",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">306</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     variables = m1_variables,</pre>
+                      <pre class="language-r">                         .indent_mods = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">307</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">105</td>
+                    <td class="coverage">61<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     multivar = TRUE,</pre>
+                      <pre class="language-r">  checkmate::assert_string(analysis_var)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">308</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">106</td>
+                    <td class="coverage">61<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">  checkmate::assert_string(flag_var)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">309</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">107</td>
+                    <td class="coverage">61<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(dta_bladder)</pre>
+                      <pre class="language-r">  function(df, labelstr) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">310</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">108</td>
+                    <td class="coverage">265<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result_multivar</pre>
+                      <pre class="language-r">    row_index &lt;- which(df[[flag_var]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">311</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">109</td>
+                    <td class="coverage">265<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    x &lt;- unlist_and_blank_na(df[[analysis_var]][row_index])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">312</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">110</td>
+                    <td class="coverage">265<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result_multivar_covs &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">    formatters::with_label(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">313</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">111</td>
+                    <td class="coverage">265<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   summarize_coxreg(</pre>
+                      <pre class="language-r">      rcell(x, format = format, indent_mod = .indent_mods),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">112</td>
+                    <td class="coverage">265<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      labelstr</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">314</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     variables = m2_variables,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">315</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     multivar = TRUE,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">316</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     varlabels = c("Covariate 1", "Covariate 2") # custom labels</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">317</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">318</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(dta_bladder)</pre>
+                      <pre class="language-r">#' Content row function to add row total to labels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">319</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result_multivar_covs</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">320</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' This takes the label of the latest row split level and adds the row total from `df` in parentheses.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">321</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' This function differs from [c_label_n_alt()] by taking row counts from `df` rather than</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">322</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 2</pre>
+                      <pre class="language-r">#' `alt_counts_df`, and is used by [add_rowcounts()] when `alt_counts` is set to `FALSE`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">323</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">summarize_coxreg &lt;- function(lyt,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">324</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             variables,</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">325</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             control = control_coxreg(),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">326</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             at = list(),</pre>
+                      <pre class="language-r">#' @return A list with formatted [rtables::CellValue()] with the row count value and the correct label.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">327</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             multivar = FALSE,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">328</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             common_var = "STUDYID",</pre>
+                      <pre class="language-r">#' @note It is important here to not use `df` but rather `.N_row` in the implementation, because</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">329</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             .stats = c("n", "hr", "ci", "pval", "pval_inter"),</pre>
+                      <pre class="language-r">#'   the former is already split by columns and will refer to the first column of the data only.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">330</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             .formats = c(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">331</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               n = "xx", hr = "xx.xx", ci = "(xx.xx, xx.xx)",</pre>
+                      <pre class="language-r">#' @seealso [c_label_n_alt()] which performs the same function but retrieves row counts from</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">332</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               pval = "x.xxxx | (&lt;0.0001)", pval_inter = "x.xxxx | (&lt;0.0001)"</pre>
+                      <pre class="language-r">#'   `alt_counts_df` instead of `df`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">333</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             ),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">334</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             varlabels = NULL,</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">335</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             .indent_mods = NULL,</pre>
+                      <pre class="language-r">c_label_n &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">336</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             na_str = "",</pre>
+                      <pre class="language-r">                      labelstr,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">337</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             .section_div = NA_character_) {</pre>
+                      <pre class="language-r">                      .N_row) { # nolint</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">338</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="num">137</td>
+                    <td class="coverage">273<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (multivar &amp;&amp; control$interaction) {</pre>
+                      <pre class="language-r">  label &lt;- paste0(labelstr, " (N=", .N_row, ")")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">339</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">138</td>
+                    <td class="coverage">273<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning(paste(</pre>
+                      <pre class="language-r">  in_rows(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">340</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">139</td>
+                    <td class="coverage">273<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Interactions are not available for multivariate cox regression using summarize_coxreg.",</pre>
+                      <pre class="language-r">    .list = list(row_count = formatters::with_label(c(.N_row, .N_row), label)),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">341</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">140</td>
+                    <td class="coverage">273<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "The model will be calculated without interaction effects."</pre>
+                      <pre class="language-r">    .formats = c(row_count = function(x, ...) "")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">342</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">343</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">344</td>
-                    <td class="coverage">16<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (control$interaction &amp;&amp; !"arm" %in% names(variables)) {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">345</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">143</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("To include interactions please specify 'arm' in variables.")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">346</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' Content row function to add `alt_counts_df` row total to labels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">347</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">348</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">146</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .stats &lt;- if (!"arm" %in% names(variables) || multivar) { # only valid statistics</pre>
+                      <pre class="language-r">#' This takes the label of the latest row split level and adds the row total from `alt_counts_df`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">349</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">147</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    intersect(c("hr", "ci", "pval"), .stats)</pre>
+                      <pre class="language-r">#' in parentheses. This function differs from [c_label_n()] by taking row counts from `alt_counts_df`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">350</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">148</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (control$interaction) {</pre>
+                      <pre class="language-r">#' rather than `df`, and is used by [add_rowcounts()] when `alt_counts` is set to `TRUE`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">351</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">149</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    intersect(c("n", "hr", "ci", "pval", "pval_inter"), .stats)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">352</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">353</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">151</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    intersect(c("n", "hr", "ci", "pval"), .stats)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">354</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @return A list with formatted [rtables::CellValue()] with the row count value and the correct label.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">355</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">153</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  stat_labels &lt;- c(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">356</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">154</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n = "n", hr = "Hazard Ratio", ci = paste0(control$conf_level * 100, "% CI"),</pre>
+                      <pre class="language-r">#' @seealso [c_label_n()] which performs the same function but retrieves row counts from `df` instead</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">357</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">155</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pval = "p-value", pval_inter = "Interaction p-value"</pre>
+                      <pre class="language-r">#'   of `alt_counts_df`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">358</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">359</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">157</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  stat_labels &lt;- stat_labels[names(stat_labels) %in% .stats]</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">360</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">158</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats &lt;- .formats[names(.formats) %in% .stats]</pre>
+                      <pre class="language-r">c_label_n_alt &lt;- function(df,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">361</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">159</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  env &lt;- new.env() # create caching environment</pre>
+                      <pre class="language-r">                          labelstr,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">362</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                          .alt_df_row) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">363</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">161</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lyt &lt;- lyt %&gt;%</pre>
+                      <pre class="language-r">  N_row_alt &lt;- nrow(.alt_df_row) # nolint</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">364</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">162</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    split_cols_by_multivar(</pre>
+                      <pre class="language-r">  label &lt;- paste0(labelstr, " (N=", N_row_alt, ")")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">365</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">163</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vars = rep(common_var, length(.stats)),</pre>
+                      <pre class="language-r">  in_rows(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">366</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">164</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      varlabels = stat_labels,</pre>
+                      <pre class="language-r">    .list = list(row_count = formatters::with_label(c(N_row_alt, N_row_alt), label)),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">367</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">165</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      extra_args = list(</pre>
+                      <pre class="language-r">    .formats = c(row_count = function(x, ...) "")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">368</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">166</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        .stats = .stats, .formats = .formats, .indent_mods = .indent_mods, na_str = rep(na_str, length(.stats)),</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">369</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">167</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        cache_env = replicate(length(.stats), list(env))</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">370</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">371</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' Layout-creating function to add row total counts</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">372</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">373</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">171</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if ("arm" %in% names(variables)) { # treatment effect</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">374</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">172</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt &lt;- lyt %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">375</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">173</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      split_rows_by(</pre>
+                      <pre class="language-r">#' This works analogously to [rtables::add_colcounts()] but on the rows. This function</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">376</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">174</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        common_var,</pre>
+                      <pre class="language-r">#'  is a wrapper for [rtables::summarize_row_groups()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">377</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">175</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        split_label = "Treatment:",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">378</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">176</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label_pos = "visible",</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">379</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">177</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        child_labels = "hidden",</pre>
+                      <pre class="language-r">#' @param alt_counts (`flag`)\cr whether row counts should be taken from `alt_counts_df` (`TRUE`)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">380</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">178</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        section_div = head(.section_div, 1)</pre>
+                      <pre class="language-r">#'   or from `df` (`FALSE`). Defaults to `FALSE`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">381</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">382</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">180</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!multivar) {</pre>
+                      <pre class="language-r">#' @return A modified layout where the latest row split labels now have the row-wise</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">383</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">181</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt &lt;- lyt %&gt;%</pre>
+                      <pre class="language-r">#'   total counts (i.e. without column-based subsetting) attached in parentheses.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">384</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">182</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        analyze_colvars(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">385</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">183</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          afun = a_coxreg,</pre>
+                      <pre class="language-r">#' @note Row count values are contained in these row count rows but are not displayed</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">386</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">184</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          na_str = na_str,</pre>
+                      <pre class="language-r">#'   so that they are not considered zero rows by default when pruning.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">387</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">185</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          extra_args = list(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">388</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">186</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            variables = variables, control = control, multivar = multivar, eff = TRUE, var_main = multivar,</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">389</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">187</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            labelstr = ""</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">390</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">391</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">392</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else { # treatment level effects</pre>
+                      <pre class="language-r">#'   split_rows_by("RACE", split_fun = drop_split_levels) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">393</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">191</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt &lt;- lyt %&gt;%</pre>
+                      <pre class="language-r">#'   add_rowcounts() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">394</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">192</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        summarize_row_groups(</pre>
+                      <pre class="language-r">#'   analyze("AGE", afun = list_wrap_x(summary), format = "xx.xx") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">395</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">193</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          cfun = a_coxreg,</pre>
+                      <pre class="language-r">#'   build_table(DM)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">194</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">195</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @export</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">196</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">add_rowcounts &lt;- function(lyt, alt_counts = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">396</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">197</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          na_str = na_str,</pre>
+                      <pre class="language-r">  summarize_row_groups(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">397</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">198</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          extra_args = list(</pre>
+                      <pre class="language-r">    lyt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">398</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">199</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            variables = variables, control = control, multivar = multivar, eff = TRUE, var_main = multivar</pre>
+                      <pre class="language-r">    cfun = if (alt_counts) c_label_n_alt else c_label_n</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">399</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">400</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ) %&gt;%</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">401</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">202</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        analyze_colvars(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">402</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">203</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          afun = a_coxreg,</pre>
+                      <pre class="language-r">#' Obtain column indices</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">403</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">204</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          na_str = na_str,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">404</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">205</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          extra_args = list(eff = TRUE, control = control, variables = variables, multivar = multivar, labelstr = "")</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">405</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">207</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' Helper function to extract column indices from a `VTableTree` for a given</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">406</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' vector of column names.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">407</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">408</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param table_tree (`VTableTree`)\cr `rtables` table object to extract the indices from.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">409</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">211</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if ("covariates" %in% names(variables)) { # covariate main effects</pre>
+                      <pre class="language-r">#' @param col_names (`character`)\cr vector of column names.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">410</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">212</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt &lt;- lyt %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">411</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">213</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      split_rows_by_multivar(</pre>
+                      <pre class="language-r">#' @return A vector of column indices.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">412</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">214</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        vars = variables$covariates,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">413</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">215</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        varlabels = varlabels,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">414</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">216</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        split_label = "Covariate:",</pre>
+                      <pre class="language-r">h_col_indices &lt;- function(table_tree, col_names) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">415</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">217</td>
+                    <td class="coverage">1256<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nested = FALSE,</pre>
+                      <pre class="language-r">  checkmate::assert_class(table_tree, "VTableNodeInfo")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">416</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">218</td>
+                    <td class="coverage">1256<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        child_labels = if (multivar || control$interaction || !"arm" %in% names(variables)) "default" else "hidden",</pre>
+                      <pre class="language-r">  checkmate::assert_subset(col_names, names(attr(col_info(table_tree), "cextra_args")), empty.ok = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">417</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">219</td>
+                    <td class="coverage">1256<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        section_div = tail(.section_div, 1)</pre>
+                      <pre class="language-r">  match(col_names, names(attr(col_info(table_tree), "cextra_args")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">418</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">419</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">221</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (multivar || control$interaction || !"arm" %in% names(variables)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">420</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">222</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt &lt;- lyt %&gt;%</pre>
+                      <pre class="language-r">#' Labels or names of list elements</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">421</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">223</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        summarize_row_groups(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">422</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">224</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          cfun = a_coxreg,</pre>
+                      <pre class="language-r">#' Internal helper function for working with nested statistic function results which typically</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">423</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">225</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          na_str = na_str,</pre>
+                      <pre class="language-r">#' don't have labels but names that we can use.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">424</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">226</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          extra_args = list(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">425</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">227</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            variables = variables, at = at, control = control, multivar = multivar,</pre>
+                      <pre class="language-r">#' @param x (`list`)\cr a list.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">426</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">228</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            var_main = if (multivar) multivar else control$interaction</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">427</td>
+                    <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#' @return A `character` vector with the labels or names for the list elements.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">428</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">429</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">430</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">232</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!is.null(varlabels)) names(varlabels) &lt;- variables$covariates</pre>
+                      <pre class="language-r">labels_or_names &lt;- function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">431</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">233</td>
+                    <td class="coverage">190<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt &lt;- lyt %&gt;%</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(x, c("data.frame", "list"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">432</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">234</td>
+                    <td class="coverage">190<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        analyze_colvars(</pre>
+                      <pre class="language-r">  labs &lt;- sapply(x, obj_label)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">433</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">235</td>
+                    <td class="coverage">190<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          afun = a_coxreg,</pre>
+                      <pre class="language-r">  nams &lt;- rlang::names2(x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">434</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">236</td>
+                    <td class="coverage">190<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          na_str = na_str,</pre>
+                      <pre class="language-r">  label_is_null &lt;- sapply(labs, is.null)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">435</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">237</td>
+                    <td class="coverage">190<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          extra_args = list(</pre>
+                      <pre class="language-r">  result &lt;- unlist(ifelse(label_is_null, nams, labs))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">436</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">238</td>
+                    <td class="coverage">190<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            variables = variables, at = at, control = control, multivar = multivar,</pre>
+                      <pre class="language-r">  return(result)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">437</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">239</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            var_main = if (multivar) multivar else control$interaction,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">438</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">240</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            labelstr = if (is.null(varlabels)) "" else varlabels</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">439</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#' Convert to `rtable`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">440</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">441</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">442</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">443</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">245</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!"arm" %in% names(variables)) control$interaction &lt;- TRUE # special case: univar no arm</pre>
+                      <pre class="language-r">#' This is a new generic function to convert objects to `rtable` tables.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">444</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">246</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (multivar || control$interaction) { # covariate level effects</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">445</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">247</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt &lt;- lyt %&gt;%</pre>
+                      <pre class="language-r">#' @param x (`data.frame`)\cr the object which should be converted to an `rtable`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">446</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">248</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        analyze_colvars(</pre>
+                      <pre class="language-r">#' @param ... additional arguments for methods.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">447</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">249</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          afun = a_coxreg,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">448</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">250</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          na_str = na_str,</pre>
+                      <pre class="language-r">#' @return An `rtables` table object. Note that the concrete class will depend on the method used.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">449</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">251</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          extra_args = list(variables = variables, at = at, control = control, multivar = multivar, labelstr = ""),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">450</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">252</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          indent_mod = if (!"arm" %in% names(variables) || multivar) 0L else -1L</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">451</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">as.rtable &lt;- function(x, ...) { # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">452</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">254</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  UseMethod("as.rtable", x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">453</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">454</td>
+                    <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">455</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">257</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lyt</pre>
+                      <pre class="language-r">#' @describeIn as.rtable Method for converting a `data.frame` that contains numeric columns to `rtable`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">456</td>
+                    <td class="num">258</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/utils.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Re-implemented `range()` default S3 method for numerical objects</pre>
+                      <pre class="language-r">#' @param format (`string` or `function`)\cr the format which should be used for the columns.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function returns `c(NA, NA)` instead of `c(-Inf, Inf)` for zero-length data</pre>
+                      <pre class="language-r">#' @method as.rtable data.frame</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">262</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' without any warnings.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`numeric`)\cr a sequence of numbers for which the range is computed.</pre>
+                      <pre class="language-r">#' x &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">265</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param na.rm (`flag`)\cr flag indicating if `NA` should be omitted.</pre>
+                      <pre class="language-r">#'   a = 1:10,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">266</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param finite (`flag`)\cr flag indicating if non-finite elements should be removed.</pre>
+                      <pre class="language-r">#'   b = rnorm(10)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">267</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">268</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A 2-element vector of class `numeric`.</pre>
+                      <pre class="language-r">#' as.rtable(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">270</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">271</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">range_noinf &lt;- function(x, na.rm = FALSE, finite = FALSE) { # nolint</pre>
+                      <pre class="language-r">as.rtable.data.frame &lt;- function(x, format = "xx.xx", ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">272</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  checkmate::assert_numeric(unlist(x))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">15</td>
-                    <td class="coverage">1842<em>x</em></td>
+                    <td class="num">273</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(x)</pre>
+                      <pre class="language-r">  do.call(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">274</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    rtable,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">17</td>
-                    <td class="coverage">1842<em>x</em></td>
+                    <td class="num">275</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (finite) {</pre>
+                      <pre class="language-r">    c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">18</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">276</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x &lt;- x[is.finite(x)] # removes NAs too</pre>
+                      <pre class="language-r">      list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">19</td>
-                    <td class="coverage">1818<em>x</em></td>
+                    <td class="num">277</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (na.rm) {</pre>
+                      <pre class="language-r">        header = labels_or_names(x),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">20</td>
-                    <td class="coverage">708<em>x</em></td>
+                    <td class="num">278</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x &lt;- x[!is.na(x)]</pre>
+                      <pre class="language-r">        format = format</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">279</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">280</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      Map(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">23</td>
-                    <td class="coverage">1842<em>x</em></td>
+                    <td class="num">281</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(x) == 0) {</pre>
+                      <pre class="language-r">        function(row, row_name) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">24</td>
-                    <td class="coverage">111<em>x</em></td>
+                    <td class="num">282</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rval &lt;- c(NA, NA)</pre>
+                      <pre class="language-r">          do.call(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">25</td>
-                    <td class="coverage">111<em>x</em></td>
+                    <td class="num">283</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mode(rval) &lt;- typeof(x)</pre>
+                      <pre class="language-r">            rrow,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">284</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">            c(as.list(unname(row)),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">27</td>
-                    <td class="coverage">1731<em>x</em></td>
+                    <td class="num">285</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rval &lt;- c(min(x, na.rm = FALSE), max(x, na.rm = FALSE))</pre>
+                      <pre class="language-r">              row.name = row_name</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">288</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">30</td>
-                    <td class="coverage">1842<em>x</em></td>
+                    <td class="num">289</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(rval)</pre>
+                      <pre class="language-r">        row = as.data.frame(t(x)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">290</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        row_name = rownames(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">292</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Utility function to create label for confidence interval</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">295</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">296</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' Split parameters</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">297</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">298</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `string`.</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">300</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' It divides the data in the vector `param` into the groups defined by `f` based on specified `values`. It is relevant</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">301</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">f_conf_level &lt;- function(conf_level) {</pre>
+                      <pre class="language-r">#' in `rtables` layers so as to distribute parameters `.stats` or' `.formats` into lists with items corresponding to</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">43</td>
-                    <td class="coverage">3860<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">302</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_proportion_value(conf_level)</pre>
+                      <pre class="language-r">#' specific analysis function.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">44</td>
-                    <td class="coverage">3858<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">303</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  paste0(conf_level * 100, "% CI")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @param param (`vector`)\cr the parameter to be split.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">305</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param value (`vector`)\cr the value used to split.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">306</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Utility function to create label for p-value</pre>
+                      <pre class="language-r">#' @param f (`list`)\cr the reference to make the split.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">308</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' @return A named `list` with the same element names as `f`, each containing the elements specified in `.stats`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">309</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">310</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param test_mean (`numeric(1)`)\cr mean value to test under the null hypothesis.</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">311</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' f &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">312</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `string`.</pre>
+                      <pre class="language-r">#'   surv = c("pt_at_risk", "event_free_rate", "rate_se", "rate_ci"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   surv_diff = c("rate_diff", "rate_diff_ci", "ztest_pval")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">315</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">f_pval &lt;- function(test_mean) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">1103<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">316</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(test_mean, len = 1)</pre>
+                      <pre class="language-r">#' .stats &lt;- c("pt_at_risk", "rate_diff")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">1101<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">317</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  paste0("p-value (H0: mean = ", test_mean, ")")</pre>
+                      <pre class="language-r">#' h_split_param(.stats, .stats, f = f)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">318</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">319</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' # $surv</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Utility function to return a named list of covariate names</pre>
+                      <pre class="language-r">#' # [1] "pt_at_risk"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' #</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">322</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param covariates (`character`)\cr a vector that can contain single variable names (such as</pre>
+                      <pre class="language-r">#' # $surv_diff</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">323</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `"X1"`), and/or interaction terms indicated by `"X1 * X2"`.</pre>
+                      <pre class="language-r">#' # [1] "rate_diff"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">324</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">325</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A named `list` of `character` vector.</pre>
+                      <pre class="language-r">#' .formats &lt;- c("pt_at_risk" = "xx", "event_free_rate" = "xxx")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">326</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' h_split_param(.formats, names(.formats), f = f)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">327</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">328</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_covariates &lt;- function(covariates) {</pre>
+                      <pre class="language-r">#' # $surv</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">70</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">329</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(covariates)</pre>
+                      <pre class="language-r">#' # pt_at_risk event_free_rate</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">71</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">330</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  cov_vars &lt;- unique(trimws(unlist(strsplit(covariates, "\\*"))))</pre>
+                      <pre class="language-r">#' # "xx"           "xxx"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">331</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  stats::setNames(as.list(cov_vars), cov_vars)</pre>
+                      <pre class="language-r">#' #</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">332</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' # $surv_diff</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">333</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' # NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">334</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Replicate entries of a vector if required</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">335</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">336</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">h_split_param &lt;- function(param,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">337</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                          value,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">338</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Replicate entries of a vector if required.</pre>
+                      <pre class="language-r">                          f) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">339</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  y &lt;- lapply(f, function(x) param[value %in% x])</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">340</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  lapply(y, function(x) if (length(x) == 0) NULL else x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">341</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">342</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">343</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param n (`integer(1)`)\cr number of entries that are needed.</pre>
+                      <pre class="language-r">#' Get selected statistics names</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">344</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">345</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `x` if it has the required length already or is `NULL`,</pre>
+                      <pre class="language-r">#' Helper function to be used for creating `afun`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">346</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   otherwise if it is scalar the replicated version of it with `n` entries.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">347</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param .stats (`vector` or `NULL`)\cr input to the layout creating function. Note that `NULL` means</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">348</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note This function will fail if `x` is not of length `n` and/or is not a scalar.</pre>
+                      <pre class="language-r">#'   in this context that all default statistics should be used.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">349</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @param all_stats (`character`)\cr all statistics which can be selected here potentially.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">350</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">351</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @return A `character` vector with the selected statistics.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">352</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">to_n &lt;- function(x, n) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">91</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">353</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(x)) {</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">354</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    NULL</pre>
+                      <pre class="language-r">afun_selected_stats &lt;- function(.stats, all_stats) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">93</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">355</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (length(x) == 1) {</pre>
+                      <pre class="language-r">  checkmate::assert_character(.stats, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">94</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">356</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rep(x, n)</pre>
+                      <pre class="language-r">  checkmate::assert_character(all_stats)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">357</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (length(x) == n) {</pre>
+                      <pre class="language-r">  if (is.null(.stats)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">96</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">358</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x</pre>
+                      <pre class="language-r">    all_stats</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">359</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">98</td>
+                    <td class="num">360</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("dimension mismatch")</pre>
+                      <pre class="language-r">    intersect(.stats, all_stats)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">361</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">362</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">363</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">364</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Check element dimension</pre>
+                      <pre class="language-r">#' Add variable labels to top left corner in table</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">365</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">366</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Checks if the elements in `...` have the same dimension.</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">367</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">368</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... (`data.frame` or `vector`)\cr any data frames or vectors.</pre>
+                      <pre class="language-r">#' Helper layout-creating function to append the variable labels of a given variables vector</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">369</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param omit_null (`flag`)\cr whether `NULL` elements in `...` should be omitted from the check.</pre>
+                      <pre class="language-r">#' from a given dataset in the top left corner. If a variable label is not found then the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">370</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' variable name itself is used instead. Multiple variable labels are concatenated with slashes.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">371</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `logical` value.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">372</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">373</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' @param vars (`character`)\cr variable names of which the labels are to be looked up in `df`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">374</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">check_same_n &lt;- function(..., omit_null = TRUE) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  dots &lt;- list(...)</pre>
+                      <pre class="language-r">#' @param indent (`integer(1)`)\cr non-negative number of nested indent space, default to 0L which means no indent.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">375</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  n_list &lt;- Map(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    function(x, name) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      if (is.null(x)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">118</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        if (omit_null) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          NA_integer_</pre>
+                      <pre class="language-r">#'   1L means two spaces indent, 2L means four spaces indent and so on.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">376</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">121</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          stop("arg", name, "is not supposed to be NULL")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">377</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      } else if (is.data.frame(x)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">124</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        nrow(x)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      } else if (is.atomic(x)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        length(x)</pre>
+                      <pre class="language-r">#' @return A modified layout with the new variable label(s) added to the top-left material.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">378</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">128</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        stop("data structure for ", name, "is currently not supported")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">379</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' @note This is not an optimal implementation of course, since we are using here the data set</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">380</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    dots, names(dots)</pre>
+                      <pre class="language-r">#'   itself during the layout creation. When we have a more mature `rtables` implementation then</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">381</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'   this will also be improved or not necessary anymore.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">382</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  n &lt;- stats::na.omit(unlist(n_list))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">383</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">136</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (length(unique(n)) &gt; 1) {</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">137</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">384</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    sel &lt;- which(n != n[1])</pre>
+                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">138</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">385</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("Dimension mismatch:", paste(names(n)[sel], collapse = ", "), " do not have N=", n[1])</pre>
+                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">386</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">387</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   split_rows_by("SEX") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">388</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  TRUE</pre>
+                      <pre class="language-r">#'   append_varlabels(DM, "SEX") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">389</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   analyze("AGE", afun = mean) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">390</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   append_varlabels(DM, "AGE", indent = 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">391</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Utility function to check if a float value is equal to another float value</pre>
+                      <pre class="language-r">#' build_table(lyt, DM)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">392</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">393</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Uses `.Machine$double.eps` as the tolerance for the comparison.</pre>
+                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">394</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">395</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`numeric(1)`)\cr a float number.</pre>
+                      <pre class="language-r">#'   split_rows_by("SEX") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">396</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param y (`numeric(1)`)\cr a float number.</pre>
+                      <pre class="language-r">#'   analyze("AGE", afun = mean) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">397</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   append_varlabels(DM, c("SEX", "AGE"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">398</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `TRUE` if identical, otherwise `FALSE`.</pre>
+                      <pre class="language-r">#' build_table(lyt, DM)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">399</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">400</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">401</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">.is_equal_float &lt;- function(x, y) {</pre>
+                      <pre class="language-r">append_varlabels &lt;- function(lyt, df, vars, indent = 0L) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">2820<em>x</em></td>
+                    <td class="num">402</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(x)</pre>
+                      <pre class="language-r">  if (checkmate::test_flag(indent)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">2820<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">403</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(y)</pre>
+                      <pre class="language-r">    warning("indent argument is now accepting integers. Boolean indent will be converted to integers.")</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">404</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    indent &lt;- as.integer(indent)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">405</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">406</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Define a tolerance</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">2820<em>x</em></td>
+                    <td class="num">407</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tolerance &lt;- .Machine$double.eps</pre>
+                      <pre class="language-r">  checkmate::assert_data_frame(df)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">408</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_character(vars)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">409</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_count(indent)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">410</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
+                  <tr class="covered">
+                    <td class="num">411</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  lab &lt;- formatters::var_labels(df[vars], fill = TRUE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">412</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  lab &lt;- paste(lab, collapse = " / ")</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">413</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  space &lt;- paste(rep(" ", indent * 2), collapse = "")</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">414</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  lab &lt;- paste0(space, lab)</pre>
+                    </td>
+                  </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">415</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Check if x is close enough to y</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">2820<em>x</em></td>
+                    <td class="num">416</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  abs(x - y) &lt; tolerance</pre>
+                      <pre class="language-r">  append_topleft(lyt, lab)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">417</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">418</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">419</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Make names without dots</pre>
+                      <pre class="language-r">#' Default string replacement for `NA` values</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">420</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">421</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param nams (`character`)\cr vector of original names.</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">422</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">423</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `character` `vector` of proper names, which does not use dots in contrast to [make.names()].</pre>
+                      <pre class="language-r">#' The default string used to represent `NA` values. This value is used as the default</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">424</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' value for the `na_str` argument throughout the `tern` package, and printed in place</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">425</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' of `NA` values in output tables. If not specified for each `tern` function by the user</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">426</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">make_names &lt;- function(nams) {</pre>
+                      <pre class="language-r">#' via the `na_str` argument, or in the R environment options via [set_default_na_str()],</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">427</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  orig &lt;- make.names(nams)</pre>
+                      <pre class="language-r">#' then `NA` is used.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">428</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  gsub(".", "", x = orig, fixed = TRUE)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">429</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @param na_str (`string`)\cr single string value to set in the R environment options as</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">430</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   the default value to replace `NA`s. Use `getOption("tern_default_na_str")` to check the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">431</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Conversion of months to days</pre>
+                      <pre class="language-r">#'   current value set in the R environment (defaults to `NULL` if not set).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">432</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">433</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' @name default_na_str</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">434</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">435</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Conversion of months to days. This is an approximative calculation because it</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">436</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' considers each month as having an average of 30.4375 days.</pre>
+                      <pre class="language-r">#' @describeIn default_na_str Accessor for default `NA` value replacement string.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">437</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">438</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`numeric(1)`)\cr time in months.</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">439</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' * `default_na_str` returns the current value if an R environment option has been set</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">440</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `numeric` vector with the time in days.</pre>
+                      <pre class="language-r">#'   for `"tern_default_na_str"`, or `NA_character_` otherwise.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">441</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">442</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">443</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x &lt;- c(13.25, 8.15, 1, 2.834)</pre>
+                      <pre class="language-r">#' # Default settings</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">444</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' month2day(x)</pre>
+                      <pre class="language-r">#' default_na_str()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">445</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' getOption("tern_default_na_str")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">446</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">447</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">month2day &lt;- function(x) {</pre>
+                      <pre class="language-r">#' # Set custom value</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">194</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">448</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(x)</pre>
+                      <pre class="language-r">#' set_default_na_str("&lt;Missing&gt;")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">449</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x * 30.4375</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">450</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' # Settings after value has been set</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">451</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' default_na_str()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">452</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Conversion of days to months</pre>
+                      <pre class="language-r">#' getOption("tern_default_na_str")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">453</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">454</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`numeric(1)`)\cr time in days.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">455</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">default_na_str &lt;- function() {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">456</td>
+                    <td class="coverage">331<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  getOption("tern_default_na_str", default = NA_character_)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">457</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `numeric` vector with the time in months.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">458</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">459</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @describeIn default_na_str Setter for default `NA` value replacement string. Sets the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">205</td>
+                    <td class="num">460</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x &lt;- c(403, 248, 30, 86)</pre>
+                      <pre class="language-r">#'   option `"tern_default_na_str"` within the R environment.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">461</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' day2month(x)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">462</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @return</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">463</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' * `set_default_na_str` has no return value.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">464</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">465</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">466</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">day2month &lt;- function(x) {</pre>
+                      <pre class="language-r">set_default_na_str &lt;- function(na_str) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">467</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(x)</pre>
+                      <pre class="language-r">  checkmate::assert_character(na_str, len = 1, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">468</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x / 30.4375</pre>
+                      <pre class="language-r">  options("tern_default_na_str" = na_str)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">469</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/prop_diff_test.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Difference test for two proportions</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Return an empty numeric if all elements are `NA`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">3</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`numeric`)\cr vector.</pre>
+                      <pre class="language-r">#' The analyze function [test_proportion_diff()] creates a layout element to test the difference between two</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' proportions. The primary analysis variable, `vars`, indicates whether a response has occurred for each record. See</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">218</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return An empty `numeric` if all elements of `x` are `NA`, otherwise `x`.</pre>
+                      <pre class="language-r">#' the `method` parameter for options of methods to use to calculate the p-value. Additionally, a stratification</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">219</td>
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' variable can be supplied via the `strata` element of the `variables` argument.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x &lt;- c(NA, NA, NA)</pre>
+                      <pre class="language-r">#' @param method (`string`)\cr one of `chisq`, `cmh`, `fisher`, or `schouten`; specifies the test used</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Internal function - empty_vector_if_na</pre>
+                      <pre class="language-r">#'   to calculate the p-value.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">223</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("test_proportion_diff")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">empty_vector_if_na &lt;- function(x) {</pre>
+                      <pre class="language-r">#'   to see available statistics for this function.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">225</td>
-                    <td class="coverage">1017<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">15</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (all(is.na(x))) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">310<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">16</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    numeric()</pre>
+                      <pre class="language-r">#' @seealso [h_prop_diff_test]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">707<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x</pre>
+                      <pre class="language-r">#' @name prop_diff_test</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @order 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">231</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Element-wise combination of two vectors</pre>
+                      <pre class="language-r">#' @describeIn prop_diff_test Statistics function which tests the difference between two proportions.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">234</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`vector`)\cr first vector to combine.</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param y (`vector`)\cr second vector to combine.</pre>
+                      <pre class="language-r">#' * `s_test_proportion_diff()` returns a named `list` with a single item `pval` with an attribute `label`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">26</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   describing the method used. The p-value tests the null hypothesis that proportions in two groups are the same.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">237</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `list` where each element combines corresponding elements of `x` and `y`.</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">238</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">s_test_proportion_diff &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">                                   .var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' combine_vectors(1:3, 4:6)</pre>
+                      <pre class="language-r">                                   .ref_group,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">241</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                   .in_ref_col,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">242</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                                   variables = list(strata = NULL),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">combine_vectors &lt;- function(x, y) {</pre>
+                      <pre class="language-r">                                   method = c("chisq", "schouten", "fisher", "cmh")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">244</td>
-                    <td class="coverage">51<em>x</em></td>
+                    <td class="num">35</td>
+                    <td class="coverage">45<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_vector(x)</pre>
+                      <pre class="language-r">  method &lt;- match.arg(method)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">245</td>
-                    <td class="coverage">51<em>x</em></td>
+                    <td class="num">36</td>
+                    <td class="coverage">45<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_vector(y, len = length(x))</pre>
+                      <pre class="language-r">  y &lt;- list(pval = "")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">247</td>
-                    <td class="coverage">51<em>x</em></td>
+                    <td class="num">38</td>
+                    <td class="coverage">45<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result &lt;- lapply(as.data.frame(rbind(x, y)), `c`)</pre>
+                      <pre class="language-r">  if (!.in_ref_col) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">248</td>
-                    <td class="coverage">51<em>x</em></td>
+                    <td class="num">39</td>
+                    <td class="coverage">45<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  names(result) &lt;- NULL</pre>
+                      <pre class="language-r">    assert_df_with_variables(df, list(rsp = .var))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">249</td>
-                    <td class="coverage">51<em>x</em></td>
+                    <td class="num">40</td>
+                    <td class="coverage">45<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result</pre>
+                      <pre class="language-r">    assert_df_with_variables(.ref_group, list(rsp = .var))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">250</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">41</td>
+                    <td class="coverage">45<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    rsp &lt;- factor(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">251</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">42</td>
+                    <td class="coverage">45<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      c(.ref_group[[.var]], df[[.var]]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">252</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">43</td>
+                    <td class="coverage">45<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Extract elements by name</pre>
+                      <pre class="language-r">      levels = c("TRUE", "FALSE")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">253</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">254</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">45</td>
+                    <td class="coverage">45<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This utility function extracts elements from a vector `x` by `names`.</pre>
+                      <pre class="language-r">    grp &lt;- factor(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">255</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">46</td>
+                    <td class="coverage">45<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Differences to the standard `[` function are:</pre>
+                      <pre class="language-r">      rep(c("ref", "Not-ref"), c(nrow(.ref_group), nrow(df))),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">256</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">47</td>
+                    <td class="coverage">45<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      levels = c("ref", "Not-ref")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - If `x` is `NULL`, then still always `NULL` is returned (same as in base function).</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' - If `x` is not `NULL`, then the intersection of its names is made with `names` and those</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">259</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">50</td>
+                    <td class="coverage">45<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   elements are returned. That is, `names` which don't appear in `x` are not returned as `NA`s.</pre>
+                      <pre class="language-r">    if (!is.null(variables$strata) || method == "cmh") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">260</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">51</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      strata &lt;- variables$strata</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">261</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">52</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (named `vector`)\cr where to extract named elements from.</pre>
+                      <pre class="language-r">      checkmate::assert_false(is.null(strata))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">262</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">53</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param names (`character`)\cr vector of names to extract.</pre>
+                      <pre class="language-r">      strata_vars &lt;- stats::setNames(as.list(strata), strata)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">263</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">54</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      assert_df_with_variables(df, strata_vars)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">264</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">55</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `NULL` if `x` is `NULL`, otherwise the extracted elements from `x`.</pre>
+                      <pre class="language-r">      assert_df_with_variables(.ref_group, strata_vars)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">265</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">56</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      strata &lt;- c(interaction(.ref_group[strata]), interaction(df[strata]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">266</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">extract_by_name &lt;- function(x, names) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">268</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">59</td>
+                    <td class="coverage">45<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(x)) {</pre>
+                      <pre class="language-r">    tbl &lt;- switch(method,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">269</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">60</td>
+                    <td class="coverage">45<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(NULL)</pre>
+                      <pre class="language-r">      cmh = table(grp, rsp, strata),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">61</td>
+                    <td class="coverage">45<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      table(grp, rsp)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">63</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">271</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">64</td>
+                    <td class="coverage">45<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_named(x)</pre>
+                      <pre class="language-r">    y$pval &lt;- switch(method,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">272</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">65</td>
+                    <td class="coverage">45<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(names)</pre>
+                      <pre class="language-r">      chisq = prop_chisq(tbl),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">273</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">66</td>
+                    <td class="coverage">45<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  which_extract &lt;- intersect(names(x), names)</pre>
+                      <pre class="language-r">      cmh = prop_cmh(tbl),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">274</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">67</td>
+                    <td class="coverage">45<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(which_extract) &gt; 0) {</pre>
+                      <pre class="language-r">      fisher = prop_fisher(tbl),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">275</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">68</td>
+                    <td class="coverage">45<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x[which_extract]</pre>
+                      <pre class="language-r">      schouten = prop_schouten(tbl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">276</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">277</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    NULL</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">72</td>
+                    <td class="coverage">45<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  y$pval &lt;- formatters::with_label(y$pval, d_test_proportion_diff(method))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">73</td>
+                    <td class="coverage">45<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  y</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">281</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Labels for adverse event baskets</pre>
+                      <pre class="language-r">#' Description of the difference test between two proportions</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">282</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">283</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">284</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">285</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param aesi (`character`)\cr vector with standardized MedDRA query name (e.g. `SMQxxNAM`) or customized query</pre>
+                      <pre class="language-r">#' This is an auxiliary function that describes the analysis in `s_test_proportion_diff`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   name (e.g. `CQxxNAM`).</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param scope (`character`)\cr vector with scope of query (e.g. `SMQxxSC`).</pre>
+                      <pre class="language-r">#' @inheritParams s_test_proportion_diff</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">289</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `string` with the standard label for the AE basket.</pre>
+                      <pre class="language-r">#' @return A `string` describing the test from which the p-value is derived.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">291</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">292</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adae &lt;- tern_ex_adae</pre>
+                      <pre class="language-r">d_test_proportion_diff &lt;- function(method) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">293</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">88</td>
+                    <td class="coverage">59<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_string(method)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">294</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">89</td>
+                    <td class="coverage">59<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Standardized query label includes scope.</pre>
+                      <pre class="language-r">  meth_part &lt;- switch(method,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">295</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">90</td>
+                    <td class="coverage">59<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' aesi_label(adae$SMQ01NAM, scope = adae$SMQ01SC)</pre>
+                      <pre class="language-r">    "schouten" = "Chi-Squared Test with Schouten Correction",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">91</td>
+                    <td class="coverage">59<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    "chisq" = "Chi-Squared Test",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">92</td>
+                    <td class="coverage">59<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    "cmh" = "Cochran-Mantel-Haenszel Test",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">93</td>
+                    <td class="coverage">59<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    "fisher" = "Fisher's Exact Test",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">94</td>
+                    <td class="coverage">59<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    stop(paste(method, "does not have a description"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">96</td>
+                    <td class="coverage">59<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  paste0("p-value (", meth_part, ")")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Customized query label.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">298</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' aesi_label(adae$CQ01NAM)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">299</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @describeIn prop_diff_test Formatted analysis function which is used as `afun` in `test_proportion_diff()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">300</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">301</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">aesi_label &lt;- function(aesi, scope = NULL) {</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">302</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">102</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(aesi)</pre>
+                      <pre class="language-r">#' * `a_test_proportion_diff()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">303</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">103</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(scope, null.ok = TRUE)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">304</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">104</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  aesi_label &lt;- obj_label(aesi)</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">305</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">105</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  aesi &lt;- sas_na(aesi)</pre>
+                      <pre class="language-r">a_test_proportion_diff &lt;- make_afun(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">306</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">106</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  aesi &lt;- unique(aesi)[!is.na(unique(aesi))]</pre>
+                      <pre class="language-r">  s_test_proportion_diff,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">307</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  .formats = c(pval = "x.xxxx | (&lt;0.0001)"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">308</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">108</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lbl &lt;- if (length(aesi) == 1 &amp;&amp; !is.null(scope)) {</pre>
+                      <pre class="language-r">  .indent_mods = c(pval = 1L)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">309</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">109</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    scope &lt;- sas_na(scope)</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">310</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">110</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    scope &lt;- unique(scope)[!is.na(unique(scope))]</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">311</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">111</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_string(scope)</pre>
+                      <pre class="language-r">#' @describeIn prop_diff_test Layout-creating function which can take statistics function arguments</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">312</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">112</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste0(aesi, " (", scope, ")")</pre>
+                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">313</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">113</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (length(aesi) == 1 &amp;&amp; is.null(scope)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">314</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">114</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    aesi</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">315</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' * `test_proportion_diff()` returns a layout object suitable for passing to further layouting functions,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">316</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">116</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    aesi_label</pre>
+                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">317</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   the statistics from `s_test_proportion_diff()` to the table layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">318</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">319</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">119</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lbl</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">320</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' dta &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">321</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   rsp = sample(c(TRUE, FALSE), 100, TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">322</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Indicate study arm variable in formula</pre>
+                      <pre class="language-r">#'   grp = factor(rep(c("A", "B"), each = 50)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">323</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   strata = factor(rep(c("V", "W", "X", "Y", "Z"), each = 20))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">324</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' We use `study_arm` to indicate the study arm variable in `tern` formulas.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">325</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">326</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x arm information</pre>
+                      <pre class="language-r">#' # With `rtables` pipelines.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">327</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' l &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">328</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `x`</pre>
+                      <pre class="language-r">#'   split_cols_by(var = "grp", ref_group = "B") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">329</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   test_proportion_diff(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">330</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'     vars = "rsp",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">331</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">study_arm &lt;- function(x) {</pre>
+                      <pre class="language-r">#'     method = "cmh", variables = list(strata = "strata")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">332</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">132</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  structure(x, varname = deparse(substitute(x)))</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">333</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">334</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' build_table(l, df = dta)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">335</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Smooth function with optional grouping</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">336</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">337</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' @order 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">338</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">test_proportion_diff &lt;- function(lyt,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">339</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This produces `loess` smoothed estimates of `y` with Student confidence intervals.</pre>
+                      <pre class="language-r">                                 vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">340</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                 variables = list(strata = NULL),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">341</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param df (`data.frame`)\cr data set containing all analysis variables.</pre>
+                      <pre class="language-r">                                 method = c("chisq", "schouten", "fisher", "cmh"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">342</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`string`)\cr x column name.</pre>
+                      <pre class="language-r">                                 na_str = default_na_str(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">343</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param y (`string`)\cr y column name.</pre>
+                      <pre class="language-r">                                 nested = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">344</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param groups (`character` or `NULL`)\cr vector with optional grouping variables names.</pre>
+                      <pre class="language-r">                                 ...,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">345</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param level (`proportion`)\cr level of confidence interval to use (0.95 by default).</pre>
+                      <pre class="language-r">                                 var_labels = vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">346</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                 show_labels = "hidden",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">347</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `data.frame` with original `x`, smoothed `y`, `ylow`, and `yhigh`, and</pre>
+                      <pre class="language-r">                                 table_names = vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">348</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   optional `groups` variables formatted as `factor` type.</pre>
+                      <pre class="language-r">                                 .stats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">349</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                 .formats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">350</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                                 .labels = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">351</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_smooths &lt;- function(df, x, y, groups = NULL, level = 0.95) {</pre>
+                      <pre class="language-r">                                 .indent_mods = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">352</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">152</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(df)</pre>
+                      <pre class="language-r">  extra_args &lt;- list(variables = variables, method = method, ...)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">353</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">153</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df_cols &lt;- colnames(df)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">354</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">154</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(x)</pre>
+                      <pre class="language-r">  afun &lt;- make_afun(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">355</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">155</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(x, df_cols)</pre>
+                      <pre class="language-r">    a_test_proportion_diff,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">356</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">156</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(df[[x]])</pre>
+                      <pre class="language-r">    .stats = .stats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">357</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">157</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(y)</pre>
+                      <pre class="language-r">    .formats = .formats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">358</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">158</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(y, df_cols)</pre>
+                      <pre class="language-r">    .labels = .labels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">359</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">159</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(df[[y]])</pre>
+                      <pre class="language-r">    .indent_mods = .indent_mods</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">360</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">361</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">161</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(groups)) {</pre>
+                      <pre class="language-r">  analyze(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">362</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">162</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_character(groups)</pre>
+                      <pre class="language-r">    lyt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">363</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_subset(groups, df_cols)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">364</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">365</td>
-                    <td class="coverage"></td>
+                    <td class="num">163</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    vars,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">366</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">164</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  smooths &lt;- function(x, y) {</pre>
+                      <pre class="language-r">    afun = afun,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">367</td>
-                    <td class="coverage">18<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    stats::predict(stats::loess(y ~ x), se = TRUE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">368</td>
-                    <td class="coverage"></td>
+                    <td class="num">165</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    var_labels = var_labels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">369</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">166</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    na_str = na_str,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">370</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">167</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(groups)) {</pre>
+                      <pre class="language-r">    nested = nested,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">371</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">168</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    cc &lt;- stats::complete.cases(df[c(x, y, groups)])</pre>
+                      <pre class="language-r">    extra_args = extra_args,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">372</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">169</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_c &lt;- df[cc, c(x, y, groups)]</pre>
+                      <pre class="language-r">    show_labels = show_labels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">373</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">170</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_c_ordered &lt;- df_c[do.call("order", as.list(df_c[, groups, drop = FALSE])), , drop = FALSE]</pre>
+                      <pre class="language-r">    table_names = table_names</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">374</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">171</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_c_g &lt;- data.frame(Map(as.factor, df_c_ordered[groups]))</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">375</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">376</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">173</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_smooth_raw &lt;-</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">377</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">174</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      by(df_c_ordered, df_c_g, function(d) {</pre>
+                      <pre class="language-r">#' Helper functions to test proportion differences</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">378</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">175</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plx &lt;- smooths(d[[x]], d[[y]])</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">379</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">176</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data.frame(</pre>
+                      <pre class="language-r">#' Helper functions to implement various tests on the difference between two proportions.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">380</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">177</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = d[[x]],</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">381</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">178</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          y = plx$fit,</pre>
+                      <pre class="language-r">#' @param tbl (`matrix`)\cr matrix with two groups in rows and the binary response (`TRUE`/`FALSE`) in columns.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">382</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">179</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ylow = plx$fit - stats::qt(level, plx$df) * plx$se.fit,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">383</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">180</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          yhigh = plx$fit + stats::qt(level, plx$df) * plx$se.fit</pre>
+                      <pre class="language-r">#' @return A p-value.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">384</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">385</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      })</pre>
+                      <pre class="language-r">#' @seealso [prop_diff_test()] for implementation of these helper functions.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">386</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">387</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">184</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_smooth &lt;- do.call(rbind, df_smooth_raw)</pre>
+                      <pre class="language-r">#' @name h_prop_diff_test</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">388</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">185</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_smooth[groups] &lt;- df_c_g</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">389</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">390</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">187</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_smooth</pre>
+                      <pre class="language-r">#' @describeIn h_prop_diff_test Performs Chi-Squared test. Internally calls [stats::prop.test()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">391</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">392</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">189</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    cc &lt;- stats::complete.cases(df[c(x, y)])</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">393</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">190</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_c &lt;- df[cc, ]</pre>
+                      <pre class="language-r">prop_chisq &lt;- function(tbl) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">394</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    plx &lt;- smooths(df_c[[x]], df_c[[y]])</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">395</td>
-                    <td class="coverage"></td>
+                    <td class="num">191</td>
+                    <td class="coverage">41<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  checkmate::assert_integer(c(ncol(tbl), nrow(tbl)), lower = 2, upper = 2)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">396</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">192</td>
+                    <td class="coverage">41<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_smooth &lt;- data.frame(</pre>
+                      <pre class="language-r">  tbl &lt;- tbl[, c("TRUE", "FALSE")]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">397</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">193</td>
+                    <td class="coverage">41<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = df_c[[x]],</pre>
+                      <pre class="language-r">  if (any(colSums(tbl) == 0)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">398</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">194</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y = plx$fit,</pre>
+                      <pre class="language-r">    return(1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">399</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">195</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ylow = plx$fit - stats::qt(level, plx$df) * plx$se.fit,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">400</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">196</td>
+                    <td class="coverage">39<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      yhigh = plx$fit + stats::qt(level, plx$df) * plx$se.fit</pre>
+                      <pre class="language-r">  stats::prop.test(tbl, correct = FALSE)$p.value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">401</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">402</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">403</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">199</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_smooth</pre>
+                      <pre class="language-r">#' @describeIn h_prop_diff_test Performs stratified Cochran-Mantel-Haenszel test. Internally calls</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">404</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   [stats::mantelhaen.test()]. Note that strata with less than two observations are automatically discarded.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">405</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">406</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param ary (`array`, 3 dimensions)\cr array with two groups in rows, the binary response</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">407</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Number of available (non-missing entries) in a vector</pre>
+                      <pre class="language-r">#'   (`TRUE`/`FALSE`) in columns, and the strata in the third dimension.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">408</td>
+                    <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">409</td>
+                    <td class="num">205</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Small utility function for better readability.</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">410</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">prop_cmh &lt;- function(ary) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">411</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">207</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`vector`)\cr vector in which to count non-missing values.</pre>
+                      <pre class="language-r">  checkmate::assert_array(ary)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">412</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">208</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_integer(c(ncol(ary), nrow(ary)), lower = 2, upper = 2)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">413</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">209</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Number of non-missing values.</pre>
+                      <pre class="language-r">  checkmate::assert_integer(length(dim(ary)), lower = 3, upper = 3)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">414</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">210</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  strata_sizes &lt;- apply(ary, MARGIN = 3, sum)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">211</td>
+                    <td class="coverage">16<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (any(strata_sizes &lt; 5)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">212</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    warning("&lt;5 data points in some strata. CMH test may be incorrect.")</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">213</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ary &lt;- ary[, , strata_sizes &gt; 1]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">415</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">416</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">n_available &lt;- function(x) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">417</td>
-                    <td class="coverage">351<em>x</em></td>
+                    <td class="num">216</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  sum(!is.na(x))</pre>
+                      <pre class="language-r">  stats::mantelhaen.test(ary, correct = FALSE)$p.value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">418</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">419</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">420</td>
+                    <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Reapply variable labels</pre>
+                      <pre class="language-r">#' @describeIn h_prop_diff_test Performs the Chi-Squared test with Schouten correction.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">421</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">422</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This is a helper function that is used in tests.</pre>
+                      <pre class="language-r">#' @seealso Schouten correction is based upon \insertCite{Schouten1980-kd;textual}{tern}.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">423</td>
+                    <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">424</td>
+                    <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`vector`)\cr vector of elements that needs new labels.</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">425</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param varlabels (`character`)\cr vector of labels for `x`.</pre>
+                      <pre class="language-r">prop_schouten &lt;- function(tbl) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">426</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">225</td>
+                    <td class="coverage">100<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... further parameters to be added to the list.</pre>
+                      <pre class="language-r">  checkmate::assert_integer(c(ncol(tbl), nrow(tbl)), lower = 2, upper = 2)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">427</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">226</td>
+                    <td class="coverage">100<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  tbl &lt;- tbl[, c("TRUE", "FALSE")]</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">227</td>
+                    <td class="coverage">100<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (any(colSums(tbl) == 0)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">228</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    return(1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">428</td>
+                    <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `x` with variable labels reapplied.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">429</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">231</td>
+                    <td class="coverage">99<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  n &lt;- sum(tbl)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">232</td>
+                    <td class="coverage">99<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  n1 &lt;- sum(tbl[1, ])</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">233</td>
+                    <td class="coverage">99<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  n2 &lt;- sum(tbl[2, ])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">430</td>
+                    <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">235</td>
+                    <td class="coverage">99<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  ad &lt;- diag(tbl)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">236</td>
+                    <td class="coverage">99<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  bc &lt;- diag(apply(tbl, 2, rev))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">237</td>
+                    <td class="coverage">99<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  ac &lt;- tbl[, 1]</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">238</td>
+                    <td class="coverage">99<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  bd &lt;- tbl[, 2]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">431</td>
+                    <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">reapply_varlabels &lt;- function(x, varlabels, ...) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">432</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">240</td>
+                    <td class="coverage">99<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  named_labels &lt;- c(as.list(varlabels), list(...))</pre>
+                      <pre class="language-r">  t_schouten &lt;- (n - 1) *</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">433</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">241</td>
+                    <td class="coverage">99<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  formatters::var_labels(x)[names(named_labels)] &lt;- as.character(named_labels)</pre>
+                      <pre class="language-r">    (abs(prod(ad) - prod(bc)) - 0.5 * min(n1, n2))^2 /</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">434</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">242</td>
+                    <td class="coverage">99<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x</pre>
+                      <pre class="language-r">    (n1 * n2 * sum(ac) * sum(bd))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">435</td>
+                    <td class="num">243</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">244</td>
+                    <td class="coverage">99<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  1 - stats::pchisq(t_schouten, df = 1)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">436</td>
+                    <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">437</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># Wrapper function of survival::clogit so that when model fitting failed, a more useful message would show</pre>
+                      <pre class="language-r">#' @describeIn h_prop_diff_test Performs the Fisher's exact test. Internally calls [stats::fisher.test()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">438</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">clogit_with_tryCatch &lt;- function(formula, data, ...) { # nolint</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">439</td>
-                    <td class="coverage">33<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">249</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tryCatch(</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">250</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">prop_fisher &lt;- function(tbl) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">440</td>
-                    <td class="coverage">33<em>x</em></td>
+                    <td class="num">251</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    survival::clogit(formula = formula, data = data, ...),</pre>
+                      <pre class="language-r">  checkmate::assert_integer(c(ncol(tbl), nrow(tbl)), lower = 2, upper = 2)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">441</td>
-                    <td class="coverage">33<em>x</em></td>
+                    <td class="num">252</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    error = function(e) stop("model not built successfully with survival::clogit")</pre>
+                      <pre class="language-r">  tbl &lt;- tbl[, c("TRUE", "FALSE")]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">442</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">253</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  stats::fisher.test(tbl)$p.value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">443</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -73182,14 +74371,14 @@ <h2>tern coverage - 95.64%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/utils_grid.R" class="hidden">
+            <div id="R/estimate_proportion.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Stack multiple grobs</pre>
+                      <pre class="language-r">#' Proportion estimation</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -73203,7 +74392,7 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -73217,518 +74406,518 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Stack grobs as a new grob with 1 column and multiple rows layout.</pre>
+                      <pre class="language-r">#' The analyze function [estimate_proportion()] creates a layout element to estimate the proportion of responders</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' within a studied population. The primary analysis variable, `vars`, indicates whether a response has occurred for</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... grobs.</pre>
+                      <pre class="language-r">#' each record. See the `method` parameter for options of methods to use when constructing the confidence interval of</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param grobs (`list` of `grob`)\cr a list of grobs.</pre>
+                      <pre class="language-r">#' the proportion. Additionally, a stratification variable can be supplied via the `strata` element of the `variables`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param padding (`grid::unit`)\cr unit of length 1, space between each grob.</pre>
+                      <pre class="language-r">#' argument.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param vp (`viewport` or `NULL`)\cr a [viewport()] object (or `NULL`).</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param name (`string`)\cr a character identifier for the grob.</pre>
+                      <pre class="language-r">#' @inheritParams prop_strat_wilson</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param gp (`gpar`)\cr a [gpar()] object.</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("estimate_proportion")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `grob`.</pre>
+                      <pre class="language-r">#'   to see available statistics for this function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param method (`string`)\cr the method used to construct the confidence interval</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   for proportion of successful outcomes; one of `waldcc`, `wald`, `clopper-pearson`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(grid)</pre>
+                      <pre class="language-r">#'   `wilson`, `wilsonc`, `strat_wilson`, `strat_wilsonc`, `agresti-coull` or `jeffreys`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param long (`flag`)\cr whether a long description is required.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g1 &lt;- circleGrob(gp = gpar(col = "blue"))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g2 &lt;- circleGrob(gp = gpar(col = "red"))</pre>
+                      <pre class="language-r">#' @seealso [h_proportions]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g3 &lt;- textGrob("TEST TEXT")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.newpage()</pre>
+                      <pre class="language-r">#' @name estimate_proportion</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.draw(stack_grobs(g1, g2, g3))</pre>
+                      <pre class="language-r">#' @order 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' showViewport()</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @describeIn estimate_proportion Statistics function estimating a</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.newpage()</pre>
+                      <pre class="language-r">#'   proportion along with its confidence interval.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' pushViewport(viewport(layout = grid.layout(1, 2)))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' vp1 &lt;- viewport(layout.pos.row = 1, layout.pos.col = 2)</pre>
+                      <pre class="language-r">#' @param df (`logical` or `data.frame`)\cr if only a logical vector is used,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.draw(stack_grobs(g1, g2, g3, vp = vp1, name = "test"))</pre>
+                      <pre class="language-r">#'   it indicates whether each subject is a responder or not. `TRUE` represents</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   a successful outcome. If a `data.frame` is provided, also the `strata` variable</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' showViewport()</pre>
+                      <pre class="language-r">#'   names must be provided in `variables` as a list element with the strata strings.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.ls(grobs = TRUE, viewports = TRUE, print = FALSE)</pre>
+                      <pre class="language-r">#'   In the case of `data.frame`, the logical vector of responses must be indicated as a</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   variable name in `.var`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">stack_grobs &lt;- function(...,</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        grobs = list(...),</pre>
+                      <pre class="language-r">#' * `s_proportion()` returns statistics `n_prop` (`n` and proportion) and `prop_ci` (proportion CI) for a</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        padding = grid::unit(2, "line"),</pre>
+                      <pre class="language-r">#'   given variable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        vp = NULL,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        gp = NULL,</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        name = NULL) {</pre>
+                      <pre class="language-r">#' # Case with only logical vector.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">42</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
+                      <pre class="language-r">#' rsp_v &lt;- c(1, 0, 1, 0, 1, 1, 0, 0)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">43</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "0.9.4",</pre>
+                      <pre class="language-r">#' s_proportion(rsp_v)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">44</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "stack_grobs()",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">45</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    details = "`tern` plotting functions no longer generate `grob` objects."</pre>
+                      <pre class="language-r">#' # Example for Stratified Wilson CI</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' nex &lt;- 100 # Number of example rows</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' dta &lt;- data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">48</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(</pre>
+                      <pre class="language-r">#'   "rsp" = sample(c(TRUE, FALSE), nex, TRUE),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">49</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    all(vapply(grobs, grid::is.grob, logical(1)))</pre>
+                      <pre class="language-r">#'   "grp" = sample(c("A", "B"), nex, TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'   "f1" = sample(c("a1", "a2"), nex, TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   "f2" = sample(c("x", "y", "z"), nex, TRUE),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">52</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(grobs) == 1) {</pre>
+                      <pre class="language-r">#'   stringsAsFactors = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">53</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(grobs[[1]])</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' s_proportion(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">56</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n_layout &lt;- 2 * length(grobs) - 1</pre>
+                      <pre class="language-r">#'   df = dta,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">57</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  hts &lt;- lapply(</pre>
+                      <pre class="language-r">#'   .var = "rsp",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">58</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    seq(1, n_layout),</pre>
+                      <pre class="language-r">#'   variables = list(strata = c("f1", "f2")),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">59</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    function(i) {</pre>
+                      <pre class="language-r">#'   conf_level = 0.90,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">60</td>
-                    <td class="coverage">39<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (i %% 2 != 0) {</pre>
+                      <pre class="language-r">#'   method = "strat_wilson"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">61</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        grid::unit(1, "null")</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">63</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        padding</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">s_proportion &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">                         .var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">                         conf_level = 0.95,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">67</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  hts &lt;- do.call(grid::unit.c, hts)</pre>
+                      <pre class="language-r">                         method = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                           "waldcc", "wald", "clopper-pearson",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">69</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  main_vp &lt;- grid::viewport(</pre>
+                      <pre class="language-r">                           "wilson", "wilsonc", "strat_wilson", "strat_wilsonc",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">70</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    layout = grid::grid.layout(nrow = n_layout, ncol = 1, heights = hts)</pre>
+                      <pre class="language-r">                           "agresti-coull", "jeffreys"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">                         ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                         weights = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">73</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nested_grobs &lt;- Map(function(g, i) {</pre>
+                      <pre class="language-r">                         max_iterations = 50,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">74</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    grid::gTree(</pre>
+                      <pre class="language-r">                         variables = list(strata = NULL),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">75</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      children = grid::gList(g),</pre>
+                      <pre class="language-r">                         long = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">76</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vp = grid::viewport(layout.pos.row = i, layout.pos.col = 1)</pre>
+                      <pre class="language-r">  method &lt;- match.arg(method)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">77</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  checkmate::assert_flag(long)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">78</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }, grobs, seq_along(grobs) * 2 - 1)</pre>
+                      <pre class="language-r">  assert_proportion_value(conf_level)</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -73740,11720 +74929,11499 @@ <h2>tern coverage - 95.64%</h2>
                   </tr>
                   <tr class="covered">
                     <td class="num">80</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  grobs_mainvp &lt;- grid::gTree(</pre>
+                      <pre class="language-r">  if (!is.null(variables$strata)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">81</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    children = do.call(grid::gList, nested_grobs),</pre>
+                      <pre class="language-r">    # Checks for strata</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">82</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vp = main_vp</pre>
+                      <pre class="language-r">    if (missing(df)) stop("When doing stratified analysis a data.frame with specific columns is needed.")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">83</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    strata_colnames &lt;- variables$strata</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">84</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    checkmate::assert_character(strata_colnames, null.ok = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">85</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  grid::gTree(</pre>
+                      <pre class="language-r">    strata_vars &lt;- stats::setNames(as.list(strata_colnames), strata_colnames)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">86</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    children = grid::gList(grobs_mainvp),</pre>
+                      <pre class="language-r">    assert_df_with_variables(df, strata_vars)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">87</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vp = vp,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">88</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gp = gp,</pre>
+                      <pre class="language-r">    strata &lt;- interaction(df[strata_colnames])</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">89</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    name = name</pre>
+                      <pre class="language-r">    strata &lt;- as.factor(strata)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    # Pushing down checks to prop_strat_wilson</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">92</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  } else if (checkmate::test_subset(method, c("strat_wilson", "strat_wilsonc"))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">93</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Arrange multiple grobs</pre>
+                      <pre class="language-r">    stop("To use stratified methods you need to specify the strata variables.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">95</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
+                      <pre class="language-r">  if (checkmate::test_atomic_vector(df)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">96</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    rsp &lt;- as.logical(df)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Arrange grobs as a new grob with `n * m (rows * cols)` layout.</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">98</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    rsp &lt;- as.logical(df[[.var]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams stack_grobs</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">100</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ncol (`integer(1)`)\cr number of columns in layout.</pre>
+                      <pre class="language-r">  n &lt;- sum(rsp)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">101</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param nrow (`integer(1)`)\cr number of rows in layout.</pre>
+                      <pre class="language-r">  p_hat &lt;- mean(rsp)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param padding_ht (`grid::unit`)\cr unit of length 1, vertical space between each grob.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">103</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param padding_wt (`grid::unit`)\cr unit of length 1, horizontal space between each grob.</pre>
+                      <pre class="language-r">  prop_ci &lt;- switch(method,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">104</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    "clopper-pearson" = prop_clopper_pearson(rsp, conf_level),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">105</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `grob`.</pre>
+                      <pre class="language-r">    "wilson" = prop_wilson(rsp, conf_level),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">106</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    "wilsonc" = prop_wilson(rsp, conf_level, correct = TRUE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">107</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    "strat_wilson" = prop_strat_wilson(rsp,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">108</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(grid)</pre>
+                      <pre class="language-r">      strata,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">109</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      weights,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">110</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' \donttest{</pre>
+                      <pre class="language-r">      conf_level,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">111</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' num &lt;- lapply(1:9, textGrob)</pre>
+                      <pre class="language-r">      max_iterations,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">112</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid::grid.newpage()</pre>
+                      <pre class="language-r">      correct = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">113</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.draw(arrange_grobs(grobs = num, ncol = 2))</pre>
+                      <pre class="language-r">    )$conf_int,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">114</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    "strat_wilsonc" = prop_strat_wilson(rsp,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">115</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' showViewport()</pre>
+                      <pre class="language-r">      strata,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">116</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      weights,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">117</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g1 &lt;- circleGrob(gp = gpar(col = "blue"))</pre>
+                      <pre class="language-r">      conf_level,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">118</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g2 &lt;- circleGrob(gp = gpar(col = "red"))</pre>
+                      <pre class="language-r">      max_iterations,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">119</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g3 &lt;- textGrob("TEST TEXT")</pre>
+                      <pre class="language-r">      correct = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">120</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid::grid.newpage()</pre>
+                      <pre class="language-r">    )$conf_int,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">121</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.draw(arrange_grobs(g1, g2, g3, nrow = 2))</pre>
+                      <pre class="language-r">    "wald" = prop_wald(rsp, conf_level),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">122</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    "waldcc" = prop_wald(rsp, conf_level, correct = TRUE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">123</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' showViewport()</pre>
+                      <pre class="language-r">    "agresti-coull" = prop_agresti_coull(rsp, conf_level),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">124</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    "jeffreys" = prop_jeffreys(rsp, conf_level)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid::grid.newpage()</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.draw(arrange_grobs(g1, g2, g3, ncol = 3))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">127</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">128</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid::grid.newpage()</pre>
+                      <pre class="language-r">    "n_prop" = formatters::with_label(c(n, p_hat), "Responders"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">129</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid::pushViewport(grid::viewport(layout = grid::grid.layout(1, 2)))</pre>
+                      <pre class="language-r">    "prop_ci" = formatters::with_label(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">130</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">167<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' vp1 &lt;- grid::viewport(layout.pos.row = 1, layout.pos.col = 2)</pre>
+                      <pre class="language-r">      x = 100 * prop_ci, label = d_proportion(conf_level, method, long = long)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.draw(arrange_grobs(g1, g2, g3, ncol = 2, vp = vp1))</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' showViewport()</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @describeIn estimate_proportion Formatted analysis function which is used as `afun`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">arrange_grobs &lt;- function(...,</pre>
+                      <pre class="language-r">#'   in `estimate_proportion()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          grobs = list(...),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          ncol = NULL, nrow = NULL,</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          padding_ht = grid::unit(2, "line"),</pre>
+                      <pre class="language-r">#' * `a_proportion()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          padding_wt = grid::unit(2, "line"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          vp = NULL,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          gp = NULL,</pre>
+                      <pre class="language-r">a_proportion &lt;- make_afun(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          name = NULL) {</pre>
+                      <pre class="language-r">  s_proportion,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">144</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
+                      <pre class="language-r">  .formats = c(n_prop = "xx (xx.x%)", prop_ci = "(xx.x, xx.x)")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">145</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "0.9.4",</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">146</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "arrange_grobs()",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">147</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    details = "`tern` plotting functions no longer generate `grob` objects."</pre>
+                      <pre class="language-r">#' @describeIn estimate_proportion Layout-creating function which can take statistics function arguments</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">150</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">151</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    all(vapply(grobs, grid::is.grob, logical(1)))</pre>
+                      <pre class="language-r">#' * `estimate_proportion()` returns a layout object suitable for passing to further layouting functions,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   the statistics from `s_proportion()` to the table layout.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">154</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(grobs) == 1) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">155</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(grobs[[1]])</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' dta_test &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   USUBJID = paste0("S", 1:12),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">158</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(ncol) &amp;&amp; is.null(nrow)) {</pre>
+                      <pre class="language-r">#'   ARM     = rep(LETTERS[1:3], each = 4),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">159</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ncol &lt;- 1</pre>
+                      <pre class="language-r">#'   AVAL    = rep(LETTERS[1:3], each = 4)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">160</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nrow &lt;- ceiling(length(grobs) / ncol)</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">161</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (!is.null(ncol) &amp;&amp; is.null(nrow)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">162</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nrow &lt;- ceiling(length(grobs) / ncol)</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">163</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (is.null(ncol) &amp;&amp; !is.null(nrow)) {</pre>
+                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">164</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ncol &lt;- ceiling(length(grobs) / nrow)</pre>
+                      <pre class="language-r">#'   estimate_proportion(vars = "AVAL") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   build_table(df = dta_test)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">167</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (ncol * nrow &lt; length(grobs)) {</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">168</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("specififed ncol and nrow are not enough for arranging the grobs ")</pre>
+                      <pre class="language-r">#' @order 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">estimate_proportion &lt;- function(lyt,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                vars,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">171</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (ncol == 1) {</pre>
+                      <pre class="language-r">                                conf_level = 0.95,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">172</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(stack_grobs(grobs = grobs, padding = padding_ht, vp = vp, gp = gp, name = name))</pre>
+                      <pre class="language-r">                                method = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                                  "waldcc", "wald", "clopper-pearson",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                  "wilson", "wilsonc", "strat_wilson", "strat_wilsonc",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">175</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n_col &lt;- 2 * ncol - 1</pre>
+                      <pre class="language-r">                                  "agresti-coull", "jeffreys"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">176</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n_row &lt;- 2 * nrow - 1</pre>
+                      <pre class="language-r">                                ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">177</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  hts &lt;- lapply(</pre>
+                      <pre class="language-r">                                weights = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">178</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    seq(1, n_row),</pre>
+                      <pre class="language-r">                                max_iterations = 50,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">179</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    function(i) {</pre>
+                      <pre class="language-r">                                variables = list(strata = NULL),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">180</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (i %% 2 != 0) {</pre>
+                      <pre class="language-r">                                long = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">181</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        grid::unit(1, "null")</pre>
+                      <pre class="language-r">                                na_str = default_na_str(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">                                nested = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">183</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        padding_ht</pre>
+                      <pre class="language-r">                                ...,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">                                show_labels = "hidden",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">                                table_names = vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">                                .stats = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">187</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  hts &lt;- do.call(grid::unit.c, hts)</pre>
+                      <pre class="language-r">                                .formats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                .labels = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">189</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  wts &lt;- lapply(</pre>
+                      <pre class="language-r">                                .indent_mods = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">190</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    seq(1, n_col),</pre>
+                      <pre class="language-r">  extra_args &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">191</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    function(i) {</pre>
+                      <pre class="language-r">    conf_level = conf_level, method = method, weights = weights, max_iterations = max_iterations,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">192</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (i %% 2 != 0) {</pre>
+                      <pre class="language-r">    variables = variables, long = long, ...</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">193</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        grid::unit(1, "null")</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">195</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        padding_wt</pre>
+                      <pre class="language-r">  afun &lt;- make_afun(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">196</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">    a_proportion,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">197</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    .stats = .stats,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">198</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    .formats = .formats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">199</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  wts &lt;- do.call(grid::unit.c, wts)</pre>
+                      <pre class="language-r">    .labels = .labels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">200</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    .indent_mods = .indent_mods</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">201</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  main_vp &lt;- grid::viewport(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">202</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    layout = grid::grid.layout(nrow = n_row, ncol = n_col, widths = wts, heights = hts)</pre>
+                      <pre class="language-r">  analyze(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">203</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    lyt,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">204</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    vars,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">205</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nested_grobs &lt;- list()</pre>
+                      <pre class="language-r">    afun = afun,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">206</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  k &lt;- 0</pre>
+                      <pre class="language-r">    na_str = na_str,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">207</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  for (i in seq(nrow) * 2 - 1) {</pre>
+                      <pre class="language-r">    nested = nested,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">208</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    for (j in seq(ncol) * 2 - 1) {</pre>
+                      <pre class="language-r">    extra_args = extra_args,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">209</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      k &lt;- k + 1</pre>
+                      <pre class="language-r">    show_labels = show_labels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">210</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (k &lt;= length(grobs)) {</pre>
+                      <pre class="language-r">    table_names = table_names</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">211</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nested_grobs &lt;- c(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">212</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          nested_grobs,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">213</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          list(grid::gTree(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">214</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            children = grid::gList(grobs[[k]]),</pre>
+                      <pre class="language-r">#' Helper functions for calculating proportion confidence intervals</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">215</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            vp = grid::viewport(layout.pos.row = i, layout.pos.col = j)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ))</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#' Functions to calculate different proportion confidence intervals for use in [estimate_proportion()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">221</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  grobs_mainvp &lt;- grid::gTree(</pre>
+                      <pre class="language-r">#' @inheritParams estimate_proportion</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">222</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    children = do.call(grid::gList, nested_grobs),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">223</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vp = main_vp</pre>
+                      <pre class="language-r">#' @return Confidence interval of a proportion.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @seealso [estimate_proportion], descriptive function [d_proportion()],</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">226</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  grid::gTree(</pre>
+                      <pre class="language-r">#'  and helper functions [strata_normal_quantile()] and [update_weights_strat_wilson()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">227</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    children = grid::gList(grobs_mainvp),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">228</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vp = vp,</pre>
+                      <pre class="language-r">#' @name h_proportions</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">229</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gp = gp,</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">230</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    name = name</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @describeIn h_proportions Calculates the Wilson interval by calling [stats::prop.test()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'  Also referred to as Wilson score interval.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Draw `grob`</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' rsp &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
+                      <pre class="language-r">#'   TRUE, TRUE, TRUE, TRUE, TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   FALSE, FALSE, FALSE, FALSE, FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">238</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Draw grob on device page.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' prop_wilson(rsp, conf_level = 0.9)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param grob (`grob`)\cr grid object.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param newpage (`flag`)\cr draw on a new page.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param vp (`viewport` or `NULL`)\cr a [viewport()] object (or `NULL`).</pre>
+                      <pre class="language-r">prop_wilson &lt;- function(rsp, conf_level, correct = FALSE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">243</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  y &lt;- stats::prop.test(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">244</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `grob`.</pre>
+                      <pre class="language-r">    sum(rsp),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">245</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    length(rsp),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">246</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    correct = correct,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">247</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">    conf.level = conf_level</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(grid)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">250</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' \donttest{</pre>
+                      <pre class="language-r">  as.numeric(y$conf.int)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' rect &lt;- rectGrob(width = grid::unit(0.5, "npc"), height = grid::unit(0.5, "npc"))</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' rect %&gt;% draw_grob(vp = grid::viewport(angle = 45))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @describeIn h_proportions Calculates the stratified Wilson confidence</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' num &lt;- lapply(1:10, textGrob)</pre>
+                      <pre class="language-r">#'   interval for unequal proportions as described in \insertCite{Yan2010-jt;textual}{tern}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' num %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   arrange_grobs(grobs = .) %&gt;%</pre>
+                      <pre class="language-r">#' @param strata (`factor`)\cr variable with one level per stratum and same length as `rsp`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   draw_grob()</pre>
+                      <pre class="language-r">#' @param weights (`numeric` or `NULL`)\cr weights for each level of the strata. If `NULL`, they are</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">258</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' showViewport()</pre>
+                      <pre class="language-r">#'   estimated using the iterative algorithm proposed in \insertCite{Yan2010-jt;textual}{tern} that</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#'   minimizes the weighted squared length of the confidence interval.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param max_iterations (`count`)\cr maximum number of iterations for the iterative procedure used</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'   to find estimates of optimal weights.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">262</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">draw_grob &lt;- function(grob, newpage = TRUE, vp = NULL) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">263</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">264</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    "0.9.4",</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">265</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    "draw_grob()",</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">266</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    details = "`tern` plotting functions no longer generate `grob` objects."</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">267</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">268</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">269</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (newpage) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">270</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    grid::grid.newpage()</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">271</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">272</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(vp)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">273</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    grid::pushViewport(vp)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">274</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">275</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  grid::grid.draw(grob)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">276</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">277</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">278</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">tern_grob &lt;- function(x) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">279</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  class(x) &lt;- unique(c("ternGrob", class(x)))</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">280</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  x</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">281</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">282</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">283</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">284</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">print.ternGrob &lt;- function(x, ...) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">285</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  grid::grid.newpage()</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">286</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  grid::grid.draw(x)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">287</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
-                    </td>
-                  </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/decorate_grob.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' Add titles, footnotes, page Number, and a bounding box to a grid grob</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param correct (`flag`)\cr whether to include the continuity correction. For further information, see for example</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#'   for [stats::prop.test()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">265</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function is useful to label grid grobs (also `ggplot2`, and `lattice` plots)</pre>
+                      <pre class="language-r">#' @references</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">266</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' with title, footnote, and page numbers.</pre>
+                      <pre class="language-r">#' \insertRef{Yan2010-jt}{tern}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">267</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">268</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams grid::grob</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param grob (`grob`)\cr a grid grob object, optionally `NULL` if only a `grob` with the decoration should be shown.</pre>
+                      <pre class="language-r">#' # Stratified Wilson confidence interval with unequal probabilities</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">270</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param titles (`character`)\cr titles given as a vector of strings that are each separated by a newline and wrapped</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">271</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   according to the page width.</pre>
+                      <pre class="language-r">#' set.seed(1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">272</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param footnotes (`character`)\cr footnotes. Uses the same formatting rules as `titles`.</pre>
+                      <pre class="language-r">#' rsp &lt;- sample(c(TRUE, FALSE), 100, TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">273</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param page (`string` or `NULL`)\cr page numeration. If `NULL` then no page number is displayed.</pre>
+                      <pre class="language-r">#' strata_data &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">274</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param width_titles (`grid::unit`)\cr width of titles. Usually defined as all the available space</pre>
+                      <pre class="language-r">#'   "f1" = sample(c("a", "b"), 100, TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">275</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `grid::unit(1, "npc")`, it is affected by the parameter `outer_margins`. Right margins (`outer_margins[4]`)</pre>
+                      <pre class="language-r">#'   "f2" = sample(c("x", "y", "z"), 100, TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">276</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   need to be subtracted to the allowed width.</pre>
+                      <pre class="language-r">#'   stringsAsFactors = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">277</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param width_footnotes (`grid::unit`)\cr width of footnotes. Same default and margin correction as `width_titles`.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param border (`flag`)\cr whether a border should be drawn around the plot or not.</pre>
+                      <pre class="language-r">#' strata &lt;- interaction(strata_data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">279</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param padding (`grid::unit`)\cr padding. A unit object of length 4. Innermost margin between the plot (`grob`)</pre>
+                      <pre class="language-r">#' n_strata &lt;- ncol(table(rsp, strata)) # Number of strata</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">280</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and, possibly, the border of the plot. Usually expressed in 4 identical values (usually `"lines"`). It defaults</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">281</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to `grid::unit(rep(1, 4), "lines")`.</pre>
+                      <pre class="language-r">#' prop_strat_wilson(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">282</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param margins (`grid::unit`)\cr margins. A unit object of length 4. Margins between the plot and the other</pre>
+                      <pre class="language-r">#'   rsp = rsp, strata = strata,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">283</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   elements in the list (e.g. titles, plot, and footers). This is usually expressed in 4 `"lines"`, where the</pre>
+                      <pre class="language-r">#'   conf_level = 0.90</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   lateral ones are 0s, while top and bottom are 1s. It defaults to `grid::unit(c(1, 0, 1, 0), "lines")`.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param outer_margins (`grid::unit`)\cr outer margins. A unit object of length 4. It defines the general margin of</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the plot, considering also decorations like titles, footnotes, and page numbers. It defaults to</pre>
+                      <pre class="language-r">#' # Not automatic setting of weights</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `grid::unit(c(2, 1.5, 3, 1.5), "cm")`.</pre>
+                      <pre class="language-r">#' prop_strat_wilson(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">288</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param gp_titles (`gpar`)\cr a `gpar` object. Mainly used to set different `"fontsize"`.</pre>
+                      <pre class="language-r">#'   rsp = rsp, strata = strata,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">289</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param gp_footnotes (`gpar`)\cr a `gpar` object. Mainly used to set different `"fontsize"`.</pre>
+                      <pre class="language-r">#'   weights = rep(1 / n_strata, n_strata),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   conf_level = 0.90</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A grid grob (`gTree`).</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">292</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details The titles and footnotes will be ragged, i.e. each title will be wrapped individually.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">prop_strat_wilson &lt;- function(rsp,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">295</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">                              strata,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">296</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(grid)</pre>
+                      <pre class="language-r">                              weights = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">297</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                              conf_level = 0.95,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">298</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' titles &lt;- c(</pre>
+                      <pre class="language-r">                              max_iterations = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "Edgar Anderson's Iris Data",</pre>
+                      <pre class="language-r">                              correct = FALSE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">300</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   paste(</pre>
+                      <pre class="language-r">  checkmate::assert_logical(rsp, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">301</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "This famous (Fisher's or Anderson's) iris data set gives the measurements",</pre>
+                      <pre class="language-r">  checkmate::assert_factor(strata, len = length(rsp))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">302</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "in centimeters of the variables sepal length and width and petal length",</pre>
+                      <pre class="language-r">  assert_proportion_value(conf_level)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "and width, respectively, for 50 flowers from each of 3 species of iris."</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">304</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">  tbl &lt;- table(rsp, strata)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">305</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  n_strata &lt;- length(unique(strata))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">306</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' footnotes &lt;- c(</pre>
+                      <pre class="language-r">  # Checking the weights and maximum number of iterations.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">308</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "The species are Iris setosa, versicolor, and virginica.",</pre>
+                      <pre class="language-r">  do_iter &lt;- FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">309</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   paste(</pre>
+                      <pre class="language-r">  if (is.null(weights)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">310</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "iris is a data frame with 150 cases (rows) and 5 variables (columns) named",</pre>
+                      <pre class="language-r">    weights &lt;- rep(1 / n_strata, n_strata) # Initialization for iterative procedure</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">311</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "Sepal.Length, Sepal.Width, Petal.Length, Petal.Width, and Species."</pre>
+                      <pre class="language-r">    do_iter &lt;- TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">312</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    # Iteration parameters</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">314</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    if (is.null(max_iterations)) max_iterations &lt;- 10</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">55</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">315</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## empty plot</pre>
+                      <pre class="language-r">    checkmate::assert_int(max_iterations, na.ok = FALSE, null.ok = FALSE, lower = 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">316</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.newpage()</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">57</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">317</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(weights, lower = 0, upper = 1, any.missing = FALSE, len = n_strata)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">318</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.draw(</pre>
+                      <pre class="language-r">  sum_weights &lt;- checkmate::assert_int(sum(weights))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">319</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   decorate_grob(</pre>
+                      <pre class="language-r">  if (as.integer(sum_weights + 0.5) != 1L) stop("Sum of weights must be 1L.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     NULL,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">321</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     titles = titles,</pre>
+                      <pre class="language-r">  xs &lt;- tbl["TRUE", ]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">322</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     footnotes = footnotes,</pre>
+                      <pre class="language-r">  ns &lt;- colSums(tbl)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">323</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     page = "Page 4 of 10"</pre>
+                      <pre class="language-r">  use_stratum &lt;- (ns &gt; 0)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">64</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">324</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">  ns &lt;- ns[use_stratum]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">325</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  xs &lt;- xs[use_stratum]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">66</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">326</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  ests &lt;- xs / ns</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">327</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # grid</pre>
+                      <pre class="language-r">  vars &lt;- ests * (1 - ests) / ns</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">328</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' p &lt;- gTree(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">329</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   children = gList(</pre>
+                      <pre class="language-r">  strata_qnorm &lt;- strata_normal_quantile(vars, weights, conf_level)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">330</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     rectGrob(),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">331</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     xaxisGrob(),</pre>
+                      <pre class="language-r">  # Iterative setting of weights if they were not set externally</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">72</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">332</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     yaxisGrob(),</pre>
+                      <pre class="language-r">  weights_new &lt;- if (do_iter) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">73</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">333</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     textGrob("Sepal.Length", y = unit(-4, "lines")),</pre>
+                      <pre class="language-r">    update_weights_strat_wilson(vars, strata_qnorm, weights, ns, max_iterations, conf_level)$weights</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">334</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     textGrob("Petal.Length", x = unit(-3.5, "lines"), rot = 90),</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">75</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">335</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     pointsGrob(iris$Sepal.Length, iris$Petal.Length, gp = gpar(col = iris$Species), pch = 16)</pre>
+                      <pre class="language-r">    weights</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">336</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">337</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   vp = vpStack(plotViewport(), dataViewport(xData = iris$Sepal.Length, yData = iris$Petal.Length))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">78</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">338</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  strata_conf_level &lt;- 2 * stats::pnorm(strata_qnorm) - 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">339</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.newpage()</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">80</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">340</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.draw(p)</pre>
+                      <pre class="language-r">  ci_by_strata &lt;- Map(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">81</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">341</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    function(x, n) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">342</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.newpage()</pre>
+                      <pre class="language-r">      # Classic Wilson's confidence interval</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">83</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">343</td>
+                    <td class="coverage">139<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.draw(</pre>
+                      <pre class="language-r">      suppressWarnings(stats::prop.test(x, n, correct = correct, conf.level = strata_conf_level)$conf.int)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">344</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   decorate_grob(</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">345</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     grob = p,</pre>
+                      <pre class="language-r">    x = xs,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">86</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">346</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     titles = titles,</pre>
+                      <pre class="language-r">    n = ns</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">347</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     footnotes = footnotes,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">88</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">348</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     page = "Page 6 of 129"</pre>
+                      <pre class="language-r">  lower_by_strata &lt;- sapply(ci_by_strata, "[", 1L)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">89</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">349</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">  upper_by_strata &lt;- sapply(ci_by_strata, "[", 2L)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">350</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">91</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">351</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  lower &lt;- sum(weights_new * lower_by_strata)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">92</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">352</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## with ggplot2</pre>
+                      <pre class="language-r">  upper &lt;- sum(weights_new * upper_by_strata)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">353</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(ggplot2)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">354</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  # Return values</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">95</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">355</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' p_gg &lt;- ggplot2::ggplot(iris, aes(Sepal.Length, Sepal.Width, col = Species)) +</pre>
+                      <pre class="language-r">  if (do_iter) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">96</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">356</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ggplot2::geom_point()</pre>
+                      <pre class="language-r">    list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">97</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">357</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' p_gg</pre>
+                      <pre class="language-r">      conf_int = c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">98</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">358</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' p &lt;- ggplotGrob(p_gg)</pre>
+                      <pre class="language-r">        lower = lower,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">99</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">359</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.newpage()</pre>
+                      <pre class="language-r">        upper = upper</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">360</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.draw(</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">101</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">361</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   decorate_grob(</pre>
+                      <pre class="language-r">      weights = weights_new</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">362</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     grob = p,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">363</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     titles = titles,</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">104</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">364</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     footnotes = footnotes,</pre>
+                      <pre class="language-r">    list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">105</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">365</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     page = "Page 6 of 129"</pre>
+                      <pre class="language-r">      conf_int = c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">106</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">366</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">        lower = lower,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">107</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">367</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">        upper = upper</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">368</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">369</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## with lattice</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">370</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(lattice)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">371</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">372</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' xyplot(Sepal.Length ~ Petal.Length, data = iris, col = iris$Species)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">373</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' p &lt;- grid.grab()</pre>
+                      <pre class="language-r">#' @describeIn h_proportions Calculates the Clopper-Pearson interval by calling [stats::binom.test()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">374</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.newpage()</pre>
+                      <pre class="language-r">#'   Also referred to as the `exact` method.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">375</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.draw(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">376</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   decorate_grob(</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">377</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     grob = p,</pre>
+                      <pre class="language-r">#' prop_clopper_pearson(rsp, conf_level = .95)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">378</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     titles = titles,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">379</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     footnotes = footnotes,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">380</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     page = "Page 6 of 129"</pre>
+                      <pre class="language-r">prop_clopper_pearson &lt;- function(rsp,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">381</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">                                 conf_level) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">122</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">382</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  y &lt;- stats::binom.test(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">123</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">383</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    x = sum(rsp),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">124</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">384</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # with gridExtra - no borders</pre>
+                      <pre class="language-r">    n = length(rsp),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">125</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">385</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(gridExtra)</pre>
+                      <pre class="language-r">    conf.level = conf_level</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">386</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.newpage()</pre>
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">387</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  as.numeric(y$conf.int)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">388</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grid.draw(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">389</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   decorate_grob(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">390</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tableGrob(</pre>
+                      <pre class="language-r">#' @describeIn h_proportions Calculates the Wald interval by following the usual textbook definition</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">391</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       head(mtcars)</pre>
+                      <pre class="language-r">#'   for a single proportion confidence interval using the normal approximation.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">392</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">393</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     titles = "title",</pre>
+                      <pre class="language-r">#' @param correct (`flag`)\cr whether to apply continuity correction.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">394</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     footnotes = "footnote",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">395</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     border = FALSE</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">396</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#' prop_wald(rsp, conf_level = 0.95)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">397</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' prop_wald(rsp, conf_level = 0.95, correct = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">398</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">399</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">400</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">decorate_grob &lt;- function(grob,</pre>
+                      <pre class="language-r">prop_wald &lt;- function(rsp, conf_level, correct = FALSE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">140</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">401</td>
+                    <td class="coverage">163<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          titles,</pre>
+                      <pre class="language-r">  n &lt;- length(rsp)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">141</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">402</td>
+                    <td class="coverage">163<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          footnotes,</pre>
+                      <pre class="language-r">  p_hat &lt;- mean(rsp)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">142</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">403</td>
+                    <td class="coverage">163<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          page = "",</pre>
+                      <pre class="language-r">  z &lt;- stats::qnorm((1 + conf_level) / 2)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">143</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">404</td>
+                    <td class="coverage">163<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          width_titles = grid::unit(1, "npc"),</pre>
+                      <pre class="language-r">  q_hat &lt;- 1 - p_hat</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">405</td>
+                    <td class="coverage">163<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  correct &lt;- if (correct) 1 / (2 * n) else 0</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">406</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          width_footnotes = grid::unit(1, "npc"),</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">407</td>
+                    <td class="coverage">163<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  err &lt;- z * sqrt(p_hat * q_hat) / sqrt(n) + correct</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">408</td>
+                    <td class="coverage">163<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  l_ci &lt;- max(0, p_hat - err)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">409</td>
+                    <td class="coverage">163<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  u_ci &lt;- min(1, p_hat + err)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">410</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          border = TRUE,</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">411</td>
+                    <td class="coverage">163<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  c(l_ci, u_ci)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">412</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          padding = grid::unit(rep(1, 4), "lines"),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">413</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          margins = grid::unit(c(1, 0, 1, 0), "lines"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">414</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          outer_margins = grid::unit(c(2, 1.5, 3, 1.5), "cm"),</pre>
+                      <pre class="language-r">#' @describeIn h_proportions Calculates the Agresti-Coull interval. Constructed (for 95% CI) by adding two successes</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">415</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          gp_titles = grid::gpar(),</pre>
+                      <pre class="language-r">#'   and two failures to the data and then using the Wald formula to construct a CI.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">416</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          gp_footnotes = grid::gpar(fontsize = 8),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">417</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          name = NULL,</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">418</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          gp = grid::gpar(),</pre>
+                      <pre class="language-r">#' prop_agresti_coull(rsp, conf_level = 0.95)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">419</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          vp = NULL) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">420</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # External margins need to be taken into account when defining the width of titles and footers</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">421</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # because the text is split in advance depending on only the width of the viewport.</pre>
+                      <pre class="language-r">prop_agresti_coull &lt;- function(rsp, conf_level) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">422</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any(as.numeric(outer_margins) &gt; 0)) {</pre>
+                      <pre class="language-r">  n &lt;- length(rsp)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">423</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    width_titles &lt;- width_titles - outer_margins[4]</pre>
+                      <pre class="language-r">  x_sum &lt;- sum(rsp)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">424</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    width_footnotes &lt;- width_footnotes - outer_margins[4]</pre>
+                      <pre class="language-r">  z &lt;- stats::qnorm((1 + conf_level) / 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">425</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">426</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  # Add here both z^2 / 2 successes and failures.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">427</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  st_titles &lt;- split_text_grob(</pre>
+                      <pre class="language-r">  x_sum_tilde &lt;- x_sum + z^2 / 2</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">428</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    titles,</pre>
+                      <pre class="language-r">  n_tilde &lt;- n + z^2</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">429</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = 0, y = 1,</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">430</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  # Then proceed as with the Wald interval.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">431</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    just = c("left", "top"),</pre>
+                      <pre class="language-r">  p_tilde &lt;- x_sum_tilde / n_tilde</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">432</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    width = width_titles,</pre>
+                      <pre class="language-r">  q_tilde &lt;- 1 - p_tilde</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">433</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vp = grid::viewport(layout.pos.row = 1, layout.pos.col = 1),</pre>
+                      <pre class="language-r">  err &lt;- z * sqrt(p_tilde * q_tilde) / sqrt(n_tilde)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">434</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gp = gp_titles</pre>
+                      <pre class="language-r">  l_ci &lt;- max(0, p_tilde - err)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">168</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">435</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  u_ci &lt;- min(1, p_tilde + err)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">436</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  st_footnotes &lt;- split_text_grob(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">437</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    footnotes,</pre>
+                      <pre class="language-r">  c(l_ci, u_ci)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">438</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = 0, y = 1,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">439</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    just = c("left", "top"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">440</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    width = width_footnotes,</pre>
+                      <pre class="language-r">#' @describeIn h_proportions Calculates the Jeffreys interval, an equal-tailed interval based on the</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">441</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vp = grid::viewport(layout.pos.row = 3, layout.pos.col = 1),</pre>
+                      <pre class="language-r">#'   non-informative Jeffreys prior for a binomial proportion.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">442</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gp = gp_footnotes</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">443</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">444</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' prop_jeffreys(rsp, conf_level = 0.95)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">445</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  pg_footnote &lt;- grid::textGrob(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">446</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste("\n", page),</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">181</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">447</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = 1, y = 0,</pre>
+                      <pre class="language-r">prop_jeffreys &lt;- function(rsp,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">182</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">448</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    just = c("right", "bottom"),</pre>
+                      <pre class="language-r">                          conf_level) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">183</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">449</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vp = grid::viewport(layout.pos.row = 4, layout.pos.col = 1),</pre>
+                      <pre class="language-r">  n &lt;- length(rsp)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">450</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gp = gp_footnotes</pre>
+                      <pre class="language-r">  x_sum &lt;- sum(rsp)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">451</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">186</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">452</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  alpha &lt;- 1 - conf_level</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">187</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">453</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Initial decoration of the grob -&gt; border, paddings, and margins are used here</pre>
+                      <pre class="language-r">  l_ci &lt;- ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">454</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  main_plot &lt;- grid::gTree(</pre>
+                      <pre class="language-r">    x_sum == 0,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">455</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    children = grid::gList(</pre>
+                      <pre class="language-r">    0,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">456</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (border) grid::rectGrob(),</pre>
+                      <pre class="language-r">    stats::qbeta(alpha / 2, x_sum + 0.5, n - x_sum + 0.5)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">457</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      grid::gTree(</pre>
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">458</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">459</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        children = grid::gList(</pre>
+                      <pre class="language-r">  u_ci &lt;- ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">193</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">460</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          grob</pre>
+                      <pre class="language-r">    x_sum == n,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">194</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">461</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">    1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">462</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        vp = grid::plotViewport(margins = padding) # innermost margins of the grob plot</pre>
+                      <pre class="language-r">    stats::qbeta(1 - alpha / 2, x_sum + 0.5, n - x_sum + 0.5)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">463</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">464</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">198</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">465</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vp = grid::vpStack(</pre>
+                      <pre class="language-r">  c(l_ci, u_ci)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">466</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      grid::viewport(layout.pos.row = 2, layout.pos.col = 1),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">200</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">467</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      grid::plotViewport(margins = margins) # margins around the border plot</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">468</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' Description of the proportion summary</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">469</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">470</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">204</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">471</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  grid::gTree(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">472</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    grob = grob,</pre>
+                      <pre class="language-r">#' This is a helper function that describes the analysis in [s_proportion()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">473</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    titles = titles,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">474</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    footnotes = footnotes,</pre>
+                      <pre class="language-r">#' @inheritParams s_proportion</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">475</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    page = page,</pre>
+                      <pre class="language-r">#' @param long (`flag`)\cr whether a long or a short (default) description is required.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">209</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">476</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    width_titles = width_titles,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">477</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    width_footnotes = width_footnotes,</pre>
+                      <pre class="language-r">#' @return String describing the analysis.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">478</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    outer_margins = outer_margins,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">212</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">479</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gp_titles = gp_titles,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">480</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gp_footnotes = gp_footnotes,</pre>
+                      <pre class="language-r">d_proportion &lt;- function(conf_level,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">214</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">481</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    children = grid::gList(</pre>
+                      <pre class="language-r">                         method,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">482</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      grid::gTree(</pre>
+                      <pre class="language-r">                         long = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">216</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">483</td>
+                    <td class="coverage">179<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        children = grid::gList(</pre>
+                      <pre class="language-r">  label &lt;- paste0(conf_level * 100, "% CI")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">217</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">484</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          st_titles,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">218</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">485</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          main_plot, # main plot with border, padding, and margins</pre>
+                      <pre class="language-r">  if (long) label &lt;- paste(label, "for Response Rates")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">486</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          st_footnotes,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">487</td>
+                    <td class="coverage">179<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          pg_footnote</pre>
+                      <pre class="language-r">  method_part &lt;- switch(method,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">221</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">488</td>
+                    <td class="coverage">179<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">    "clopper-pearson" = "Clopper-Pearson",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">489</td>
+                    <td class="coverage">179<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        childrenvp = NULL,</pre>
+                      <pre class="language-r">    "waldcc" = "Wald, with correction",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">490</td>
+                    <td class="coverage">179<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        name = "titles_grob_footnotes",</pre>
+                      <pre class="language-r">    "wald" = "Wald, without correction",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">491</td>
+                    <td class="coverage">179<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        vp = grid::vpStack(</pre>
+                      <pre class="language-r">    "wilson" = "Wilson, without correction",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">225</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">492</td>
+                    <td class="coverage">179<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          grid::plotViewport(margins = outer_margins), # Main external margins</pre>
+                      <pre class="language-r">    "strat_wilson" = "Stratified Wilson, without correction",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">493</td>
+                    <td class="coverage">179<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          grid::viewport(</pre>
+                      <pre class="language-r">    "wilsonc" = "Wilson, with correction",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">494</td>
+                    <td class="coverage">179<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            layout = grid::grid.layout(</pre>
+                      <pre class="language-r">    "strat_wilsonc" = "Stratified Wilson, with correction",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">495</td>
+                    <td class="coverage">179<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              nrow = 4, ncol = 1,</pre>
+                      <pre class="language-r">    "agresti-coull" = "Agresti-Coull",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">229</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">496</td>
+                    <td class="coverage">179<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              heights = grid::unit.c(</pre>
+                      <pre class="language-r">    "jeffreys" = "Jeffreys",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">497</td>
+                    <td class="coverage">179<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                grid::grobHeight(st_titles),</pre>
+                      <pre class="language-r">    stop(paste(method, "does not have a description"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">231</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">498</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                grid::unit(1, "null"),</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">499</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                grid::grobHeight(st_footnotes),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">233</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">500</td>
+                    <td class="coverage">179<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                grid::grobHeight(pg_footnote)</pre>
+                      <pre class="language-r">  paste0(label, " (", method_part, ")")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">234</td>
+                    <td class="num">501</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</td>
+                    <td class="num">502</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">503</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#' Helper function for the estimation of stratified quantiles</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">237</td>
+                    <td class="num">504</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">238</td>
+                    <td class="num">505</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</td>
+                    <td class="num">506</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">240</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">507</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    name = name,</pre>
+                      <pre class="language-r">#' This function wraps the estimation of stratified percentiles when we assume</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">241</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">508</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gp = gp,</pre>
+                      <pre class="language-r">#' the approximation for large numbers. This is necessary only in the case</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">242</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">509</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vp = vp,</pre>
+                      <pre class="language-r">#' proportions for each strata are unequal.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">243</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">510</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    cl = "decoratedGrob"</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">511</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">512</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @inheritParams prop_strat_wilson</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</td>
+                    <td class="num">513</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">247</td>
+                    <td class="num">514</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># nocov start</pre>
+                      <pre class="language-r">#' @return Stratified quantile.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">515</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @importFrom grid validDetails</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">249</td>
+                    <td class="num">516</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">#' @seealso [prop_strat_wilson()]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">250</td>
+                    <td class="num">517</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">validDetails.decoratedGrob &lt;- function(x) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">518</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(x$titles)</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</td>
+                    <td class="num">519</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(x$footnotes)</pre>
+                      <pre class="language-r">#' strata_data &lt;- table(data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">253</td>
+                    <td class="num">520</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   "f1" = sample(c(TRUE, FALSE), 100, TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</td>
+                    <td class="num">521</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(x$grob)) {</pre>
+                      <pre class="language-r">#'   "f2" = sample(c("x", "y", "z"), 100, TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">255</td>
+                    <td class="num">522</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_true(grid::is.grob(x$grob))</pre>
+                      <pre class="language-r">#'   stringsAsFactors = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">256</td>
+                    <td class="num">523</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">524</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(x$page) == 1) {</pre>
+                      <pre class="language-r">#' ns &lt;- colSums(strata_data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">525</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_character(x$page)</pre>
+                      <pre class="language-r">#' ests &lt;- strata_data["TRUE", ] / ns</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">259</td>
+                    <td class="num">526</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' vars &lt;- ests * (1 - ests) / ns</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">260</td>
+                    <td class="num">527</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!grid::is.unit(x$outer_margins)) {</pre>
+                      <pre class="language-r">#' weights &lt;- rep(1 / length(ns), length(ns))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">261</td>
+                    <td class="num">528</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_vector(x$outer_margins, len = 4)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</td>
+                    <td class="num">529</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' strata_normal_quantile(vars, weights, 0.95)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">263</td>
+                    <td class="num">530</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!grid::is.unit(x$margins)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">264</td>
+                    <td class="num">531</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_vector(x$margins, len = 4)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</td>
+                    <td class="num">532</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">strata_normal_quantile &lt;- function(vars, weights, conf_level) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">266</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">533</td>
+                    <td class="coverage">43<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!grid::is.unit(x$padding)) {</pre>
+                      <pre class="language-r">  summands &lt;- weights^2 * vars</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">534</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_vector(x$padding, len = 4)</pre>
+                      <pre class="language-r">  # Stratified quantile</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">535</td>
+                    <td class="coverage">43<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  sqrt(sum(summands)) / sum(sqrt(summands)) * stats::qnorm((1 + conf_level) / 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</td>
+                    <td class="num">536</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">537</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</td>
+                    <td class="num">538</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x</pre>
+                      <pre class="language-r">#' Helper function for the estimation of weights for `prop_strat_wilson()`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">271</td>
+                    <td class="num">539</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</td>
+                    <td class="num">540</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">273</td>
+                    <td class="num">541</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @importFrom grid widthDetails</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">274</td>
+                    <td class="num">542</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">#' This function wraps the iteration procedure that allows you to estimate</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">543</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">widthDetails.decoratedGrob &lt;- function(x) {</pre>
+                      <pre class="language-r">#' the weights for each proportional strata. This assumes to minimize the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">276</td>
+                    <td class="num">544</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  grid::unit(1, "null")</pre>
+                      <pre class="language-r">#' weighted squared length of the confidence interval.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">277</td>
+                    <td class="num">545</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</td>
+                    <td class="num">546</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @inheritParams prop_strat_wilson</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</td>
+                    <td class="num">547</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @importFrom grid heightDetails</pre>
+                      <pre class="language-r">#' @param vars (`numeric`)\cr normalized proportions for each strata.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">548</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">#' @param strata_qnorm (`numeric(1)`)\cr initial estimation with identical weights of the quantiles.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">281</td>
+                    <td class="num">549</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">heightDetails.decoratedGrob &lt;- function(x) {</pre>
+                      <pre class="language-r">#' @param initial_weights (`numeric`)\cr initial weights used to calculate `strata_qnorm`. This can</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">282</td>
+                    <td class="num">550</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  grid::unit(1, "null")</pre>
+                      <pre class="language-r">#'   be optimized in the future if we need to estimate better initial weights.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">283</td>
+                    <td class="num">551</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @param n_per_strata (`numeric`)\cr number of elements in each strata.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">284</td>
+                    <td class="num">552</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param max_iterations (`integer(1)`)\cr maximum number of iterations to be tried. Convergence is always checked.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">285</td>
+                    <td class="num">553</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Split text according to available text width</pre>
+                      <pre class="language-r">#' @param tol (`numeric(1)`)\cr tolerance threshold for convergence.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">554</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">555</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Dynamically wrap text.</pre>
+                      <pre class="language-r">#' @return A `list` of 3 elements: `n_it`, `weights`, and `diff_v`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">556</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">289</td>
+                    <td class="num">557</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams grid::grid.text</pre>
+                      <pre class="language-r">#' @seealso For references and details see [prop_strat_wilson()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</td>
+                    <td class="num">558</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param text (`string`)\cr the text to wrap.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">291</td>
+                    <td class="num">559</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param width (`grid::unit`)\cr a unit object specifying maximum width of text.</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">292</td>
+                    <td class="num">560</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' vs &lt;- c(0.011, 0.013, 0.012, 0.014, 0.017, 0.018)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">293</td>
+                    <td class="num">561</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A text `grob`.</pre>
+                      <pre class="language-r">#' sq &lt;- 0.674</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">294</td>
+                    <td class="num">562</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' ws &lt;- rep(1 / length(vs), length(vs))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">295</td>
+                    <td class="num">563</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details This code is taken from `R Graphics by Paul Murell, 2nd edition`</pre>
+                      <pre class="language-r">#' ns &lt;- c(22, 18, 17, 17, 14, 12)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">564</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">565</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' update_weights_strat_wilson(vs, sq, ws, ns, 100, 0.95, 0.001)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">298</td>
+                    <td class="num">566</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">split_text_grob &lt;- function(text,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">299</td>
+                    <td class="num">567</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            x = grid::unit(0.5, "npc"),</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">300</td>
+                    <td class="num">568</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            y = grid::unit(0.5, "npc"),</pre>
+                      <pre class="language-r">update_weights_strat_wilson &lt;- function(vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">301</td>
+                    <td class="num">569</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            width = grid::unit(1, "npc"),</pre>
+                      <pre class="language-r">                                        strata_qnorm,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">302</td>
+                    <td class="num">570</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            just = "centre",</pre>
+                      <pre class="language-r">                                        initial_weights,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">303</td>
+                    <td class="num">571</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            hjust = NULL,</pre>
+                      <pre class="language-r">                                        n_per_strata,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">304</td>
+                    <td class="num">572</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            vjust = NULL,</pre>
+                      <pre class="language-r">                                        max_iterations = 50,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">305</td>
+                    <td class="num">573</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            default.units = "npc", # nolint</pre>
+                      <pre class="language-r">                                        conf_level = 0.95,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">306</td>
+                    <td class="num">574</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            name = NULL,</pre>
+                      <pre class="language-r">                                        tol = 0.001) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">307</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">575</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            gp = grid::gpar(),</pre>
+                      <pre class="language-r">  it &lt;- 0</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">308</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">576</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            vp = NULL) {</pre>
+                      <pre class="language-r">  diff_v &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">309</td>
+                    <td class="num">577</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  text &lt;- gsub("\\\\n", "\n", text) # fixing cases of mixed behavior (\n and \\n)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">310</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">578</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  while (it &lt; max_iterations) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">311</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">579</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!grid::is.unit(x)) x &lt;- grid::unit(x, default.units)</pre>
+                      <pre class="language-r">    it &lt;- it + 1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">312</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">580</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!grid::is.unit(y)) y &lt;- grid::unit(y, default.units)</pre>
+                      <pre class="language-r">    weights_new_t &lt;- (1 + strata_qnorm^2 / n_per_strata)^2</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">313</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">581</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!grid::is.unit(width)) width &lt;- grid::unit(width, default.units)</pre>
+                      <pre class="language-r">    weights_new_b &lt;- (vars + strata_qnorm^2 / (4 * n_per_strata^2))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">314</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">582</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (grid::unitType(x) %in% c("sum", "min", "max")) x &lt;- grid::convertUnit(x, default.units)</pre>
+                      <pre class="language-r">    weights_new &lt;- weights_new_t / weights_new_b</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">315</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">583</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (grid::unitType(y) %in% c("sum", "min", "max")) y &lt;- grid::convertUnit(y, default.units)</pre>
+                      <pre class="language-r">    weights_new &lt;- weights_new / sum(weights_new)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">316</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">584</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (grid::unitType(width) %in% c("sum", "min", "max")) width &lt;- grid::convertUnit(width, default.units)</pre>
+                      <pre class="language-r">    strata_qnorm &lt;- strata_normal_quantile(vars, weights_new, conf_level)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">317</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">585</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    diff_v &lt;- c(diff_v, sum(abs(weights_new - initial_weights)))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">318</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">586</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(gp) &gt; 0) { # account for effect of gp on text width -&gt; it was bugging when text was empty</pre>
+                      <pre class="language-r">    if (diff_v[length(diff_v)] &lt; tol) break</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">319</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">587</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    horizontal_npc_width_no_gp &lt;- grid::convertWidth(</pre>
+                      <pre class="language-r">    initial_weights &lt;- weights_new</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">320</td>
+                    <td class="num">588</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      grid::grobWidth(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">321</td>
+                    <td class="num">589</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        grid::textGrob(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">322</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">590</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          paste0(text, collapse = "\n")</pre>
+                      <pre class="language-r">  if (it == max_iterations) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">323</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">591</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    warning("The heuristic to find weights did not converge with max_iterations = ", max_iterations)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">324</td>
+                    <td class="num">592</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ), "npc",</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">325</td>
+                    <td class="num">593</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      valueOnly = TRUE</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">326</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">594</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">327</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">595</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    horizontal_npc_width_with_gp &lt;- grid::convertWidth(grid::grobWidth(</pre>
+                      <pre class="language-r">    "n_it" = it,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">328</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">596</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      grid::textGrob(</pre>
+                      <pre class="language-r">    "weights" = weights_new,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">597</td>
+                    <td class="coverage">9<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    "diff_v" = diff_v</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">329</td>
+                    <td class="num">598</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        paste0(text, collapse = "\n"),</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">330</td>
+                    <td class="num">599</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        gp = gp</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/h_km.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">331</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' Control functions for Kaplan-Meier plot annotation tables</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">332</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ), "npc", valueOnly = TRUE)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">333</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">334</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Adapting width to the input gpar (it is normalized so does not matter what is text)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">335</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    width &lt;- width * horizontal_npc_width_no_gp / horizontal_npc_width_with_gp</pre>
+                      <pre class="language-r">#' Auxiliary functions for controlling arguments for formatting the annotation tables that can be added to plots</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">336</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' generated via [g_km()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">337</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">338</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ## if it is a fixed unit then we do not need to recalculate when viewport resized</pre>
+                      <pre class="language-r">#' @param x (`proportion`)\cr x-coordinate for center of annotation table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">339</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!inherits(width, "unit.arithmetic") &amp;&amp; !is.null(attr(width, "unit")) &amp;&amp;</pre>
+                      <pre class="language-r">#' @param y (`proportion`)\cr y-coordinate for center of annotation table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">340</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    attr(width, "unit") %in% c("cm", "inches", "mm", "points", "picas", "bigpts", "dida", "cicero", "scaledpts")) { # nolint</pre>
+                      <pre class="language-r">#' @param w (`proportion`)\cr relative width of the annotation table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">341</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    attr(text, "fixed_text") &lt;- paste(vapply(text, split_string, character(1), width = width), collapse = "\n")</pre>
+                      <pre class="language-r">#' @param h (`proportion`)\cr relative height of the annotation table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">342</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @param fill (`flag` or `character`)\cr whether the annotation table should have a background fill color.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">343</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   Can also be a color code to use as the background fill color. If `TRUE`, color code defaults to `"#00000020"`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">344</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Fix for split_string in case of residual \n (otherwise is counted as character)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">345</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  text2 &lt;- unlist(</pre>
+                      <pre class="language-r">#' @return A list of components with the same names as the arguments.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">346</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    strsplit(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">347</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      paste0(text, collapse = "\n"), # for "" cases</pre>
+                      <pre class="language-r">#' @seealso [g_km()]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">348</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "\n"</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">349</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' @name control_annot</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">350</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">351</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">352</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Final grid text with cat-friendly split_string</pre>
+                      <pre class="language-r">#' @describeIn control_annot Control function for formatting the median survival time annotation table. This annotation</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">353</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  grid::grid.text(</pre>
+                      <pre class="language-r">#'   table can be added in [g_km()] by setting `annot_surv_med=TRUE`, and can be configured using the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">354</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label = split_string(text2, width),</pre>
+                      <pre class="language-r">#'   `control_surv_med_annot()` function by setting it as the `control_annot_surv_med` argument.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">355</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = x, y = y,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">356</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    just = just,</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">357</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    hjust = hjust,</pre>
+                      <pre class="language-r">#' control_surv_med_annot()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">358</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vjust = vjust,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">359</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rot = 0,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">360</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    check.overlap = FALSE,</pre>
+                      <pre class="language-r">control_surv_med_annot &lt;- function(x = 0.8, y = 0.85, w = 0.32, h = 0.16, fill = TRUE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">361</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">31</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    name = name,</pre>
+                      <pre class="language-r">  assert_proportion_value(x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">362</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">32</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gp = gp,</pre>
+                      <pre class="language-r">  assert_proportion_value(y)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">363</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">33</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vp = vp,</pre>
+                      <pre class="language-r">  assert_proportion_value(w)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">364</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">34</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    draw = FALSE</pre>
+                      <pre class="language-r">  assert_proportion_value(h)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">365</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">366</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">36</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  list(x = x, y = y, w = w, h = h, fill = fill)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">367</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">368</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @importFrom grid validDetails</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">369</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">#' @describeIn control_annot Control function for formatting the Cox-PH annotation table. This annotation table can be</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">370</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">validDetails.dynamicSplitText &lt;- function(x) {</pre>
+                      <pre class="language-r">#'   added in [g_km()] by setting `annot_coxph=TRUE`, and can be configured using the `control_coxph_annot()` function</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">371</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(x$text)</pre>
+                      <pre class="language-r">#'   by setting it as the `control_annot_coxph` argument.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">372</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(grid::is.unit(x$width))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">373</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_vector(x$width, len = 1)</pre>
+                      <pre class="language-r">#' @param ref_lbls (`flag`)\cr whether the reference group should be explicitly printed in labels for the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">374</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x</pre>
+                      <pre class="language-r">#'   annotation table. If `FALSE` (default), only comparison groups will be printed in the table labels.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">375</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">376</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">377</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @importFrom grid heightDetails</pre>
+                      <pre class="language-r">#' control_coxph_annot()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">378</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">379</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">heightDetails.dynamicSplitText &lt;- function(x) {</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">380</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  txt &lt;- if (!is.null(attr(x$text, "fixed_text"))) {</pre>
+                      <pre class="language-r">control_coxph_annot &lt;- function(x = 0.29, y = 0.51, w = 0.4, h = 0.125, fill = TRUE, ref_lbls = FALSE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">381</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">51</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    attr(x$text, "fixed_text")</pre>
+                      <pre class="language-r">  checkmate::assert_logical(ref_lbls, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">382</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">383</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">53</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste(vapply(x$text, split_string, character(1), width = x$width), collapse = "\n")</pre>
+                      <pre class="language-r">  res &lt;- c(control_surv_med_annot(x = x, y = y, w = w, h = h), list(ref_lbls = ref_lbls))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">384</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">54</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  res</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">385</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  grid::stringHeight(txt)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">386</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">387</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Helper function to calculate x-tick positions</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">388</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @importFrom grid widthDetails</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">389</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">390</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">widthDetails.dynamicSplitText &lt;- function(x) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">391</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x$width</pre>
+                      <pre class="language-r">#' Calculate the positions of ticks on the x-axis. However, if `xticks` already</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">392</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' exists it is kept as is. It is based on the same function `ggplot2` relies on,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">393</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' and is required in the graphic and the patient-at-risk annotation table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">394</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @importFrom grid drawDetails</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">395</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @noRd</pre>
+                      <pre class="language-r">#' @inheritParams g_km</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">396</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">drawDetails.dynamicSplitText &lt;- function(x, recording) {</pre>
+                      <pre class="language-r">#' @inheritParams h_ggkm</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">397</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  txt &lt;- if (!is.null(attr(x$text, "fixed_text"))) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">398</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    attr(x$text, "fixed_text")</pre>
+                      <pre class="language-r">#' @return A vector of positions to use for x-axis ticks on a `ggplot` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">399</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">400</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste(vapply(x$text, split_string, character(1), width = x$width), collapse = "\n")</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">401</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">402</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' library(survival)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">403</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x$width &lt;- NULL</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">404</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x$label &lt;- txt</pre>
+                      <pre class="language-r">#' data &lt;- tern_ex_adtte %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">405</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x$text &lt;- NULL</pre>
+                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">406</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  class(x) &lt;- c("text", class(x)[-1])</pre>
+                      <pre class="language-r">#'   survfit(formula = Surv(AVAL, 1 - CNSR) ~ ARMCD, data = .) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">407</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   h_data_plot()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">408</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  grid::grid.draw(x)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">409</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' h_xticks(data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">410</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># nocov end</pre>
+                      <pre class="language-r">#' h_xticks(data, xticks = seq(0, 3000, 500))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">411</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' h_xticks(data, xticks = 500)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">412</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># Adapted from Paul Murell R Graphics 2nd Edition</pre>
+                      <pre class="language-r">#' h_xticks(data, xticks = 500, max_time = 6000)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">413</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># https://www.stat.auckland.ac.nz/~paul/RG2e/interactgrid-splittext.R</pre>
+                      <pre class="language-r">#' h_xticks(data, xticks = c(0, 500), max_time = 300)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">414</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">split_string &lt;- function(text, width) {</pre>
+                      <pre class="language-r">#' h_xticks(data, xticks = 500, max_time = 300)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">415</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">85</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  strings &lt;- strsplit(text, " ")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">416</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">86</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  out_string &lt;- NA</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">417</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">87</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  for (string_i in seq_along(strings)) {</pre>
+                      <pre class="language-r">h_xticks &lt;- function(data, xticks = NULL, max_time = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">418</td>
-                    <td class="coverage">48<em>x</em></td>
+                    <td class="num">88</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    newline_str &lt;- strings[[string_i]]</pre>
+                      <pre class="language-r">  if (is.null(xticks)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">419</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">89</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (length(newline_str) == 0) newline_str &lt;- ""</pre>
+                      <pre class="language-r">    if (is.null(max_time)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">420</td>
-                    <td class="coverage">48<em>x</em></td>
+                    <td class="num">90</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.na(out_string[string_i])) {</pre>
+                      <pre class="language-r">      labeling::extended(range(data$time)[1], range(data$time)[2], m = 5)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">421</td>
-                    <td class="coverage">48<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">91</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      out_string[string_i] &lt;- newline_str[[1]][[1]]</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">422</td>
-                    <td class="coverage">48<em>x</em></td>
+                    <td class="num">92</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      linewidth &lt;- grid::stringWidth(out_string[string_i])</pre>
+                      <pre class="language-r">      labeling::extended(range(data$time)[1], max(range(data$time)[2], max_time), m = 5)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">423</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">424</td>
-                    <td class="coverage">48<em>x</em></td>
+                    <td class="num">94</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gapwidth &lt;- grid::stringWidth(" ")</pre>
+                      <pre class="language-r">  } else if (checkmate::test_number(xticks)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">425</td>
-                    <td class="coverage">48<em>x</em></td>
+                    <td class="num">95</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    availwidth &lt;- as.numeric(width)</pre>
+                      <pre class="language-r">    if (is.null(max_time)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">426</td>
-                    <td class="coverage">48<em>x</em></td>
+                    <td class="num">96</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (length(newline_str) &gt; 1) {</pre>
+                      <pre class="language-r">      seq(0, max(data$time), xticks)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">427</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">97</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      for (i in seq(2, length(newline_str))) {</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">428</td>
-                    <td class="coverage">184<em>x</em></td>
+                    <td class="num">98</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        width_i &lt;- grid::stringWidth(newline_str[i])</pre>
+                      <pre class="language-r">      seq(0, max(data$time, max_time), xticks)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">429</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # Main conversion of allowed text width -&gt; npc units are 0&lt;npc&lt;1. External viewport is used for conversion</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">430</td>
-                    <td class="coverage">184<em>x</em></td>
+                    <td class="num">100</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (grid::convertWidth(linewidth + gapwidth + width_i, grid::unitType(width), valueOnly = TRUE) &lt; availwidth) {</pre>
+                      <pre class="language-r">  } else if (is.numeric(xticks)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">431</td>
-                    <td class="coverage">177<em>x</em></td>
+                    <td class="num">101</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          sep &lt;- " "</pre>
+                      <pre class="language-r">    xticks</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">432</td>
-                    <td class="coverage">177<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">102</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          linewidth &lt;- linewidth + gapwidth + width_i</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">433</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">103</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">    stop(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">434</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">104</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          sep &lt;- "\n"</pre>
+                      <pre class="language-r">      paste(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">435</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">105</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          linewidth &lt;- width_i</pre>
+                      <pre class="language-r">        "xticks should be either `NULL`",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">436</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">106</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">        "or a single number (interval between x ticks)",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">437</td>
-                    <td class="coverage">184<em>x</em></td>
+                    <td class="num">107</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        out_string[string_i] &lt;- paste(out_string[string_i], newline_str[i], sep = sep)</pre>
+                      <pre class="language-r">        "or a numeric vector (position of ticks on the x axis)"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">438</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">439</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">440</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">441</td>
-                    <td class="coverage">26<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  paste(out_string, collapse = "\n")</pre>
-                    </td>
-                  </tr>
                   <tr class="never">
-                    <td class="num">442</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">443</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">444</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Update page number</pre>
+                      <pre class="language-r">#' Helper function for survival estimations</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">445</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">446</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Automatically updates page number.</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">447</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">448</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param npages (`numeric(1)`)\cr total number of pages.</pre>
+                      <pre class="language-r">#' Transform a survival fit to a table with groups in rows characterized by N, median and confidence interval.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">449</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... arguments passed on to [decorate_grob()].</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">450</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @inheritParams h_data_plot</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">451</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Closure that increments the page number.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">452</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return A summary table with statistics `N`, `Median`, and `XX% CI` (`XX` taken from `fit_km`).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">453</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">454</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">decorate_grob_factory &lt;- function(npages, ...) {</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">455</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">124</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  current_page &lt;- 0</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">456</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">125</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  function(grob) {</pre>
+                      <pre class="language-r">#' library(survival)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">457</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">126</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    current_page &lt;&lt;- current_page + 1</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">458</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">127</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (current_page &gt; npages) {</pre>
+                      <pre class="language-r">#' adtte &lt;- tern_ex_adtte %&gt;% filter(PARAMCD == "OS")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">459</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">128</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stop(paste("current page is", current_page, "but max.", npages, "specified."))</pre>
+                      <pre class="language-r">#' fit &lt;- survfit(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">460</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'   formula = Surv(AVAL, 1 - CNSR) ~ ARMCD,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">461</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">130</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    decorate_grob(grob = grob, page = paste("Page", current_page, "of", npages), ...)</pre>
+                      <pre class="language-r">#'   data = adtte</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">462</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">463</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' h_tbl_median_surv(fit_km = fit)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">464</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">465</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Decorate set of `grob`s and add page numbering</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">466</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">h_tbl_median_surv &lt;- function(fit_km, armval = "All") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">467</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">136</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">  y &lt;- if (is.null(fit_km$strata)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">468</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">137</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    as.data.frame(t(summary(fit_km)$table), row.names = armval)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">469</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Note that this uses the [decorate_grob_factory()] function.</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">470</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">139</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    tbl &lt;- summary(fit_km)$table</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">471</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">140</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param grobs (`list` of `grob`)\cr a list of grid grobs.</pre>
+                      <pre class="language-r">    rownames_lst &lt;- strsplit(sub("=", "equals", rownames(tbl)), "equals")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">472</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">141</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... arguments passed on to [decorate_grob()].</pre>
+                      <pre class="language-r">    rownames(tbl) &lt;- matrix(unlist(rownames_lst), ncol = 2, byrow = TRUE)[, 2]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">473</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">142</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    as.data.frame(tbl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">474</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A decorated grob.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">475</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">144</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  conf.int &lt;- summary(fit_km)$conf.int # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">476</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">145</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  y$records &lt;- round(y$records)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">477</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">146</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(ggplot2)</pre>
+                      <pre class="language-r">  y$median &lt;- signif(y$median, 4)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">478</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">147</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(grid)</pre>
+                      <pre class="language-r">  y$`CI` &lt;- paste0(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">148</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    "(", signif(y[[paste0(conf.int, "LCL")]], 4), ", ", signif(y[[paste0(conf.int, "UCL")]], 4), ")"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">479</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g &lt;- with(data = iris, {</pre>
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">150</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  stats::setNames(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">151</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    y[c("records", "median", "CI")],</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">152</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    c("N", "Median", f_conf_level(conf.int))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">480</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   list(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">481</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ggplot2::ggplotGrob(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">482</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ggplot2::ggplot(mapping = aes(Sepal.Length, Sepal.Width, col = Species)) +</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">483</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         ggplot2::geom_point()</pre>
+                      <pre class="language-r">#' Helper function for generating a pairwise Cox-PH table</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">484</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">485</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ggplot2::ggplotGrob(</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">486</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ggplot2::ggplot(mapping = aes(Sepal.Length, Petal.Length, col = Species)) +</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">487</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         ggplot2::geom_point()</pre>
+                      <pre class="language-r">#' Create a `data.frame` of pairwise stratified or unstratified Cox-PH analysis results.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">488</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">489</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ggplot2::ggplotGrob(</pre>
+                      <pre class="language-r">#' @inheritParams g_km</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">490</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ggplot2::ggplot(mapping = aes(Sepal.Length, Petal.Width, col = Species)) +</pre>
+                      <pre class="language-r">#' @param annot_coxph_ref_lbls (`flag`)\cr whether the reference group should be explicitly printed in labels for the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">491</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         ggplot2::geom_point()</pre>
+                      <pre class="language-r">#'   `annot_coxph` table. If `FALSE` (default), only comparison groups will be printed in `annot_coxph` table labels.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">492</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">493</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ggplot2::ggplotGrob(</pre>
+                      <pre class="language-r">#' @return A `data.frame` containing statistics `HR`, `XX% CI` (`XX` taken from `control_coxph_pw`),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">494</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ggplot2::ggplot(mapping = aes(Sepal.Width, Petal.Length, col = Species)) +</pre>
+                      <pre class="language-r">#'   and `p-value (log-rank)`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">495</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         ggplot2::geom_point()</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">496</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ),</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">497</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ggplot2::ggplotGrob(</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">498</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ggplot2::ggplot(mapping = aes(Sepal.Width, Petal.Width, col = Species)) +</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">499</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         ggplot2::geom_point()</pre>
+                      <pre class="language-r">#' adtte &lt;- tern_ex_adtte %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">500</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ),</pre>
+                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">501</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ggplot2::ggplotGrob(</pre>
+                      <pre class="language-r">#'   mutate(is_event = CNSR == 0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">502</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       ggplot2::ggplot(mapping = aes(Petal.Length, Petal.Width, col = Species)) +</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">503</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         ggplot2::geom_point()</pre>
+                      <pre class="language-r">#' h_tbl_coxph_pairwise(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">504</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">#'   df = adtte,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">505</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#'   variables = list(tte = "AVAL", is_event = "is_event", arm = "ARM"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">506</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' })</pre>
+                      <pre class="language-r">#'   control_coxph_pw = control_coxph(conf_level = 0.9)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">507</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' lg &lt;- decorate_grob_set(grobs = g, titles = "Hello\nOne\nTwo\nThree", footnotes = "")</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">508</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">509</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' draw_grob(lg[[1]])</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">510</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' draw_grob(lg[[2]])</pre>
+                      <pre class="language-r">h_tbl_coxph_pairwise &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">511</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' draw_grob(lg[[6]])</pre>
+                      <pre class="language-r">                                 variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">512</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                 ref_group_coxph = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">513</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                                 control_coxph_pw = control_coxph(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">514</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">decorate_grob_set &lt;- function(grobs, ...) {</pre>
+                      <pre class="language-r">                                 annot_coxph_ref_lbls = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">515</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">188</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n &lt;- length(grobs)</pre>
+                      <pre class="language-r">  if ("strat" %in% names(variables)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">516</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">189</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lgf &lt;- decorate_grob_factory(npages = n, ...)</pre>
+                      <pre class="language-r">    warning(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">517</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">190</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lapply(grobs, lgf)</pre>
+                      <pre class="language-r">      "Warning: the `strat` element name of the `variables` list argument to `h_tbl_coxph_pairwise() ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">518</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">191</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      "was deprecated in tern 0.9.4.\n  ",</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/response_biomarkers_subgroups.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">192</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Tabulate biomarker effects on binary response by subgroup</pre>
+                      <pre class="language-r">      "Please use the name `strata` instead of `strat` in the `variables` argument."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">194</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">    variables[["strata"]] &lt;- variables[["strat"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The [tabulate_rsp_biomarkers()] function creates a layout element to tabulate the estimated biomarker effects on a</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">197</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' binary response endpoint across subgroups, returning statistics including response rate and odds ratio for each</pre>
+                      <pre class="language-r">  assert_df_with_variables(df, variables)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">198</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' population subgroup. The table is created from `df`, a list of data frames returned by [extract_rsp_biomarkers()],</pre>
+                      <pre class="language-r">  checkmate::assert_choice(ref_group_coxph, levels(df[[variables$arm]]), null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">199</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' with the statistics to include specified via the `vars` parameter.</pre>
+                      <pre class="language-r">  checkmate::assert_flag(annot_coxph_ref_lbls)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">201</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A forest plot can be created from the resulting table using the [g_forest()] function.</pre>
+                      <pre class="language-r">  arm &lt;- variables$arm</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">202</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  df[[arm]] &lt;- factor(df[[arm]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">204</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param df (`data.frame`)\cr containing all analysis variables, as returned by</pre>
+                      <pre class="language-r">  ref_group &lt;- if (!is.null(ref_group_coxph)) ref_group_coxph else levels(df[[variables$arm]])[1]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">205</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   [extract_rsp_biomarkers()].</pre>
+                      <pre class="language-r">  comp_group &lt;- setdiff(levels(df[[arm]]), ref_group)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param vars (`character`)\cr the names of statistics to be reported among:</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">207</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `n_tot`: Total number of patients per group.</pre>
+                      <pre class="language-r">  results &lt;- Map(function(comp) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">208</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `n_rsp`: Total number of responses per group.</pre>
+                      <pre class="language-r">    res &lt;- s_coxph_pairwise(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">209</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `prop`: Total response proportion per group.</pre>
+                      <pre class="language-r">      df = df[df[[arm]] == comp, , drop = FALSE],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">210</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `or`: Odds ratio.</pre>
+                      <pre class="language-r">      .ref_group = df[df[[arm]] == ref_group, , drop = FALSE],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">211</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `ci`: Confidence interval of odds ratio.</pre>
+                      <pre class="language-r">      .in_ref_col = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">212</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `pval`: p-value of the effect.</pre>
+                      <pre class="language-r">      .var = variables$tte,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">213</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Note, the statistics `n_tot`, `or` and `ci` are required.</pre>
+                      <pre class="language-r">      is_event = variables$is_event,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">214</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      strata = variables$strata,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">215</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return An `rtables` table summarizing biomarker effects on binary response by subgroup.</pre>
+                      <pre class="language-r">      control = control_coxph_pw</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">217</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details These functions create a layout starting from a data frame which contains</pre>
+                      <pre class="language-r">    res_df &lt;- data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">218</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the required statistics. The tables are then typically used as input for forest plots.</pre>
+                      <pre class="language-r">      hr = format(round(res$hr, 2), nsmall = 2),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">219</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      hr_ci = paste0(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">220</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note In contrast to [tabulate_rsp_subgroups()] this tabulation function does</pre>
+                      <pre class="language-r">        "(", format(round(res$hr_ci[1], 2), nsmall = 2), ", ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">221</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   not start from an input layout `lyt`. This is because internally the table is</pre>
+                      <pre class="language-r">        format(round(res$hr_ci[2], 2), nsmall = 2), ")"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   created by combining multiple subtables.</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">223</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      pvalue = if (res$pvalue &lt; 0.0001) "&lt;0.0001" else format(round(res$pvalue, 4), 4),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">224</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [h_tab_rsp_one_biomarker()] which is used internally, [extract_rsp_biomarkers()].</pre>
+                      <pre class="language-r">      stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">226</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    colnames(res_df) &lt;- c("HR", vapply(res[c("hr_ci", "pvalue")], obj_label, FUN.VALUE = "character"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">227</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">    row.names(res_df) &lt;- comp</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">228</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(forcats)</pre>
+                      <pre class="language-r">    res_df</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">229</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }, comp_group)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">230</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (annot_coxph_ref_lbls) names(results) &lt;- paste(comp_group, "vs.", ref_group)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adrs &lt;- tern_ex_adrs</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">232</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  do.call(rbind, results)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adrs_labels &lt;- formatters::var_labels(adrs)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adrs_f &lt;- adrs %&gt;%</pre>
+                      <pre class="language-r">#' Helper function to tidy survival fit data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(PARAMCD == "BESRSPI") %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mutate(rsp = AVALC == "CR")</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">238</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' formatters::var_labels(adrs_f) &lt;- c(adrs_labels, "Response")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Convert the survival fit data into a data frame designed for plotting</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- extract_rsp_biomarkers(</pre>
+                      <pre class="language-r">#' within `g_km`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     rsp = "rsp",</pre>
+                      <pre class="language-r">#' This starts from the [broom::tidy()] result, and then:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     biomarkers = c("BMRKR1", "AGE"),</pre>
+                      <pre class="language-r">#'   * Post-processes the `strata` column into a factor.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     covariates = "SEX",</pre>
+                      <pre class="language-r">#'   * Extends each stratum by an additional first row with time 0 and probability 1 so that</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     subgroups = "BMRKR2"</pre>
+                      <pre class="language-r">#'     downstream plot lines start at those coordinates.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#'   * Adds a `censor` column.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adrs_f</pre>
+                      <pre class="language-r">#'   * Filters the rows before `max_time`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @inheritParams g_km</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' \donttest{</pre>
+                      <pre class="language-r">#' @param fit_km (`survfit`)\cr result of [survival::survfit()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Table with default columns.</pre>
+                      <pre class="language-r">#' @param armval (`string`)\cr used as strata name when treatment arm variable only has one level. Default is `"All"`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tabulate_rsp_biomarkers(df)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return A `tibble` with columns `time`, `n.risk`, `n.event`, `n.censor`, `estimate`, `std.error`, `conf.high`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Table with a manually chosen set of columns: leave out "pval", reorder.</pre>
+                      <pre class="language-r">#'   `conf.low`, `strata`, and `censor`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tab &lt;- tabulate_rsp_biomarkers(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   df = df,</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   vars = c("n_rsp", "ci", "n_tot", "prop", "or")</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">258</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' library(survival)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Finally produce the forest plot.</pre>
+                      <pre class="language-r">#' # Test with multiple arms</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_forest(tab, xlim = c(0.7, 1.4))</pre>
+                      <pre class="language-r">#' tern_ex_adtte %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">262</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   survfit(formula = Surv(AVAL, 1 - CNSR) ~ ARMCD, data = .) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'   h_data_plot()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">265</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name response_biomarkers_subgroups</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">266</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">tabulate_rsp_biomarkers &lt;- function(df,</pre>
+                      <pre class="language-r">#' # Test with single arm</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">267</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    vars = c("n_tot", "n_rsp", "prop", "or", "ci", "pval"),</pre>
+                      <pre class="language-r">#' tern_ex_adtte %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">268</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    na_str = default_na_str(),</pre>
+                      <pre class="language-r">#'   filter(PARAMCD == "OS", ARMCD == "ARM B") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    .indent_mods = 0L) {</pre>
+                      <pre class="language-r">#'   survfit(formula = Surv(AVAL, 1 - CNSR) ~ ARMCD, data = .) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">270</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(df)</pre>
+                      <pre class="language-r">#'   h_data_plot(armval = "ARM B")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">271</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(df$biomarker)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">272</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(df$biomarker_label)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">273</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(vars, get_stats("tabulate_rsp_biomarkers"))</pre>
+                      <pre class="language-r">h_data_plot &lt;- function(fit_km,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">274</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                        armval = "All",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">275</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Create "ci" column from "lcl" and "ucl"</pre>
+                      <pre class="language-r">                        max_time = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">83</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">276</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df$ci &lt;- combine_vectors(df$lcl, df$ucl)</pre>
+                      <pre class="language-r">  y &lt;- broom::tidy(fit_km)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">277</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">85</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">278</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df_subs &lt;- split(df, f = df$biomarker)</pre>
+                      <pre class="language-r">  if (!is.null(fit_km$strata)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">279</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tabs &lt;- lapply(df_subs, FUN = function(df_sub) {</pre>
+                      <pre class="language-r">    fit_km_var_level &lt;- strsplit(sub("=", "equals", names(fit_km$strata)), "equals")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">280</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tab_sub &lt;- h_tab_rsp_one_biomarker(</pre>
+                      <pre class="language-r">    strata_levels &lt;- vapply(fit_km_var_level, FUN = "[", FUN.VALUE = "a", i = 2)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">88</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">281</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df = df_sub,</pre>
+                      <pre class="language-r">    strata_var_level &lt;- strsplit(sub("=", "equals", y$strata), "equals")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">89</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">282</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vars = vars,</pre>
+                      <pre class="language-r">    y$strata &lt;- factor(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">283</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      na_str = na_str,</pre>
+                      <pre class="language-r">      vapply(strata_var_level, FUN = "[", FUN.VALUE = "a", i = 2),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">91</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">284</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      .indent_mods = .indent_mods</pre>
+                      <pre class="language-r">      levels = strata_levels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Insert label row as first row in table.</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">94</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">287</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label_at_path(tab_sub, path = row_paths(tab_sub)[[1]][1]) &lt;- df_sub$biomarker_label[1]</pre>
+                      <pre class="language-r">    y$strata &lt;- armval</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">288</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tab_sub</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">289</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">97</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">290</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result &lt;- do.call(rbind, tabs)</pre>
+                      <pre class="language-r">  y_by_strata &lt;- split(y, y$strata)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">98</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">291</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  y_by_strata_extended &lt;- lapply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">99</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">292</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n_id &lt;- grep("n_tot", vars)</pre>
+                      <pre class="language-r">    y_by_strata,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">100</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">293</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  or_id &lt;- match("or", vars)</pre>
+                      <pre class="language-r">    FUN = function(tbl) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">294</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ci_id &lt;- match("ci", vars)</pre>
+                      <pre class="language-r">      first_row &lt;- tbl[1L, ]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">295</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  structure(</pre>
+                      <pre class="language-r">      first_row$time &lt;- 0</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">296</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result,</pre>
+                      <pre class="language-r">      first_row$n.risk &lt;- sum(first_row[, c("n.risk", "n.event", "n.censor")])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">104</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">297</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    forest_header = paste0(c("Lower", "Higher"), "\nBetter"),</pre>
+                      <pre class="language-r">      first_row$n.event &lt;- first_row$n.censor &lt;- 0</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">298</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    col_x = or_id,</pre>
+                      <pre class="language-r">      first_row$estimate &lt;- first_row$conf.high &lt;- first_row$conf.low &lt;- 1</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">299</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    col_ci = ci_id,</pre>
+                      <pre class="language-r">      first_row$std.error &lt;- 0</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">300</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    col_symbol_size = n_id</pre>
+                      <pre class="language-r">      rbind(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">108</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">301</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        first_row,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">109</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">302</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        tbl</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Prepare response data estimates for multiple biomarkers in a single data frame</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">305</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">113</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">306</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">  y &lt;- do.call(rbind, y_by_strata_extended)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">115</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">308</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Prepares estimates for number of responses, patients and overall response rate,</pre>
+                      <pre class="language-r">  y$censor &lt;- ifelse(y$n.censor &gt; 0, y$estimate, NA)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">116</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">309</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' as well as odds ratio estimates, confidence intervals and p-values,</pre>
+                      <pre class="language-r">  if (!is.null(max_time)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">310</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    y &lt;- y[y$time &lt;= max(max_time), ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">311</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' for multiple biomarkers across population subgroups in a single data frame.</pre>
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">312</td>
+                    <td class="coverage">18<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  y</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `variables` corresponds to the names of variables found in `data`, passed as a</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' named list and requires elements `rsp` and `biomarkers` (vector of continuous</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">315</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' biomarker variables) and optionally `covariates`, `subgroups` and `strata`.</pre>
+                      <pre class="language-r">## Deprecated Functions ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">316</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `groups_lists` optionally specifies groupings for `subgroups` variables.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">317</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Helper function to create a KM plot</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">318</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">319</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams response_subgroups</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param control (named `list`)\cr controls for the response definition and the</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   confidence level produced by [control_logistic()].</pre>
+                      <pre class="language-r">#' Draw the Kaplan-Meier plot using `ggplot2`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">322</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">323</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `data.frame` with columns `biomarker`, `biomarker_label`, `n_tot`, `n_rsp`,</pre>
+                      <pre class="language-r">#' @inheritParams g_km</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">324</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `prop`, `or`, `lcl`, `ucl`, `conf_level`, `pval`, `pval_label`, `subgroup`, `var`,</pre>
+                      <pre class="language-r">#' @param data (`data.frame`)\cr survival data as pre-processed by `h_data_plot`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">325</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `var_label`, and `row_type`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">326</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return A `ggplot` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">327</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note You can also specify a continuous variable in `rsp` and then use the</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">328</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `response_definition` control to convert that internally to a logical</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">329</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variable reflecting binary response.</pre>
+                      <pre class="language-r">#' \donttest{</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">330</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">331</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [h_logistic_mult_cont_df()] which is used internally.</pre>
+                      <pre class="language-r">#' library(survival)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">332</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">333</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' fit_km &lt;- tern_ex_adtte %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">334</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">335</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(forcats)</pre>
+                      <pre class="language-r">#'   survfit(formula = Surv(AVAL, 1 - CNSR) ~ ARMCD, data = .)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">336</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' data_plot &lt;- h_data_plot(fit_km = fit_km)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">337</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adrs &lt;- tern_ex_adrs</pre>
+                      <pre class="language-r">#' xticks &lt;- h_xticks(data = data_plot)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">338</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adrs_labels &lt;- formatters::var_labels(adrs)</pre>
+                      <pre class="language-r">#' gg &lt;- h_ggkm(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">339</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   data = data_plot,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">340</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adrs_f &lt;- adrs %&gt;%</pre>
+                      <pre class="language-r">#'   censor_show = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">341</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(PARAMCD == "BESRSPI") %&gt;%</pre>
+                      <pre class="language-r">#'   xticks = xticks,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">342</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mutate(rsp = AVALC == "CR")</pre>
+                      <pre class="language-r">#'   xlab = "Days",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">343</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   yval = "Survival",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">344</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Typical analysis of two continuous biomarkers `BMRKR1` and `AGE`,</pre>
+                      <pre class="language-r">#'   ylab = "Survival Probability",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">345</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # in logistic regression models with one covariate `RACE`. The subgroups</pre>
+                      <pre class="language-r">#'   title = "Survival"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">346</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # are defined by the levels of `BMRKR2`.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">347</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- extract_rsp_biomarkers(</pre>
+                      <pre class="language-r">#' gg</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">348</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">349</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     rsp = "rsp",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">350</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     biomarkers = c("BMRKR1", "AGE"),</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">351</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     covariates = "SEX",</pre>
+                      <pre class="language-r">h_ggkm &lt;- function(data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">352</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     subgroups = "BMRKR2"</pre>
+                      <pre class="language-r">                   xticks = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">353</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">                   yval = "Survival",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">354</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adrs_f</pre>
+                      <pre class="language-r">                   censor_show,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">355</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">                   xlab,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">356</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df</pre>
+                      <pre class="language-r">                   ylab,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">357</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                   ylim = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">358</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Here we group the levels of `BMRKR2` manually, and we add a stratification</pre>
+                      <pre class="language-r">                   title,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">359</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # variable `STRATA1`. We also here use a continuous variable `EOSDY`</pre>
+                      <pre class="language-r">                   footnotes = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">360</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # which is then binarized internally (response is defined as this variable</pre>
+                      <pre class="language-r">                   max_time = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">361</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # being larger than 750).</pre>
+                      <pre class="language-r">                   lwd = 1,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">362</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df_grouped &lt;- extract_rsp_biomarkers(</pre>
+                      <pre class="language-r">                   lty = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">363</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">                   pch = 3,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">364</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     rsp = "EOSDY",</pre>
+                      <pre class="language-r">                   size = 2,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">365</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     biomarkers = c("BMRKR1", "AGE"),</pre>
+                      <pre class="language-r">                   col = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">366</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     covariates = "SEX",</pre>
+                      <pre class="language-r">                   ci_ribbon = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">367</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     subgroups = "BMRKR2",</pre>
+                      <pre class="language-r">                   ggtheme = nestcolor::theme_nest()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">173</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">368</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     strata = "STRATA1"</pre>
+                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">174</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">369</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">    "0.9.4",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">175</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">370</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adrs_f,</pre>
+                      <pre class="language-r">    "h_ggkm()",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">176</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">371</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   groups_lists = list(</pre>
+                      <pre class="language-r">    details = "`g_km` now generates `ggplot` objects. This function is no longer used within `tern`."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">372</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     BMRKR2 = list(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">178</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">373</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "low" = "LOW",</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(lty, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">179</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">374</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "low/medium" = c("LOW", "MEDIUM"),</pre>
+                      <pre class="language-r">  checkmate::assert_character(col, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">375</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "low/medium/high" = c("LOW", "MEDIUM", "HIGH")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">181</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">376</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">  if (is.null(ylim)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">182</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">377</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">    data_lims &lt;- data</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">183</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">378</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   control = control_logistic(</pre>
+                      <pre class="language-r">    if (yval == "Failure") data_lims[["estimate"]] &lt;- 1 - data_lims[["estimate"]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">184</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">379</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     response_definition = "I(response &gt; 750)"</pre>
+                      <pre class="language-r">    if (!is.null(max_time)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">185</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">380</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">      y_lwr &lt;- min(data_lims[data_lims$time &lt; max_time, ][["estimate"]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">186</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">381</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">      y_upr &lt;- max(data_lims[data_lims$time &lt; max_time, ][["estimate"]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">382</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df_grouped</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">188</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">383</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      y_lwr &lt;- min(data_lims[["estimate"]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">189</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">384</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">      y_upr &lt;- max(data_lims[["estimate"]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">385</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">extract_rsp_biomarkers &lt;- function(variables,</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">191</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">386</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   data,</pre>
+                      <pre class="language-r">    ylim &lt;- c(y_lwr, y_upr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">387</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   groups_lists = list(),</pre>
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">388</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_numeric(ylim, finite = TRUE, any.missing = FALSE, len = 2, sorted = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">389</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   control = control_logistic(),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">390</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   label_all = "All Patients") {</pre>
+                      <pre class="language-r">  # change estimates of survival to estimates of failure (1 - survival)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">391</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if ("strat" %in% names(variables)) {</pre>
+                      <pre class="language-r">  if (yval == "Failure") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">196</td>
+                    <td class="num">392</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning(</pre>
+                      <pre class="language-r">    data$estimate &lt;- 1 - data$estimate</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">197</td>
+                    <td class="num">393</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Warning: the `strat` element name of the `variables` list argument to `extract_rsp_biomarkers() ",</pre>
+                      <pre class="language-r">    data[c("conf.high", "conf.low")] &lt;- list(1 - data$conf.low, 1 - data$conf.high)</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">198</td>
+                    <td class="num">394</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "was deprecated in tern 0.9.4.\n  ",</pre>
+                      <pre class="language-r">    data$censor &lt;- 1 - data$censor</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">199</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">395</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Please use the name `strata` instead of `strat` in the `variables` argument."</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">396</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">201</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">397</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    variables[["strata"]] &lt;- variables[["strat"]]</pre>
+                      <pre class="language-r">  gg &lt;- {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">202</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">398</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    ggplot2::ggplot(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">203</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">399</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      data = data,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">204</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">400</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_list_of_variables(variables)</pre>
+                      <pre class="language-r">      mapping = ggplot2::aes(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">401</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(variables$rsp)</pre>
+                      <pre class="language-r">        x = .data[["time"]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">402</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(variables$subgroups, null.ok = TRUE)</pre>
+                      <pre class="language-r">        y = .data[["estimate"]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">403</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label_all)</pre>
+                      <pre class="language-r">        ymin = .data[["conf.low"]],</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">404</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        ymax = .data[["conf.high"]],</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">405</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        color = .data[["strata"]],</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">406</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        fill = .data[["strata"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">407</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">408</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Start with all patients.</pre>
+                      <pre class="language-r">    ) +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">409</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result_all &lt;- h_logistic_mult_cont_df(</pre>
+                      <pre class="language-r">      ggplot2::geom_hline(yintercept = 0)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">410</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    variables = variables,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">212</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">411</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data = data,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">412</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    control = control</pre>
+                      <pre class="language-r">  if (ci_ribbon) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">413</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    gg &lt;- gg + ggplot2::geom_ribbon(alpha = .3, lty = 0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">414</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">415</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result_all$subgroup &lt;- label_all</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">216</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">416</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result_all$var &lt;- "ALL"</pre>
+                      <pre class="language-r">  gg &lt;- if (is.null(lty)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">217</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">417</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result_all$var_label &lt;- label_all</pre>
+                      <pre class="language-r">    gg +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">218</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">418</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result_all$row_type &lt;- "content"</pre>
+                      <pre class="language-r">      ggplot2::geom_step(linewidth = lwd)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">419</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(variables$subgroups)) {</pre>
+                      <pre class="language-r">  } else if (checkmate::test_number(lty)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">220</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">420</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Only return result for all patients.</pre>
+                      <pre class="language-r">    gg +</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">421</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      ggplot2::geom_step(linewidth = lwd, lty = lty)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">221</td>
+                    <td class="num">422</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result_all</pre>
+                      <pre class="language-r">  } else if (is.numeric(lty)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">222</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">423</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">    gg +</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">424</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      ggplot2::geom_step(mapping = ggplot2::aes(linetype = .data[["strata"]]), linewidth = lwd) +</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">425</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      ggplot2::scale_linetype_manual(values = lty)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">223</td>
+                    <td class="num">426</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Add subgroups results.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">427</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    l_data &lt;- h_split_by_subgroups(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">225</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">428</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data,</pre>
+                      <pre class="language-r">  gg &lt;- gg +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">429</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      variables$subgroups,</pre>
+                      <pre class="language-r">    ggplot2::coord_cartesian(ylim = ylim) +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">430</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      groups_lists = groups_lists</pre>
+                      <pre class="language-r">    ggplot2::labs(x = xlab, y = ylab, title = title, caption = footnotes)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</td>
+                    <td class="num">431</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">229</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">432</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    l_result &lt;- lapply(l_data, function(grp) {</pre>
+                      <pre class="language-r">  if (!is.null(col)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">433</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      result &lt;- h_logistic_mult_cont_df(</pre>
+                      <pre class="language-r">    gg &lt;- gg +</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">231</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">434</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        variables = variables,</pre>
+                      <pre class="language-r">      ggplot2::scale_color_manual(values = col) +</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">435</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data = grp$df,</pre>
+                      <pre class="language-r">      ggplot2::scale_fill_manual(values = col)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">233</td>
-                    <td class="coverage">20<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">436</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        control = control</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">234</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">437</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  if (censor_show) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">235</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="num">438</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      result_labels &lt;- grp$df_labels[rep(1, times = nrow(result)), ]</pre>
+                      <pre class="language-r">    dt &lt;- data[data$n.censor != 0, ]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">236</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="num">439</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cbind(result, result_labels)</pre>
+                      <pre class="language-r">    dt$censor_lbl &lt;- factor("Censored")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">237</td>
+                    <td class="num">440</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">238</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">441</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result_subgroups &lt;- do.call(rbind, args = c(l_result, make.row.names = FALSE))</pre>
+                      <pre class="language-r">    gg &lt;- gg + ggplot2::geom_point(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">239</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">442</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result_subgroups$row_type &lt;- "analysis"</pre>
+                      <pre class="language-r">      data = dt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">240</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">443</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rbind(</pre>
+                      <pre class="language-r">      ggplot2::aes(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">241</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">444</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      result_all,</pre>
+                      <pre class="language-r">        x = .data[["time"]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">242</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">445</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      result_subgroups</pre>
+                      <pre class="language-r">        y = .data[["censor"]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">243</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">446</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        shape = .data[["censor_lbl"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">447</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">245</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">448</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      size = size,</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/summarize_glm_count.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">449</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># summarize_glm_count ----------------------------------------------------------</pre>
+                      <pre class="language-r">      show.legend = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">450</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Summarize Poisson negative binomial regression</pre>
+                      <pre class="language-r">      inherit.aes = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">451</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    ) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">452</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">      ggplot2::scale_shape_manual(name = NULL, values = pch) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">453</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      ggplot2::guides(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">454</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Summarize results of a Poisson negative binomial regression.</pre>
+                      <pre class="language-r">        shape = ggplot2::guide_legend(override.aes = list(linetype = NA)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">455</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This can be used to analyze count and/or frequency data using a linear model.</pre>
+                      <pre class="language-r">        fill = ggplot2::guide_legend(override.aes = list(shape = NA))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">456</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' It is specifically useful for analyzing count data (using the Poisson or Negative</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">457</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Binomial distribution) that is result of a generalized linear model of one (e.g. arm) or more</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">458</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' covariates.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">459</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if (!is.null(max_time) &amp;&amp; !is.null(xticks)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">460</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_glm_count</pre>
+                      <pre class="language-r">    gg &lt;- gg + ggplot2::scale_x_continuous(breaks = xticks, limits = c(min(0, xticks), max(c(xticks, max_time))))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">461</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">  } else if (!is.null(xticks)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">462</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param rate_mean_method (`character(1)`)\cr method used to estimate the mean odds ratio. Defaults to `emmeans`.</pre>
+                      <pre class="language-r">    if (max(data$time) &lt;= max(xticks)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">463</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   see details for more information.</pre>
+                      <pre class="language-r">      gg &lt;- gg + ggplot2::scale_x_continuous(breaks = xticks, limits = c(min(0, min(xticks)), max(xticks)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">464</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param scale (`numeric(1)`)\cr linear scaling factor for rate and confidence intervals. Defaults to `1`.</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">465</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("summarize_glm_count")`</pre>
+                      <pre class="language-r">      gg &lt;- gg + ggplot2::scale_x_continuous(breaks = xticks)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">466</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to see available statistics for this function.</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">467</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  } else if (!is.null(max_time)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">468</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details</pre>
+                      <pre class="language-r">    gg &lt;- gg + ggplot2::scale_x_continuous(limits = c(0, max_time))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">469</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `summarize_glm_count()` uses `s_glm_count()` to calculate the statistics for the table. This</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">470</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' analysis function uses [h_glm_count()] to estimate the GLM with [stats::glm()] for Poisson and Quasi-Poisson</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">471</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' distributions or [MASS::glm.nb()] for Negative Binomial distribution. All methods assume a</pre>
+                      <pre class="language-r">  if (!is.null(ggtheme)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">472</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' logarithmic link function.</pre>
+                      <pre class="language-r">    gg &lt;- gg + ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">473</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">474</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' At this point, rates and confidence intervals are estimated from the model using</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">475</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' either [emmeans::emmeans()] when `rate_mean_method = "emmeans"` or [h_ppmeans()]</pre>
+                      <pre class="language-r">  gg + ggplot2::theme(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">476</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' when `rate_mean_method = "ppmeans"`.</pre>
+                      <pre class="language-r">    legend.position = "bottom",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">477</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    legend.title = ggplot2::element_blank(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">478</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' If a reference group is specified while building the table with `split_cols_by(ref_group)`,</pre>
+                      <pre class="language-r">    legend.key.height = unit(0.02, "npc"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">479</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' no rate ratio or `p-value` are calculated. Otherwise, we use [emmeans::contrast()] to</pre>
+                      <pre class="language-r">    panel.grid.major.x = ggplot2::element_line(linewidth = 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">480</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' calculate the rate ratio and `p-value` for the reference group. Values are always estimated</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">481</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' with `method = "trt.vs.ctrl"` and `ref` equal to the first `arm` value.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">482</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">483</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name summarize_glm_count</pre>
+                      <pre class="language-r">#' `ggplot` decomposition</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">484</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">485</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">486</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn summarize_glm_count Layout-creating function which can take statistics function arguments</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">487</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
+                      <pre class="language-r">#' The elements composing the `ggplot` are extracted and organized in a `list`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">488</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">489</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' @param gg (`ggplot`)\cr a graphic to decompose.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">490</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `summarize_glm_count()` returns a layout object suitable for passing to further layouting functions,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">491</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
+                      <pre class="language-r">#' @return A named `list` with elements:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">492</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the statistics from `s_glm_count()` to the table layout.</pre>
+                      <pre class="language-r">#'   * `panel`: The panel.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">493</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   * `yaxis`: The y-axis.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">494</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   * `xaxis`: The x-axis.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">495</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">#'   * `xlab`: The x-axis label.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">496</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   * `ylab`: The y-axis label.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">497</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' anl &lt;- tern_ex_adtte %&gt;% filter(PARAMCD == "TNE")</pre>
+                      <pre class="language-r">#'   * `guide`: The legend.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">498</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' anl$AVAL_f &lt;- as.factor(anl$AVAL)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">499</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">500</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">#' \donttest{</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">501</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARM", ref_group = "B: Placebo") %&gt;%</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">502</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                      <pre class="language-r">#' library(survival)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">503</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze_vars(</pre>
+                      <pre class="language-r">#' library(grid)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">504</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "AVAL_f",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">505</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     var_labels = "Number of exacerbations per patient",</pre>
+                      <pre class="language-r">#' fit_km &lt;- tern_ex_adtte %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">506</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .stats = c("count_fraction"),</pre>
+                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">507</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .formats = c("count_fraction" = "xx (xx.xx%)"),</pre>
+                      <pre class="language-r">#'   survfit(formula = Surv(AVAL, 1 - CNSR) ~ ARMCD, data = .)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">508</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .labels = c("Number of exacerbations per patient")</pre>
+                      <pre class="language-r">#' data_plot &lt;- h_data_plot(fit_km = fit_km)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">509</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">#' xticks &lt;- h_xticks(data = data_plot)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">510</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   summarize_glm_count(</pre>
+                      <pre class="language-r">#' gg &lt;- h_ggkm(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">511</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     vars = "AVAL",</pre>
+                      <pre class="language-r">#'   data = data_plot,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">512</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     variables = list(arm = "ARM", offset = "lgTMATRSK", covariates = NULL),</pre>
+                      <pre class="language-r">#'   yval = "Survival",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">513</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     conf_level = 0.95,</pre>
+                      <pre class="language-r">#'   censor_show = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">514</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     distribution = "poisson",</pre>
+                      <pre class="language-r">#'   xticks = xticks, xlab = "Days", ylab = "Survival Probability",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">515</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     rate_mean_method = "emmeans",</pre>
+                      <pre class="language-r">#'   title = "tt",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">516</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     var_labels = "Adjusted (P) exacerbation rate (per year)",</pre>
+                      <pre class="language-r">#'   footnotes = "ff"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">517</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     table_names = "adjP",</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">518</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .stats = c("rate"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">519</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .labels = c(rate = "Rate")</pre>
+                      <pre class="language-r">#' g_el &lt;- h_decompose_gg(gg)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">520</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">#' grid::grid.newpage()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">521</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   summarize_glm_count(</pre>
+                      <pre class="language-r">#' grid.rect(gp = grid::gpar(lty = 1, col = "red", fill = "gray85", lwd = 5))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">522</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     vars = "AVAL",</pre>
+                      <pre class="language-r">#' grid::grid.draw(g_el$panel)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">523</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     variables = list(arm = "ARM", offset = "lgTMATRSK", covariates = c("REGION1")),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">524</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     conf_level = 0.95,</pre>
+                      <pre class="language-r">#' grid::grid.newpage()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">525</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     distribution = "quasipoisson",</pre>
+                      <pre class="language-r">#' grid.rect(gp = grid::gpar(lty = 1, col = "royalblue", fill = "gray85", lwd = 5))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">526</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     rate_mean_method = "ppmeans",</pre>
+                      <pre class="language-r">#' grid::grid.draw(with(g_el, cbind(ylab, yaxis)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">527</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     var_labels = "Adjusted (QP) exacerbation rate (per year)",</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">528</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     table_names = "adjQP",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">529</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .stats = c("rate", "rate_ci", "rate_ratio", "rate_ratio_ci", "pval"),</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">530</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .labels = c(</pre>
+                      <pre class="language-r">h_decompose_gg &lt;- function(gg) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">83</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">531</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       rate = "Rate", rate_ci = "Rate CI", rate_ratio = "Rate Ratio",</pre>
+                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">84</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">532</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       rate_ratio_ci = "Rate Ratio CI", pval = "p value"</pre>
+                      <pre class="language-r">    "0.9.4",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">533</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">    "h_decompose_gg()",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">86</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">534</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">    details = "`g_km` now generates `ggplot` objects. This function is no longer used within `tern`."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">535</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">88</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">536</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' build_table(lyt = lyt, df = anl)</pre>
+                      <pre class="language-r">  g_el &lt;- ggplot2::ggplotGrob(gg)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">89</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">537</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  y &lt;- c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">90</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">538</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    panel = "panel",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">91</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">539</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">summarize_glm_count &lt;- function(lyt,</pre>
+                      <pre class="language-r">    yaxis = "axis-l",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">92</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">540</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                vars,</pre>
+                      <pre class="language-r">    xaxis = "axis-b",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">93</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">541</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                variables,</pre>
+                      <pre class="language-r">    xlab = "xlab-b",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">94</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">542</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                distribution,</pre>
+                      <pre class="language-r">    ylab = "ylab-l",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">95</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">543</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                conf_level,</pre>
+                      <pre class="language-r">    guide = "guide"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">544</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                rate_mean_method = c("emmeans", "ppmeans")[1],</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">97</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">545</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                weights = stats::weights,</pre>
+                      <pre class="language-r">  lapply(X = y, function(x) gtable::gtable_filter(g_el, x))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">546</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                scale = 1,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">547</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                var_labels,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">548</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                na_str = default_na_str(),</pre>
+                      <pre class="language-r">#' Helper function to prepare a KM layout</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">549</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                nested = TRUE,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">550</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                ...,</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">551</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                show_labels = "visible",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">552</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                table_names = vars,</pre>
+                      <pre class="language-r">#' Prepares a (5 rows) x (2 cols) layout for the Kaplan-Meier curve.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">553</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                .stats = get_stats("summarize_glm_count"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">554</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                .formats = NULL,</pre>
+                      <pre class="language-r">#' @inheritParams g_km</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">555</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                .labels = NULL,</pre>
+                      <pre class="language-r">#' @inheritParams h_ggkm</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">556</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                .indent_mods = c(</pre>
+                      <pre class="language-r">#' @param g_el (`list` of `gtable`)\cr list as obtained by `h_decompose_gg()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">557</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  "n" = 0L,</pre>
+                      <pre class="language-r">#' @param annot_at_risk (`flag`)\cr compute and add the annotation table reporting the number of</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">558</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  "rate" = 0L,</pre>
+                      <pre class="language-r">#'   patient at risk matching the main grid of the Kaplan-Meier curve.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">559</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  "rate_ci" = 1L,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">560</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  "rate_ratio" = 0L,</pre>
+                      <pre class="language-r">#' @return A grid layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">561</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  "rate_ratio_ci" = 1L,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">562</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  "pval" = 1L</pre>
+                      <pre class="language-r">#' @details The layout corresponds to a grid of two columns and five rows of unequal dimensions. Most of the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">563</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                )) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_choice(rate_mean_method, c("emmeans", "ppmeans"))</pre>
+                      <pre class="language-r">#'   dimension are fixed, only the curve is flexible and will accommodate with the remaining free space.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">564</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">118</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    variables = variables, distribution = distribution, conf_level = conf_level,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">120</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    rate_mean_method = rate_mean_method, weights = weights, scale = scale, ...</pre>
+                      <pre class="language-r">#'   * The left column gets the annotation of the `ggplot` (y-axis) and the names of the strata for the patient</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">565</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'     at risk tabulation. The main constraint is about the width of the columns which must allow the writing of</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">566</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     the strata name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">567</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Selecting parameters following the statistics</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  .formats &lt;- get_formats_from_stats(.stats, formats_in = .formats)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  .labels &lt;- get_labels_from_stats(.stats, labels_in = .labels)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  .indent_mods &lt;- get_indents_from_stats(.stats, indents_in = .indent_mods)</pre>
+                      <pre class="language-r">#'   * The right column receive the `ggplot`, the legend, the x-axis and the patient at risk table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">568</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  afun &lt;- make_afun(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    s_glm_count,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    .stats = .stats,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    .formats = .formats,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    .labels = .labels,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    .indent_mods = .indent_mods,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    .null_ref_cells = FALSE</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">569</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">570</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  analyze(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    lyt,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    vars,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    var_labels = var_labels,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    show_labels = show_labels,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    table_names = table_names,</pre>
+                      <pre class="language-r">#' \donttest{</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">571</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    afun = afun,</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">572</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">#' library(survival)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">145</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">573</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nested = nested,</pre>
+                      <pre class="language-r">#' library(grid)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">574</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args = extra_args</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">575</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' fit_km &lt;- tern_ex_adtte %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">576</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">577</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   survfit(formula = Surv(AVAL, 1 - CNSR) ~ ARMCD, data = .)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">578</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn summarize_glm_count Statistics function that produces a named list of results</pre>
+                      <pre class="language-r">#' data_plot &lt;- h_data_plot(fit_km = fit_km)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">579</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   of the investigated Poisson model.</pre>
+                      <pre class="language-r">#' xticks &lt;- h_xticks(data = data_plot)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">580</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' gg &lt;- h_ggkm(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">581</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'   data = data_plot,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">582</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_glm_count()` returns a named `list` of 5 statistics:</pre>
+                      <pre class="language-r">#'   censor_show = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">583</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `n`: Count of complete sample size for the group.</pre>
+                      <pre class="language-r">#'   xticks = xticks, xlab = "Days", ylab = "Survival Probability",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">584</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `rate`: Estimated event rate per follow-up time.</pre>
+                      <pre class="language-r">#'   title = "tt", footnotes = "ff", yval = "Survival"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">585</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `rate_ci`: Confidence level for estimated rate per follow-up time.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">586</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `rate_ratio`: Ratio of event rates in each treatment arm to the reference arm.</pre>
+                      <pre class="language-r">#' g_el &lt;- h_decompose_gg(gg)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">587</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `rate_ratio_ci`: Confidence level for the rate ratio.</pre>
+                      <pre class="language-r">#' lyt &lt;- h_km_layout(data = data_plot, g_el = g_el, title = "t", footnotes = "f")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">588</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `pval`: p-value.</pre>
+                      <pre class="language-r">#' grid.show.layout(lyt)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">589</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">590</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">591</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_glm_count &lt;- function(df,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">592</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        .var,</pre>
+                      <pre class="language-r">h_km_layout &lt;- function(data, g_el, title, footnotes, annot_at_risk = TRUE, annot_at_risk_title = TRUE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">165</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">593</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        .df_row,</pre>
+                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">166</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">594</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        variables,</pre>
+                      <pre class="language-r">    "0.9.4",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">167</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">595</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        .ref_group,</pre>
+                      <pre class="language-r">    "h_km_layout()",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">168</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">596</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        .in_ref_col,</pre>
+                      <pre class="language-r">    details = "`g_km` now generates `ggplot` objects. This function is no longer used within `tern`."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">597</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        distribution,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">170</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">598</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        conf_level,</pre>
+                      <pre class="language-r">  txtlines &lt;- levels(as.factor(data$strata))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">171</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">599</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        rate_mean_method,</pre>
+                      <pre class="language-r">  nlines &lt;- nlevels(as.factor(data$strata))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">172</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">600</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        weights,</pre>
+                      <pre class="language-r">  col_annot_width &lt;- max(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">173</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">601</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        scale = 1) {</pre>
+                      <pre class="language-r">    c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">602</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  arm &lt;- variables$arm</pre>
+                      <pre class="language-r">      as.numeric(grid::convertX(g_el$yaxis$widths + g_el$ylab$widths, "pt")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">175</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">603</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      as.numeric(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">604</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- df[[.var]]</pre>
+                      <pre class="language-r">        grid::convertX(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">177</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">605</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  smry_level &lt;- as.character(unique(df[[arm]]))</pre>
+                      <pre class="language-r">          grid::stringWidth(txtlines) + grid::unit(7, "pt"), "pt"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">606</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">607</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # ensure there is only 1 value</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">608</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_scalar(smry_level)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">609</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">182</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">610</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  results &lt;- h_glm_count(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">183</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">611</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .var = .var,</pre>
+                      <pre class="language-r">  ttl_row &lt;- as.numeric(!is.null(title))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">612</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .df_row = .df_row,</pre>
+                      <pre class="language-r">  foot_row &lt;- as.numeric(!is.null(footnotes))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">613</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    variables = variables,</pre>
+                      <pre class="language-r">  no_tbl_ind &lt;- c()</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">614</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    distribution = distribution,</pre>
+                      <pre class="language-r">  ht_x &lt;- c()</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">13<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    weights</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">188</td>
-                    <td class="coverage"></td>
+                    <td class="num">615</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  ht_units &lt;- c()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">616</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">617</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (rate_mean_method == "emmeans") {</pre>
+                      <pre class="language-r">  if (ttl_row == 1) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">618</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    emmeans_smry &lt;- summary(results$emmeans_fit, level = conf_level)</pre>
+                      <pre class="language-r">    no_tbl_ind &lt;- c(no_tbl_ind, TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">192</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">619</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (rate_mean_method == "ppmeans") {</pre>
+                      <pre class="language-r">    ht_x &lt;- c(ht_x, 2)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">193</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">620</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    emmeans_smry &lt;- h_ppmeans(results$glm_fit, .df_row, arm, conf_level)</pre>
+                      <pre class="language-r">    ht_units &lt;- c(ht_units, "lines")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">621</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">622</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">623</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  emmeans_smry_level &lt;- emmeans_smry[emmeans_smry[[arm]] == smry_level, ]</pre>
+                      <pre class="language-r">  no_tbl_ind &lt;- c(no_tbl_ind, rep(TRUE, 3), rep(FALSE, 2))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">197</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">624</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  ht_x &lt;- c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">198</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">625</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # This happens if there is a reference col. No Ratio is calculated?</pre>
+                      <pre class="language-r">    ht_x,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">626</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (.in_ref_col) {</pre>
+                      <pre class="language-r">    1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">200</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">627</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list(</pre>
+                      <pre class="language-r">    grid::convertX(with(g_el, xaxis$heights + ylab$widths), "pt") + grid::unit(5, "pt"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">201</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">628</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n = length(y[!is.na(y)]),</pre>
+                      <pre class="language-r">    grid::convertX(g_el$guide$heights, "pt") + grid::unit(2, "pt"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">629</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rate = formatters::with_label(</pre>
+                      <pre class="language-r">    1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">203</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">630</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ifelse(distribution == "negbin", emmeans_smry_level$response * scale, emmeans_smry_level$rate * scale),</pre>
+                      <pre class="language-r">    nlines + 0.5,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">204</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">631</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Adjusted Rate"</pre>
+                      <pre class="language-r">    grid::convertX(with(g_el, xaxis$heights + ylab$widths), "pt")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">205</td>
+                    <td class="num">632</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">633</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rate_ci = formatters::with_label(</pre>
+                      <pre class="language-r">  ht_units &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">634</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        c(emmeans_smry_level$asymp.LCL * scale, emmeans_smry_level$asymp.UCL * scale),</pre>
+                      <pre class="language-r">    ht_units,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">635</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        f_conf_level(conf_level)</pre>
+                      <pre class="language-r">    "null",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">209</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">636</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">    "pt",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">637</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rate_ratio = formatters::with_label(character(), "Adjusted Rate Ratio"),</pre>
+                      <pre class="language-r">    "pt",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">638</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rate_ratio_ci = formatters::with_label(character(), f_conf_level(conf_level)),</pre>
+                      <pre class="language-r">    "lines",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">212</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">639</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pval = formatters::with_label(character(), "p-value")</pre>
+                      <pre class="language-r">    "lines",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">213</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">640</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    "pt"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">641</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">8<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    emmeans_contrasts &lt;- emmeans::contrast(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">216</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">642</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      results$emmeans_fit,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">217</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">643</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      method = "trt.vs.ctrl",</pre>
+                      <pre class="language-r">  if (foot_row == 1) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">218</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">644</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ref = grep(</pre>
+                      <pre class="language-r">    no_tbl_ind &lt;- c(no_tbl_ind, TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">645</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        as.character(unique(.ref_group[[arm]])),</pre>
+                      <pre class="language-r">    ht_x &lt;- c(ht_x, 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">8<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        as.data.frame(results$emmeans_fit)[[arm]]</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">221</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">222</td>
-                    <td class="coverage"></td>
+                    <td class="num">646</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    ht_units &lt;- c(ht_units, "lines")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">223</td>
+                    <td class="num">647</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">648</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    contrasts_smry &lt;- summary(</pre>
+                      <pre class="language-r">  if (annot_at_risk) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">225</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">649</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      emmeans_contrasts,</pre>
+                      <pre class="language-r">    no_at_risk_tbl &lt;- rep(TRUE, 6 + ttl_row + foot_row)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">650</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      infer = TRUE,</pre>
+                      <pre class="language-r">    if (!annot_at_risk_title) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">651</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      adjust = "none"</pre>
+                      <pre class="language-r">      no_at_risk_tbl[length(no_at_risk_tbl) - 2 - foot_row] &lt;- FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</td>
+                    <td class="num">652</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</td>
+                    <td class="num">653</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">654</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    smry_contrasts_level &lt;- contrasts_smry[grepl(smry_level, contrasts_smry$contrast), ]</pre>
+                      <pre class="language-r">    no_at_risk_tbl &lt;- no_tbl_ind</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">231</td>
+                    <td class="num">655</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">656</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">233</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">657</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n = length(y[!is.na(y)]),</pre>
+                      <pre class="language-r">  grid::grid.layout(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">658</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rate = formatters::with_label(</pre>
+                      <pre class="language-r">    nrow = sum(no_at_risk_tbl), ncol = 2,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">235</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">659</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ifelse(distribution == "negbin",</pre>
+                      <pre class="language-r">    widths = grid::unit(c(col_annot_width, 1), c("pt", "null")),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">236</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">660</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          emmeans_smry_level$response * scale,</pre>
+                      <pre class="language-r">    heights = grid::unit(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">237</td>
-                    <td class="coverage">8<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          emmeans_smry_level$rate * scale</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">238</td>
-                    <td class="coverage"></td>
+                    <td class="num">661</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">      x = ht_x[no_at_risk_tbl],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">239</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">662</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Adjusted Rate"</pre>
+                      <pre class="language-r">      units = ht_units[no_at_risk_tbl]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">663</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">241</td>
-                    <td class="coverage">8<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      rate_ci = formatters::with_label(</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">242</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">664</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        c(emmeans_smry_level$asymp.LCL * scale, emmeans_smry_level$asymp.UCL * scale),</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">243</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">665</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        f_conf_level(conf_level)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">666</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">245</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">667</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rate_ratio = formatters::with_label(</pre>
+                      <pre class="language-r">#' Helper function to create patient-at-risk grobs</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">246</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">668</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        smry_contrasts_level$ratio,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">247</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">669</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Adjusted Rate Ratio"</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">670</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">249</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">671</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rate_ratio_ci = formatters::with_label(</pre>
+                      <pre class="language-r">#' Two graphical objects are obtained, one corresponding to row labeling and the second to the table of</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">250</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">672</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        c(smry_contrasts_level$asymp.LCL, smry_contrasts_level$asymp.UCL),</pre>
+                      <pre class="language-r">#' numbers of patients at risk. If `title = TRUE`, a third object corresponding to the table title is</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">251</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">673</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        f_conf_level(conf_level)</pre>
+                      <pre class="language-r">#' also obtained.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</td>
+                    <td class="num">674</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">253</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">675</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pval = formatters::with_label(</pre>
+                      <pre class="language-r">#' @inheritParams g_km</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">254</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">676</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        smry_contrasts_level$p.value,</pre>
+                      <pre class="language-r">#' @inheritParams h_ggkm</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">255</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">677</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "p-value"</pre>
+                      <pre class="language-r">#' @param annot_tbl (`data.frame`)\cr annotation as prepared by [survival::summary.survfit()] which</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">256</td>
+                    <td class="num">678</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'   includes the number of patients at risk at given time points.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">679</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' @param xlim (`numeric(1)`)\cr the maximum value on the x-axis (used to ensure the at risk table aligns with the KM</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">680</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   graph).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">259</td>
+                    <td class="num">681</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @param title (`flag`)\cr whether the "Patients at Risk" title should be added above the `annot_at_risk`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">260</td>
+                    <td class="num">682</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># h_glm_count ------------------------------------------------------------------</pre>
+                      <pre class="language-r">#'   table. Has no effect if `annot_at_risk` is `FALSE`. Defaults to `TRUE`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">261</td>
+                    <td class="num">683</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper functions for Poisson models</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</td>
+                    <td class="num">684</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return A named `list` of two `gTree` objects if `title = FALSE`: `at_risk` and `label`, or three</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">263</td>
+                    <td class="num">685</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">#'   `gTree` objects if `title = TRUE`: `at_risk`, `label`, and `title`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">264</td>
+                    <td class="num">686</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</td>
+                    <td class="num">687</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper functions that returns the results of [stats::glm()] when Poisson or Quasi-Poisson</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">266</td>
+                    <td class="num">688</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' distributions are needed (see `family` parameter), or [MASS::glm.nb()] for Negative Binomial</pre>
+                      <pre class="language-r">#' \donttest{</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">689</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' distributions. Link function for the GLM is `log`.</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</td>
+                    <td class="num">690</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' library(survival)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">691</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' library(grid)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</td>
+                    <td class="num">692</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">271</td>
+                    <td class="num">693</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [summarize_glm_count]</pre>
+                      <pre class="language-r">#' fit_km &lt;- tern_ex_adtte %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</td>
+                    <td class="num">694</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">273</td>
+                    <td class="num">695</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name h_glm_count</pre>
+                      <pre class="language-r">#'   survfit(formula = Surv(AVAL, 1 - CNSR) ~ ARMCD, data = .)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">274</td>
+                    <td class="num">696</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">697</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' data_plot &lt;- h_data_plot(fit_km = fit_km)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">276</td>
+                    <td class="num">698</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_glm_count Helper function to return the results of the</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">277</td>
+                    <td class="num">699</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   selected model (Poisson, Quasi-Poisson, negative binomial).</pre>
+                      <pre class="language-r">#' xticks &lt;- h_xticks(data = data_plot)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</td>
+                    <td class="num">700</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</td>
+                    <td class="num">701</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .df_row (`data.frame`)\cr dataset that includes all the variables that are called</pre>
+                      <pre class="language-r">#' gg &lt;- h_ggkm(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">702</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   in `.var` and `variables`.</pre>
+                      <pre class="language-r">#'   data = data_plot,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">281</td>
+                    <td class="num">703</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param variables (named `list` of `string`)\cr list of additional analysis variables, with</pre>
+                      <pre class="language-r">#'   censor_show = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">282</td>
+                    <td class="num">704</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   expected elements:</pre>
+                      <pre class="language-r">#'   xticks = xticks, xlab = "Days", ylab = "Survival Probability",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">283</td>
+                    <td class="num">705</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `arm` (`string`)\cr group variable, for which the covariate adjusted means of multiple</pre>
+                      <pre class="language-r">#'   title = "tt", footnotes = "ff", yval = "Survival"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">284</td>
+                    <td class="num">706</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     groups will be summarized. Specifically, the first level of `arm` variable is taken as the</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">285</td>
+                    <td class="num">707</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     reference group.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">708</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `covariates` (`character`)\cr a vector that can contain single variable names (such as</pre>
+                      <pre class="language-r">#' # The annotation table reports the patient at risk for a given strata and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">709</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     `"X1"`), and/or interaction terms indicated by `"X1 * X2"`.</pre>
+                      <pre class="language-r">#' # times (`xticks`).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">710</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `offset` (`numeric`)\cr a numeric vector or scalar adding an offset.</pre>
+                      <pre class="language-r">#' annot_tbl &lt;- summary(fit_km, times = xticks)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">289</td>
+                    <td class="num">711</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param distribution (`character`)\cr a character value specifying the distribution</pre>
+                      <pre class="language-r">#' if (is.null(fit_km$strata)) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</td>
+                    <td class="num">712</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   used in the regression (Poisson, Quasi-Poisson, negative binomial).</pre>
+                      <pre class="language-r">#'   annot_tbl &lt;- with(annot_tbl, data.frame(n.risk = n.risk, time = time, strata = "All"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">291</td>
+                    <td class="num">713</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param weights (`character`)\cr a character vector specifying weights used</pre>
+                      <pre class="language-r">#' } else {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">292</td>
+                    <td class="num">714</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   in averaging predictions. Number of weights must equal the number of levels included in the covariates.</pre>
+                      <pre class="language-r">#'   strata_lst &lt;- strsplit(sub("=", "equals", levels(annot_tbl$strata)), "equals")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">293</td>
+                    <td class="num">715</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Weights option passed to [emmeans::emmeans()].</pre>
+                      <pre class="language-r">#'   levels(annot_tbl$strata) &lt;- matrix(unlist(strata_lst), ncol = 2, byrow = TRUE)[, 2]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">294</td>
+                    <td class="num">716</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   annot_tbl &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">295</td>
+                    <td class="num">717</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'     n.risk = annot_tbl$n.risk,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">718</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_glm_count()` returns the results of the selected model.</pre>
+                      <pre class="language-r">#'     time = annot_tbl$time,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">719</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     strata = annot_tbl$strata</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">298</td>
+                    <td class="num">720</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">299</td>
+                    <td class="num">721</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_glm_count &lt;- function(.var,</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">300</td>
+                    <td class="num">722</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        .df_row,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">301</td>
+                    <td class="num">723</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        variables,</pre>
+                      <pre class="language-r">#' # The annotation table is transformed into a grob.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">302</td>
+                    <td class="num">724</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        distribution,</pre>
+                      <pre class="language-r">#' tbl &lt;- h_grob_tbl_at_risk(data = data_plot, annot_tbl = annot_tbl, xlim = max(xticks))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">303</td>
+                    <td class="num">725</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        weights) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">304</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">726</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(distribution, c("poisson", "quasipoisson", "negbin"), empty.ok = FALSE)</pre>
+                      <pre class="language-r">#' # For the representation, the layout is estimated for which the decomposition</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">305</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">727</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  switch(distribution,</pre>
+                      <pre class="language-r">#' # of the graphic element is necessary.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">306</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">728</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    poisson = h_glm_poisson(.var, .df_row, variables, weights),</pre>
+                      <pre class="language-r">#' g_el &lt;- h_decompose_gg(gg)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">307</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">729</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    quasipoisson = h_glm_quasipoisson(.var, .df_row, variables, weights),</pre>
+                      <pre class="language-r">#' lyt &lt;- h_km_layout(data = data_plot, g_el = g_el, title = "t", footnotes = "f")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">308</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">730</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    negbin = h_glm_negbin(.var, .df_row, variables, weights)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">309</td>
+                    <td class="num">731</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' grid::grid.newpage()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">310</td>
+                    <td class="num">732</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' pushViewport(viewport(layout = lyt, height = .95, width = .95))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">311</td>
+                    <td class="num">733</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' grid.rect(gp = grid::gpar(lty = 1, col = "purple", fill = "gray85", lwd = 1))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">312</td>
+                    <td class="num">734</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_glm_count Helper function to return results of a Poisson model.</pre>
+                      <pre class="language-r">#' pushViewport(viewport(layout.pos.row = 3:4, layout.pos.col = 2))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">313</td>
+                    <td class="num">735</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' grid.rect(gp = grid::gpar(lty = 1, col = "orange", fill = "gray85", lwd = 1))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">314</td>
+                    <td class="num">736</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' grid::grid.draw(tbl$at_risk)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">315</td>
+                    <td class="num">737</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_glm_poisson()` returns the results of a Poisson model.</pre>
+                      <pre class="language-r">#' popViewport()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">316</td>
+                    <td class="num">738</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' pushViewport(viewport(layout.pos.row = 3:4, layout.pos.col = 1))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">317</td>
+                    <td class="num">739</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' grid.rect(gp = grid::gpar(lty = 1, col = "green3", fill = "gray85", lwd = 1))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">318</td>
+                    <td class="num">740</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_glm_poisson &lt;- function(.var,</pre>
+                      <pre class="language-r">#' grid::grid.draw(tbl$label)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">319</td>
+                    <td class="num">741</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          .df_row,</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">320</td>
+                    <td class="num">742</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          variables,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">321</td>
+                    <td class="num">743</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          weights) {</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">322</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">744</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  arm &lt;- variables$arm</pre>
+                      <pre class="language-r">h_grob_tbl_at_risk &lt;- function(data, annot_tbl, xlim, title = TRUE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">323</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">745</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  covariates &lt;- variables$covariates</pre>
+                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">324</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  offset &lt;- .df_row[[variables$offset]]</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">325</td>
-                    <td class="coverage"></td>
+                    <td class="num">746</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    "0.9.4",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">326</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">747</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  formula &lt;- stats::as.formula(paste0(</pre>
+                      <pre class="language-r">    "h_grob_tbl_at_risk()",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">327</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">748</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .var, " ~ ",</pre>
+                      <pre class="language-r">    details = "`g_km` now generates `ggplot` objects. This function is no longer used within `tern`."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">328</td>
+                    <td class="num">749</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    " + ",</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">329</td>
-                    <td class="coverage">15<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    paste(covariates, collapse = " + "),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">330</td>
-                    <td class="coverage"></td>
+                    <td class="num">750</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    " + ",</pre>
+                      <pre class="language-r">  txtlines &lt;- levels(as.factor(data$strata))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">331</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">751</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    arm</pre>
+                      <pre class="language-r">  nlines &lt;- nlevels(as.factor(data$strata))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">332</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">752</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ))</pre>
+                      <pre class="language-r">  y_int &lt;- annot_tbl$time[2] - annot_tbl$time[1]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">333</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">753</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  annot_tbl &lt;- expand.grid(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">334</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">754</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  glm_fit &lt;- stats::glm(</pre>
+                      <pre class="language-r">    time = seq(0, xlim, y_int),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">335</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">755</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    formula = formula,</pre>
+                      <pre class="language-r">    strata = unique(annot_tbl$strata)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">336</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">756</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    offset = offset,</pre>
+                      <pre class="language-r">  ) %&gt;% dplyr::left_join(annot_tbl, by = c("time", "strata"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">337</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">757</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data = .df_row,</pre>
+                      <pre class="language-r">  annot_tbl[is.na(annot_tbl)] &lt;- 0</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">338</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">758</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    family = stats::poisson(link = "log")</pre>
+                      <pre class="language-r">  y_str_unit &lt;- as.numeric(annot_tbl$strata)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">339</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">759</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  vp_table &lt;- grid::plotViewport(margins = grid::unit(c(0, 0, 0, 0), "lines"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">340</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">760</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if (title) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">341</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">761</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  emmeans_fit &lt;- emmeans::emmeans(</pre>
+                      <pre class="language-r">    gb_table_title &lt;- grid::gList(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">342</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">762</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    glm_fit,</pre>
+                      <pre class="language-r">      grid::textGrob(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">343</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">763</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    specs = arm,</pre>
+                      <pre class="language-r">        label = "Patients at Risk:",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">344</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">764</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data = .df_row,</pre>
+                      <pre class="language-r">        x = 1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">345</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">765</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    type = "response",</pre>
+                      <pre class="language-r">        y = grid::unit(0.2, "native"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">346</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">766</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    offset = 0,</pre>
+                      <pre class="language-r">        gp = grid::gpar(fontface = "bold", fontsize = 10)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">347</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">767</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    weights = weights</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">348</td>
+                    <td class="num">768</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">349</td>
+                    <td class="num">769</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">350</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">770</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">  gb_table_left_annot &lt;- grid::gList(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">351</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">771</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    glm_fit = glm_fit,</pre>
+                      <pre class="language-r">    grid::rectGrob(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">352</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">772</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    emmeans_fit = emmeans_fit</pre>
+                      <pre class="language-r">      x = 0, y = grid::unit(c(1:nlines) - 1, "lines"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">353</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">773</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      gp = grid::gpar(fill = c("gray95", "gray90"), alpha = 1, col = "white"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">354</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">774</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      height = grid::unit(1, "lines"), just = "bottom", hjust = 0</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">355</td>
+                    <td class="num">775</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">356</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">776</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_glm_count Helper function to return results of a Quasi-Poisson model.</pre>
+                      <pre class="language-r">    grid::textGrob(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">357</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">777</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      label = unique(annot_tbl$strata),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">358</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">778</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">      x = 0.5,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">359</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">779</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_glm_quasipoisson()` returns the results of a Quasi-Poisson model.</pre>
+                      <pre class="language-r">      y = grid::unit(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">360</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">780</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        (max(unique(y_str_unit)) - unique(y_str_unit)) + 0.75,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">361</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">781</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">        "native"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">362</td>
+                    <td class="num">782</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_glm_quasipoisson &lt;- function(.var,</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">363</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">783</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               .df_row,</pre>
+                      <pre class="language-r">      gp = grid::gpar(fontface = "italic", fontsize = 10)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">364</td>
+                    <td class="num">784</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               variables,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">365</td>
+                    <td class="num">785</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               weights) {</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">366</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">786</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  arm &lt;- variables$arm</pre>
+                      <pre class="language-r">  gb_patient_at_risk &lt;- grid::gList(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">367</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">787</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  covariates &lt;- variables$covariates</pre>
+                      <pre class="language-r">    grid::rectGrob(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">368</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  offset &lt;- .df_row[[variables$offset]]</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">369</td>
-                    <td class="coverage"></td>
+                    <td class="num">788</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      x = 0, y = grid::unit(c(1:nlines) - 1, "lines"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">370</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">789</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  formula &lt;- stats::as.formula(paste0(</pre>
+                      <pre class="language-r">      gp = grid::gpar(fill = c("gray95", "gray90"), alpha = 1, col = "white"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">371</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">790</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .var, " ~ ",</pre>
+                      <pre class="language-r">      height = grid::unit(1, "lines"), just = "bottom", hjust = 0</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">372</td>
+                    <td class="num">791</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    " + ",</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">373</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    paste(covariates, collapse = " + "),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">374</td>
-                    <td class="coverage"></td>
+                    <td class="num">792</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    " + ",</pre>
+                      <pre class="language-r">    grid::textGrob(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">375</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    arm</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">376</td>
-                    <td class="coverage"></td>
+                    <td class="num">793</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ))</pre>
+                      <pre class="language-r">      label = annot_tbl$n.risk,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">377</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">794</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      x = grid::unit(annot_tbl$time, "native"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">378</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">795</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  glm_fit &lt;- stats::glm(</pre>
+                      <pre class="language-r">      y = grid::unit(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">379</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">796</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    formula = formula,</pre>
+                      <pre class="language-r">        (max(y_str_unit) - y_str_unit) + .5,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">380</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">797</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    offset = offset,</pre>
+                      <pre class="language-r">        "line"</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">381</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">798</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data = .df_row,</pre>
+                      <pre class="language-r">      ) # maybe native</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">382</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">799</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    family = stats::quasipoisson(link = "log")</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">383</td>
+                    <td class="num">800</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">384</td>
+                    <td class="num">801</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">385</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">802</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  emmeans_fit &lt;- emmeans::emmeans(</pre>
+                      <pre class="language-r">  ret &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">386</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">803</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    glm_fit,</pre>
+                      <pre class="language-r">    at_risk = grid::gList(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">387</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">804</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    specs = arm,</pre>
+                      <pre class="language-r">      grid::gTree(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">388</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">805</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data = .df_row,</pre>
+                      <pre class="language-r">        vp = vp_table,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">389</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">806</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    type = "response",</pre>
+                      <pre class="language-r">        children = grid::gList(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">390</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">807</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    offset = 0,</pre>
+                      <pre class="language-r">          grid::gTree(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">391</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    weights = weights</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">392</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">393</td>
-                    <td class="coverage"></td>
+                    <td class="num">808</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">            vp = grid::dataViewport(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">394</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">809</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">              xscale = c(0, xlim) + c(-0.05, 0.05) * xlim,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">395</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">810</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    glm_fit = glm_fit,</pre>
+                      <pre class="language-r">              yscale = c(0, nlines + 1),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">396</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">811</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    emmeans_fit = emmeans_fit</pre>
+                      <pre class="language-r">              extension = c(0.05, 0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">397</td>
+                    <td class="num">812</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">            ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">398</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">813</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">            children = grid::gList(gb_patient_at_risk)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">399</td>
+                    <td class="num">814</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">400</td>
+                    <td class="num">815</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_glm_count Helper function to return results of a negative binomial model.</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">401</td>
+                    <td class="num">816</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">402</td>
+                    <td class="num">817</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">403</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">818</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_glm_negbin()` returns the results of a negative binomial model.</pre>
+                      <pre class="language-r">    label = grid::gList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">404</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">819</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      grid::gTree(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">405</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">820</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">        vp = grid::viewport(width = max(grid::stringWidth(txtlines))),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">406</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">821</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_glm_negbin &lt;- function(.var,</pre>
+                      <pre class="language-r">        children = grid::gList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">407</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">822</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         .df_row,</pre>
+                      <pre class="language-r">          grid::gTree(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">408</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">823</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         variables,</pre>
+                      <pre class="language-r">            vp = grid::dataViewport(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">409</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">824</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         weights) {</pre>
+                      <pre class="language-r">              xscale = 0:1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">410</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">825</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  arm &lt;- variables$arm</pre>
+                      <pre class="language-r">              yscale = c(0, nlines + 1),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">411</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">826</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  covariates &lt;- variables$covariates</pre>
+                      <pre class="language-r">              extension = c(0.0, 0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">412</td>
+                    <td class="num">827</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">413</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  formula &lt;- stats::as.formula(paste0(</pre>
+                      <pre class="language-r">            ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">414</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">828</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .var, " ~ ",</pre>
+                      <pre class="language-r">            children = grid::gList(gb_table_left_annot)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">415</td>
+                    <td class="num">829</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    " + ",</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">416</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">830</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste(covariates, collapse = " + "),</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">417</td>
+                    <td class="num">831</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    " + ",</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">418</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">832</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    arm</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">419</td>
+                    <td class="num">833</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ))</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">420</td>
+                    <td class="num">834</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">421</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">835</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  glm_fit &lt;- MASS::glm.nb(</pre>
+                      <pre class="language-r">  if (title) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">422</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">836</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    formula = formula,</pre>
+                      <pre class="language-r">    ret[["title"]] &lt;- grid::gList(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">423</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">837</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data = .df_row,</pre>
+                      <pre class="language-r">      grid::gTree(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">424</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">838</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    link = "log"</pre>
+                      <pre class="language-r">        vp = grid::viewport(width = max(grid::stringWidth(txtlines))),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">425</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">839</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        children = grid::gList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">426</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">840</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          grid::gTree(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">427</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">841</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  emmeans_fit &lt;- emmeans::emmeans(</pre>
+                      <pre class="language-r">            vp = grid::dataViewport(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">428</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">842</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    glm_fit,</pre>
+                      <pre class="language-r">              xscale = 0:1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">429</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">843</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    specs = arm,</pre>
+                      <pre class="language-r">              yscale = c(0, 1),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">430</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">844</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data = .df_row,</pre>
+                      <pre class="language-r">              extension = c(0, 0)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">431</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">845</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    type = "response",</pre>
+                      <pre class="language-r">            ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">432</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">846</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    offset = 0,</pre>
+                      <pre class="language-r">            children = grid::gList(gb_table_title)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">433</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">847</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    weights = weights</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">434</td>
+                    <td class="num">848</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">435</td>
+                    <td class="num">849</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">436</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">850</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">437</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">851</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    glm_fit = glm_fit,</pre>
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">852</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">438</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">853</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    emmeans_fit = emmeans_fit</pre>
+                      <pre class="language-r">  ret</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">439</td>
+                    <td class="num">854</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">440</td>
+                    <td class="num">855</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">441</td>
+                    <td class="num">856</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Helper function to create survival estimation grobs</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">442</td>
+                    <td class="num">857</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># h_ppmeans --------------------------------------------------------------------</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">443</td>
+                    <td class="num">858</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Function to return the estimated means using predicted probabilities</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">444</td>
+                    <td class="num">859</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">445</td>
+                    <td class="num">860</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description</pre>
+                      <pre class="language-r">#' The survival fit is transformed in a grob containing a table with groups in</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">446</td>
+                    <td class="num">861</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' For each arm level, the predicted mean rate is calculated using the fitted model object, with `newdata`</pre>
+                      <pre class="language-r">#' rows characterized by N, median and 95% confidence interval.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">447</td>
+                    <td class="num">862</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' set to the result of `stats::model.frame`, a reconstructed data or the original data, depending on the</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">448</td>
+                    <td class="num">863</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' object formula (coming from the fit). The confidence interval is derived using the `conf_level` parameter.</pre>
+                      <pre class="language-r">#' @inheritParams g_km</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">449</td>
+                    <td class="num">864</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @inheritParams h_data_plot</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">450</td>
+                    <td class="num">865</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param obj (`glm.fit`)\cr fitted model object used to derive the mean rate estimates in each treatment arm.</pre>
+                      <pre class="language-r">#' @param ttheme (`list`)\cr see [gridExtra::ttheme_default()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">451</td>
+                    <td class="num">866</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .df_row (`data.frame`)\cr dataset that includes all the variables that are called in `.var` and `variables`.</pre>
+                      <pre class="language-r">#' @param x (`proportion`)\cr a value between 0 and 1 specifying x-location.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">452</td>
+                    <td class="num">867</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param arm (`string`)\cr group variable, for which the covariate adjusted means of multiple groups will be</pre>
+                      <pre class="language-r">#' @param y (`proportion`)\cr a value between 0 and 1 specifying y-location.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">453</td>
+                    <td class="num">868</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   summarized. Specifically, the first level of `arm` variable is taken as the reference group.</pre>
+                      <pre class="language-r">#' @param width (`grid::unit`)\cr width (as a unit) to use when printing the grob.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">454</td>
+                    <td class="num">869</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param conf_level (`proportion`)\cr value used to derive the confidence interval for the rate.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">455</td>
+                    <td class="num">870</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @return A `grob` of a table containing statistics `N`, `Median`, and `XX% CI` (`XX` taken from `fit_km`).</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">871</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">456</td>
+                    <td class="num">872</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">457</td>
+                    <td class="num">873</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_ppmeans()` returns the estimated means.</pre>
+                      <pre class="language-r">#' \donttest{</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">458</td>
+                    <td class="num">874</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">459</td>
+                    <td class="num">875</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [summarize_glm_count()].</pre>
+                      <pre class="language-r">#' library(survival)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">460</td>
+                    <td class="num">876</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' library(grid)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">461</td>
+                    <td class="num">877</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">462</td>
+                    <td class="num">878</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_ppmeans &lt;- function(obj, .df_row, arm, conf_level) {</pre>
+                      <pre class="language-r">#' grid::grid.newpage()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">463</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">879</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  alpha &lt;- 1 - conf_level</pre>
+                      <pre class="language-r">#' grid.rect(gp = grid::gpar(lty = 1, col = "pink", fill = "gray85", lwd = 1))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">464</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">880</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  p &lt;- 1 - alpha / 2</pre>
+                      <pre class="language-r">#' tern_ex_adtte %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">465</td>
+                    <td class="num">881</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">466</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">882</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  arm_levels &lt;- levels(.df_row[[arm]])</pre>
+                      <pre class="language-r">#'   survfit(formula = Surv(AVAL, 1 - CNSR) ~ ARMCD, data = .) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">467</td>
+                    <td class="num">883</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   h_grob_median_surv() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">468</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">884</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  out &lt;- lapply(arm_levels, function(lev) {</pre>
+                      <pre class="language-r">#'   grid::grid.draw()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">469</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">885</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    temp &lt;- .df_row</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">470</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">886</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    temp[[arm]] &lt;- factor(lev, levels = arm_levels)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">471</td>
+                    <td class="num">887</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">472</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">888</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mf &lt;- stats::model.frame(obj$formula, data = temp)</pre>
+                      <pre class="language-r">h_grob_median_surv &lt;- function(fit_km,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">473</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">889</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    X &lt;- stats::model.matrix(obj$formula, data = mf) # nolint</pre>
+                      <pre class="language-r">                               armval = "All",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">474</td>
+                    <td class="num">890</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                               x = 0.9,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">475</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">891</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rate &lt;- stats::predict(obj, newdata = mf, type = "response")</pre>
+                      <pre class="language-r">                               y = 0.9,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">476</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">892</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rate_hat &lt;- mean(rate)</pre>
+                      <pre class="language-r">                               width = grid::unit(0.3, "npc"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">477</td>
+                    <td class="num">893</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                               ttheme = gridExtra::ttheme_default()) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">478</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">894</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    zz &lt;- colMeans(rate * X)</pre>
+                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">479</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">895</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    se &lt;- sqrt(as.numeric(t(zz) %*% stats::vcov(obj) %*% zz))</pre>
+                      <pre class="language-r">    "0.9.4",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">480</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">896</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rate_lwr &lt;- rate_hat * exp(-stats::qnorm(p) * se / rate_hat)</pre>
+                      <pre class="language-r">    "h_grob_median_surv()",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">481</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">897</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rate_upr &lt;- rate_hat * exp(stats::qnorm(p) * se / rate_hat)</pre>
+                      <pre class="language-r">    details = "`g_km` now generates `ggplot` objects. This function is no longer used within `tern`."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">482</td>
+                    <td class="num">898</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">483</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">899</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c(rate_hat, rate_lwr, rate_upr)</pre>
+                      <pre class="language-r">  data &lt;- h_tbl_median_surv(fit_km, armval = armval)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">484</td>
+                    <td class="num">900</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">485</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">901</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  width &lt;- grid::convertUnit(grid::unit(as.numeric(width), grid::unitType(width)), "in")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">486</td>
+                    <td class="num">902</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  names(out) &lt;- arm_levels</pre>
+                      <pre class="language-r">  height &lt;- width * (nrow(data) + 1) / 12</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">903</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">487</td>
+                    <td class="num">904</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  out &lt;- do.call(rbind, out)</pre>
+                      <pre class="language-r">  w &lt;- paste(" ", c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">488</td>
+                    <td class="num">905</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if ("negbin" %in% class(obj)) {</pre>
+                      <pre class="language-r">    rownames(data)[which.max(nchar(rownames(data)))],</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">489</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">906</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    colnames(out) &lt;- c("response", "asymp.LCL", "asymp.UCL")</pre>
+                      <pre class="language-r">    sapply(names(data), function(x) c(x, data[[x]])[which.max(nchar(c(x, data[[x]])))])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">490</td>
+                    <td class="num">907</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">  ))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">491</td>
+                    <td class="num">908</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    colnames(out) &lt;- c("rate", "asymp.LCL", "asymp.UCL")</pre>
+                      <pre class="language-r">  w_unit &lt;- grid::convertWidth(grid::stringWidth(w), "in", valueOnly = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">492</td>
+                    <td class="num">909</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">493</td>
+                    <td class="num">910</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  out &lt;- as.data.frame(out)</pre>
+                      <pre class="language-r">  w_txt &lt;- sapply(1:64, function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">494</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">911</td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  out[[arm]] &lt;- rownames(out)</pre>
+                      <pre class="language-r">    graphics::par(ps = x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">495</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  out</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">496</td>
-                    <td class="coverage"></td>
+                    <td class="num">912</td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    graphics::strwidth(w[4], units = "in")</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/g_step.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">913</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Create a STEP graph</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">914</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  f_size_w &lt;- which.max(w_txt[w_txt &lt; as.numeric((w_unit / sum(w_unit)) * width)[4]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">915</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">916</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  h_txt &lt;- sapply(1:64, function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">917</td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Based on the STEP results, creates a `ggplot` graph showing the estimated HR or OR</pre>
+                      <pre class="language-r">    graphics::par(ps = x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">918</td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' along the continuous biomarker value subgroups.</pre>
+                      <pre class="language-r">    graphics::strheight(grid::stringHeight("X"), units = "in")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">919</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">920</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param df (`tibble`)\cr result of [tidy.step()].</pre>
+                      <pre class="language-r">  f_size_h &lt;- which.max(h_txt[h_txt &lt; as.numeric(grid::unit(as.numeric(height) / 4, grid::unitType(height)))])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">921</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param use_percentile (`flag`)\cr whether to use percentiles for the x axis or actual</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">922</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   biomarker values.</pre>
+                      <pre class="language-r">  if (ttheme$core$fg_params$fontsize == 12) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">923</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param est (named `list`)\cr `col` and `lty` settings for estimate line.</pre>
+                      <pre class="language-r">    ttheme$core$fg_params$fontsize &lt;- min(f_size_w, f_size_h)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">924</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ci_ribbon (named `list` or `NULL`)\cr `fill` and `alpha` settings for the confidence interval</pre>
+                      <pre class="language-r">    ttheme$colhead$fg_params$fontsize &lt;- min(f_size_w, f_size_h)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">925</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ribbon area, or `NULL` to not plot a CI ribbon.</pre>
+                      <pre class="language-r">    ttheme$rowhead$fg_params$fontsize &lt;- min(f_size_w, f_size_h)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">926</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param col (`character`)\cr color(s).</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">927</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">928</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `ggplot` STEP graph.</pre>
+                      <pre class="language-r">  gt &lt;- gridExtra::tableGrob(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">929</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    d = data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">930</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso Custom tidy method [tidy.step()].</pre>
+                      <pre class="language-r">    theme = ttheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">931</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">932</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  gt$widths &lt;- ((w_unit / sum(w_unit)) * width)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">933</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(nestcolor)</pre>
+                      <pre class="language-r">  gt$heights &lt;- rep(grid::unit(as.numeric(height) / 4, grid::unitType(height)), nrow(gt))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">934</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(survival)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">935</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' lung$sex &lt;- factor(lung$sex)</pre>
+                      <pre class="language-r">  vp &lt;- grid::viewport(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">936</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    x = grid::unit(x, "npc") + grid::unit(1, "lines"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">937</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Survival example.</pre>
+                      <pre class="language-r">    y = grid::unit(y, "npc") + grid::unit(1.5, "lines"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">938</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' vars &lt;- list(</pre>
+                      <pre class="language-r">    height = height,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">939</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   time = "time",</pre>
+                      <pre class="language-r">    width = width,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">940</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   event = "status",</pre>
+                      <pre class="language-r">    just = c("right", "top")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">941</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   arm = "sex",</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">942</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   biomarker = "age"</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">943</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  grid::gList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">944</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    grid::gTree(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">945</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' step_matrix &lt;- fit_survival_step(</pre>
+                      <pre class="language-r">      vp = vp,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">946</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = vars,</pre>
+                      <pre class="language-r">      children = grid::gList(gt)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">947</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = lung,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">948</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   control = c(control_coxph(), control_step(num_points = 10, degree = 2))</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">949</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">950</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' step_data &lt;- broom::tidy(step_matrix)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">951</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Helper function to create grid object with y-axis annotation</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">952</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Default plot.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">953</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_step(step_data)</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">954</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">955</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Add the reference 1 horizontal line.</pre>
+                      <pre class="language-r">#' Build the y-axis annotation from a decomposed `ggplot`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">956</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(ggplot2)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">957</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_step(step_data) +</pre>
+                      <pre class="language-r">#' @param ylab (`gtable`)\cr the y-lab as a graphical object derived from a `ggplot`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">958</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ggplot2::geom_hline(ggplot2::aes(yintercept = 1), linetype = 2)</pre>
+                      <pre class="language-r">#' @param yaxis (`gtable`)\cr the y-axis as a graphical object derived from a `ggplot`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">959</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' # Use actual values instead of percentiles, different color for estimate and no CI,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">960</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # use log scale for y axis.</pre>
+                      <pre class="language-r">#' @return A `gTree` object containing the y-axis annotation from a `ggplot`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">961</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_step(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">962</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   step_data,</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">963</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   use_percentile = FALSE,</pre>
+                      <pre class="language-r">#' \donttest{</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">964</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   est = list(col = "blue", lty = 1),</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">965</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ci_ribbon = NULL</pre>
+                      <pre class="language-r">#' library(survival)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">966</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ) + scale_y_log10()</pre>
+                      <pre class="language-r">#' library(grid)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">967</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">968</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Adding another curve based on additional column.</pre>
+                      <pre class="language-r">#' fit_km &lt;- tern_ex_adtte %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">969</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' step_data$extra &lt;- exp(step_data$`Percentile Center`)</pre>
+                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">970</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_step(step_data) +</pre>
+                      <pre class="language-r">#'   survfit(formula = Surv(AVAL, 1 - CNSR) ~ ARMCD, data = .)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">971</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ggplot2::geom_line(ggplot2::aes(y = extra), linetype = 2, color = "green")</pre>
+                      <pre class="language-r">#' data_plot &lt;- h_data_plot(fit_km = fit_km)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">972</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' xticks &lt;- h_xticks(data = data_plot)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">973</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Response example.</pre>
+                      <pre class="language-r">#' gg &lt;- h_ggkm(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">974</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' vars &lt;- list(</pre>
+                      <pre class="language-r">#'   data = data_plot,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">975</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   response = "status",</pre>
+                      <pre class="language-r">#'   censor_show = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">976</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   arm = "sex",</pre>
+                      <pre class="language-r">#'   xticks = xticks, xlab = "Days", ylab = "Survival Probability",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">977</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   biomarker = "age"</pre>
+                      <pre class="language-r">#'   title = "title", footnotes = "footnotes", yval = "Survival"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">978</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">979</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">980</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' step_matrix &lt;- fit_rsp_step(</pre>
+                      <pre class="language-r">#' g_el &lt;- h_decompose_gg(gg)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">981</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = vars,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">982</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = lung,</pre>
+                      <pre class="language-r">#' grid::grid.newpage()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">983</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   control = c(</pre>
+                      <pre class="language-r">#' pvp &lt;- grid::plotViewport(margins = c(5, 4, 2, 20))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">984</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     control_logistic(response_definition = "I(response == 2)"),</pre>
+                      <pre class="language-r">#' pushViewport(pvp)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">985</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     control_step()</pre>
+                      <pre class="language-r">#' grid::grid.draw(h_grob_y_annot(ylab = g_el$ylab, yaxis = g_el$yaxis))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">986</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#' grid.rect(gp = grid::gpar(lty = 1, col = "gray35", fill = NA))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">987</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">988</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' step_data &lt;- broom::tidy(step_matrix)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">989</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_step(step_data)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">990</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">h_grob_y_annot &lt;- function(ylab, yaxis) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">80</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">991</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">81</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">992</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">g_step &lt;- function(df,</pre>
+                      <pre class="language-r">    "0.9.4",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">993</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   use_percentile = "Percentile Center" %in% names(df),</pre>
+                      <pre class="language-r">    "h_grob_y_annot()",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">83</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">994</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   est = list(col = "blue", lty = 1),</pre>
+                      <pre class="language-r">    details = "`g_km` now generates `ggplot` objects. This function is no longer used within `tern`."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">995</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   ci_ribbon = list(fill = getOption("ggplot2.discrete.colour")[1], alpha = 0.5),</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">996</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                   col = getOption("ggplot2.discrete.colour")) {</pre>
+                      <pre class="language-r">  grid::gList(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">997</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_tibble(df)</pre>
+                      <pre class="language-r">    grid::gTree(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">998</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(use_percentile)</pre>
+                      <pre class="language-r">      vp = grid::viewport(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">88</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">999</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(col, null.ok = TRUE)</pre>
+                      <pre class="language-r">        width = grid::convertX(yaxis$widths + ylab$widths, "pt"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">89</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">1000</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(est, names = "named")</pre>
+                      <pre class="language-r">        x = grid::unit(1, "npc"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">1001</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(ci_ribbon, names = "named", null.ok = TRUE)</pre>
+                      <pre class="language-r">        just = "right"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">1002</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">1003</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_var &lt;- ifelse(use_percentile, "Percentile Center", "Interval Center")</pre>
+                      <pre class="language-r">      children = grid::gList(cbind(ylab, yaxis))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">93</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1004</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df$x &lt;- df[[x_var]]</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">94</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1005</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attrs &lt;- attributes(df)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1006</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df$y &lt;- df[[attrs$estimate]]</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">1007</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">1008</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Set legend names. To be modified also at call level</pre>
+                      <pre class="language-r">#' Helper function to create Cox-PH grobs</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">98</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1009</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  legend_names &lt;- c("Estimate", "CI 95%")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">1010</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("deprecated")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">100</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1011</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  p &lt;- ggplot2::ggplot(df, ggplot2::aes(x = .data[["x"]], y = .data[["y"]]))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">1012</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Grob of `rtable` output from [h_tbl_coxph_pairwise()]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1013</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(col)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1014</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    p &lt;- p +</pre>
+                      <pre class="language-r">#' @inheritParams h_grob_median_surv</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">104</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1015</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot2::scale_color_manual(values = col)</pre>
+                      <pre class="language-r">#' @param ... arguments to pass to [h_tbl_coxph_pairwise()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">1016</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @param x (`proportion`)\cr a value between 0 and 1 specifying x-location.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">1017</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param y (`proportion`)\cr a value between 0 and 1 specifying y-location.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1018</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(ci_ribbon)) {</pre>
+                      <pre class="language-r">#' @param width (`grid::unit`)\cr width (as a unit) to use when printing the grob.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1019</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.null(ci_ribbon$fill)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">109</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">1020</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci_ribbon$fill &lt;- "lightblue"</pre>
+                      <pre class="language-r">#' @return A `grob` of a table containing statistics `HR`, `XX% CI` (`XX` taken from `control_coxph_pw`),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">1021</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'   and `p-value (log-rank)`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1022</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    p &lt;- p + ggplot2::geom_ribbon(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1023</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot2::aes(</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1024</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ymin = .data[["ci_lower"]], ymax = .data[["ci_upper"]],</pre>
+                      <pre class="language-r">#' \donttest{</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">114</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1025</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        fill = legend_names[2]</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">1026</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">#' library(survival)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1027</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      alpha = ci_ribbon$alpha</pre>
+                      <pre class="language-r">#' library(grid)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">1028</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) +</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">118</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1029</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      scale_fill_manual(</pre>
+                      <pre class="language-r">#' grid::grid.newpage()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1030</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        name = "", values = c("CI 95%" = ci_ribbon$fill)</pre>
+                      <pre class="language-r">#' grid.rect(gp = grid::gpar(lty = 1, col = "pink", fill = "gray85", lwd = 1))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">1031</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' data &lt;- tern_ex_adtte %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">1032</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">122</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1033</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  suppressMessages(p &lt;- p +</pre>
+                      <pre class="language-r">#'   mutate(is_event = CNSR == 0)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1034</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ggplot2::geom_line(</pre>
+                      <pre class="language-r">#' tbl_grob &lt;- h_grob_coxph(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1035</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot2::aes(y = .data[["y"]], color = legend_names[1]),</pre>
+                      <pre class="language-r">#'   df = data,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1036</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      linetype = est$lty</pre>
+                      <pre class="language-r">#'   variables = list(tte = "AVAL", is_event = "is_event", arm = "ARMCD"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">1037</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) +</pre>
+                      <pre class="language-r">#'   control_coxph_pw = control_coxph(conf_level = 0.9), x = 0.5, y = 0.5</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1038</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    scale_colour_manual(</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1039</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      name = "", values = c("Estimate" = "blue")</pre>
+                      <pre class="language-r">#' grid::grid.draw(tbl_grob)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">1040</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">1041</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1042</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  p &lt;- p + ggplot2::labs(x = attrs$biomarker, y = attrs$estimate)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1043</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (use_percentile) {</pre>
+                      <pre class="language-r">h_grob_coxph &lt;- function(...,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1044</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    p &lt;- p + ggplot2::scale_x_continuous(labels = scales::percent)</pre>
+                      <pre class="language-r">                         x = 0,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">1045</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                         y = 0,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">135</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1046</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  p</pre>
+                      <pre class="language-r">                         width = grid::unit(0.4, "npc"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">1047</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">                         ttheme = gridExtra::ttheme_default(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">1048</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                           padding = grid::unit(c(1, .5), "lines"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">1049</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Custom tidy method for STEP results</pre>
+                      <pre class="language-r">                           core = list(bg_params = list(fill = c("grey95", "grey90"), alpha = .5))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">1050</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                         )) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">140</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1051</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">141</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1052</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    "0.9.4",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">142</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1053</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Tidy the STEP results into a `tibble` format ready for plotting.</pre>
+                      <pre class="language-r">    "h_grob_coxph()",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">143</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1054</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    details = "`g_km` now generates `ggplot` objects. This function is no longer used within `tern`."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">1055</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`matrix`)\cr results from [fit_survival_step()].</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">145</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1056</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... not used.</pre>
+                      <pre class="language-r">  data &lt;- h_tbl_coxph_pairwise(...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">1057</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">147</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1058</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `tibble` with one row per STEP subgroup. The estimates and CIs are on the HR or OR scale,</pre>
+                      <pre class="language-r">  width &lt;- grid::convertUnit(grid::unit(as.numeric(width), grid::unitType(width)), "in")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">148</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1059</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   respectively. Additional attributes carry metadata also used for plotting.</pre>
+                      <pre class="language-r">  height &lt;- width * (nrow(data) + 1) / 12</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">1060</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">150</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1061</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [g_step()] which consumes the result from this function.</pre>
+                      <pre class="language-r">  w &lt;- paste("    ", c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">151</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1062</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    rownames(data)[which.max(nchar(rownames(data)))],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">152</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1063</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @method tidy step</pre>
+                      <pre class="language-r">    sapply(names(data), function(x) c(x, data[[x]])[which.max(nchar(c(x, data[[x]])))])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">1064</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  ))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">154</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1065</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  w_unit &lt;- grid::convertWidth(grid::stringWidth(w), "in", valueOnly = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">1066</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(survival)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">156</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1067</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' lung$sex &lt;- factor(lung$sex)</pre>
+                      <pre class="language-r">  w_txt &lt;- sapply(1:64, function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">157</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1068</td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' vars &lt;- list(</pre>
+                      <pre class="language-r">    graphics::par(ps = x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">158</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1069</td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   time = "time",</pre>
+                      <pre class="language-r">    graphics::strwidth(w[4], units = "in")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">1070</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   event = "status",</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">160</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1071</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   arm = "sex",</pre>
+                      <pre class="language-r">  f_size_w &lt;- which.max(w_txt[w_txt &lt; as.numeric((w_unit / sum(w_unit)) * width)[4]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">1072</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   biomarker = "age"</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">162</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1073</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  h_txt &lt;- sapply(1:64, function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">163</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1074</td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' step_matrix &lt;- fit_survival_step(</pre>
+                      <pre class="language-r">    graphics::par(ps = x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">164</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1075</td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = vars,</pre>
+                      <pre class="language-r">    graphics::strheight(grid::stringHeight("X"), units = "in")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">1076</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = lung,</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">166</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1077</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   control = c(control_coxph(), control_step(num_points = 10, degree = 2))</pre>
+                      <pre class="language-r">  f_size_h &lt;- which.max(h_txt[h_txt &lt; as.numeric(grid::unit(as.numeric(height) / 4, grid::unitType(height)))])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">1078</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">168</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1079</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' broom::tidy(step_matrix)</pre>
+                      <pre class="language-r">  if (ttheme$core$fg_params$fontsize == 12) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">169</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1080</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    ttheme$core$fg_params$fontsize &lt;- min(f_size_w, f_size_h)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">170</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1081</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    ttheme$colhead$fg_params$fontsize &lt;- min(f_size_w, f_size_h)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">1082</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ttheme$rowhead$fg_params$fontsize &lt;- min(f_size_w, f_size_h)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">1083</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">tidy.step &lt;- function(x, ...) { # nolint</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1084</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(x, "step")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">1085</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  dat &lt;- as.data.frame(x)</pre>
+                      <pre class="language-r">  tryCatch(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">1086</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nams &lt;- names(dat)</pre>
+                      <pre class="language-r">    expr = {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">1087</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  is_surv &lt;- "loghr" %in% names(dat)</pre>
+                      <pre class="language-r">      gt &lt;- gridExtra::tableGrob(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">1088</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  est_var &lt;- ifelse(is_surv, "loghr", "logor")</pre>
+                      <pre class="language-r">        d = data,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">177</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">1089</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  new_est_var &lt;- ifelse(is_surv, "Hazard Ratio", "Odds Ratio")</pre>
+                      <pre class="language-r">        theme = ttheme</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">1090</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  new_y_vars &lt;- c(new_est_var, c("ci_lower", "ci_upper"))</pre>
+                      <pre class="language-r">      ) # ERROR 'data' must be of a vector type, was 'NULL'</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">1091</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  names(dat)[match(est_var, nams)] &lt;- new_est_var</pre>
+                      <pre class="language-r">      gt$widths &lt;- ((w_unit / sum(w_unit)) * width)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">1092</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  dat[, new_y_vars] &lt;- exp(dat[, new_y_vars])</pre>
+                      <pre class="language-r">      gt$heights &lt;- rep(grid::unit(as.numeric(height) / 4, grid::unitType(height)), nrow(gt))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">181</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">1093</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  any_is_na &lt;- any(is.na(dat[, new_y_vars]))</pre>
+                      <pre class="language-r">      vp &lt;- grid::viewport(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">182</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">1094</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  any_is_very_large &lt;- any(abs(dat[, new_y_vars]) &gt; 1e10, na.rm = TRUE)</pre>
+                      <pre class="language-r">        x = grid::unit(x, "npc") + grid::unit(1, "lines"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">183</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">1095</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any_is_na) {</pre>
+                      <pre class="language-r">        y = grid::unit(y, "npc") + grid::unit(1.5, "lines"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">1096</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning(paste(</pre>
+                      <pre class="language-r">        height = height,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">1097</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Missing values in the point estimate or CI columns,",</pre>
+                      <pre class="language-r">        width = width,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">1098</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "this will lead to holes in the `g_step()` plot"</pre>
+                      <pre class="language-r">        just = c("left", "bottom")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">1099</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">188</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">1100</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      grid::gList(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">1101</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any_is_very_large) {</pre>
+                      <pre class="language-r">        grid::gTree(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">1102</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning(paste(</pre>
+                      <pre class="language-r">          vp = vp,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">1103</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Very large absolute values in the point estimate or CI columns,",</pre>
+                      <pre class="language-r">          children = grid::gList(gt)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">1104</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "consider adding `scale_y_log10()` to the `g_step()` result for plotting"</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">1105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">1106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">1107</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any_is_na || any_is_very_large) {</pre>
+                      <pre class="language-r">    error = function(w) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1108</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning("Consider using larger `bandwidth`, less `num_points` in `control_step()` settings for fitting")</pre>
+                      <pre class="language-r">      message(paste(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1109</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        "Warning: Cox table will not be displayed as there is",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">1110</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        "not any level to be compared in the arm variable."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">1111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      ))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">198</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1112</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  structure(</pre>
+                      <pre class="language-r">      return(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1113</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tibble::as_tibble(dat),</pre>
+                      <pre class="language-r">        grid::gList(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">200</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1114</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    estimate = new_est_var,</pre>
+                      <pre class="language-r">          grid::gTree(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">201</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1115</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    biomarker = attr(x, "variables")$biomarker,</pre>
+                      <pre class="language-r">            vp = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">1116</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ci = f_conf_level(attr(x, "control")$conf_level)</pre>
+                      <pre class="language-r">            children = NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">1117</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1118</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1119</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1120</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">1121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">1122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -85462,14 +86430,14 @@ <h2>tern coverage - 95.64%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/cox_regression.R" class="hidden">
+            <div id="R/incidence_rate.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Control function for Cox regression</pre>
+                      <pre class="language-r">#' Incidence rate estimation</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -85497,770 +86465,770 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Sets a list of parameters for Cox regression fit. Used internally.</pre>
+                      <pre class="language-r">#' The analyze function [estimate_incidence_rate()] creates a layout element to estimate an event rate adjusted for</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' person-years at risk, otherwise known as incidence rate. The primary analysis variable specified via `vars` is</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' the person-years at risk. In addition to this variable, the `n_events` variable for number of events observed (where</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param pval_method (`string`)\cr the method used for estimation of p.values; `wald` (default) or `likelihood`.</pre>
+                      <pre class="language-r">#' a value of 1 means an event was observed and 0 means that no event was observed) must also be specified.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param interaction (`flag`)\cr if `TRUE`, the model includes the interaction between the studied</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   treatment and candidate covariate. Note that for univariate models without treatment arm, and</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   multivariate models, no interaction can be used so that this needs to be `FALSE`.</pre>
+                      <pre class="language-r">#' @param control (`list`)\cr parameters for estimation details, specified by using</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ties (`string`)\cr among `exact` (equivalent to `DISCRETE` in SAS), `efron` and `breslow`,</pre>
+                      <pre class="language-r">#'   the helper function [control_incidence_rate()]. Possible parameter options are:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   see [survival::coxph()]. Note: there is no equivalent of SAS `EXACT` method in R.</pre>
+                      <pre class="language-r">#'   * `conf_level` (`proportion`)\cr confidence level for the estimated incidence rate.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   * `conf_type` (`string`)\cr `normal` (default), `normal_log`, `exact`, or `byar`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `list` of items with names corresponding to the arguments.</pre>
+                      <pre class="language-r">#'     for confidence interval type.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   * `input_time_unit` (`string`)\cr `day`, `week`, `month`, or `year` (default)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [fit_coxreg_univar()] and [fit_coxreg_multivar()].</pre>
+                      <pre class="language-r">#'     indicating time unit for data input.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   * `num_pt_year` (`numeric`)\cr time unit for desired output (in person-years).</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @param n_events (`string`)\cr name of integer variable indicating whether an event has been observed (1) or not (0).</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' control_coxreg()</pre>
+                      <pre class="language-r">#' @param id_var (`string`)\cr name of variable used as patient identifier if `"n_unique"` is included in `.stats`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   Defaults to `"USUBJID"`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("estimate_incidence_rate")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">control_coxreg &lt;- function(pval_method = c("wald", "likelihood"),</pre>
+                      <pre class="language-r">#'   to see available statistics for this function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           ties = c("exact", "efron", "breslow"),</pre>
+                      <pre class="language-r">#' @param summarize (`flag`)\cr whether the function should act as an analyze function (`summarize = FALSE`), or a</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           conf_level = 0.95,</pre>
+                      <pre class="language-r">#'   summarize function (`summarize = TRUE`). Defaults to `FALSE`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           interaction = FALSE) {</pre>
+                      <pre class="language-r">#' @param label_fmt (`string`)\cr how labels should be formatted after a row split occurs if `summarize = TRUE`. The</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">27</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  pval_method &lt;- match.arg(pval_method)</pre>
+                      <pre class="language-r">#'   string should use `"%s"` to represent row split levels, and `"%.labels"` to represent labels supplied to the</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">28</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ties &lt;- match.arg(ties)</pre>
+                      <pre class="language-r">#'   `.labels` argument. Defaults to `"%s - %.labels"`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">29</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(interaction)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">30</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_proportion_value(conf_level)</pre>
+                      <pre class="language-r">#' @seealso [control_incidence_rate()] and helper functions [h_incidence_rate].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">31</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">32</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pval_method = pval_method,</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">33</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ties = ties,</pre>
+                      <pre class="language-r">#' df &lt;- data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">34</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    conf_level = conf_level,</pre>
+                      <pre class="language-r">#'   USUBJID = as.character(seq(6)),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">35</td>
-                    <td class="coverage">55<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    interaction = interaction</pre>
+                      <pre class="language-r">#'   CNSR = c(0, 1, 1, 0, 0, 0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'   AVAL = c(10.1, 20.4, 15.3, 20.8, 18.7, 23.4),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   ARM = factor(c("A", "A", "A", "B", "B", "B")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   STRATA1 = factor(c("X", "Y", "Y", "X", "X", "Y"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Custom tidy methods for Cox regression</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' df$n_events &lt;- 1 - df$CNSR</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @name incidence_rate</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' @order 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`list`)\cr result of the Cox regression model fitted by [fit_coxreg_univar()] (for univariate models)</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or [fit_coxreg_multivar()] (for multivariate models).</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @describeIn incidence_rate Statistics function which estimates the incidence rate and the</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return [broom::tidy()] returns:</pre>
+                      <pre class="language-r">#'   associated confidence interval.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * For `summary.coxph` objects,  a `data.frame` with columns: `Pr(&gt;|z|)`, `exp(coef)`, `exp(-coef)`, `lower .95`,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `upper .95`, `level`, and `n`.</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * For `coxreg.univar` objects, a `data.frame` with columns: `effect`, `term`, `term_label`, `level`, `n`, `hr`,</pre>
+                      <pre class="language-r">#' * `s_incidence_rate()` returns the following statistics:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `lcl`, `ucl`, `pval`, and `ci`.</pre>
+                      <pre class="language-r">#'   - `person_years`: Total person-years at risk.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * For `coxreg.multivar` objects, a `data.frame` with columns: `term`, `pval`, `term_label`, `hr`, `lcl`, `ucl`,</pre>
+                      <pre class="language-r">#'   - `n_events`: Total number of events observed.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `level`, and `ci`.</pre>
+                      <pre class="language-r">#'   - `rate`: Estimated incidence rate.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   - `rate_ci`: Confidence interval for the incidence rate.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [cox_regression]</pre>
+                      <pre class="language-r">#'   - `n_unique`: Total number of patients with at least one event observed.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   - `n_rate`: Total number of events observed &amp; estimated incidence rate.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name tidy_coxreg</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">s_incidence_rate &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn tidy_coxreg Custom tidy method for [survival::coxph()] summary results.</pre>
+                      <pre class="language-r">                             .var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                             n_events,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Tidy the [survival::coxph()] results into a `data.frame` to extract model results.</pre>
+                      <pre class="language-r">                             is_event = lifecycle::deprecated(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                             id_var = "USUBJID",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @method tidy summary.coxph</pre>
+                      <pre class="language-r">                             control = control_incidence_rate()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">65</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if (lifecycle::is_present(is_event)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">66</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    checkmate::assert_string(is_event)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">67</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(survival)</pre>
+                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">68</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(broom)</pre>
+                      <pre class="language-r">      "0.9.6", "s_incidence_rate(is_event)", "s_incidence_rate(n_events)"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">70</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' set.seed(1, kind = "Mersenne-Twister")</pre>
+                      <pre class="language-r">    n_events &lt;- is_event</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">71</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    df[[n_events]] &lt;- as.numeric(df[[is_event]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dta_bladder &lt;- with(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = bladder[bladder$enum &lt; 5, ],</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">74</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data.frame(</pre>
+                      <pre class="language-r">  assert_df_with_variables(df, list(tte = .var, n_events = n_events))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">75</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     time = stop,</pre>
+                      <pre class="language-r">  checkmate::assert_string(.var)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">76</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     status = event,</pre>
+                      <pre class="language-r">  checkmate::assert_string(n_events)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">77</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     armcd = as.factor(rx),</pre>
+                      <pre class="language-r">  checkmate::assert_string(id_var)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">78</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     covar1 = as.factor(enum),</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(df[[.var]], any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">79</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     covar2 = factor(</pre>
+                      <pre class="language-r">  checkmate::assert_integerish(df[[n_events]], any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       sample(as.factor(enum)),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">81</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       levels = 1:4, labels = c("F", "F", "M", "M")</pre>
+                      <pre class="language-r">  n_unique &lt;- n_available(unique(df[[id_var]][df[[n_events]] == 1]))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">82</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">  input_time_unit &lt;- control$input_time_unit</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">83</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">  num_pt_year &lt;- control$num_pt_year</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">84</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  conf_level &lt;- control$conf_level</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">85</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' labels &lt;- c("armcd" = "ARM", "covar1" = "A Covariate Label", "covar2" = "Sex (F/M)")</pre>
+                      <pre class="language-r">  person_years &lt;- sum(df[[.var]], na.rm = TRUE) * (</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">86</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' formatters::var_labels(dta_bladder)[names(labels)] &lt;- labels</pre>
+                      <pre class="language-r">    1 * (input_time_unit == "year") +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">87</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dta_bladder$age &lt;- sample(20:60, size = nrow(dta_bladder), replace = TRUE)</pre>
+                      <pre class="language-r">      1 / 12 * (input_time_unit == "month") +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">88</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      1 / 52.14 * (input_time_unit == "week") +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">89</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' formula &lt;- "survival::Surv(time, status) ~ armcd + covar1"</pre>
+                      <pre class="language-r">      1 / 365.24 * (input_time_unit == "day")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' msum &lt;- summary(coxph(stats::as.formula(formula), data = dta_bladder))</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">91</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tidy(msum)</pre>
+                      <pre class="language-r">  n_events &lt;- sum(df[[n_events]], na.rm = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">93</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  result &lt;- h_incidence_rate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">94</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">tidy.summary.coxph &lt;- function(x, # nolint</pre>
+                      <pre class="language-r">    person_years,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">95</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               ...) {</pre>
+                      <pre class="language-r">    n_events,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">96</td>
-                    <td class="coverage">199<em>x</em></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(x, "summary.coxph")</pre>
+                      <pre class="language-r">    control</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">97</td>
-                    <td class="coverage">199<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  pval &lt;- x$coefficients</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">98</td>
-                    <td class="coverage">199<em>x</em></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  confint &lt;- x$conf.int</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">99</td>
-                    <td class="coverage">199<em>x</em></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  levels &lt;- rownames(pval)</pre>
+                      <pre class="language-r">    person_years = formatters::with_label(person_years, "Total patient-years at risk"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">100</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    n_events = formatters::with_label(n_events, "Number of adverse events observed"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">101</td>
-                    <td class="coverage">199<em>x</em></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  pval &lt;- tibble::as_tibble(pval)</pre>
+                      <pre class="language-r">    rate = formatters::with_label(result$rate, paste("AE rate per", num_pt_year, "patient-years")),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">102</td>
-                    <td class="coverage">199<em>x</em></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  confint &lt;- tibble::as_tibble(confint)</pre>
+                      <pre class="language-r">    rate_ci = formatters::with_label(result$rate_ci, f_conf_level(conf_level)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">103</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    n_unique = formatters::with_label(n_unique, "Total number of patients with at least one adverse event"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">104</td>
-                    <td class="coverage">199<em>x</em></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ret &lt;- cbind(pval[, grepl("Pr", names(pval))], confint)</pre>
+                      <pre class="language-r">    n_rate = formatters::with_label(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">105</td>
-                    <td class="coverage">199<em>x</em></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ret$level &lt;- levels</pre>
+                      <pre class="language-r">      c(n_events, result$rate),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">106</td>
-                    <td class="coverage">199<em>x</em></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ret$n &lt;- x[["n"]]</pre>
+                      <pre class="language-r">      paste("Number of adverse events observed (AE rate per", num_pt_year, "patient-years)")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">107</td>
-                    <td class="coverage">199<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ret</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn tidy_coxreg Custom tidy method for a univariate Cox regression.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @describeIn incidence_rate Formatted analysis function which is used as `afun` in `estimate_incidence_rate()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Tidy up the result of a Cox regression model fitted by [fit_coxreg_univar()].</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @method tidy coxreg.univar</pre>
+                      <pre class="language-r">#' * `a_incidence_rate()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -86281,581 +87249,581 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Cox regression: arm + 1 covariate.</pre>
+                      <pre class="language-r">#' a_incidence_rate(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' mod1 &lt;- fit_coxreg_univar(</pre>
+                      <pre class="language-r">#'   df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">#'   .var = "AVAL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     time = "time", event = "status", arm = "armcd",</pre>
+                      <pre class="language-r">#'   .df_row = df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     covariates = "covar1"</pre>
+                      <pre class="language-r">#'   n_events = "n_events"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = dta_bladder,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   control = control_coxreg(conf_level = 0.91)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">a_incidence_rate &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                             labelstr = "",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Cox regression: arm + 1 covariate + interaction, 2 candidate covariates.</pre>
+                      <pre class="language-r">                             .var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' mod2 &lt;- fit_coxreg_univar(</pre>
+                      <pre class="language-r">                             .df_row,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">                             n_events,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     time = "time", event = "status", arm = "armcd",</pre>
+                      <pre class="language-r">                             id_var = "USUBJID",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     covariates = c("covar1", "covar2")</pre>
+                      <pre class="language-r">                             control = control_incidence_rate(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">                             .stats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = dta_bladder,</pre>
+                      <pre class="language-r">                             .formats = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   control = control_coxreg(conf_level = 0.91, interaction = TRUE)</pre>
+                      <pre class="language-r">                               "person_years" = "xx.x",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">                               "n_events" = "xx",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                               "rate" = "xx.xx",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tidy(mod1)</pre>
+                      <pre class="language-r">                               "rate_ci" = "(xx.xx, xx.xx)",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tidy(mod2)</pre>
+                      <pre class="language-r">                               "n_unique" = "xx",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                               "n_rate" = "xx (xx.x)"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                             ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">tidy.coxreg.univar &lt;- function(x, # nolint</pre>
+                      <pre class="language-r">                             .labels = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               ...) {</pre>
+                      <pre class="language-r">                             .indent_mods = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">143</td>
-                    <td class="coverage">38<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(x, "coxreg.univar")</pre>
+                      <pre class="language-r">                             na_str = default_na_str(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">144</td>
-                    <td class="coverage">38<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mod &lt;- x$mod</pre>
+                      <pre class="language-r">                             label_fmt = "%s - %.labels") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">145</td>
-                    <td class="coverage">38<em>x</em></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  vars &lt;- c(x$vars$arm, x$vars$covariates)</pre>
+                      <pre class="language-r">  checkmate::assert_string(label_fmt)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">146</td>
-                    <td class="coverage">38<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  has_arm &lt;- "arm" %in% names(x$vars)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">147</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  x_stats &lt;- s_incidence_rate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">148</td>
-                    <td class="coverage">38<em>x</em></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result &lt;- if (!has_arm) {</pre>
+                      <pre class="language-r">    df = df, .var = .var, n_events = n_events, id_var = id_var, control = control</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">149</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    Map(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">150</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      mod = mod, vars = vars,</pre>
+                      <pre class="language-r">  if (is.null(unlist(x_stats))) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">151</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      f = function(mod, vars) {</pre>
+                      <pre class="language-r">    return(NULL)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">152</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        h_coxreg_multivar_extract(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">153</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          var = vars,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">154</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          data = x$data,</pre>
+                      <pre class="language-r">  # Fill in with defaults</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">155</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          mod = mod,</pre>
+                      <pre class="language-r">  formats_def &lt;- formals()$.formats %&gt;% eval()</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">156</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          control = x$control</pre>
+                      <pre class="language-r">  .formats &lt;- c(.formats, formats_def)[!duplicated(names(c(.formats, formats_def)))]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">157</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">  labels_def &lt;- sapply(x_stats, \(x) attributes(x)$label)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">158</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">  .labels &lt;- c(.labels, labels_def)[!duplicated(names(c(.labels, labels_def)))]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">159</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  if (nzchar(labelstr) &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">160</td>
-                    <td class="coverage">38<em>x</em></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (x$control$interaction) {</pre>
+                      <pre class="language-r">    .labels &lt;- sapply(.labels, \(x) gsub("%.labels", x, gsub("%s", labelstr, label_fmt)))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">161</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    Map(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">162</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      mod = mod, covar = vars,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">163</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      f = function(mod, covar) {</pre>
+                      <pre class="language-r">  # Fill in with formatting defaults if needed</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">164</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        h_coxreg_extract_interaction(</pre>
+                      <pre class="language-r">  .stats &lt;- get_stats("estimate_incidence_rate", stats_in = .stats)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">165</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          effect = x$vars$arm, covar = covar, mod = mod, data = x$data,</pre>
+                      <pre class="language-r">  .formats &lt;- get_formats_from_stats(.stats, .formats)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">166</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          at = x$at, control = x$control</pre>
+                      <pre class="language-r">  .labels &lt;- get_labels_from_stats(.stats, .labels)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">167</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">  .indent_mods &lt;- get_indents_from_stats(.stats, .indent_mods)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">169</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  x_stats &lt;- x_stats[.stats]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">171</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    Map(</pre>
+                      <pre class="language-r">  in_rows(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">172</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      mod = mod, vars = vars,</pre>
+                      <pre class="language-r">    .list = x_stats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">173</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      f = function(mod, vars) {</pre>
+                      <pre class="language-r">    .formats = .formats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">174</td>
-                    <td class="coverage">53<em>x</em></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        h_coxreg_univar_extract(</pre>
+                      <pre class="language-r">    .labels = .labels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">175</td>
-                    <td class="coverage">53<em>x</em></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          effect = x$vars$arm, covar = vars, data = x$data, mod = mod,</pre>
+                      <pre class="language-r">    .indent_mods = .indent_mods,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">176</td>
-                    <td class="coverage">53<em>x</em></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          control = x$control</pre>
+                      <pre class="language-r">    .format_na_strs = na_str</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @describeIn incidence_rate Layout-creating function which can take statistics function arguments</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">181</td>
-                    <td class="coverage">38<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result &lt;- do.call(rbind, result)</pre>
+                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">183</td>
-                    <td class="coverage">38<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result$ci &lt;- Map(lcl = result$lcl, ucl = result$ucl, f = function(lcl, ucl) c(lcl, ucl))</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">184</td>
-                    <td class="coverage">38<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result$n &lt;- lapply(result$n, empty_vector_if_na)</pre>
+                      <pre class="language-r">#' * `estimate_incidence_rate()` returns a layout object suitable for passing to further layouting functions,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">185</td>
-                    <td class="coverage">38<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result$ci &lt;- lapply(result$ci, empty_vector_if_na)</pre>
+                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">186</td>
-                    <td class="coverage">38<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result$hr &lt;- lapply(result$hr, empty_vector_if_na)</pre>
+                      <pre class="language-r">#'   the statistics from `s_incidence_rate()` to the table layout.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">187</td>
-                    <td class="coverage">38<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (x$control$interaction) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">188</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result$pval_inter &lt;- lapply(result$pval_inter, empty_vector_if_na)</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Remove interaction p-values due to change in specifications.</pre>
+                      <pre class="language-r">#' basic_table(show_colcounts = TRUE) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">190</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result$pval[result$effect != "Treatment:"] &lt;- NA</pre>
+                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   estimate_incidence_rate(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">192</td>
-                    <td class="coverage">38<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result$pval &lt;- lapply(result$pval, empty_vector_if_na)</pre>
+                      <pre class="language-r">#'     vars = "AVAL",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">193</td>
-                    <td class="coverage">38<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attr(result, "conf_level") &lt;- x$control$conf_level</pre>
+                      <pre class="language-r">#'     n_events = "n_events",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">194</td>
-                    <td class="coverage">38<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result</pre>
+                      <pre class="language-r">#'     control = control_incidence_rate(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'       input_time_unit = "month",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       num_pt_year = 100</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn tidy_coxreg Custom tidy method for a multivariate Cox regression.</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Tidy up the result of a Cox regression model fitted by [fit_coxreg_multivar()].</pre>
+                      <pre class="language-r">#'   build_table(df)</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -86869,2020 +87837,2131 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @method tidy coxreg.multivar</pre>
+                      <pre class="language-r">#' # summarize = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' basic_table(show_colcounts = TRUE) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' multivar_model &lt;- fit_coxreg_multivar(</pre>
+                      <pre class="language-r">#'   split_rows_by("STRATA1", child_labels = "visible") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">205</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">#'   estimate_incidence_rate(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     time = "time", event = "status", arm = "armcd",</pre>
+                      <pre class="language-r">#'     vars = "AVAL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     covariates = c("covar1", "covar2")</pre>
+                      <pre class="language-r">#'     n_events = "n_events",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#'     .stats = c("n_unique", "n_rate"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = dta_bladder</pre>
+                      <pre class="language-r">#'     summarize = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'     label_fmt = "%.labels"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' broom::tidy(multivar_model)</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   build_table(df)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">tidy.coxreg.multivar &lt;- function(x, # nolint</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 ...) {</pre>
+                      <pre class="language-r">#' @order 2</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">216</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(x, "coxreg.multivar")</pre>
+                      <pre class="language-r">estimate_incidence_rate &lt;- function(lyt,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">217</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  vars &lt;- c(x$vars$arm, x$vars$covariates)</pre>
+                      <pre class="language-r">                                    vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                    n_events,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Convert the model summaries to data.</pre>
+                      <pre class="language-r">                                    id_var = "USUBJID",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">220</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result &lt;- Map(</pre>
+                      <pre class="language-r">                                    control = control_incidence_rate(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">221</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars = vars,</pre>
+                      <pre class="language-r">                                    na_str = default_na_str(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">222</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    f = function(vars) {</pre>
+                      <pre class="language-r">                                    nested = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">223</td>
-                    <td class="coverage">60<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      h_coxreg_multivar_extract(</pre>
+                      <pre class="language-r">                                    summarize = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">224</td>
-                    <td class="coverage">60<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        var = vars, data = x$data,</pre>
+                      <pre class="language-r">                                    label_fmt = "%s - %.labels",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">225</td>
-                    <td class="coverage">60<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        mod = x$mod, control = x$control</pre>
+                      <pre class="language-r">                                    ...,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">                                    show_labels = "hidden",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">                                    table_names = vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">                                    .stats = c("person_years", "n_events", "rate", "rate_ci"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">229</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result &lt;- do.call(rbind, result)</pre>
+                      <pre class="language-r">                                    .formats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                    .labels = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">231</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result$ci &lt;- Map(lcl = result$lcl, ucl = result$ucl, f = function(lcl, ucl) c(lcl, ucl))</pre>
+                      <pre class="language-r">                                    .indent_mods = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">232</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result$ci &lt;- lapply(result$ci, empty_vector_if_na)</pre>
+                      <pre class="language-r">  extra_args &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">233</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result$hr &lt;- lapply(result$hr, empty_vector_if_na)</pre>
+                      <pre class="language-r">    list(.stats = .stats, .formats = .formats, .labels = .labels, .indent_mods = .indent_mods, na_str = na_str),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">234</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result$pval &lt;- lapply(result$pval, empty_vector_if_na)</pre>
+                      <pre class="language-r">    list(n_events = n_events, id_var = id_var, control = control, label_fmt = label_fmt, ...)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">235</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result &lt;- result[, names(result) != "n"]</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">236</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attr(result, "conf_level") &lt;- x$control$conf_level</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">237</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if (!summarize) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">238</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result</pre>
+                      <pre class="language-r">    analyze(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">239</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      lyt,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">240</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      vars,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">241</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Fitting functions for Cox proportional hazards regression</pre>
+                      <pre class="language-r">      show_labels = show_labels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">242</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      table_names = table_names,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">243</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">      afun = a_incidence_rate,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">244</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      na_str = na_str,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">245</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Fitting functions for univariate and multivariate Cox regression models.</pre>
+                      <pre class="language-r">      nested = nested,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">246</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      extra_args = extra_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param variables (named `list`)\cr the names of the variables found in `data`, passed as a named list and</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   corresponding to the `time`, `event`, `arm`, `strata`, and `covariates` terms. If `arm` is missing from</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">249</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `variables`, then only Cox model(s) including the `covariates` will be fitted and the corresponding effect</pre>
+                      <pre class="language-r">    summarize_row_groups(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">250</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   estimates will be tabulated later.</pre>
+                      <pre class="language-r">      lyt,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">251</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data (`data.frame`)\cr the dataset containing the variables to fit the models.</pre>
+                      <pre class="language-r">      vars,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">252</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param at (`list` of `numeric`)\cr when the candidate covariate is a `numeric`, use `at` to specify</pre>
+                      <pre class="language-r">      cfun = a_incidence_rate,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">253</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the value of the covariate at which the effect should be estimated.</pre>
+                      <pre class="language-r">      na_str = na_str,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">254</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param control (`list`)\cr a list of parameters as returned by the helper function [control_coxreg()].</pre>
+                      <pre class="language-r">      extra_args = extra_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [h_cox_regression] for relevant helper functions, [cox_regression].</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/abnormal_by_marked.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' Count patients with marked laboratory abnormalities</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">259</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(survival)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">260</td>
+                    <td class="num">3</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">261</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' set.seed(1, kind = "Mersenne-Twister")</pre>
+                      <pre class="language-r">#' The analyze function [count_abnormal_by_marked()] creates a layout element to count patients with marked laboratory</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' abnormalities for each direction of abnormality, categorized by parameter value.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">263</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Testing dataset [survival::bladder].</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">264</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dta_bladder &lt;- with(</pre>
+                      <pre class="language-r">#' This function analyzes primary analysis variable `var` which indicates whether a single, replicated,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = bladder[bladder$enum &lt; 5, ],</pre>
+                      <pre class="language-r">#' or last marked laboratory abnormality was observed. Levels of `var` to include for each marked lab</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">266</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data.frame(</pre>
+                      <pre class="language-r">#' abnormality (`single` and `last_replicated`) can be supplied via the `category` parameter. Additional</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     time = stop,</pre>
+                      <pre class="language-r">#' analysis variables that can be supplied as a list via the `variables` parameter are `id` (defaults</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     status = event,</pre>
+                      <pre class="language-r">#' to `USUBJID`), a variable to indicate unique subject identifiers, `param` (defaults to `PARAM`), a</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     armcd = as.factor(rx),</pre>
+                      <pre class="language-r">#' variable to indicate parameter values, and `direction` (defaults to `abn_dir`), a variable to indicate</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     covar1 = as.factor(enum),</pre>
+                      <pre class="language-r">#' abnormality directions.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">271</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     covar2 = factor(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       sample(as.factor(enum)),</pre>
+                      <pre class="language-r">#' For each combination of `param` and `direction` levels, marked lab abnormality counts are calculated</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">273</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       levels = 1:4, labels = c("F", "F", "M", "M")</pre>
+                      <pre class="language-r">#' as follows:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">274</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">#'   * `Single, not last` &amp; `Last or replicated`: The number of patients with `Single, not last`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#'     and `Last or replicated` values, respectively.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">276</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   * `Any`: The number of patients with either single or replicated marked abnormalities.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">277</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' labels &lt;- c("armcd" = "ARM", "covar1" = "A Covariate Label", "covar2" = "Sex (F/M)")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' formatters::var_labels(dta_bladder)[names(labels)] &lt;- labels</pre>
+                      <pre class="language-r">#' Fractions are calculated by dividing the above counts by the number of patients with at least one</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dta_bladder$age &lt;- sample(20:60, size = nrow(dta_bladder), replace = TRUE)</pre>
+                      <pre class="language-r">#' valid measurement recorded during the analysis.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">281</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' plot(</pre>
+                      <pre class="language-r">#' Prior to using this function in your table layout you must use [rtables::split_rows_by()] to create two</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">282</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   survfit(Surv(time, status) ~ armcd + covar1, data = dta_bladder),</pre>
+                      <pre class="language-r">#' row splits, one on variable `param` and one on variable `direction`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">283</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   lty = 2:4,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">284</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   xlab = "Months",</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">285</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   col = c("blue1", "blue2", "blue3", "blue4", "red1", "red2", "red3", "red4")</pre>
+                      <pre class="language-r">#' @param category (`list`)\cr a list with different marked category names for single</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   and last or replicated.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("abnormal_by_marked")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name fit_coxreg</pre>
+                      <pre class="language-r">#'   to see available statistics for this function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">289</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @note `Single, not last` and `Last or replicated` levels are mutually exclusive. If a patient has</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">291</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn fit_coxreg Fit a series of univariate Cox regression models given the inputs.</pre>
+                      <pre class="language-r">#'   abnormalities that meet both the `Single, not last` and `Last or replicated` criteria, then the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">292</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   patient will be counted only under the `Last or replicated` category.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">293</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">294</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `fit_coxreg_univar()` returns a `coxreg.univar` class object which is a named `list`</pre>
+                      <pre class="language-r">#' @name abnormal_by_marked</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">295</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   with 5 elements:</pre>
+                      <pre class="language-r">#' @order 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `mod`: Cox regression models fitted by [survival::coxph()].</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `data`: The original data frame input.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">298</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `control`: The original control input.</pre>
+                      <pre class="language-r">#' @describeIn abnormal_by_marked Statistics function for patients with marked lab abnormalities.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">299</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `vars`: The variables used in the model.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">300</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `at`: Value of the covariate at which the effect should be estimated.</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">301</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' * `s_count_abnormal_by_marked()` returns statistic `count_fraction` with `Single, not last`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">302</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note When using `fit_coxreg_univar` there should be two study arms.</pre>
+                      <pre class="language-r">#'   `Last or replicated`, and `Any` results.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">303</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">304</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">305</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # fit_coxreg_univar</pre>
+                      <pre class="language-r">s_count_abnormal_by_marked &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">306</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                       .var = "AVALCAT1",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">307</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Cox regression: arm + 1 covariate.</pre>
+                      <pre class="language-r">                                       .spl_context,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">308</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' mod1 &lt;- fit_coxreg_univar(</pre>
+                      <pre class="language-r">                                       category = list(single = "SINGLE", last_replicated = c("LAST", "REPLICATED")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">309</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">                                       variables = list(id = "USUBJID", param = "PARAM", direction = "abn_dir")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">310</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">54</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     time = "time", event = "status", arm = "armcd",</pre>
+                      <pre class="language-r">  checkmate::assert_string(.var)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">311</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">55</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     covariates = "covar1"</pre>
+                      <pre class="language-r">  checkmate::assert_list(variables)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">312</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">56</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">  checkmate::assert_list(category)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">313</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">57</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = dta_bladder,</pre>
+                      <pre class="language-r">  checkmate::assert_subset(names(category), c("single", "last_replicated"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">314</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">58</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   control = control_coxreg(conf_level = 0.91)</pre>
+                      <pre class="language-r">  checkmate::assert_subset(names(variables), c("id", "param", "direction"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">315</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">59</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  checkmate::assert_vector(unique(df[[variables$direction]]), max.len = 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">316</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">317</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">61</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Cox regression: arm + 1 covariate + interaction, 2 candidate covariates.</pre>
+                      <pre class="language-r">  assert_df_with_variables(df, c(aval = .var, variables))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">318</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">62</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' mod2 &lt;- fit_coxreg_univar(</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(df[[.var]], classes = c("factor", "character"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">319</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">63</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(df[[variables$id]], classes = c("factor", "character"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">320</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     time = "time", event = "status", arm = "armcd",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">321</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     covariates = c("covar1", "covar2")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">322</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">66</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">  first_row &lt;- .spl_context[.spl_context$split == variables[["param"]], ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">323</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = dta_bladder,</pre>
+                      <pre class="language-r">  # Patients in the denominator have at least one post-baseline visit.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">324</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">68</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   control = control_coxreg(conf_level = 0.91, interaction = TRUE)</pre>
+                      <pre class="language-r">  subj &lt;- first_row$full_parent_df[[1]][[variables[["id"]]]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">325</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">69</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  subj_cur_col &lt;- subj[first_row$cur_col_subset[[1]]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">326</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  # Some subjects may have a record for high and low directions but</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">327</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Cox regression: arm + 1 covariate, stratified analysis.</pre>
+                      <pre class="language-r">  # should be counted only once.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">328</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">72</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' mod3 &lt;- fit_coxreg_univar(</pre>
+                      <pre class="language-r">  denom &lt;- length(unique(subj_cur_col))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">329</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">330</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">74</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     time = "time", event = "status", arm = "armcd", strata = "covar2",</pre>
+                      <pre class="language-r">  if (denom != 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">331</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">75</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     covariates = c("covar1")</pre>
+                      <pre class="language-r">    subjects_last_replicated &lt;- unique(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">332</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">76</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">      df[df[[.var]] %in% category[["last_replicated"]], variables$id, drop = TRUE]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">333</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = dta_bladder,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">334</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">78</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   control = control_coxreg(conf_level = 0.91)</pre>
+                      <pre class="language-r">    subjects_single &lt;- unique(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">335</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">79</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">      df[df[[.var]] %in% category[["single"]], variables$id, drop = TRUE]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">336</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">337</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Cox regression: no arm, only covariates.</pre>
+                      <pre class="language-r">    # Subjects who have both single and last/replicated abnormalities are counted in only the last/replicated group.</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">82</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    subjects_single &lt;- setdiff(subjects_single, subjects_last_replicated)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">83</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    n_single &lt;- length(subjects_single)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">84</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    n_last_replicated &lt;- length(subjects_last_replicated)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">85</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    n_any &lt;- n_single + n_last_replicated</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">86</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    result &lt;- list(count_fraction = list(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">87</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      "Single, not last" = c(n_single, n_single / denom),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">88</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      "Last or replicated" = c(n_last_replicated, n_last_replicated / denom),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">89</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      "Any Abnormality" = c(n_any, n_any / denom)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">338</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' mod4 &lt;- fit_coxreg_univar(</pre>
+                      <pre class="language-r">    ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">339</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">  } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">92</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    result &lt;- list(count_fraction = list(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">93</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      "Single, not last" = c(0, 0),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">94</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      "Last or replicated" = c(0, 0),</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">95</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      "Any Abnormality" = c(0, 0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">340</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     time = "time", event = "status",</pre>
+                      <pre class="language-r">    ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">341</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     covariates = c("covar1", "covar2")</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">342</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">99</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  result</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">343</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = dta_bladder</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">344</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">345</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @describeIn abnormal_by_marked Formatted analysis function which is used as `afun`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">346</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'   in `count_abnormal_by_marked()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">347</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">fit_coxreg_univar &lt;- function(variables,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">348</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              data,</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">349</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              at = list(),</pre>
+                      <pre class="language-r">#' * `a_count_abnormal_by_marked()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">350</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              control = control_coxreg()) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">351</td>
-                    <td class="coverage">43<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">108</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(variables, names = "named")</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">352</td>
-                    <td class="coverage">43<em>x</em></td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">109</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  has_arm &lt;- "arm" %in% names(variables)</pre>
+                      <pre class="language-r">a_count_abnormal_by_marked &lt;- make_afun(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">353</td>
-                    <td class="coverage">43<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">110</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  arm_name &lt;- if (has_arm) "arm" else NULL</pre>
+                      <pre class="language-r">  s_count_abnormal_by_marked,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">354</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  .formats = c(count_fraction = format_count_fraction)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">355</td>
-                    <td class="coverage">43<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">112</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(variables$covariates, null.ok = TRUE)</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">356</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">357</td>
-                    <td class="coverage">43<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">114</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(data, variables)</pre>
+                      <pre class="language-r">#' @describeIn abnormal_by_marked Layout-creating function which can take statistics function arguments</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">358</td>
-                    <td class="coverage">43<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">115</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_list_of_variables(variables[c(arm_name, "event", "time")])</pre>
+                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">359</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">360</td>
-                    <td class="coverage">43<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">117</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(variables$strata)) {</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">361</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">118</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_disjunct(control$pval_method, "likelihood")</pre>
+                      <pre class="language-r">#' * `count_abnormal_by_marked()` returns a layout object suitable for passing to further layouting functions,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">362</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">363</td>
-                    <td class="coverage">42<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">120</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (has_arm) {</pre>
+                      <pre class="language-r">#'   the statistics from `s_count_abnormal_by_marked()` to the table layout.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">364</td>
-                    <td class="coverage">36<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">121</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    assert_df_with_factors(data, list(val = variables$arm), min.levels = 2, max.levels = 2)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">365</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">366</td>
-                    <td class="coverage">41<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">123</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  vars &lt;- unlist(variables[c(arm_name, "covariates", "strata")], use.names = FALSE)</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">367</td>
-                    <td class="coverage">41<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">124</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  for (i in vars) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">368</td>
-                    <td class="coverage">94<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">125</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.factor(data[[i]])) {</pre>
+                      <pre class="language-r">#' df &lt;- data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">369</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">126</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      attr(data[[i]], "levels") &lt;- levels(droplevels(data[[i]]))</pre>
+                      <pre class="language-r">#'   USUBJID = as.character(c(rep(1, 5), rep(2, 5), rep(1, 5), rep(2, 5))),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">370</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'   ARMCD = factor(c(rep("ARM A", 5), rep("ARM B", 5), rep("ARM A", 5), rep("ARM B", 5))),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">371</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   ANRIND = factor(c(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">372</td>
-                    <td class="coverage">41<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">129</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  forms &lt;- h_coxreg_univar_formulas(variables, interaction = control$interaction)</pre>
+                      <pre class="language-r">#'     "NORMAL", "HIGH", "HIGH", "HIGH HIGH", "HIGH",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">373</td>
-                    <td class="coverage">41<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">130</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mod &lt;- lapply(</pre>
+                      <pre class="language-r">#'     "HIGH", "HIGH", "HIGH HIGH", "NORMAL", "HIGH HIGH", "NORMAL", "LOW", "LOW", "LOW LOW", "LOW",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">374</td>
-                    <td class="coverage">41<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">131</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    forms, function(x) {</pre>
+                      <pre class="language-r">#'     "LOW", "LOW", "LOW LOW", "NORMAL", "LOW LOW"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">375</td>
-                    <td class="coverage">90<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">132</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      survival::coxph(formula = stats::as.formula(x), data = data, ties = control$ties)</pre>
+                      <pre class="language-r">#'   )),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">376</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'   ONTRTFL = rep(c("", "Y", "Y", "Y", "Y", "Y", "Y", "Y", "Y", "Y"), 2),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">377</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'   PARAMCD = factor(c(rep("CRP", 10), rep("ALT", 10))),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">378</td>
-                    <td class="coverage">41<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">135</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  structure(</pre>
+                      <pre class="language-r">#'   AVALCAT1 = factor(rep(c("", "", "", "SINGLE", "REPLICATED", "", "", "LAST", "", "SINGLE"), 2)),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">379</td>
-                    <td class="coverage">41<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">136</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list(</pre>
+                      <pre class="language-r">#'   stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">380</td>
-                    <td class="coverage">41<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">137</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      mod = mod,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">381</td>
-                    <td class="coverage">41<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">138</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data = data,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">382</td>
-                    <td class="coverage">41<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">139</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      control = control,</pre>
+                      <pre class="language-r">#' df &lt;- df %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">383</td>
-                    <td class="coverage">41<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">140</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vars = variables,</pre>
+                      <pre class="language-r">#'   mutate(abn_dir = factor(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">384</td>
-                    <td class="coverage">41<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">141</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      at = at</pre>
+                      <pre class="language-r">#'     case_when(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">385</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">#'       ANRIND == "LOW LOW" ~ "Low",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">386</td>
-                    <td class="coverage">41<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">143</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    class = "coxreg.univar"</pre>
+                      <pre class="language-r">#'       ANRIND == "HIGH HIGH" ~ "High",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">387</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'       TRUE ~ ""</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">388</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'     ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">389</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     levels = c("Low", "High")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">390</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn fit_coxreg Fit a multivariate Cox regression model.</pre>
+                      <pre class="language-r">#'   ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">391</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">392</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' # Select only post-baseline records.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">393</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `fit_coxreg_multivar()` returns a `coxreg.multivar` class object which is a named list</pre>
+                      <pre class="language-r">#' df &lt;- df %&gt;% filter(ONTRTFL == "Y")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">394</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   with 4 elements:</pre>
+                      <pre class="language-r">#' df_crp &lt;- df %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">395</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `mod`: Cox regression model fitted by [survival::coxph()].</pre>
+                      <pre class="language-r">#'   filter(PARAMCD == "CRP") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">396</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `data`: The original data frame input.</pre>
+                      <pre class="language-r">#'   droplevels()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">397</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `control`: The original control input.</pre>
+                      <pre class="language-r">#' full_parent_df &lt;- list(df_crp, "not_needed")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">398</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `vars`: The variables used in the model.</pre>
+                      <pre class="language-r">#' cur_col_subset &lt;- list(rep(TRUE, nrow(df_crp)), "not_needed")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">399</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' spl_context &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">400</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   split = c("PARAMCD", "GRADE_DIR"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">401</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # fit_coxreg_multivar</pre>
+                      <pre class="language-r">#'   full_parent_df = I(full_parent_df),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">402</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   cur_col_subset = I(cur_col_subset)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">403</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Cox regression: multivariate Cox regression.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">404</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' multivar_model &lt;- fit_coxreg_multivar(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">405</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">#' map &lt;- unique(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">406</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     time = "time", event = "status", arm = "armcd",</pre>
+                      <pre class="language-r">#'   df[df$abn_dir %in% c("Low", "High") &amp; df$AVALCAT1 != "", c("PARAMCD", "abn_dir")]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">407</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     covariates = c("covar1", "covar2")</pre>
+                      <pre class="language-r">#' ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">408</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#'   lapply(as.character) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">409</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = dta_bladder</pre>
+                      <pre class="language-r">#'   as.data.frame() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">410</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   arrange(PARAMCD, abn_dir)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">411</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">412</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Example without treatment arm.</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">413</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' multivar_covs_model &lt;- fit_coxreg_multivar(</pre>
+                      <pre class="language-r">#'   split_cols_by("ARMCD") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">414</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">#'   split_rows_by("PARAMCD") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">415</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     time = "time", event = "status",</pre>
+                      <pre class="language-r">#'   summarize_num_patients(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">416</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     covariates = c("covar1", "covar2")</pre>
+                      <pre class="language-r">#'     var = "USUBJID",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">417</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#'     .stats = "unique_count"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">418</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = dta_bladder</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">419</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   split_rows_by(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">420</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     "abn_dir",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">421</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'     split_fun = trim_levels_to_map(map)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">422</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">fit_coxreg_multivar &lt;- function(variables,</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">423</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                data,</pre>
+                      <pre class="language-r">#'   count_abnormal_by_marked(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">424</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                control = control_coxreg()) {</pre>
+                      <pre class="language-r">#'     var = "AVALCAT1",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">425</td>
-                    <td class="coverage">83<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">182</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(variables, names = "named")</pre>
+                      <pre class="language-r">#'     variables = list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">426</td>
-                    <td class="coverage">83<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">183</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  has_arm &lt;- "arm" %in% names(variables)</pre>
+                      <pre class="language-r">#'       id = "USUBJID",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">427</td>
-                    <td class="coverage">83<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">184</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  arm_name &lt;- if (has_arm) "arm" else NULL</pre>
+                      <pre class="language-r">#'       param = "PARAMCD",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">428</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       direction = "abn_dir"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">429</td>
-                    <td class="coverage">83<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">186</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(variables$covariates)) {</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">430</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">187</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_character(variables$covariates)</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">431</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   build_table(df = df)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">432</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">433</td>
-                    <td class="coverage">83<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">190</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_false(control$interaction)</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">434</td>
-                    <td class="coverage">83<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">191</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(data, variables)</pre>
+                      <pre class="language-r">#'   split_cols_by("ARMCD") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">435</td>
-                    <td class="coverage">83<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">192</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_list_of_variables(variables[c(arm_name, "event", "time")])</pre>
+                      <pre class="language-r">#'   split_rows_by("PARAMCD") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">436</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   summarize_num_patients(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">437</td>
-                    <td class="coverage">83<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">194</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(variables$strata)) {</pre>
+                      <pre class="language-r">#'     var = "USUBJID",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">438</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">195</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_disjunct(control$pval_method, "likelihood")</pre>
+                      <pre class="language-r">#'     .stats = "unique_count"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">439</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">440</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   split_rows_by(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">441</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">198</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  form &lt;- h_coxreg_multivar_formula(variables)</pre>
+                      <pre class="language-r">#'     "abn_dir",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">442</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">199</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mod &lt;- survival::coxph(</pre>
+                      <pre class="language-r">#'     split_fun = trim_levels_in_group("abn_dir")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">443</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">200</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    formula = stats::as.formula(form),</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">444</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">201</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data = data,</pre>
+                      <pre class="language-r">#'   count_abnormal_by_marked(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">445</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">202</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ties = control$ties</pre>
+                      <pre class="language-r">#'     var = "AVALCAT1",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">446</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'     variables = list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">447</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">204</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  structure(</pre>
+                      <pre class="language-r">#'       id = "USUBJID",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">448</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">205</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list(</pre>
+                      <pre class="language-r">#'       param = "PARAMCD",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">449</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">206</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      mod = mod,</pre>
+                      <pre class="language-r">#'       direction = "abn_dir"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">450</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">207</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data = data,</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">451</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">208</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      control = control,</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">452</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">209</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vars = variables</pre>
+                      <pre class="language-r">#'   build_table(df = df)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">453</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">454</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">211</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    class = "coxreg.multivar"</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">455</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @order 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">456</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">count_abnormal_by_marked &lt;- function(lyt,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">457</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                     var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">458</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Muffled `car::Anova`</pre>
+                      <pre class="language-r">                                     category = list(single = "SINGLE", last_replicated = c("LAST", "REPLICATED")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">459</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                     variables = list(id = "USUBJID", param = "PARAM", direction = "abn_dir"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">460</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Applied on survival models, [car::Anova()] signal that the `strata` terms is dropped from the model formula when</pre>
+                      <pre class="language-r">                                     na_str = default_na_str(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">461</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' present, this function deliberately muffles this message.</pre>
+                      <pre class="language-r">                                     nested = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">462</td>
+                    <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                     ...,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">463</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param mod (`coxph`)\cr Cox regression model fitted by [survival::coxph()].</pre>
+                      <pre class="language-r">                                     .stats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">464</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param test_statistic (`string`)\cr the method used for estimation of p.values; `wald` (default) or `likelihood`.</pre>
+                      <pre class="language-r">                                     .formats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">465</td>
+                    <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                     .labels = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">466</td>
+                    <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return The output of [car::Anova()], with convergence message muffled.</pre>
+                      <pre class="language-r">                                     .indent_mods = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">467</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">224</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_string(var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">468</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">226</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  extra_args &lt;- list(category = category, variables = variables, ...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">469</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">muffled_car_anova &lt;- function(mod, test_statistic) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">470</td>
-                    <td class="coverage">219<em>x</em></td>
+                    <td class="num">228</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tryCatch(</pre>
+                      <pre class="language-r">  afun &lt;- make_afun(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">471</td>
-                    <td class="coverage">219<em>x</em></td>
+                    <td class="num">229</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    withCallingHandlers(</pre>
+                      <pre class="language-r">    a_count_abnormal_by_marked,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">472</td>
-                    <td class="coverage">219<em>x</em></td>
+                    <td class="num">230</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      expr = {</pre>
+                      <pre class="language-r">    .stats = .stats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">473</td>
-                    <td class="coverage">219<em>x</em></td>
+                    <td class="num">231</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        car::Anova(</pre>
+                      <pre class="language-r">    .formats = .formats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">474</td>
-                    <td class="coverage">219<em>x</em></td>
+                    <td class="num">232</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          mod,</pre>
+                      <pre class="language-r">    .labels = .labels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">475</td>
-                    <td class="coverage">219<em>x</em></td>
+                    <td class="num">233</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          test.statistic = test_statistic,</pre>
+                      <pre class="language-r">    .indent_mods = .indent_mods,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">476</td>
-                    <td class="coverage">219<em>x</em></td>
+                    <td class="num">234</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          type = "III"</pre>
+                      <pre class="language-r">    .ungroup_stats = "count_fraction"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">477</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">478</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">479</td>
-                    <td class="coverage">219<em>x</em></td>
+                    <td class="num">237</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      message = function(m) invokeRestart("muffleMessage"),</pre>
+                      <pre class="language-r">  lyt &lt;- analyze(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">480</td>
-                    <td class="coverage">219<em>x</em></td>
+                    <td class="num">238</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      error = function(e) {</pre>
+                      <pre class="language-r">    lyt = lyt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">481</td>
+                    <td class="num">239</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        stop(paste(</pre>
+                      <pre class="language-r">    vars = var,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">482</td>
+                    <td class="num">240</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "the model seems to have convergence problems, please try to change",</pre>
+                      <pre class="language-r">    afun = afun,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">483</td>
+                    <td class="num">241</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "the configuration of covariates or strata variables, e.g.",</pre>
+                      <pre class="language-r">    na_str = na_str,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">484</td>
+                    <td class="num">242</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "- original error:", e</pre>
+                      <pre class="language-r">    nested = nested,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">485</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">243</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ))</pre>
+                      <pre class="language-r">    show_labels = "hidden",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">486</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">244</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">    extra_args = extra_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">487</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">488</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">246</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  lyt</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">489</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -88891,14 +89970,14 @@ <h2>tern coverage - 95.64%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/summarize_num_patients.R" class="hidden">
+            <div id="R/cox_regression_inter.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Count number of patients</pre>
+                      <pre class="language-r">#' Cox regression helper function for interactions</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -88926,14490 +90005,14062 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The analyze function [analyze_num_patients()] creates a layout element to count total numbers of unique or</pre>
+                      <pre class="language-r">#' Test and estimate the effect of a treatment in interaction with a covariate.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' non-unique patients. The primary analysis variable `vars` is used to uniquely identify patients.</pre>
+                      <pre class="language-r">#' The effect is estimated as the HR of the tested treatment for a given level</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' of the covariate, in comparison to the treatment control.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The `count_by` variable can be used to identify non-unique patients such that the number of patients with a unique</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' combination of values in `vars` and `count_by` will be returned instead as the `nonunique` statistic. The `required`</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' variable can be used to specify a variable required to be non-missing for the record to be included in the counts.</pre>
+                      <pre class="language-r">#' @param x (`numeric` or `factor`)\cr the values of the covariate to be tested.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param effect (`string`)\cr the name of the effect to be tested and estimated.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The summarize function [summarize_num_patients()] performs the same function as [analyze_num_patients()] except it</pre>
+                      <pre class="language-r">#' @param covar (`string`)\cr the name of the covariate in the model.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' creates content rows, not data rows, to summarize the current table row/column context and operates on the level of</pre>
+                      <pre class="language-r">#' @param mod (`coxph`)\cr the Cox regression model.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the latest row split or the root of the table if no row splits have occurred.</pre>
+                      <pre class="language-r">#' @param label (`string`)\cr the label to be returned as `term_label`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param control (`list`)\cr a list of controls as returned by [control_coxreg()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' @param ... see methods.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param required (`character` or `NULL`)\cr name of a variable that is required to be non-missing.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param count_by (`character` or `NULL`)\cr name of a variable to be combined with `vars` when counting</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `nonunique` records.</pre>
+                      <pre class="language-r">#' library(survival)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param unique_count_suffix (`flag`)\cr whether the `"(n)"` suffix should be added to `unique_count` labels.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Defaults to `TRUE`.</pre>
+                      <pre class="language-r">#' set.seed(1, kind = "Mersenne-Twister")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("summarize_num_patients")`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to see available statistics for this function.</pre>
+                      <pre class="language-r">#' # Testing dataset [survival::bladder].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' dta_bladder &lt;- with(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name summarize_num_patients</pre>
+                      <pre class="language-r">#'   data = bladder[bladder$enum &lt; 5, ],</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 1</pre>
+                      <pre class="language-r">#'   data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#'     time = stop,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     status = event,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn summarize_num_patients Statistics function which counts the number of</pre>
+                      <pre class="language-r">#'     armcd = as.factor(rx),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   unique patients, the corresponding percentage taken with respect to the</pre>
+                      <pre class="language-r">#'     covar1 = as.factor(enum),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   total number of patients, and the number of non-unique patients.</pre>
+                      <pre class="language-r">#'     covar2 = factor(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'       sample(as.factor(enum)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`character` or `factor`)\cr vector of patient IDs.</pre>
+                      <pre class="language-r">#'       levels = 1:4,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'       labels = c("F", "F", "M", "M")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_num_patients()` returns a named `list` of 3 statistics:</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `unique`: Vector of counts and percentages.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `nonunique`: Vector of counts.</pre>
+                      <pre class="language-r">#' labels &lt;- c("armcd" = "ARM", "covar1" = "A Covariate Label", "covar2" = "Sex (F/M)")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `unique_count`: Counts.</pre>
+                      <pre class="language-r">#' formatters::var_labels(dta_bladder)[names(labels)] &lt;- labels</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' dta_bladder$age &lt;- sample(20:60, size = nrow(dta_bladder), replace = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Use the statistics function to count number of unique and nonunique patients.</pre>
+                      <pre class="language-r">#' plot(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_num_patients(x = as.character(c(1, 1, 1, 2, 4, NA)), labelstr = "", .N_col = 6L)</pre>
+                      <pre class="language-r">#'   survfit(Surv(time, status) ~ armcd + covar1, data = dta_bladder),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_num_patients(</pre>
+                      <pre class="language-r">#'   lty = 2:4,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   x = as.character(c(1, 1, 1, 2, 4, NA)),</pre>
+                      <pre class="language-r">#'   xlab = "Months",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   labelstr = "",</pre>
+                      <pre class="language-r">#'   col = c("blue1", "blue2", "blue3", "blue4", "red1", "red2", "red3", "red4")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .N_col = 6L,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   count_by = c(1, 1, 2, 1, 1, 1)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' @name cox_regression_inter</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_num_patients &lt;- function(x, labelstr, .N_col, count_by = NULL, unique_count_suffix = TRUE) { # nolint</pre>
+                      <pre class="language-r">#' @describeIn cox_regression_inter S3 generic helper function to determine interaction effect.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">54</td>
-                    <td class="coverage">146<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(labelstr)</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">55</td>
-                    <td class="coverage">146<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_count(.N_col)</pre>
+                      <pre class="language-r">#' * `h_coxreg_inter_effect()` returns a `data.frame` of covariate interaction effects consisting of the following</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">56</td>
-                    <td class="coverage">146<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(x, classes = c("factor", "character"))</pre>
+                      <pre class="language-r">#'   variables: `effect`, `term`, `term_label`, `level`, `n`, `hr`, `lcl`, `ucl`, `pval`, and `pval_inter`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">57</td>
-                    <td class="coverage">146<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(unique_count_suffix)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">59</td>
-                    <td class="coverage">146<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  count1 &lt;- n_available(unique(x))</pre>
+                      <pre class="language-r">h_coxreg_inter_effect &lt;- function(x,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">60</td>
-                    <td class="coverage">146<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  count2 &lt;- n_available(x)</pre>
+                      <pre class="language-r">                                  effect,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                  covar,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">62</td>
-                    <td class="coverage">146<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(count_by)) {</pre>
+                      <pre class="language-r">                                  mod,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">63</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_vector(count_by, len = length(x))</pre>
+                      <pre class="language-r">                                  label,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">64</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    count2 &lt;- n_available(unique(interaction(x, count_by)))</pre>
+                      <pre class="language-r">                                  control,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                                  ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">66</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  UseMethod("h_coxreg_inter_effect", x)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">67</td>
-                    <td class="coverage">146<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  out &lt;- list(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">68</td>
-                    <td class="coverage">146<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    unique = formatters::with_label(c(count1, ifelse(count1 == 0 &amp;&amp; .N_col == 0, 0, count1 / .N_col)), labelstr),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">69</td>
-                    <td class="coverage">146<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nonunique = formatters::with_label(count2, labelstr),</pre>
+                      <pre class="language-r">#' @describeIn cox_regression_inter Method for `numeric` class. Estimates the interaction with a `numeric` covariate.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">70</td>
-                    <td class="coverage">146<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    unique_count = formatters::with_label(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">71</td>
-                    <td class="coverage">146<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      count1, ifelse(unique_count_suffix, paste0(labelstr, if (nzchar(labelstr)) " ", "(n)"), labelstr)</pre>
+                      <pre class="language-r">#' @method h_coxreg_inter_effect numeric</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @param at (`list`)\cr a list with items named after the covariate, every</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   item is a vector of levels at which the interaction should be estimated.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">75</td>
-                    <td class="coverage">146<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  out</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">h_coxreg_inter_effect.numeric &lt;- function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn summarize_num_patients Statistics function which counts the number of unique patients</pre>
+                      <pre class="language-r">                                          effect,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   in a column (variable), the corresponding percentage taken with respect to the total number of</pre>
+                      <pre class="language-r">                                          covar,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   patients, and the number of non-unique patients in the column.</pre>
+                      <pre class="language-r">                                          mod,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                          label,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">                                          control,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_num_patients_content()` returns the same values as `s_num_patients()`.</pre>
+                      <pre class="language-r">                                          at,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                          ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">85</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  betas &lt;- stats::coef(mod)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">86</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Count number of unique and non-unique patients.</pre>
+                      <pre class="language-r">  attrs &lt;- attr(stats::terms(mod), "term.labels")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">87</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  term_indices &lt;- grep(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">88</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- data.frame(</pre>
+                      <pre class="language-r">    pattern = effect,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">89</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   USUBJID = as.character(c(1, 2, 1, 4, NA)),</pre>
+                      <pre class="language-r">    x = attrs[!grepl("strata\\(", attrs)]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   EVENT = as.character(c(10, 15, 10, 17, 8))</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">91</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  checkmate::assert_vector(term_indices, len = 2)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">92</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_num_patients_content(df, .N_col = 5, .var = "USUBJID")</pre>
+                      <pre class="language-r">  betas &lt;- betas[term_indices]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">93</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  betas_var &lt;- diag(stats::vcov(mod))[term_indices]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">94</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df_by_event &lt;- data.frame(</pre>
+                      <pre class="language-r">  betas_cov &lt;- stats::vcov(mod)[term_indices[1], term_indices[2]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">95</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   USUBJID = as.character(c(1, 2, 1, 4, NA)),</pre>
+                      <pre class="language-r">  xval &lt;- if (is.null(at[[covar]])) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">96</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   EVENT = c(10, 15, 10, 17, 8)</pre>
+                      <pre class="language-r">    stats::median(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">98</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_num_patients_content(df_by_event, .N_col = 5, .var = "USUBJID", count_by = "EVENT")</pre>
+                      <pre class="language-r">    at[[covar]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">100</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  effect_index &lt;- !grepl(covar, names(betas))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">101</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_num_patients_content &lt;- function(df,</pre>
+                      <pre class="language-r">  coef_hat &lt;- betas[effect_index] + xval * betas[!effect_index]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">102</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   labelstr = "",</pre>
+                      <pre class="language-r">  coef_se &lt;- sqrt(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">103</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   .N_col, # nolint</pre>
+                      <pre class="language-r">    betas_var[effect_index] +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">104</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   .var,</pre>
+                      <pre class="language-r">      xval ^ 2 * betas_var[!effect_index] + # styler: off</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">105</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   required = NULL,</pre>
+                      <pre class="language-r">      2 * xval * betas_cov</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   count_by = NULL,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">107</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   unique_count_suffix = TRUE) {</pre>
+                      <pre class="language-r">  q_norm &lt;- stats::qnorm((1 + control$conf_level) / 2)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">108</td>
-                    <td class="coverage">56<em>x</em></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(.var)</pre>
+                      <pre class="language-r">  data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">109</td>
-                    <td class="coverage">56<em>x</em></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(df)</pre>
+                      <pre class="language-r">    effect = "Covariate:",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">110</td>
-                    <td class="coverage">56<em>x</em></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(count_by)) {</pre>
+                      <pre class="language-r">    term = rep(covar, length(xval)),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">111</td>
-                    <td class="coverage">53<em>x</em></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    assert_df_with_variables(df, list(id = .var))</pre>
+                      <pre class="language-r">    term_label = paste0("  ", xval),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">112</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">    level = as.character(xval),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">113</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    assert_df_with_variables(df, list(id = .var, count_by = count_by))</pre>
+                      <pre class="language-r">    n = NA,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">114</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    hr = exp(coef_hat),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">115</td>
-                    <td class="coverage">56<em>x</em></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(required)) {</pre>
+                      <pre class="language-r">    lcl = exp(coef_hat - q_norm * coef_se),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">116</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_string(required)</pre>
+                      <pre class="language-r">    ucl = exp(coef_hat + q_norm * coef_se),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">117</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    assert_df_with_variables(df, list(required = required))</pre>
+                      <pre class="language-r">    pval = NA,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">118</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df &lt;- df[!is.na(df[[required]]), , drop = FALSE]</pre>
+                      <pre class="language-r">    pval_inter = NA,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">119</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">121</td>
-                    <td class="coverage">56<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x &lt;- df[[.var]]</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">122</td>
-                    <td class="coverage">56<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- if (is.null(count_by)) NULL else df[[count_by]]</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @describeIn cox_regression_inter Method for `factor` class. Estimate the interaction with a `factor` covariate.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">124</td>
-                    <td class="coverage">56<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_num_patients(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">125</td>
-                    <td class="coverage">56<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = x,</pre>
+                      <pre class="language-r">#' @method h_coxreg_inter_effect factor</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">126</td>
-                    <td class="coverage">56<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    labelstr = labelstr,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">127</td>
-                    <td class="coverage">56<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .N_col = .N_col,</pre>
+                      <pre class="language-r">#' @param data (`data.frame`)\cr the data frame on which the model was fit.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">128</td>
-                    <td class="coverage">56<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    count_by = y,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">129</td>
-                    <td class="coverage">56<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    unique_count_suffix = unique_count_suffix</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">h_coxreg_inter_effect.factor &lt;- function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">                                         effect,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                         covar,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">c_num_patients &lt;- make_afun(</pre>
+                      <pre class="language-r">                                         mod,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_num_patients_content,</pre>
+                      <pre class="language-r">                                         label,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .stats = c("unique", "nonunique", "unique_count"),</pre>
+                      <pre class="language-r">                                         control,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats = c(unique = format_count_fraction_fixed_dp, nonunique = "xx", unique_count = "xx")</pre>
+                      <pre class="language-r">                                         data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">                                         ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">138</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  lvl_given &lt;- levels(x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">139</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn summarize_num_patients Layout-creating function which can take statistics function arguments</pre>
+                      <pre class="language-r">  y &lt;- h_coxreg_inter_estimations(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">140</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::summarize_row_groups()].</pre>
+                      <pre class="language-r">    variable = effect, given = covar,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">141</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    lvl_var = levels(data[[effect]]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">142</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">    lvl_given = lvl_given,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">143</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `summarize_num_patients()` returns a layout object suitable for passing to further layouting functions,</pre>
+                      <pre class="language-r">    mod = mod,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">144</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
+                      <pre class="language-r">    conf_level = 0.95</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">145</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the statistics from `s_num_patients_content()` to the table layout.</pre>
+                      <pre class="language-r">  )[[1]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">147</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">148</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # summarize_num_patients</pre>
+                      <pre class="language-r">    effect = "Covariate:",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">149</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tbl &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">    term = rep(covar, nrow(y)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">150</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
+                      <pre class="language-r">    term_label = paste0("  ", lvl_given),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">151</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by("SEX") %&gt;%</pre>
+                      <pre class="language-r">    level = lvl_given,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">152</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   summarize_num_patients("USUBJID", .stats = "unique_count") %&gt;%</pre>
+                      <pre class="language-r">    n = NA,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">153</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(df)</pre>
+                      <pre class="language-r">    hr = y[, "hr"],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">154</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    lcl = y[, "lcl"],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">155</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tbl</pre>
+                      <pre class="language-r">    ucl = y[, "ucl"],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">156</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    pval = NA,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">157</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    pval_inter = NA,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">158</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 3</pre>
+                      <pre class="language-r">    stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">summarize_num_patients &lt;- function(lyt,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   var,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   required = NULL,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   count_by = NULL,</pre>
+                      <pre class="language-r">#' @describeIn cox_regression_inter Method for `character` class. Estimate the interaction with a `character` covariate.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   unique_count_suffix = TRUE,</pre>
+                      <pre class="language-r">#'   This makes an automatic conversion to `factor` and then forwards to the method for factors.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   na_str = default_na_str(),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   .stats = NULL,</pre>
+                      <pre class="language-r">#' @method h_coxreg_inter_effect character</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   .formats = NULL,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   .labels = c(</pre>
+                      <pre class="language-r">#' @note</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     unique = "Number of patients with at least one event",</pre>
+                      <pre class="language-r">#' * Automatic conversion of character to factor does not guarantee results can be generated correctly. It is</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     nonunique = "Number of events"</pre>
+                      <pre class="language-r">#'   therefore better to always pre-process the dataset such that factors are manually created from character</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   ),</pre>
+                      <pre class="language-r">#'   variables before passing the dataset to [rtables::build_table()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   .indent_mods = 0L,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   riskdiff = FALSE,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   ...) {</pre>
+                      <pre class="language-r">h_coxreg_inter_effect.character &lt;- function(x,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">174</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(riskdiff)</pre>
+                      <pre class="language-r">                                            effect,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                            covar,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">176</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(.stats)) .stats &lt;- c("unique", "nonunique", "unique_count")</pre>
+                      <pre class="language-r">                                            mod,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">177</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(.labels) &gt; length(.stats)) .labels &lt;- .labels[names(.labels) %in% .stats]</pre>
+                      <pre class="language-r">                                            label,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                            control,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">179</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_args &lt;- list(required = required, count_by = count_by, unique_count_suffix = unique_count_suffix, ...)</pre>
+                      <pre class="language-r">                                            data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                            ...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">181</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  cfun &lt;- make_afun(</pre>
+                      <pre class="language-r">  y &lt;- as.factor(x)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">182</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c_num_patients,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">183</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .stats = .stats,</pre>
+                      <pre class="language-r">  h_coxreg_inter_effect(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">184</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .formats = .formats,</pre>
+                      <pre class="language-r">    x = y,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">185</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .labels = .labels</pre>
+                      <pre class="language-r">    effect = effect,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">186</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    covar = covar,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">187</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    mod = mod,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">188</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- if (isFALSE(riskdiff)) {</pre>
+                      <pre class="language-r">    label = label,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">189</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    s_args</pre>
+                      <pre class="language-r">    control = control,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">190</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">    data = data,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">191</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list(</pre>
+                      <pre class="language-r">    ...</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">192</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      afun = list("s_num_patients_content" = cfun),</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">193</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      .stats = .stats,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">194</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      .indent_mods = .indent_mods,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">195</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      s_args = s_args</pre>
+                      <pre class="language-r">#' @describeIn cox_regression_inter A higher level function to get</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'   the results of the interaction test and the estimated values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">199</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  summarize_row_groups(</pre>
+                      <pre class="language-r">#' * `h_coxreg_extract_interaction()` returns the result of an interaction test and the estimated values. If</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">200</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt = lyt,</pre>
+                      <pre class="language-r">#'   no interaction, [h_coxreg_univar_extract()] is applied instead.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">201</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var = var,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">202</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    cfun = ifelse(isFALSE(riskdiff), cfun, afun_riskdiff),</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">203</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">#' mod &lt;- coxph(Surv(time, status) ~ armcd * covar1, data = dta_bladder)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">204</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args = extra_args,</pre>
+                      <pre class="language-r">#' h_coxreg_extract_interaction(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">205</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    indent_mod = .indent_mods</pre>
+                      <pre class="language-r">#'   mod = mod, effect = "armcd", covar = "covar1", data = dta_bladder,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'   control = control_coxreg()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn summarize_num_patients Layout-creating function which can take statistics function arguments</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
+                      <pre class="language-r">h_coxreg_extract_interaction &lt;- function(effect,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                         covar,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">                                         mod,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `analyze_num_patients()` returns a layout object suitable for passing to further layouting functions,</pre>
+                      <pre class="language-r">                                         data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
+                      <pre class="language-r">                                         at,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the statistics from `s_num_patients_content()` to the table layout.</pre>
+                      <pre class="language-r">                                         control) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">216</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if (!any(attr(stats::terms(mod), "order") == 2)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">217</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details In general, functions that starts with `analyze*` are expected to</pre>
+                      <pre class="language-r">    y &lt;- h_coxreg_univar_extract(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">218</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   work like [rtables::analyze()], while functions that starts with `summarize*`</pre>
+                      <pre class="language-r">      effect = effect, covar = covar, mod = mod, data = data, control = control</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   are based upon [rtables::summarize_row_groups()]. The latter provides a</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">220</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   value for each dividing split in the row and column space, but, being it</pre>
+                      <pre class="language-r">    y$pval_inter &lt;- NA</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">221</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   bound to the fundamental splits, it is repeated by design in every page</pre>
+                      <pre class="language-r">    y</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   when pagination is involved.</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">223</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    test_statistic &lt;- c(wald = "Wald", likelihood = "LR")[control$pval_method]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note As opposed to [summarize_num_patients()], this function does not repeat the produced rows.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    # Test the main treatment effect.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">226</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    mod_aov &lt;- muffled_car_anova(mod, test_statistic)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">227</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- data.frame(</pre>
+                      <pre class="language-r">    sum_anova &lt;- broom::tidy(mod_aov)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">228</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   USUBJID = as.character(c(1, 2, 1, 4, NA, 6, 6, 8, 9)),</pre>
+                      <pre class="language-r">    pval &lt;- sum_anova[sum_anova$term == effect, ][["p.value"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ARM = c("A", "A", "A", "A", "A", "B", "B", "B", "B"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   AGE = c(10, 15, 10, 17, 8, 11, 11, 19, 17),</pre>
+                      <pre class="language-r">    # Test the interaction effect.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">231</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   SEX = c("M", "M", "M", "F", "F", "F", "M", "F", "M")</pre>
+                      <pre class="language-r">    pval_inter &lt;- sum_anova[grep(":", sum_anova$term), ][["p.value"]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">232</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    covar_test &lt;- data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">233</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      effect = "Covariate:",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">234</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # analyze_num_patients</pre>
+                      <pre class="language-r">      term = covar,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">235</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tbl &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">      term_label = unname(labels_or_names(data[covar])),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">236</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
+                      <pre class="language-r">      level = "",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">237</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                      <pre class="language-r">      n = mod$n, hr = NA, lcl = NA, ucl = NA, pval = pval,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">238</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze_num_patients("USUBJID", .stats = c("unique")) %&gt;%</pre>
+                      <pre class="language-r">      pval_inter = pval_inter,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">239</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(df)</pre>
+                      <pre class="language-r">      stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">240</td>
                     <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">241</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' tbl</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">242</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">243</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">244</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @order 2</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">245</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">analyze_num_patients &lt;- function(lyt,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">246</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                                 vars,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">247</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                                 required = NULL,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">248</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                                 count_by = NULL,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">249</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                                 unique_count_suffix = TRUE,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">250</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                                 na_str = default_na_str(),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">251</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                                 nested = TRUE,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">252</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                                 .stats = NULL,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">253</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                                 .formats = NULL,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">254</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                                 .labels = c(</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">255</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                                   unique = "Number of patients with at least one event",</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">256</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                                   nonunique = "Number of events"</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">257</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                                 ),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">258</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                                 show_labels = c("default", "visible", "hidden"),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">259</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                                 .indent_mods = 0L,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">260</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                                 riskdiff = FALSE,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">261</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                                 ...) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">262</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(riskdiff)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">263</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">264</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(.stats)) .stats &lt;- c("unique", "nonunique", "unique_count")</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">265</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (length(.labels) &gt; length(.stats)) .labels &lt;- .labels[names(.labels) %in% .stats]</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">266</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">267</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  s_args &lt;- list(required = required, count_by = count_by, unique_count_suffix = unique_count_suffix, ...)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">268</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">269</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  afun &lt;- make_afun(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">270</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    c_num_patients,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">271</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    .stats = .stats,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">272</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    .formats = .formats,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">273</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    .labels = .labels</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">274</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">275</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">276</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- if (isFALSE(riskdiff)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">277</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    s_args</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">278</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">279</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    list(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">280</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      afun = list("s_num_patients_content" = afun),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">281</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      .stats = .stats,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">282</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      .indent_mods = .indent_mods,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">283</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      s_args = s_args</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">284</td>
-                    <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">285</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # Estimate the interaction.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">287</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">242</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  analyze(</pre>
+                      <pre class="language-r">    y &lt;- h_coxreg_inter_effect(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">288</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">243</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    afun = ifelse(isFALSE(riskdiff), afun, afun_riskdiff),</pre>
+                      <pre class="language-r">      data[[covar]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">289</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">244</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt = lyt,</pre>
+                      <pre class="language-r">      covar = covar,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">290</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">245</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars = vars,</pre>
+                      <pre class="language-r">      effect = effect,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">291</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">246</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">      mod = mod,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">292</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">247</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nested = nested,</pre>
+                      <pre class="language-r">      label = unname(labels_or_names(data[covar])),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">293</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">248</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args = extra_args,</pre>
+                      <pre class="language-r">      at = at,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">294</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">249</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    show_labels = show_labels,</pre>
+                      <pre class="language-r">      control = control,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">295</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">250</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    indent_mod = .indent_mods</pre>
+                      <pre class="language-r">      data = data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    )</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">252</td>
+                    <td class="coverage">19<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    rbind(covar_test, y)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/prune_occurrences.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Occurrence table pruning</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' @describeIn cox_regression_inter Hazard ratio estimation in interactions.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">258</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Family of constructor and condition functions to flexibly prune occurrence tables.</pre>
+                      <pre class="language-r">#' @param variable,given (`string`)\cr the name of variables in interaction. We seek the estimation</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The condition functions always return whether the row result is higher than the threshold.</pre>
+                      <pre class="language-r">#'   of the levels of `variable` given the levels of `given`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Since they are of class [CombinationFunction()] they can be logically combined with other condition</pre>
+                      <pre class="language-r">#' @param lvl_var,lvl_given (`character`)\cr corresponding levels as given by [levels()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' functions.</pre>
+                      <pre class="language-r">#' @param mod (`coxph`)\cr a fitted Cox regression model (see [survival::coxph()]).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">262</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note Since most table specifications are worded positively, we name our constructor and condition</pre>
+                      <pre class="language-r">#' @details Given the cox regression investigating the effect of Arm (A, B, C; reference A)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   functions positively, too. However, note that the result of [keep_rows()] says what</pre>
+                      <pre class="language-r">#'   and Sex (F, M; reference Female) and the model being abbreviated: y ~ Arm + Sex + Arm:Sex.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">265</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   should be pruned, to conform with the [rtables::prune_table()] interface.</pre>
+                      <pre class="language-r">#'   The cox regression estimates the coefficients along with a variance-covariance matrix for:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">266</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">267</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   - b1 (arm b), b2 (arm c)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">268</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' \donttest{</pre>
+                      <pre class="language-r">#'   - b3 (sex m)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tab &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">#'   - b4 (arm b: sex m), b5 (arm c: sex m)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">270</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">271</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by("RACE") %&gt;%</pre>
+                      <pre class="language-r">#'   The estimation of the Hazard Ratio for arm C/sex M is given in reference</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">272</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by("STRATA1") %&gt;%</pre>
+                      <pre class="language-r">#'   to arm A/Sex M by exp(b2 + b3 + b5)/ exp(b3) = exp(b2 + b5).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">273</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   summarize_row_groups() %&gt;%</pre>
+                      <pre class="language-r">#'   The interaction coefficient is deduced by b2 + b5 while the standard error</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">274</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze_vars("COUNTRY", .stats = "count_fraction") %&gt;%</pre>
+                      <pre class="language-r">#'   is obtained as $sqrt(Var b2 + Var b5 + 2 * covariance (b2,b5))$.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">275</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(DM)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">276</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">277</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' * `h_coxreg_inter_estimations()` returns a list of matrices (one per level of variable) with rows corresponding</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name prune_occurrences</pre>
+                      <pre class="language-r">#'   to the combinations of `variable` and `given`, with columns:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">279</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#'   * `coef_hat`: Estimation of the coefficient.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">280</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   * `coef_se`: Standard error of the estimation.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">281</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn prune_occurrences Constructor for creating pruning functions based on</pre>
+                      <pre class="language-r">#'   * `hr`: Hazard ratio.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">282</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   a row condition function. This removes all analysis rows (`TableRow`) that should be</pre>
+                      <pre class="language-r">#'   * `lcl, ucl`: Lower/upper confidence limit of the hazard ratio.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">283</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   pruned, i.e., don't fulfill the row condition. It removes the sub-tree if there are no</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   children left.</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' mod &lt;- coxph(Surv(time, status) ~ armcd * covar1, data = dta_bladder)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param row_condition (`CombinationFunction`)\cr condition function which works on individual</pre>
+                      <pre class="language-r">#' result &lt;- h_coxreg_inter_estimations(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analysis rows and flags whether these should be kept in the pruned table.</pre>
+                      <pre class="language-r">#'   variable = "armcd", given = "covar1",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">288</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   lvl_var = levels(dta_bladder$armcd),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">289</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'   lvl_given = levels(dta_bladder$covar1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `keep_rows()` returns a pruning function that can be used with [rtables::prune_table()]</pre>
+                      <pre class="language-r">#'   mod = mod, conf_level = .95</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to prune an `rtables` table.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">292</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' result</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' \donttest{</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">295</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `keep_rows`</pre>
+                      <pre class="language-r">h_coxreg_inter_estimations &lt;- function(variable,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">296</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' is_non_empty &lt;- !CombinationFunction(all_zero_or_na)</pre>
+                      <pre class="language-r">                                       given,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">297</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' prune_table(tab, keep_rows(is_non_empty))</pre>
+                      <pre class="language-r">                                       lvl_var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">298</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">                                       lvl_given,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                       mod,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">300</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                                       conf_level = 0.95) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">301</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">keep_rows &lt;- function(row_condition) {</pre>
+                      <pre class="language-r">  var_lvl &lt;- paste0(variable, lvl_var[-1]) # [-1]: reference level</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">302</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_function(row_condition)</pre>
+                      <pre class="language-r">  giv_lvl &lt;- paste0(given, lvl_given)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">50</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">303</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  function(table_tree) {</pre>
+                      <pre class="language-r">  design_mat &lt;- expand.grid(variable = var_lvl, given = giv_lvl)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">51</td>
-                    <td class="coverage">2256<em>x</em></td>
+                    <td class="num">304</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (inherits(table_tree, "TableRow")) {</pre>
+                      <pre class="language-r">  design_mat &lt;- design_mat[order(design_mat$variable, design_mat$given), ]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">52</td>
-                    <td class="coverage">1872<em>x</em></td>
+                    <td class="num">305</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      return(!row_condition(table_tree))</pre>
+                      <pre class="language-r">  design_mat &lt;- within(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">306</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    data = design_mat,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">54</td>
-                    <td class="coverage">384<em>x</em></td>
+                    <td class="num">307</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    children &lt;- tree_children(table_tree)</pre>
+                      <pre class="language-r">    expr = {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">55</td>
-                    <td class="coverage">384<em>x</em></td>
+                    <td class="num">308</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    identical(length(children), 0L)</pre>
+                      <pre class="language-r">      inter &lt;- paste0(variable, ":", given)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">309</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      rev_inter &lt;- paste0(given, ":", variable)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">310</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">311</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">312</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn prune_occurrences Constructor for creating pruning functions based on</pre>
+                      <pre class="language-r">  split_by_variable &lt;- design_mat$variable</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">313</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   a condition for the (first) content row in leaf tables. This removes all leaf tables where</pre>
+                      <pre class="language-r">  interaction_names &lt;- paste(design_mat$variable, design_mat$given, sep = "/")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the first content row does not fulfill the condition. It does not check individual rows.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">315</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   It then proceeds recursively by removing the sub tree if there are no children left.</pre>
+                      <pre class="language-r">  mmat &lt;- stats::model.matrix(mod)[1, ]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">316</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  mmat[!mmat == 0] &lt;- 0</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">317</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param content_row_condition (`CombinationFunction`)\cr condition function which works on individual</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">318</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   first content rows of leaf tables and flags whether these leaf tables should be kept in the pruned table.</pre>
+                      <pre class="language-r">  design_mat &lt;- apply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">66</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">319</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    X = design_mat, MARGIN = 1, FUN = function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">320</td>
+                    <td class="coverage">52<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">      mmat[names(mmat) %in% x[-which(names(x) == "given")]] &lt;- 1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">68</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">321</td>
+                    <td class="coverage">52<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `keep_content_rows()` returns a pruning function that checks the condition on the first content</pre>
+                      <pre class="language-r">      mmat</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">322</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   row of leaf tables in the table.</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">323</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">324</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  colnames(design_mat) &lt;- interaction_names</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">325</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `keep_content_rows`</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">73</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">326</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' \donttest{</pre>
+                      <pre class="language-r">  coef &lt;- stats::coef(mod)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">327</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' more_than_twenty &lt;- has_count_in_cols(atleast = 20L, col_names = names(tab))</pre>
+                      <pre class="language-r">  vcov &lt;- stats::vcov(mod)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">75</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">328</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' prune_table(tab, keep_content_rows(more_than_twenty))</pre>
+                      <pre class="language-r">  betas &lt;- as.matrix(coef)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">76</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">329</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">  coef_hat &lt;- t(design_mat) %*% betas</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">77</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">330</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  dimnames(coef_hat)[2] &lt;- "coef"</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">78</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">331</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  coef_se &lt;- apply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">79</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">332</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">keep_content_rows &lt;- function(content_row_condition) {</pre>
+                      <pre class="language-r">    design_mat, 2,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">333</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_function(content_row_condition)</pre>
+                      <pre class="language-r">    function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">334</td>
+                    <td class="coverage">52<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  function(table_tree) {</pre>
+                      <pre class="language-r">      vcov_el &lt;- as.logical(x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">82</td>
-                    <td class="coverage">166<em>x</em></td>
+                    <td class="num">335</td>
+                    <td class="coverage">52<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is_leaf_table(table_tree)) {</pre>
+                      <pre class="language-r">      y &lt;- vcov[vcov_el, vcov_el]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">83</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">336</td>
+                    <td class="coverage">52<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      content_row &lt;- h_content_first_row(table_tree)</pre>
+                      <pre class="language-r">      y &lt;- sum(y)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">337</td>
+                    <td class="coverage">52<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      return(!content_row_condition(content_row))</pre>
+                      <pre class="language-r">      y &lt;- sqrt(y)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">338</td>
+                    <td class="coverage">52<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      return(y)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">339</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">142<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">340</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (inherits(table_tree, "DataRow")) {</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">120<em>x</em></td>
+                    <td class="num">341</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      return(FALSE)</pre>
+                      <pre class="language-r">  q_norm &lt;- stats::qnorm((1 + conf_level) / 2)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">88</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">342</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  y &lt;- cbind(coef_hat, `se(coef)` = coef_se)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">89</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">343</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    children &lt;- tree_children(table_tree)</pre>
+                      <pre class="language-r">  y &lt;- apply(y, 1, function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">344</td>
+                    <td class="coverage">52<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    identical(length(children), 0L)</pre>
+                      <pre class="language-r">    x["hr"] &lt;- exp(x["coef"])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">91</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">345</td>
+                    <td class="coverage">52<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    x["lcl"] &lt;- exp(x["coef"] - q_norm * x["se(coef)"])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">92</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">346</td>
+                    <td class="coverage">52<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    x["ucl"] &lt;- exp(x["coef"] + q_norm * x["se(coef)"])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">93</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">347</td>
+                    <td class="coverage">52<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    x</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">348</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn prune_occurrences Constructor for creating condition functions on total counts in the specified columns.</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">95</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">349</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  y &lt;- t(y)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">96</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">350</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param atleast (`numeric(1)`)\cr threshold which should be met in order to keep the row.</pre>
+                      <pre class="language-r">  y &lt;- by(y, split_by_variable, identity)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">97</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">351</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... arguments for row or column access, see [`rtables_access`]: either `col_names` (`character`) including</pre>
+                      <pre class="language-r">  y &lt;- lapply(y, as.matrix)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">98</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">352</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the names of the columns which should be used, or alternatively `col_indices` (`integer`) giving the indices</pre>
+                      <pre class="language-r">  attr(y, "details") &lt;- paste0(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">99</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">353</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   directly instead.</pre>
+                      <pre class="language-r">    "Estimations of ", variable,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">100</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">354</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    " hazard ratio given the level of ", given, " compared to ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">101</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">355</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">    variable, " level ", lvl_var[1], "."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">356</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `has_count_in_cols()` returns a condition function that sums the counts in the specified column.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">103</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">357</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  y</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">358</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/summarize_glm_count.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' \donttest{</pre>
+                      <pre class="language-r"># summarize_glm_count ----------------------------------------------------------</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' more_than_one &lt;- has_count_in_cols(atleast = 1L, col_names = names(tab))</pre>
+                      <pre class="language-r">#' Summarize Poisson negative binomial regression</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' prune_table(tab, keep_rows(more_than_one))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' Summarize results of a Poisson negative binomial regression.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">has_count_in_cols &lt;- function(atleast, ...) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_count(atleast)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  CombinationFunction(function(table_row) {</pre>
+                      <pre class="language-r">#' This can be used to analyze count and/or frequency data using a linear model.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">114</td>
-                    <td class="coverage">337<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    row_counts &lt;- h_row_counts(table_row, ...)</pre>
+                      <pre class="language-r">#' It is specifically useful for analyzing count data (using the Poisson or Negative</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">337<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    total_count &lt;- sum(row_counts)</pre>
+                      <pre class="language-r">#' Binomial distribution) that is result of a generalized linear model of one (e.g. arm) or more</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">337<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    total_count &gt;= atleast</pre>
+                      <pre class="language-r">#' covariates.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @inheritParams h_glm_count</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn prune_occurrences Constructor for creating condition functions on any of the counts in</pre>
+                      <pre class="language-r">#' @param rate_mean_method (`character(1)`)\cr method used to estimate the mean odds ratio. Defaults to `emmeans`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the specified columns satisfying a threshold.</pre>
+                      <pre class="language-r">#'   see details for more information.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param scale (`numeric(1)`)\cr linear scaling factor for rate and confidence intervals. Defaults to `1`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param atleast (`numeric(1)`)\cr threshold which should be met in order to keep the row.</pre>
+                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("summarize_glm_count")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   to see available statistics for this function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `has_count_in_any_col()` returns a condition function that compares the counts in the</pre>
+                      <pre class="language-r">#' @details</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   specified columns with the threshold.</pre>
+                      <pre class="language-r">#' `summarize_glm_count()` uses `s_glm_count()` to calculate the statistics for the table. This</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' analysis function uses [h_glm_count()] to estimate the GLM with [stats::glm()] for Poisson and Quasi-Poisson</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' distributions or [MASS::glm.nb()] for Negative Binomial distribution. All methods assume a</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' \donttest{</pre>
+                      <pre class="language-r">#' logarithmic link function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `has_count_in_any_col`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' any_more_than_one &lt;- has_count_in_any_col(atleast = 1L, col_names = names(tab))</pre>
+                      <pre class="language-r">#' At this point, rates and confidence intervals are estimated from the model using</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' prune_table(tab, keep_rows(any_more_than_one))</pre>
+                      <pre class="language-r">#' either [emmeans::emmeans()] when `rate_mean_method = "emmeans"` or [h_ppmeans()]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#' when `rate_mean_method = "ppmeans"`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' If a reference group is specified while building the table with `split_cols_by(ref_group)`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">has_count_in_any_col &lt;- function(atleast, ...) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_count(atleast)</pre>
+                      <pre class="language-r">#' no rate ratio or `p-value` are calculated. Otherwise, we use [emmeans::contrast()] to</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">32</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  CombinationFunction(function(table_row) {</pre>
+                      <pre class="language-r">#' calculate the rate ratio and `p-value` for the reference group. Values are always estimated</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">33</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    row_counts &lt;- h_row_counts(table_row, ...)</pre>
+                      <pre class="language-r">#' with `method = "trt.vs.ctrl"` and `ref` equal to the first `arm` value.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">34</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    any(row_counts &gt;= atleast)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">#' @name summarize_glm_count</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn prune_occurrences Constructor for creating condition functions on total fraction in</pre>
+                      <pre class="language-r">#' @describeIn summarize_glm_count Layout-creating function which can take statistics function arguments</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the specified columns.</pre>
+                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `has_fraction_in_cols()` returns a condition function that sums the counts in the</pre>
+                      <pre class="language-r">#' * `summarize_glm_count()` returns a layout object suitable for passing to further layouting functions,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   specified column, and computes the fraction by dividing by the total column counts.</pre>
+                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   the statistics from `s_glm_count()` to the table layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' \donttest{</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `has_fraction_in_cols`</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' more_than_five_percent &lt;- has_fraction_in_cols(atleast = 0.05, col_names = names(tab))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' prune_table(tab, keep_rows(more_than_five_percent))</pre>
+                      <pre class="language-r">#' anl &lt;- tern_ex_adtte %&gt;% filter(PARAMCD == "TNE")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#' anl$AVAL_f &lt;- as.factor(anl$AVAL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">has_fraction_in_cols &lt;- function(atleast, ...) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  assert_proportion_value(atleast, include_boundaries = TRUE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  CombinationFunction(function(table_row) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">306<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    row_counts &lt;- h_row_counts(table_row, ...)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">306<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    total_count &lt;- sum(row_counts)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">306<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    col_counts &lt;- h_col_counts(table_row, ...)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">306<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    total_n &lt;- sum(col_counts)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">306<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    total_percent &lt;- total_count / total_n</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">306<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    total_percent &gt;= atleast</pre>
+                      <pre class="language-r">#'   split_cols_by("ARM", ref_group = "B: Placebo") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   analyze_vars(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     "AVAL_f",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn prune_occurrences Constructor for creating condition functions on any fraction in</pre>
+                      <pre class="language-r">#'     var_labels = "Number of exacerbations per patient",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the specified columns.</pre>
+                      <pre class="language-r">#'     .stats = c("count_fraction"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     .formats = c("count_fraction" = "xx (xx.xx%)"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'     .labels = c("Number of exacerbations per patient")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `has_fraction_in_any_col()` returns a condition function that looks at the fractions</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  in the specified columns and checks whether any of them fulfill the threshold.</pre>
+                      <pre class="language-r">#'   summarize_glm_count(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     vars = "AVAL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'     variables = list(arm = "ARM", offset = "lgTMATRSK", covariates = NULL),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' \donttest{</pre>
+                      <pre class="language-r">#'     conf_level = 0.95,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `has_fraction_in_any_col`</pre>
+                      <pre class="language-r">#'     distribution = "poisson",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' any_atleast_five_percent &lt;- has_fraction_in_any_col(atleast = 0.05, col_names = names(tab))</pre>
+                      <pre class="language-r">#'     rate_mean_method = "emmeans",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' prune_table(tab, keep_rows(any_atleast_five_percent))</pre>
+                      <pre class="language-r">#'     var_labels = "Adjusted (P) exacerbation rate (per year)",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#'     table_names = "adjP",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     .stats = c("rate"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'     .labels = c(rate = "Rate")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">has_fraction_in_any_col &lt;- function(atleast, ...) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  assert_proportion_value(atleast, include_boundaries = TRUE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  CombinationFunction(function(table_row) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    row_fractions &lt;- h_row_fractions(table_row, ...)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    any(row_fractions &gt;= atleast)</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">#'   summarize_glm_count(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'     vars = "AVAL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     variables = list(arm = "ARM", offset = "lgTMATRSK", covariates = c("REGION1")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn prune_occurrences Constructor for creating condition function that checks the difference</pre>
+                      <pre class="language-r">#'     conf_level = 0.95,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   between the fractions reported in each specified column.</pre>
+                      <pre class="language-r">#'     distribution = "quasipoisson",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     rate_mean_method = "ppmeans",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'     var_labels = "Adjusted (QP) exacerbation rate (per year)",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `has_fractions_difference()` returns a condition function that extracts the fractions of each</pre>
+                      <pre class="language-r">#'     table_names = "adjQP",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   specified column, and computes the difference of the minimum and maximum.</pre>
+                      <pre class="language-r">#'     .stats = c("rate", "rate_ci", "rate_ratio", "rate_ratio_ci", "pval"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     .labels = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'       rate = "Rate", rate_ci = "Rate CI", rate_ratio = "Rate Ratio",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' \donttest{</pre>
+                      <pre class="language-r">#'       rate_ratio_ci = "Rate Ratio CI", pval = "p value"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `has_fractions_difference`</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">205</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' more_than_five_percent_diff &lt;- has_fractions_difference(atleast = 0.05, col_names = names(tab))</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' prune_table(tab, keep_rows(more_than_five_percent_diff))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#' build_table(lyt = lyt, df = anl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">has_fractions_difference &lt;- function(atleast, ...) {</pre>
+                      <pre class="language-r">summarize_glm_count &lt;- function(lyt,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">92</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_proportion_value(atleast, include_boundaries = TRUE)</pre>
+                      <pre class="language-r">                                vars,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">212</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">93</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  CombinationFunction(function(table_row) {</pre>
+                      <pre class="language-r">                                variables,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">246<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">94</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    fractions &lt;- h_row_fractions(table_row, ...)</pre>
+                      <pre class="language-r">                                distribution,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">214</td>
-                    <td class="coverage">246<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">95</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    difference &lt;- diff(range(fractions))</pre>
+                      <pre class="language-r">                                conf_level,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">246<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">96</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    difference &gt;= atleast</pre>
+                      <pre class="language-r">                                rate_mean_method = c("emmeans", "ppmeans")[1],</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">                                weights = stats::weights,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">                                scale = 1,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">218</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                var_labels,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">219</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn prune_occurrences Constructor for creating condition function that checks the difference</pre>
+                      <pre class="language-r">                                na_str = default_na_str(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   between the counts reported in each specified column.</pre>
+                      <pre class="language-r">                                nested = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                ...,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">                                show_labels = "visible",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">223</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `has_counts_difference()` returns a condition function that extracts the counts of each</pre>
+                      <pre class="language-r">                                table_names = vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   specified column, and computes the difference of the minimum and maximum.</pre>
+                      <pre class="language-r">                                .stats = get_stats("summarize_glm_count"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                .formats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">                                .labels = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' \donttest{</pre>
+                      <pre class="language-r">                                .indent_mods = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' more_than_one_diff &lt;- has_counts_difference(atleast = 1L, col_names = names(tab))</pre>
+                      <pre class="language-r">                                  "n" = 0L,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' prune_table(tab, keep_rows(more_than_one_diff))</pre>
+                      <pre class="language-r">                                  "rate" = 0L,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">                                  "rate_ci" = 1L,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">231</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                  "rate_ratio" = 0L,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                                  "rate_ratio_ci" = 1L,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">has_counts_difference &lt;- function(atleast, ...) {</pre>
+                      <pre class="language-r">                                  "pval" = 1L</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">115</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_count(atleast)</pre>
+                      <pre class="language-r">                                )) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">235</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">116</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  CombinationFunction(function(table_row) {</pre>
+                      <pre class="language-r">  checkmate::assert_choice(rate_mean_method, c("emmeans", "ppmeans"))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">117</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">236</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">118</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    counts &lt;- h_row_counts(table_row, ...)</pre>
+                      <pre class="language-r">  extra_args &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">237</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">119</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    difference &lt;- diff(range(counts))</pre>
+                      <pre class="language-r">    variables = variables, distribution = distribution, conf_level = conf_level,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">238</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">120</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    difference &gt;= atleast</pre>
+                      <pre class="language-r">    rate_mean_method = rate_mean_method, weights = weights, scale = scale, ...</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/h_survival_duration_subgroups.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper functions for tabulating survival duration by subgroup</pre>
+                      <pre class="language-r">  # Selecting parameters following the statistics</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">124</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  .formats &lt;- get_formats_from_stats(.stats, formats_in = .formats)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">125</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">  .labels &lt;- get_labels_from_stats(.stats, labels_in = .labels)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">126</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  .indent_mods &lt;- get_indents_from_stats(.stats, indents_in = .indent_mods)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper functions that tabulate in a data frame statistics such as median survival</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">128</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' time and hazard ratio for population subgroups.</pre>
+                      <pre class="language-r">  afun &lt;- make_afun(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">129</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    s_glm_count,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">130</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">    .stats = .stats,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">131</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams survival_coxph_pairwise</pre>
+                      <pre class="language-r">    .formats = .formats,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">132</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams survival_duration_subgroups</pre>
+                      <pre class="language-r">    .labels = .labels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">133</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param arm (`factor`)\cr the treatment group variable.</pre>
+                      <pre class="language-r">    .indent_mods = .indent_mods,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">134</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    .null_ref_cells = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details Main functionality is to prepare data for use in a layout-creating function.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">137</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  analyze(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">138</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">    lyt,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">139</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(forcats)</pre>
+                      <pre class="language-r">    vars,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">140</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    var_labels = var_labels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">141</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adtte &lt;- tern_ex_adtte</pre>
+                      <pre class="language-r">    show_labels = show_labels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">142</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    table_names = table_names,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">143</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Save variable labels before data processing steps.</pre>
+                      <pre class="language-r">    afun = afun,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">144</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adtte_labels &lt;- formatters::var_labels(adtte)</pre>
+                      <pre class="language-r">    na_str = na_str,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">145</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    nested = nested,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">146</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    extra_args = extra_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adtte_f &lt;- adtte %&gt;%</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     PARAMCD == "OS",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ARM %in% c("B: Placebo", "A: Drug X"),</pre>
+                      <pre class="language-r">#' @describeIn summarize_glm_count Statistics function that produces a named list of results</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     SEX %in% c("M", "F")</pre>
+                      <pre class="language-r">#'   of the investigated Poisson model.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mutate(</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     # Reorder levels of ARM to display reference arm before treatment arm.</pre>
+                      <pre class="language-r">#' * `s_glm_count()` returns a named `list` of 5 statistics:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ARM = droplevels(fct_relevel(ARM, "B: Placebo")),</pre>
+                      <pre class="language-r">#'   * `n`: Count of complete sample size for the group.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     SEX = droplevels(SEX),</pre>
+                      <pre class="language-r">#'   * `rate`: Estimated event rate per follow-up time.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     is_event = CNSR == 0</pre>
+                      <pre class="language-r">#'   * `rate_ci`: Confidence level for estimated rate per follow-up time.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#'   * `rate_ratio`: Ratio of event rates in each treatment arm to the reference arm.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' labels &lt;- c("ARM" = adtte_labels[["ARM"]], "SEX" = adtte_labels[["SEX"]], "is_event" = "Event Flag")</pre>
+                      <pre class="language-r">#'   * `rate_ratio_ci`: Confidence level for the rate ratio.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' formatters::var_labels(adtte_f)[names(labels)] &lt;- labels</pre>
+                      <pre class="language-r">#'   * `pval`: p-value.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name h_survival_duration_subgroups</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">s_glm_count &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                        .var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_survival_duration_subgroups Helper to prepare a data frame of median survival times by arm.</pre>
+                      <pre class="language-r">                        .df_row,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                        variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">                        .ref_group,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_survtime_df()` returns a `data.frame` with columns `arm`, `n`, `n_events`, and `median`.</pre>
+                      <pre class="language-r">                        .in_ref_col,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                        distribution,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">                        conf_level,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Extract median survival time for one group.</pre>
+                      <pre class="language-r">                        rate_mean_method,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_survtime_df(</pre>
+                      <pre class="language-r">                        weights,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   tte = adtte_f$AVAL,</pre>
+                      <pre class="language-r">                        scale = 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">174</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   is_event = adtte_f$is_event,</pre>
+                      <pre class="language-r">  arm &lt;- variables$arm</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   arm = adtte_f$ARM</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">176</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  y &lt;- df[[.var]]</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">177</td>
+                    <td class="coverage">13<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  smry_level &lt;- as.character(unique(df[[arm]]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  # ensure there is only 1 value</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">180</td>
+                    <td class="coverage">13<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_scalar(smry_level)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_survtime_df &lt;- function(tte, is_event, arm) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">79<em>x</em></td>
+                    <td class="num">182</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(tte)</pre>
+                      <pre class="language-r">  results &lt;- h_glm_count(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">183</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_logical(is_event, len = length(tte))</pre>
+                      <pre class="language-r">    .var = .var,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">184</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_valid_factor(arm, len = length(tte))</pre>
+                      <pre class="language-r">    .df_row = .df_row,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">185</td>
+                    <td class="coverage">13<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    variables = variables,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">186</td>
+                    <td class="coverage">13<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    distribution = distribution,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">187</td>
+                    <td class="coverage">13<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    weights</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">188</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">190</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df_tte &lt;- data.frame(</pre>
+                      <pre class="language-r">  if (rate_mean_method == "emmeans") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">191</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tte = tte,</pre>
+                      <pre class="language-r">    emmeans_smry &lt;- summary(results$emmeans_fit, level = conf_level)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">192</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is_event = is_event,</pre>
+                      <pre class="language-r">  } else if (rate_mean_method == "ppmeans") {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">64</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">193</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">    emmeans_smry &lt;- h_ppmeans(results$glm_fit, .df_row, arm, conf_level)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
+                  <tr class="covered">
+                    <td class="num">196</td>
+                    <td class="coverage">13<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  emmeans_smry_level &lt;- emmeans_smry[emmeans_smry[[arm]] == smry_level, ]</pre>
+                    </td>
+                  </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Delete NAs</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">198</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  non_missing_rows &lt;- stats::complete.cases(df_tte)</pre>
+                      <pre class="language-r">  # This happens if there is a reference col. No Ratio is calculated?</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">69</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">199</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df_tte &lt;- df_tte[non_missing_rows, ]</pre>
+                      <pre class="language-r">  if (.in_ref_col) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">70</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">200</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  arm &lt;- arm[non_missing_rows]</pre>
+                      <pre class="language-r">    list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">201</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      n = length(y[!is.na(y)]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">202</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lst_tte &lt;- split(df_tte, arm)</pre>
+                      <pre class="language-r">      rate = formatters::with_label(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">73</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">203</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lst_results &lt;- Map(function(x, arm) {</pre>
+                      <pre class="language-r">        ifelse(distribution == "negbin", emmeans_smry_level$response * scale, emmeans_smry_level$rate * scale),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">156<em>x</em></td>
+                    <td class="num">204</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (nrow(x) &gt; 0) {</pre>
+                      <pre class="language-r">        "Adjusted Rate"</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">205</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="num">206</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      s_surv &lt;- s_surv_time(x, .var = "tte", is_event = "is_event")</pre>
+                      <pre class="language-r">      rate_ci = formatters::with_label(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="num">207</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      median_est &lt;- unname(as.numeric(s_surv$median))</pre>
+                      <pre class="language-r">        c(emmeans_smry_level$asymp.LCL * scale, emmeans_smry_level$asymp.UCL * scale),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="num">208</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n_events &lt;- sum(x$is_event)</pre>
+                      <pre class="language-r">        f_conf_level(conf_level)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">210</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      median_est &lt;- NA</pre>
+                      <pre class="language-r">      rate_ratio = formatters::with_label(character(), "Adjusted Rate Ratio"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">211</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n_events &lt;- NA</pre>
+                      <pre class="language-r">      rate_ratio_ci = formatters::with_label(character(), f_conf_level(conf_level)),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">212</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      pval = formatters::with_label(character(), "p-value")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">83</td>
-                    <td class="coverage">156<em>x</em></td>
+                    <td class="num">215</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data.frame(</pre>
+                      <pre class="language-r">    emmeans_contrasts &lt;- emmeans::contrast(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">156<em>x</em></td>
+                    <td class="num">216</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      arm = arm,</pre>
+                      <pre class="language-r">      results$emmeans_fit,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">85</td>
-                    <td class="coverage">156<em>x</em></td>
+                    <td class="num">217</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n = nrow(x),</pre>
+                      <pre class="language-r">      method = "trt.vs.ctrl",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">156<em>x</em></td>
+                    <td class="num">218</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n_events = n_events,</pre>
+                      <pre class="language-r">      ref = grep(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">156<em>x</em></td>
+                    <td class="num">219</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      median = median_est,</pre>
+                      <pre class="language-r">        as.character(unique(.ref_group[[arm]])),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">88</td>
-                    <td class="coverage">156<em>x</em></td>
+                    <td class="num">220</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">        as.data.frame(results$emmeans_fit)[[arm]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">222</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }, lst_tte, names(lst_tte))</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">224</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df &lt;- do.call(rbind, args = c(lst_results, make.row.names = FALSE))</pre>
+                      <pre class="language-r">    contrasts_smry &lt;- summary(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">93</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">225</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df$arm &lt;- factor(df$arm, levels = levels(arm))</pre>
+                      <pre class="language-r">      emmeans_contrasts,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">94</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">226</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df</pre>
+                      <pre class="language-r">      infer = TRUE,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">227</td>
+                    <td class="coverage">8<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      adjust = "none"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">97</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">230</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_survival_duration_subgroups Summarizes median survival times by arm and across subgroups</pre>
+                      <pre class="language-r">    smry_contrasts_level &lt;- contrasts_smry[grepl(smry_level, contrasts_smry$contrast), ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    in a data frame. `variables` corresponds to the names of variables found in `data`, passed as a named list and</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">99</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">232</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    requires elements `tte`, `is_event`, `arm` and optionally `subgroups`. `groups_lists` optionally specifies</pre>
+                      <pre class="language-r">    list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">100</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">233</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    groupings for `subgroups` variables.</pre>
+                      <pre class="language-r">      n = length(y[!is.na(y)]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">101</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">234</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      rate = formatters::with_label(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">102</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">235</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">        ifelse(distribution == "negbin",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">103</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">236</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_survtime_subgroups_df()` returns a `data.frame` with columns `arm`, `n`, `n_events`, `median`, `subgroup`,</pre>
+                      <pre class="language-r">          emmeans_smry_level$response * scale,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">104</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">237</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `var`, `var_label`, and `row_type`.</pre>
+                      <pre class="language-r">          emmeans_smry_level$rate * scale</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">238</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">106</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">239</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">        "Adjusted Rate"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Extract median survival time for multiple groups.</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">108</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">241</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_survtime_subgroups_df(</pre>
+                      <pre class="language-r">      rate_ci = formatters::with_label(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">109</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">242</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">        c(emmeans_smry_level$asymp.LCL * scale, emmeans_smry_level$asymp.UCL * scale),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">110</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">243</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tte = "AVAL",</pre>
+                      <pre class="language-r">        f_conf_level(conf_level)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     is_event = "is_event",</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">112</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">245</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     arm = "ARM",</pre>
+                      <pre class="language-r">      rate_ratio = formatters::with_label(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">113</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">246</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     subgroups = c("SEX", "BMRKR2")</pre>
+                      <pre class="language-r">        smry_contrasts_level$ratio,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">114</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">247</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">        "Adjusted Rate Ratio"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adtte_f</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">116</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">249</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">      rate_ratio_ci = formatters::with_label(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">117</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">250</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        c(smry_contrasts_level$asymp.LCL, smry_contrasts_level$asymp.UCL),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">118</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">251</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Define groupings for BMRKR2 levels.</pre>
+                      <pre class="language-r">        f_conf_level(conf_level)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_survtime_subgroups_df(</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">120</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">253</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">      pval = formatters::with_label(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">121</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">254</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tte = "AVAL",</pre>
+                      <pre class="language-r">        smry_contrasts_level$p.value,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">122</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">255</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     is_event = "is_event",</pre>
+                      <pre class="language-r">        "p-value"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     arm = "ARM",</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     subgroups = c("SEX", "BMRKR2")</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">258</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adtte_f,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   groups_lists = list(</pre>
+                      <pre class="language-r"># h_glm_count ------------------------------------------------------------------</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     BMRKR2 = list(</pre>
+                      <pre class="language-r">#' Helper functions for Poisson models</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">262</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "low" = "LOW",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "low/medium" = c("LOW", "MEDIUM"),</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "low/medium/high" = c("LOW", "MEDIUM", "HIGH")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">265</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">#' Helper functions that returns the results of [stats::glm()] when Poisson or Quasi-Poisson</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">266</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#' distributions are needed (see `family` parameter), or [MASS::glm.nb()] for Negative Binomial</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">267</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' distributions. Link function for the GLM is `log`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">268</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">270</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_survtime_subgroups_df &lt;- function(variables,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">271</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    data,</pre>
+                      <pre class="language-r">#' @seealso [summarize_glm_count]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">272</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    groups_lists = list(),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">273</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    label_all = "All Patients") {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">15<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(variables$tte)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">15<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(variables$is_event)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">15<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(variables$arm)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">15<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(variables$subgroups, null.ok = TRUE)</pre>
+                      <pre class="language-r">#' @name h_glm_count</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">274</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">15<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(data, variables)</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">275</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">276</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label_all)</pre>
+                      <pre class="language-r">#' @describeIn h_glm_count Helper function to return the results of the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">277</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   selected model (Poisson, Quasi-Poisson, negative binomial).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Add All Patients.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">279</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result_all &lt;- h_survtime_df(data[[variables$tte]], data[[variables$is_event]], data[[variables$arm]])</pre>
+                      <pre class="language-r">#' @param .df_row (`data.frame`)\cr dataset that includes all the variables that are called</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">280</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result_all$subgroup &lt;- label_all</pre>
+                      <pre class="language-r">#'   in `.var` and `variables`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">153</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">281</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result_all$var &lt;- "ALL"</pre>
+                      <pre class="language-r">#' @param variables (named `list` of `string`)\cr list of additional analysis variables, with</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">154</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">282</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result_all$var_label &lt;- label_all</pre>
+                      <pre class="language-r">#'   expected elements:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">283</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result_all$row_type &lt;- "content"</pre>
+                      <pre class="language-r">#'   * `arm` (`string`)\cr group variable, for which the covariate adjusted means of multiple</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     groups will be summarized. Specifically, the first level of `arm` variable is taken as the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Add Subgroups.</pre>
+                      <pre class="language-r">#'     reference group.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">15<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">286</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(variables$subgroups)) {</pre>
+                      <pre class="language-r">#'   * `covariates` (`character`)\cr a vector that can contain single variable names (such as</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">287</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result_all</pre>
+                      <pre class="language-r">#'     `"X1"`), and/or interaction terms indicated by `"X1 * X2"`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">288</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#'   * `offset` (`numeric`)\cr a numeric vector or scalar adding an offset.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">289</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    l_data &lt;- h_split_by_subgroups(data, variables$subgroups, groups_lists = groups_lists)</pre>
+                      <pre class="language-r">#' @param distribution (`character`)\cr a character value specifying the distribution</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">290</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    l_result &lt;- lapply(l_data, function(grp) {</pre>
+                      <pre class="language-r">#'   used in the regression (Poisson, Quasi-Poisson, negative binomial).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">60<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">291</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      result &lt;- h_survtime_df(grp$df[[variables$tte]], grp$df[[variables$is_event]], grp$df[[variables$arm]])</pre>
+                      <pre class="language-r">#' @param weights (`character`)\cr a character vector specifying weights used</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">60<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">292</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      result_labels &lt;- grp$df_labels[rep(1, times = nrow(result)), ]</pre>
+                      <pre class="language-r">#'   in averaging predictions. Number of weights must equal the number of levels included in the covariates.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">60<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">293</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cbind(result, result_labels)</pre>
+                      <pre class="language-r">#'   Weights option passed to [emmeans::emmeans()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">295</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result_subgroups &lt;- do.call(rbind, args = c(l_result, make.row.names = FALSE))</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">296</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result_subgroups$row_type &lt;- "analysis"</pre>
+                      <pre class="language-r">#' * `h_glm_count()` returns the results of the selected model.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">297</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rbind(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">298</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      result_all,</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">299</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      result_subgroups</pre>
+                      <pre class="language-r">h_glm_count &lt;- function(.var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">300</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">                        .df_row,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">301</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                        variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">302</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">                        distribution,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                        weights) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">176</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">304</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_survival_duration_subgroups Helper to prepare a data frame with estimates of</pre>
+                      <pre class="language-r">  checkmate::assert_subset(distribution, c("poisson", "quasipoisson", "negbin"), empty.ok = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">177</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">305</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   treatment hazard ratio.</pre>
+                      <pre class="language-r">  switch(distribution,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">178</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">306</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    poisson = h_glm_poisson(.var, .df_row, variables, weights),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">179</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">307</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param strata_data (`factor`, `data.frame`, or `NULL`)\cr required if stratified analysis is performed.</pre>
+                      <pre class="language-r">    quasipoisson = h_glm_quasipoisson(.var, .df_row, variables, weights),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">180</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">308</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    negbin = h_glm_negbin(.var, .df_row, variables, weights)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">309</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">310</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_coxph_df()` returns a `data.frame` with columns `arm`, `n_tot`, `n_tot_events`, `hr`, `lcl`, `ucl`,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">311</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `conf_level`, `pval` and `pval_label`.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">312</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @describeIn h_glm_count Helper function to return results of a Poisson model.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Extract hazard ratio for one group.</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">315</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_coxph_df(adtte_f$AVAL, adtte_f$is_event, adtte_f$ARM)</pre>
+                      <pre class="language-r">#' * `h_glm_poisson()` returns the results of a Poisson model.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">316</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">317</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Extract hazard ratio for one group with stratification factor.</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">318</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_coxph_df(adtte_f$AVAL, adtte_f$is_event, adtte_f$ARM, strata_data = adtte_f$STRATA1)</pre>
+                      <pre class="language-r">h_glm_poisson &lt;- function(.var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">319</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                          .df_row,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                          variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_coxph_df &lt;- function(tte, is_event, arm, strata_data = NULL, control = control_coxph()) {</pre>
+                      <pre class="language-r">                          weights) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">194</td>
-                    <td class="coverage">85<em>x</em></td>
+                    <td class="num">322</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(tte)</pre>
+                      <pre class="language-r">  arm &lt;- variables$arm</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">85<em>x</em></td>
+                    <td class="num">323</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_logical(is_event, len = length(tte))</pre>
+                      <pre class="language-r">  covariates &lt;- variables$covariates</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">85<em>x</em></td>
+                    <td class="num">324</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_valid_factor(arm, n.levels = 2, len = length(tte))</pre>
+                      <pre class="language-r">  offset &lt;- .df_row[[variables$offset]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">325</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">198</td>
-                    <td class="coverage">85<em>x</em></td>
+                    <td class="num">326</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df_tte &lt;- data.frame(tte = tte, is_event = is_event)</pre>
+                      <pre class="language-r">  formula &lt;- stats::as.formula(paste0(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">85<em>x</em></td>
+                    <td class="num">327</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  strata_vars &lt;- NULL</pre>
+                      <pre class="language-r">    .var, " ~ ",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">328</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    " + ",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">201</td>
-                    <td class="coverage">85<em>x</em></td>
+                    <td class="num">329</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(strata_data)) {</pre>
+                      <pre class="language-r">    paste(covariates, collapse = " + "),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">330</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.data.frame(strata_data)) {</pre>
+                      <pre class="language-r">    " + ",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">203</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">331</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      strata_vars &lt;- names(strata_data)</pre>
+                      <pre class="language-r">    arm</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">204</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">332</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_data_frame(strata_data, nrows = nrow(df_tte))</pre>
+                      <pre class="language-r">  ))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">333</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      assert_df_with_factors(strata_data, as.list(stats::setNames(strata_vars, strata_vars)))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">206</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">334</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">  glm_fit &lt;- stats::glm(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">335</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      assert_valid_factor(strata_data, len = nrow(df_tte))</pre>
+                      <pre class="language-r">    formula = formula,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">336</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      strata_vars &lt;- "strata_data"</pre>
+                      <pre class="language-r">    offset = offset,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">209</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">337</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    data = .df_row,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">338</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_tte[strata_vars] &lt;- strata_data</pre>
+                      <pre class="language-r">    family = stats::poisson(link = "log")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</td>
+                    <td class="num">339</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">340</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">85<em>x</em></td>
+                    <td class="num">341</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  l_df &lt;- split(df_tte, arm)</pre>
+                      <pre class="language-r">  emmeans_fit &lt;- emmeans::emmeans(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">214</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">342</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    glm_fit,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">85<em>x</em></td>
+                    <td class="num">343</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (nrow(l_df[[1]]) &gt; 0 &amp;&amp; nrow(l_df[[2]]) &gt; 0) {</pre>
+                      <pre class="language-r">    specs = arm,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">216</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">344</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Hazard ratio and CI.</pre>
+                      <pre class="language-r">    data = .df_row,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">217</td>
-                    <td class="coverage">79<em>x</em></td>
+                    <td class="num">345</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result &lt;- s_coxph_pairwise(</pre>
+                      <pre class="language-r">    type = "response",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">218</td>
-                    <td class="coverage">79<em>x</em></td>
+                    <td class="num">346</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df = l_df[[2]],</pre>
+                      <pre class="language-r">    offset = 0,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">79<em>x</em></td>
+                    <td class="num">347</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      .ref_group = l_df[[1]],</pre>
+                      <pre class="language-r">    weights = weights</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">79<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">348</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      .in_ref_col = FALSE,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">221</td>
-                    <td class="coverage">79<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">349</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      .var = "tte",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">79<em>x</em></td>
+                    <td class="num">350</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      is_event = "is_event",</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">79<em>x</em></td>
+                    <td class="num">351</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      strata = strata_vars,</pre>
+                      <pre class="language-r">    glm_fit = glm_fit,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">79<em>x</em></td>
+                    <td class="num">352</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      control = control</pre>
+                      <pre class="language-r">    emmeans_fit = emmeans_fit</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">353</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">354</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">79<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    df &lt;- data.frame(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</td>
+                    <td class="num">355</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Dummy column needed downstream to create a nested header.</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">229</td>
-                    <td class="coverage">79<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      arm = " ",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">79<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">356</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n_tot = unname(as.numeric(result$n_tot)),</pre>
+                      <pre class="language-r">#' @describeIn h_glm_count Helper function to return results of a Quasi-Poisson model.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">231</td>
-                    <td class="coverage">79<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">357</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n_tot_events = unname(as.numeric(result$n_tot_events)),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">79<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">358</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      hr = unname(as.numeric(result$hr)),</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">233</td>
-                    <td class="coverage">79<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">359</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lcl = unname(result$hr_ci[1]),</pre>
+                      <pre class="language-r">#' * `h_glm_quasipoisson()` returns the results of a Quasi-Poisson model.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">79<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">360</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ucl = unname(result$hr_ci[2]),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">235</td>
-                    <td class="coverage">79<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">361</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      conf_level = control[["conf_level"]],</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">236</td>
-                    <td class="coverage">79<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">362</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pval = as.numeric(result$pvalue),</pre>
+                      <pre class="language-r">h_glm_quasipoisson &lt;- function(.var,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">237</td>
-                    <td class="coverage">79<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">363</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pval_label = obj_label(result$pvalue),</pre>
+                      <pre class="language-r">                               .df_row,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">238</td>
-                    <td class="coverage">79<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">364</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">                               variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</td>
+                    <td class="num">365</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">                               weights) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">240</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">366</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (</pre>
+                      <pre class="language-r">  arm &lt;- variables$arm</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">241</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">367</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    (nrow(l_df[[1]]) == 0 &amp;&amp; nrow(l_df[[2]]) &gt; 0) ||</pre>
+                      <pre class="language-r">  covariates &lt;- variables$covariates</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">242</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">368</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      (nrow(l_df[[1]]) &gt; 0 &amp;&amp; nrow(l_df[[2]]) == 0)</pre>
+                      <pre class="language-r">  offset &lt;- .df_row[[variables$offset]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">369</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">244</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">370</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_tte_complete &lt;- df_tte[stats::complete.cases(df_tte), ]</pre>
+                      <pre class="language-r">  formula &lt;- stats::as.formula(paste0(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">245</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">371</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df &lt;- data.frame(</pre>
+                      <pre class="language-r">    .var, " ~ ",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</td>
+                    <td class="num">372</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Dummy column needed downstream to create a nested header.</pre>
+                      <pre class="language-r">    " + ",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">247</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">373</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      arm = " ",</pre>
+                      <pre class="language-r">    paste(covariates, collapse = " + "),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">248</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">374</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n_tot = nrow(df_tte_complete),</pre>
+                      <pre class="language-r">    " + ",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">249</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">375</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n_tot_events = sum(df_tte_complete$is_event),</pre>
+                      <pre class="language-r">    arm</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">250</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">376</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      hr = NA,</pre>
+                      <pre class="language-r">  ))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">251</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">377</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lcl = NA,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">252</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">378</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ucl = NA,</pre>
+                      <pre class="language-r">  glm_fit &lt;- stats::glm(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">253</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">379</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      conf_level = control[["conf_level"]],</pre>
+                      <pre class="language-r">    formula = formula,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">254</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">380</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pval = NA,</pre>
+                      <pre class="language-r">    offset = offset,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">255</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">381</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pval_label = NA,</pre>
+                      <pre class="language-r">    data = .df_row,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">256</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      stringsAsFactors = FALSE</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">257</td>
-                    <td class="coverage"></td>
+                    <td class="num">382</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    family = stats::quasipoisson(link = "log")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">383</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">259</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    df &lt;- data.frame(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">260</td>
+                    <td class="num">384</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Dummy column needed downstream to create a nested header.</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">261</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      arm = " ",</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">262</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      n_tot = 0L,</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">263</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      n_tot_events = 0L,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">264</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">385</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      hr = NA,</pre>
+                      <pre class="language-r">  emmeans_fit &lt;- emmeans::emmeans(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">265</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">386</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lcl = NA,</pre>
+                      <pre class="language-r">    glm_fit,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">266</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">387</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ucl = NA,</pre>
+                      <pre class="language-r">    specs = arm,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">267</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">388</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      conf_level = control[["conf_level"]],</pre>
+                      <pre class="language-r">    data = .df_row,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">268</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">389</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pval = NA,</pre>
+                      <pre class="language-r">    type = "response",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">269</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">390</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pval_label = NA,</pre>
+                      <pre class="language-r">    offset = 0,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">270</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">391</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">    weights = weights</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">271</td>
+                    <td class="num">392</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</td>
+                    <td class="num">393</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">273</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">394</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">274</td>
-                    <td class="coverage">85<em>x</em></td>
+                    <td class="num">395</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df</pre>
+                      <pre class="language-r">    glm_fit = glm_fit,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">275</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">396</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    emmeans_fit = emmeans_fit</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">276</td>
+                    <td class="num">397</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">277</td>
+                    <td class="num">398</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_survival_duration_subgroups Summarizes estimates of the treatment hazard ratio</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</td>
+                    <td class="num">399</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   across subgroups in a data frame. `variables` corresponds to the names of variables found in</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</td>
+                    <td class="num">400</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `data`, passed as a named list and requires elements `tte`, `is_event`, `arm` and</pre>
+                      <pre class="language-r">#' @describeIn h_glm_count Helper function to return results of a negative binomial model.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">401</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   optionally `subgroups` and `strata`. `groups_lists` optionally specifies</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">281</td>
+                    <td class="num">402</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   groupings for `subgroups` variables.</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">282</td>
+                    <td class="num">403</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' * `h_glm_negbin()` returns the results of a negative binomial model.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">283</td>
+                    <td class="num">404</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">284</td>
+                    <td class="num">405</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_coxph_subgroups_df()` returns a `data.frame` with columns `arm`, `n_tot`, `n_tot_events`, `hr`,</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">285</td>
+                    <td class="num">406</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `lcl`, `ucl`, `conf_level`, `pval`, `pval_label`, `subgroup`, `var`, `var_label`, and `row_type`.</pre>
+                      <pre class="language-r">h_glm_negbin &lt;- function(.var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">407</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                         .df_row,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">408</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">                         variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">409</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Extract hazard ratio for multiple groups.</pre>
+                      <pre class="language-r">                         weights) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">289</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">410</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_coxph_subgroups_df(</pre>
+                      <pre class="language-r">  arm &lt;- variables$arm</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">290</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">411</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">  covariates &lt;- variables$covariates</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">291</td>
+                    <td class="num">412</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tte = "AVAL",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">292</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">413</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     is_event = "is_event",</pre>
+                      <pre class="language-r">  formula &lt;- stats::as.formula(paste0(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">293</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">414</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     arm = "ARM",</pre>
+                      <pre class="language-r">    .var, " ~ ",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">294</td>
+                    <td class="num">415</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     subgroups = c("SEX", "BMRKR2")</pre>
+                      <pre class="language-r">    " + ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">295</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">416</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">    paste(covariates, collapse = " + "),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">417</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adtte_f</pre>
+                      <pre class="language-r">    " + ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">297</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">418</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    arm</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">298</td>
+                    <td class="num">419</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">299</td>
+                    <td class="num">420</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Define groupings of BMRKR2 levels.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">300</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">421</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_coxph_subgroups_df(</pre>
+                      <pre class="language-r">  glm_fit &lt;- MASS::glm.nb(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">301</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">422</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">    formula = formula,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">302</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">423</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tte = "AVAL",</pre>
+                      <pre class="language-r">    data = .df_row,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">303</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">424</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     is_event = "is_event",</pre>
+                      <pre class="language-r">    link = "log"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">304</td>
+                    <td class="num">425</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     arm = "ARM",</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">305</td>
+                    <td class="num">426</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     subgroups = c("SEX", "BMRKR2")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">306</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">427</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">  emmeans_fit &lt;- emmeans::emmeans(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">307</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">428</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adtte_f,</pre>
+                      <pre class="language-r">    glm_fit,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">308</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">429</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   groups_lists = list(</pre>
+                      <pre class="language-r">    specs = arm,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">309</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">430</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     BMRKR2 = list(</pre>
+                      <pre class="language-r">    data = .df_row,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">310</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">431</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "low" = "LOW",</pre>
+                      <pre class="language-r">    type = "response",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">311</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">432</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "low/medium" = c("LOW", "MEDIUM"),</pre>
+                      <pre class="language-r">    offset = 0,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">312</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">433</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "low/medium/high" = c("LOW", "MEDIUM", "HIGH")</pre>
+                      <pre class="language-r">    weights = weights</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">313</td>
+                    <td class="num">434</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">314</td>
+                    <td class="num">435</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">315</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">436</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">316</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">437</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    glm_fit = glm_fit,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">317</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">438</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Extract hazard ratio for multiple groups with stratification factors.</pre>
+                      <pre class="language-r">    emmeans_fit = emmeans_fit</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">318</td>
+                    <td class="num">439</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_coxph_subgroups_df(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">319</td>
+                    <td class="num">440</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">320</td>
+                    <td class="num">441</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tte = "AVAL",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">321</td>
+                    <td class="num">442</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     is_event = "is_event",</pre>
+                      <pre class="language-r"># h_ppmeans --------------------------------------------------------------------</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">322</td>
+                    <td class="num">443</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     arm = "ARM",</pre>
+                      <pre class="language-r">#' Function to return the estimated means using predicted probabilities</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">323</td>
+                    <td class="num">444</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     subgroups = c("SEX", "BMRKR2"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">324</td>
+                    <td class="num">445</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     strata = c("STRATA1", "STRATA2")</pre>
+                      <pre class="language-r">#' @description</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">325</td>
+                    <td class="num">446</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#' For each arm level, the predicted mean rate is calculated using the fitted model object, with `newdata`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">326</td>
+                    <td class="num">447</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adtte_f</pre>
+                      <pre class="language-r">#' set to the result of `stats::model.frame`, a reconstructed data or the original data, depending on the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">327</td>
+                    <td class="num">448</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' object formula (coming from the fit). The confidence interval is derived using the `conf_level` parameter.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">328</td>
+                    <td class="num">449</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">329</td>
+                    <td class="num">450</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @param obj (`glm.fit`)\cr fitted model object used to derive the mean rate estimates in each treatment arm.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">330</td>
+                    <td class="num">451</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_coxph_subgroups_df &lt;- function(variables,</pre>
+                      <pre class="language-r">#' @param .df_row (`data.frame`)\cr dataset that includes all the variables that are called in `.var` and `variables`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">331</td>
+                    <td class="num">452</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 data,</pre>
+                      <pre class="language-r">#' @param arm (`string`)\cr group variable, for which the covariate adjusted means of multiple groups will be</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">332</td>
+                    <td class="num">453</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 groups_lists = list(),</pre>
+                      <pre class="language-r">#'   summarized. Specifically, the first level of `arm` variable is taken as the reference group.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">333</td>
+                    <td class="num">454</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 control = control_coxph(),</pre>
+                      <pre class="language-r">#' @param conf_level (`proportion`)\cr value used to derive the confidence interval for the rate.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">334</td>
+                    <td class="num">455</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 label_all = "All Patients") {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">335</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if ("strat" %in% names(variables)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">336</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    warning(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">337</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">456</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Warning: the `strat` element name of the `variables` list argument to `h_coxph_subgroups_df() ",</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">338</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">457</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "was deprecated in tern 0.9.4.\n  ",</pre>
+                      <pre class="language-r">#' * `h_ppmeans()` returns the estimated means.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">339</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">458</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Please use the name `strata` instead of `strat` in the `variables` argument."</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">340</td>
+                    <td class="num">459</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' @seealso [summarize_glm_count()].</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">341</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">460</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    variables[["strata"]] &lt;- variables[["strat"]]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">342</td>
+                    <td class="num">461</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">343</td>
+                    <td class="num">462</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">h_ppmeans &lt;- function(obj, .df_row, arm, conf_level) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">344</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">463</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(variables$tte)</pre>
+                      <pre class="language-r">  alpha &lt;- 1 - conf_level</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">345</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">464</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(variables$is_event)</pre>
+                      <pre class="language-r">  p &lt;- 1 - alpha / 2</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">346</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">465</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(variables$arm)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">347</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">466</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(variables$subgroups, null.ok = TRUE)</pre>
+                      <pre class="language-r">  arm_levels &lt;- levels(.df_row[[arm]])</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">348</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">467</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(variables$strata, null.ok = TRUE)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">349</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">468</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_factors(data, list(val = variables$arm), min.levels = 2, max.levels = 2)</pre>
+                      <pre class="language-r">  out &lt;- lapply(arm_levels, function(lev) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">350</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">469</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(data, variables)</pre>
+                      <pre class="language-r">    temp &lt;- .df_row</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">351</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">470</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label_all)</pre>
+                      <pre class="language-r">    temp[[arm]] &lt;- factor(lev, levels = arm_levels)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">352</td>
+                    <td class="num">471</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">353</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  # Add All Patients.</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">354</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  result_all &lt;- h_coxph_df(</pre>
-                    </td>
-                  </tr>
                   <tr class="covered">
-                    <td class="num">355</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">472</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tte = data[[variables$tte]],</pre>
+                      <pre class="language-r">    mf &lt;- stats::model.frame(obj$formula, data = temp)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">356</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">473</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is_event = data[[variables$is_event]],</pre>
+                      <pre class="language-r">    X &lt;- stats::model.matrix(obj$formula, data = mf) # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">357</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">474</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    arm = data[[variables$arm]],</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">358</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">475</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    strata_data = if (is.null(variables$strata)) NULL else data[variables$strata],</pre>
+                      <pre class="language-r">    rate &lt;- stats::predict(obj, newdata = mf, type = "response")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">359</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">476</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    control = control</pre>
+                      <pre class="language-r">    rate_hat &lt;- mean(rate)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">360</td>
+                    <td class="num">477</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">361</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">478</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result_all$subgroup &lt;- label_all</pre>
+                      <pre class="language-r">    zz &lt;- colMeans(rate * X)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">362</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">479</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result_all$var &lt;- "ALL"</pre>
+                      <pre class="language-r">    se &lt;- sqrt(as.numeric(t(zz) %*% stats::vcov(obj) %*% zz))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">363</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">480</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result_all$var_label &lt;- label_all</pre>
+                      <pre class="language-r">    rate_lwr &lt;- rate_hat * exp(-stats::qnorm(p) * se / rate_hat)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">364</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="num">481</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result_all$row_type &lt;- "content"</pre>
+                      <pre class="language-r">    rate_upr &lt;- rate_hat * exp(stats::qnorm(p) * se / rate_hat)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">365</td>
+                    <td class="num">482</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">366</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  # Add Subgroups.</pre>
-                    </td>
-                  </tr>
                   <tr class="covered">
-                    <td class="num">367</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(variables$subgroups)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">368</td>
+                    <td class="num">483</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result_all</pre>
+                      <pre class="language-r">    c(rate_hat, rate_lwr, rate_upr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">369</td>
+                    <td class="num">484</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">370</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    l_data &lt;- h_split_by_subgroups(data, variables$subgroups, groups_lists = groups_lists)</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">371</td>
+                    <td class="num">485</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">372</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    l_result &lt;- lapply(l_data, function(grp) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">373</td>
-                    <td class="coverage">64<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      result &lt;- h_coxph_df(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">374</td>
-                    <td class="coverage">64<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        tte = grp$df[[variables$tte]],</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">375</td>
-                    <td class="coverage">64<em>x</em></td>
+                    <td class="num">486</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        is_event = grp$df[[variables$is_event]],</pre>
+                      <pre class="language-r">  names(out) &lt;- arm_levels</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">376</td>
-                    <td class="coverage">64<em>x</em></td>
+                    <td class="num">487</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        arm = grp$df[[variables$arm]],</pre>
+                      <pre class="language-r">  out &lt;- do.call(rbind, out)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">377</td>
-                    <td class="coverage">64<em>x</em></td>
+                    <td class="num">488</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        strata_data = if (is.null(variables$strata)) NULL else grp$df[variables$strata],</pre>
+                      <pre class="language-r">  if ("negbin" %in% class(obj)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">378</td>
-                    <td class="coverage">64<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">489</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        control = control</pre>
+                      <pre class="language-r">    colnames(out) &lt;- c("response", "asymp.LCL", "asymp.UCL")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">379</td>
+                    <td class="num">490</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">380</td>
-                    <td class="coverage">64<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      result_labels &lt;- grp$df_labels[rep(1, times = nrow(result)), ]</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">381</td>
-                    <td class="coverage">64<em>x</em></td>
+                    <td class="num">491</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cbind(result, result_labels)</pre>
+                      <pre class="language-r">    colnames(out) &lt;- c("rate", "asymp.LCL", "asymp.UCL")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">382</td>
+                    <td class="num">492</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">383</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">493</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  out &lt;- as.data.frame(out)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">384</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">494</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result_subgroups &lt;- do.call(rbind, args = c(l_result, make.row.names = FALSE))</pre>
+                      <pre class="language-r">  out[[arm]] &lt;- rownames(out)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">385</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">495</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result_subgroups$row_type &lt;- "analysis"</pre>
+                      <pre class="language-r">  out</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">386</td>
+                    <td class="num">496</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">387</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    rbind(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">388</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      result_all,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">389</td>
-                    <td class="coverage">14<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/h_response_subgroups.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
+                  <tr class="never">
+                    <td class="num">1</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      result_subgroups</pre>
+                      <pre class="language-r">#' Helper functions for tabulating binary response by subgroup</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">390</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">391</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">392</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">393</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Helper functions that tabulate in a data frame statistics such as response rate</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">394</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Split data frame by subgroups</pre>
+                      <pre class="language-r">#' and odds ratio for population subgroups.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">395</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">396</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">397</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @inheritParams response_subgroups</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">398</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Split a data frame into a non-nested list of subsets.</pre>
+                      <pre class="language-r">#' @param arm (`factor`)\cr the treatment group variable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">399</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">400</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' @details Main functionality is to prepare data for use in a layout-creating function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">401</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams survival_duration_subgroups</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">402</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data (`data.frame`)\cr dataset to split.</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">403</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param subgroups (`character`)\cr names of factor variables from `data` used to create subsets.</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">404</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Unused levels not present in `data` are dropped. Note that the order in this vector</pre>
+                      <pre class="language-r">#' library(forcats)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">405</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   determines the order in the downstream table.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">406</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' adrs &lt;- tern_ex_adrs</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">407</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A list with subset data (`df`) and metadata about the subset (`df_labels`).</pre>
+                      <pre class="language-r">#' adrs_labels &lt;- formatters::var_labels(adrs)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">408</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">409</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details Main functionality is to prepare data for use in forest plot layouts.</pre>
+                      <pre class="language-r">#' adrs_f &lt;- adrs %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">410</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   filter(PARAMCD == "BESRSPI") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">411</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   filter(ARM %in% c("A: Drug X", "B: Placebo")) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">412</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- data.frame(</pre>
+                      <pre class="language-r">#'   droplevels() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">413</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   x = c(1:5),</pre>
+                      <pre class="language-r">#'   mutate(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">414</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   y = factor(c("A", "B", "A", "B", "A"), levels = c("A", "B", "C")),</pre>
+                      <pre class="language-r">#'     # Reorder levels of factor to make the placebo group the reference arm.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">415</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   z = factor(c("C", "C", "D", "D", "D"), levels = c("D", "C"))</pre>
+                      <pre class="language-r">#'     ARM = fct_relevel(ARM, "B: Placebo"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">416</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'     rsp = AVALC == "CR"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">417</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' formatters::var_labels(df) &lt;- paste("label for", names(df))</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">418</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' formatters::var_labels(adrs_f) &lt;- c(adrs_labels, "Response")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">419</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_split_by_subgroups(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">420</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = df,</pre>
+                      <pre class="language-r">#' @name h_response_subgroups</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">421</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   subgroups = c("y", "z")</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">422</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">423</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @describeIn h_response_subgroups Helper to prepare a data frame of binary responses by arm.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">424</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_split_by_subgroups(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">425</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = df,</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">426</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   subgroups = c("y", "z"),</pre>
+                      <pre class="language-r">#' * `h_proportion_df()` returns a `data.frame` with columns `arm`, `n`, `n_rsp`, and `prop`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">427</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   groups_lists = list(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">428</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     y = list("AB" = c("A", "B"), "C" = "C")</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">429</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#' h_proportion_df(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">430</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   c(TRUE, FALSE, FALSE),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">431</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   arm = factor(c("A", "A", "B"), levels = c("A", "B"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">432</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">433</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_split_by_subgroups &lt;- function(data,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">434</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 subgroups,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">435</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 groups_lists = list()) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">436</td>
-                    <td class="coverage">66<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(subgroups, min.len = 1, any.missing = FALSE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">437</td>
-                    <td class="coverage">66<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(groups_lists, names = "named")</pre>
+                      <pre class="language-r">h_proportion_df &lt;- function(rsp, arm) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">438</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="num">48</td>
+                    <td class="coverage">79<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(names(groups_lists), subgroups)</pre>
+                      <pre class="language-r">  checkmate::assert_logical(rsp)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">439</td>
-                    <td class="coverage">66<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_factors(data, as.list(stats::setNames(subgroups, subgroups)))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">440</td>
-                    <td class="coverage"></td>
+                    <td class="num">49</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  assert_valid_factor(arm, len = length(rsp))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">441</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="num">50</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data_labels &lt;- unname(formatters::var_labels(data))</pre>
+                      <pre class="language-r">  non_missing_rsp &lt;- !is.na(rsp)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">442</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="num">51</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df_subgroups &lt;- data[, subgroups, drop = FALSE]</pre>
+                      <pre class="language-r">  rsp &lt;- rsp[non_missing_rsp]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">443</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="num">52</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  subgroup_labels &lt;- formatters::var_labels(df_subgroups, fill = TRUE)</pre>
+                      <pre class="language-r">  arm &lt;- arm[non_missing_rsp]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">444</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">445</td>
-                    <td class="coverage">66<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  l_labels &lt;- Map(function(grp_i, name_i) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">446</td>
-                    <td class="coverage">120<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    existing_levels &lt;- levels(droplevels(grp_i))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">447</td>
-                    <td class="coverage">120<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    grp_levels &lt;- if (name_i %in% names(groups_lists)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">448</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      # For this variable groupings are defined. We check which groups are contained in the data.</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">449</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">54</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      group_list_i &lt;- groups_lists[[name_i]]</pre>
+                      <pre class="language-r">  lst_rsp &lt;- split(rsp, arm)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">450</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">55</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      group_has_levels &lt;- vapply(group_list_i, function(lvls) any(lvls %in% existing_levels), TRUE)</pre>
+                      <pre class="language-r">  lst_results &lt;- Map(function(x, arm) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">451</td>
-                    <td class="coverage">11<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      names(which(group_has_levels))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">452</td>
-                    <td class="coverage"></td>
+                    <td class="num">56</td>
+                    <td class="coverage">156<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">    if (length(x) &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">453</td>
-                    <td class="coverage">109<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      existing_levels</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">454</td>
-                    <td class="coverage"></td>
+                    <td class="num">57</td>
+                    <td class="coverage">154<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">      s_prop &lt;- s_proportion(df = x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">455</td>
-                    <td class="coverage">120<em>x</em></td>
+                    <td class="num">58</td>
+                    <td class="coverage">154<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_labels &lt;- data.frame(</pre>
+                      <pre class="language-r">      data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">456</td>
-                    <td class="coverage">120<em>x</em></td>
+                    <td class="num">59</td>
+                    <td class="coverage">154<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      subgroup = grp_levels,</pre>
+                      <pre class="language-r">        arm = arm,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">457</td>
-                    <td class="coverage">120<em>x</em></td>
+                    <td class="num">60</td>
+                    <td class="coverage">154<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      var = name_i,</pre>
+                      <pre class="language-r">        n = length(x),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">458</td>
-                    <td class="coverage">120<em>x</em></td>
+                    <td class="num">61</td>
+                    <td class="coverage">154<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      var_label = unname(subgroup_labels[name_i]),</pre>
+                      <pre class="language-r">        n_rsp = unname(s_prop$n_prop[1]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">459</td>
-                    <td class="coverage">120<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      stringsAsFactors = FALSE # Rationale is that subgroups may not be unique.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">460</td>
-                    <td class="coverage"></td>
+                    <td class="num">62</td>
+                    <td class="coverage">154<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        prop = unname(s_prop$n_prop[2]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">461</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="num">63</td>
+                    <td class="coverage">154<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }, df_subgroups, names(df_subgroups))</pre>
+                      <pre class="language-r">        stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">462</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">463</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Create a data frame with one row per subgroup.</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">464</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="num">66</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df_labels &lt;- do.call(rbind, args = c(l_labels, make.row.names = FALSE))</pre>
+                      <pre class="language-r">      data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">465</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="num">67</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  row_label &lt;- paste0(df_labels$var, ".", df_labels$subgroup)</pre>
+                      <pre class="language-r">        arm = arm,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">466</td>
-                    <td class="coverage">66<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  row_split_var &lt;- factor(row_label, levels = row_label)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">467</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">468</td>
-                    <td class="coverage"></td>
+                    <td class="num">68</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Create a list of data subsets.</pre>
+                      <pre class="language-r">        n = 0L,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">469</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="num">69</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lapply(split(df_labels, row_split_var), function(row_i) {</pre>
+                      <pre class="language-r">        n_rsp = NA,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">470</td>
-                    <td class="coverage">294<em>x</em></td>
+                    <td class="num">70</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    which_row &lt;- if (row_i$var %in% names(groups_lists)) {</pre>
+                      <pre class="language-r">        prop = NA,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">471</td>
-                    <td class="coverage">31<em>x</em></td>
+                    <td class="num">71</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data[[row_i$var]] %in% groups_lists[[row_i$var]][[row_i$subgroup]]</pre>
+                      <pre class="language-r">        stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">472</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">473</td>
-                    <td class="coverage">263<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      data[[row_i$var]] == row_i$subgroup</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">474</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">475</td>
-                    <td class="coverage">294<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    df &lt;- data[which_row, ]</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">476</td>
-                    <td class="coverage">294<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    rownames(df) &lt;- NULL</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">477</td>
-                    <td class="coverage">294<em>x</em></td>
+                    <td class="num">74</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    formatters::var_labels(df) &lt;- data_labels</pre>
+                      <pre class="language-r">  }, lst_rsp, names(lst_rsp))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">478</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">479</td>
-                    <td class="coverage">294<em>x</em></td>
+                    <td class="num">76</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list(</pre>
+                      <pre class="language-r">  df &lt;- do.call(rbind, args = c(lst_results, make.row.names = FALSE))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">480</td>
-                    <td class="coverage">294<em>x</em></td>
+                    <td class="num">77</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df = df,</pre>
+                      <pre class="language-r">  df$arm &lt;- factor(df$arm, levels = levels(arm))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">481</td>
-                    <td class="coverage">294<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      df_labels = data.frame(row_i, row.names = NULL)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">482</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">483</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">484</td>
-                    <td class="coverage"></td>
+                    <td class="num">78</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  df</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/survival_duration_subgroups.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Tabulate survival duration by subgroup</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' @describeIn h_response_subgroups Summarizes proportion of binary responses by arm and across subgroups</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'    in a data frame. `variables` corresponds to the names of variables found in `data`, passed as a named list and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The [tabulate_survival_subgroups()] function creates a layout element to tabulate survival duration by subgroup,</pre>
+                      <pre class="language-r">#'    requires elements `rsp`, `arm` and optionally `subgroups`. `groups_lists` optionally specifies</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' returning statistics including median survival time and hazard ratio for each population subgroup. The table is</pre>
+                      <pre class="language-r">#'    groupings for `subgroups` variables.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' created from `df`, a list of data frames returned by [extract_survival_subgroups()], with the statistics to include</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' specified via the `vars` parameter.</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' * `h_proportion_subgroups_df()` returns a `data.frame` with columns `arm`, `n`, `n_rsp`, `prop`, `subgroup`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A forest plot can be created from the resulting table using the [g_forest()] function.</pre>
+                      <pre class="language-r">#'   `var`, `var_label`, and `row_type`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams survival_coxph_pairwise</pre>
+                      <pre class="language-r">#' h_proportion_subgroups_df(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param df (`list`)\cr list of data frames containing all analysis variables. List should be</pre>
+                      <pre class="language-r">#'   variables = list(rsp = "rsp", arm = "ARM", subgroups = c("SEX", "BMRKR2")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   created using [extract_survival_subgroups()].</pre>
+                      <pre class="language-r">#'   data = adrs_f</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param vars (`character`)\cr the names of statistics to be reported among:</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `n_tot_events`: Total number of events per group.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `n_events`: Number of events per group.</pre>
+                      <pre class="language-r">#' # Define groupings for BMRKR2 levels.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `n_tot`: Total number of observations per group.</pre>
+                      <pre class="language-r">#' h_proportion_subgroups_df(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `n`: Number of observations per group.</pre>
+                      <pre class="language-r">#'   variables = list(rsp = "rsp", arm = "ARM", subgroups = c("SEX", "BMRKR2")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `median`: Median survival time.</pre>
+                      <pre class="language-r">#'   data = adrs_f,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `hr`: Hazard ratio.</pre>
+                      <pre class="language-r">#'   groups_lists = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `ci`: Confidence interval of hazard ratio.</pre>
+                      <pre class="language-r">#'     BMRKR2 = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `pval`: p-value of the effect.</pre>
+                      <pre class="language-r">#'       "low" = "LOW",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Note, one of the statistics `n_tot` and `n_tot_events`, as well as both `hr` and `ci`</pre>
+                      <pre class="language-r">#'       "low/medium" = c("LOW", "MEDIUM"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   are required.</pre>
+                      <pre class="language-r">#'       "low/medium/high" = c("LOW", "MEDIUM", "HIGH")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param time_unit (`string`)\cr label with unit of median survival time. Default `NULL` skips displaying unit.</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details These functions create a layout starting from a data frame which contains</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the required statistics. Tables typically used as part of forest plot.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [extract_survival_subgroups()]</pre>
+                      <pre class="language-r">h_proportion_subgroups_df &lt;- function(variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                      data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">                                      groups_lists = list(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">                                      label_all = "All Patients") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">114</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_character(variables$rsp)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">115</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adtte &lt;- tern_ex_adtte</pre>
+                      <pre class="language-r">  checkmate::assert_character(variables$arm)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">116</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_character(variables$subgroups, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">117</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Save variable labels before data processing steps.</pre>
+                      <pre class="language-r">  assert_df_with_factors(data, list(val = variables$arm), min.levels = 2, max.levels = 2)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">118</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adtte_labels &lt;- formatters::var_labels(adtte)</pre>
+                      <pre class="language-r">  assert_df_with_variables(data, variables)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">119</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_string(label_all)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adtte_f &lt;- adtte %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(</pre>
+                      <pre class="language-r">  # Add All Patients.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">122</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     PARAMCD == "OS",</pre>
+                      <pre class="language-r">  result_all &lt;- h_proportion_df(data[[variables$rsp]], data[[variables$arm]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">123</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ARM %in% c("B: Placebo", "A: Drug X"),</pre>
+                      <pre class="language-r">  result_all$subgroup &lt;- label_all</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">124</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     SEX %in% c("M", "F")</pre>
+                      <pre class="language-r">  result_all$var &lt;- "ALL"</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">125</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">  result_all$var_label &lt;- label_all</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">126</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mutate(</pre>
+                      <pre class="language-r">  result_all$row_type &lt;- "content"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     # Reorder levels of ARM to display reference arm before treatment arm.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ARM = droplevels(forcats::fct_relevel(ARM, "B: Placebo")),</pre>
+                      <pre class="language-r">  # Add Subgroups.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">129</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     SEX = droplevels(SEX),</pre>
+                      <pre class="language-r">  if (is.null(variables$subgroups)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">130</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     AVALU = as.character(AVALU),</pre>
+                      <pre class="language-r">    result_all</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     is_event = CNSR == 0</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">132</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">    l_data &lt;- h_split_by_subgroups(data, variables$subgroups, groups_lists = groups_lists)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' labels &lt;- c(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">134</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "ARM" = adtte_labels[["ARM"]],</pre>
+                      <pre class="language-r">    l_result &lt;- lapply(l_data, function(grp) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">57</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">135</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "SEX" = adtte_labels[["SEX"]],</pre>
+                      <pre class="language-r">      result &lt;- h_proportion_df(grp$df[[variables$rsp]], grp$df[[variables$arm]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">136</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "AVALU" = adtte_labels[["AVALU"]],</pre>
+                      <pre class="language-r">      result_labels &lt;- grp$df_labels[rep(1, times = nrow(result)), ]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">137</td>
+                    <td class="coverage">58<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "is_event" = "Event Flag"</pre>
+                      <pre class="language-r">      cbind(result, result_labels)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">139</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' formatters::var_labels(adtte_f)[names(labels)] &lt;- labels</pre>
+                      <pre class="language-r">    result_subgroups &lt;- do.call(rbind, args = c(l_result, make.row.names = FALSE))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">140</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    result_subgroups$row_type &lt;- "analysis"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- extract_survival_subgroups(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">64</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">142</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">    rbind(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">143</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tte = "AVAL",</pre>
+                      <pre class="language-r">      result_all,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">66</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">144</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     is_event = "is_event",</pre>
+                      <pre class="language-r">      result_subgroups</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     arm = "ARM", subgroups = c("SEX", "BMRKR2")</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   label_all = "Total Patients",</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adtte_f</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' @describeIn h_response_subgroups Helper to prepare a data frame with estimates of</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df</pre>
+                      <pre class="language-r">#'   the odds ratio between a treatment and a control arm.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df_grouped &lt;- extract_survival_subgroups(</pre>
+                      <pre class="language-r">#' @inheritParams response_subgroups</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">#' @param strata_data (`factor`, `data.frame`, or `NULL`)\cr required if stratified analysis is performed.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tte = "AVAL",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     is_event = "is_event",</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     arm = "ARM", subgroups = c("SEX", "BMRKR2")</pre>
+                      <pre class="language-r">#' * `h_odds_ratio_df()` returns a `data.frame` with columns `arm`, `n_tot`, `or`, `lcl`, `ucl`, `conf_level`, and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#'   optionally `pval` and `pval_label`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adtte_f,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   groups_lists = list(</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     BMRKR2 = list(</pre>
+                      <pre class="language-r">#' # Unstratatified analysis.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "low" = "LOW",</pre>
+                      <pre class="language-r">#' h_odds_ratio_df(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "low/medium" = c("LOW", "MEDIUM"),</pre>
+                      <pre class="language-r">#'   c(TRUE, FALSE, FALSE, TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "low/medium/high" = c("LOW", "MEDIUM", "HIGH")</pre>
+                      <pre class="language-r">#'   arm = factor(c("A", "A", "B", "B"), levels = c("A", "B"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' # Include p-value.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df_grouped</pre>
+                      <pre class="language-r">#' h_odds_ratio_df(adrs_f$rsp, adrs_f$ARM, method = "chisq")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name survival_duration_subgroups</pre>
+                      <pre class="language-r">#' # Stratatified analysis.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 1</pre>
+                      <pre class="language-r">#' h_odds_ratio_df(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#'   rsp = adrs_f$rsp,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   arm = adrs_f$ARM,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Prepare survival data for population subgroups in data frames</pre>
+                      <pre class="language-r">#'   strata_data = adrs_f[, c("STRATA1", "STRATA2")],</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   method = "cmh"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Prepares estimates of median survival times and treatment hazard ratios for population subgroups in</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data frames. Simple wrapper for [h_survtime_subgroups_df()] and [h_coxph_subgroups_df()]. Result is a `list`</pre>
+                      <pre class="language-r">h_odds_ratio_df &lt;- function(rsp, arm, strata_data = NULL, conf_level = 0.95, method = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">101</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">179</td>
+                    <td class="coverage">84<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' of two `data.frame`s: `survtime` and `hr`. `variables` corresponds to the names of variables found in `data`,</pre>
+                      <pre class="language-r">  assert_valid_factor(arm, n.levels = 2, len = length(rsp))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' passed as a named `list` and requires elements `tte`, `is_event`, `arm` and optionally `subgroups` and `strata`.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">103</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">181</td>
+                    <td class="coverage">84<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `groups_lists` optionally specifies groupings for `subgroups` variables.</pre>
+                      <pre class="language-r">  df_rsp &lt;- data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">104</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">182</td>
+                    <td class="coverage">84<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    rsp = rsp,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">105</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">183</td>
+                    <td class="coverage">84<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">    arm = arm</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams survival_duration_subgroups</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams survival_coxph_pairwise</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">108</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">186</td>
+                    <td class="coverage">84<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if (!is.null(strata_data)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">109</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">187</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A named `list` of two elements:</pre>
+                      <pre class="language-r">    strata_var &lt;- interaction(strata_data, drop = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">110</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">188</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `survtime`: A `data.frame` containing columns `arm`, `n`, `n_events`, `median`, `subgroup`, `var`,</pre>
+                      <pre class="language-r">    strata_name &lt;- "strata"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     `var_label`, and `row_type`.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">112</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">190</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `hr`: A `data.frame` containing columns `arm`, `n_tot`, `n_tot_events`, `hr`, `lcl`, `ucl`, `conf_level`,</pre>
+                      <pre class="language-r">    assert_valid_factor(strata_var, len = nrow(df_rsp))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     `pval`, `pval_label`, `subgroup`, `var`, `var_label`, and `row_type`.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">114</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">192</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    df_rsp[[strata_name]] &lt;- strata_var</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [survival_duration_subgroups]</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">116</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">194</td>
+                    <td class="coverage">73<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    strata_name &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">extract_survival_subgroups &lt;- function(variables,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">119</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">197</td>
+                    <td class="coverage">84<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       data,</pre>
+                      <pre class="language-r">  l_df &lt;- split(df_rsp, arm)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       groups_lists = list(),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">121</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">199</td>
+                    <td class="coverage">84<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       control = control_coxph(),</pre>
+                      <pre class="language-r">  if (nrow(l_df[[1]]) &gt; 0 &amp;&amp; nrow(l_df[[2]]) &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       label_all = "All Patients") {</pre>
+                      <pre class="language-r">    # Odds ratio and CI.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">201</td>
+                    <td class="coverage">82<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if ("strat" %in% names(variables)) {</pre>
+                      <pre class="language-r">    result_odds_ratio &lt;- s_odds_ratio(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">124</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">202</td>
+                    <td class="coverage">82<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning(</pre>
+                      <pre class="language-r">      df = l_df[[2]],</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">125</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">203</td>
+                    <td class="coverage">82<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Warning: the `strat` element name of the `variables` list argument to `extract_survival_subgroups() ",</pre>
+                      <pre class="language-r">      .var = "rsp",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">126</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">204</td>
+                    <td class="coverage">82<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "was deprecated in tern 0.9.4.\n  ",</pre>
+                      <pre class="language-r">      .ref_group = l_df[[1]],</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">127</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">205</td>
+                    <td class="coverage">82<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Please use the name `strata` instead of `strat` in the `variables` argument."</pre>
+                      <pre class="language-r">      .in_ref_col = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">128</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">206</td>
+                    <td class="coverage">82<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      .df_row = df_rsp,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">129</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">207</td>
+                    <td class="coverage">82<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    variables[["strata"]] &lt;- variables[["strat"]]</pre>
+                      <pre class="language-r">      variables = list(arm = "arm", strata = strata_name),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">208</td>
+                    <td class="coverage">82<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      conf_level = conf_level</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">211</td>
+                    <td class="coverage">82<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df_survtime &lt;- h_survtime_subgroups_df(</pre>
+                      <pre class="language-r">    df &lt;- data.frame(</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">212</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      # Dummy column needed downstream to create a nested header.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">213</td>
+                    <td class="coverage">82<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    variables,</pre>
+                      <pre class="language-r">      arm = " ",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">214</td>
+                    <td class="coverage">82<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data,</pre>
+                      <pre class="language-r">      n_tot = unname(result_odds_ratio$n_tot["n_tot"]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">135</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">215</td>
+                    <td class="coverage">82<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    groups_lists = groups_lists,</pre>
+                      <pre class="language-r">      or = unname(result_odds_ratio$or_ci["est"]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">136</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">216</td>
+                    <td class="coverage">82<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label_all = label_all</pre>
+                      <pre class="language-r">      lcl = unname(result_odds_ratio$or_ci["lcl"]),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">217</td>
+                    <td class="coverage">82<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      ucl = unname(result_odds_ratio$or_ci["ucl"]),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">218</td>
+                    <td class="coverage">82<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      conf_level = conf_level,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">219</td>
+                    <td class="coverage">82<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">221</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df_hr &lt;- h_coxph_subgroups_df(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">222</td>
+                    <td class="coverage">82<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    variables,</pre>
+                      <pre class="language-r">    if (!is.null(method)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">223</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      # Test for difference.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">224</td>
+                    <td class="coverage">44<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data,</pre>
+                      <pre class="language-r">      result_test &lt;- s_test_proportion_diff(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">225</td>
+                    <td class="coverage">44<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    groups_lists = groups_lists,</pre>
+                      <pre class="language-r">        df = l_df[[2]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">226</td>
+                    <td class="coverage">44<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    control = control,</pre>
+                      <pre class="language-r">        .var = "rsp",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">227</td>
+                    <td class="coverage">44<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label_all = label_all</pre>
+                      <pre class="language-r">        .ref_group = l_df[[1]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">144</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">228</td>
+                    <td class="coverage">44<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        .in_ref_col = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">145</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">229</td>
+                    <td class="coverage">44<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        variables = list(strata = strata_name),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">230</td>
+                    <td class="coverage">44<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(survtime = df_survtime, hr = df_hr)</pre>
+                      <pre class="language-r">        method = method</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">149</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">233</td>
+                    <td class="coverage">44<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn survival_duration_subgroups  Formatted analysis function which is used as</pre>
+                      <pre class="language-r">      df$pval &lt;- as.numeric(result_test$pval)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">150</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">234</td>
+                    <td class="coverage">44<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `afun` in `tabulate_survival_subgroups()`.</pre>
+                      <pre class="language-r">      df$pval_label &lt;- obj_label(result_test$pval)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `a_survival_subgroups()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
+                      <pre class="language-r">    # In those cases cannot go through the model so will obtain n_tot from data.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">238</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  } else if (</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">155</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">239</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    (nrow(l_df[[1]]) == 0 &amp;&amp; nrow(l_df[[2]]) &gt; 0) ||</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">156</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">240</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">a_survival_subgroups &lt;- function(.formats = list( # nolint start</pre>
+                      <pre class="language-r">      (nrow(l_df[[1]]) &gt; 0 &amp;&amp; nrow(l_df[[2]]) == 0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   n = "xx",</pre>
+                      <pre class="language-r">  ) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">158</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">242</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   n_events = "xx",</pre>
+                      <pre class="language-r">    df &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   n_tot_events = "xx",</pre>
+                      <pre class="language-r">      # Dummy column needed downstream to create a nested header.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">160</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">244</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   median = "xx.x",</pre>
+                      <pre class="language-r">      arm = " ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">161</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">245</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   n_tot = "xx",</pre>
+                      <pre class="language-r">      n_tot = sum(stats::complete.cases(df_rsp)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">162</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">246</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   hr = list(format_extreme_values(2L)),</pre>
+                      <pre class="language-r">      or = NA,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">163</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">247</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   ci = list(format_extreme_values_ci(2L)),</pre>
+                      <pre class="language-r">      lcl = NA,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">164</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">248</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   pval = "x.xxxx | (&lt;0.0001)"</pre>
+                      <pre class="language-r">      ucl = NA,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">165</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">249</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 ),</pre>
+                      <pre class="language-r">      conf_level = conf_level,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">166</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">250</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 na_str = default_na_str()) { # nolint end</pre>
+                      <pre class="language-r">      stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">251</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(.formats)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">252</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(</pre>
+                      <pre class="language-r">    if (!is.null(method)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">253</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    names(.formats),</pre>
+                      <pre class="language-r">      df$pval &lt;- NA</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">254</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c("n", "n_events", "median", "n_tot", "n_tot_events", "hr", "ci", "pval", "riskdiff")</pre>
+                      <pre class="language-r">      df$pval_label &lt;- NA</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">257</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  afun_lst &lt;- Map(</pre>
+                      <pre class="language-r">    df &lt;- data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">258</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    function(stat, fmt, na_str) {</pre>
+                      <pre class="language-r">      # Dummy column needed downstream to create a nested header.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">160<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">259</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      function(df, labelstr = "", ...) {</pre>
+                      <pre class="language-r">      arm = " ",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">312<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">260</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        in_rows(</pre>
+                      <pre class="language-r">      n_tot = 0L,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">177</td>
-                    <td class="coverage">312<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">261</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          .list = as.list(df[[stat]]),</pre>
+                      <pre class="language-r">      or = NA,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">312<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">262</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      lcl = NA,</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">263</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          .labels = as.character(df$subgroup),</pre>
+                      <pre class="language-r">      ucl = NA,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">312<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">264</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          .formats = fmt,</pre>
+                      <pre class="language-r">      conf_level = conf_level,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">312<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">265</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          .format_na_strs = na_str</pre>
+                      <pre class="language-r">      stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">266</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">267</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">183</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">268</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">    if (!is.null(method)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">269</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stat = names(.formats),</pre>
+                      <pre class="language-r">      df$pval &lt;- NA</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">270</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    fmt = .formats,</pre>
+                      <pre class="language-r">      df$pval_label &lt;- NA</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">271</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">272</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">273</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">274</td>
+                    <td class="coverage">84<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  afun_lst</pre>
+                      <pre class="language-r">  df</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">275</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">276</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">277</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn survival_duration_subgroups Table-creating function which creates a table</pre>
+                      <pre class="language-r">#' @describeIn h_response_subgroups Summarizes estimates of the odds ratio between a treatment and a control</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   summarizing survival by subgroup. This function is a wrapper for [rtables::analyze_colvars()]</pre>
+                      <pre class="language-r">#'   arm across subgroups in a data frame. `variables` corresponds to the names of variables found in</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">279</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and [rtables::summarize_row_groups()].</pre>
+                      <pre class="language-r">#'   `data`, passed as a named list and requires elements `rsp`, `arm` and optionally `subgroups`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">280</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   and `strata`. `groups_lists` optionally specifies groupings for `subgroups` variables.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">281</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param label_all `r lifecycle::badge("deprecated")`\cr please assign the `label_all` parameter within the</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">282</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   [extract_survival_subgroups()] function when creating `df`.</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">283</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param riskdiff (`list`)\cr if a risk (proportion) difference column should be added, a list of settings to apply</pre>
+                      <pre class="language-r">#' * `h_odds_ratio_subgroups_df()` returns a `data.frame` with columns `arm`, `n_tot`, `or`, `lcl`, `ucl`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   within the column. See [control_riskdiff()] for details. If `NULL`, no risk difference column will be added. If</pre>
+                      <pre class="language-r">#'   `conf_level`, `subgroup`, `var`, `var_label`, and `row_type`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `riskdiff$arm_x` and `riskdiff$arm_y` are `NULL`, the first level of `df$survtime$arm` will be used as `arm_x`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and the second level as `arm_y`.</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' # Unstratified analysis.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">288</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return An `rtables` table summarizing survival by subgroup.</pre>
+                      <pre class="language-r">#' h_odds_ratio_subgroups_df(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">289</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   variables = list(rsp = "rsp", arm = "ARM", subgroups = c("SEX", "BMRKR2")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">205</td>
+                    <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   data = adrs_f</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Table with default columns.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">292</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   tabulate_survival_subgroups(df, time_unit = adtte_f$AVALU[1])</pre>
+                      <pre class="language-r">#' # Stratified analysis.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' h_odds_ratio_subgroups_df(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">295</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Table with a manually chosen set of columns: adding "pval".</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</td>
+                    <td class="num">296</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">#'     rsp = "rsp",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">297</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   tabulate_survival_subgroups(</pre>
+                      <pre class="language-r">#'     arm = "ARM",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">298</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     df = df,</pre>
+                      <pre class="language-r">#'     subgroups = c("SEX", "BMRKR2"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     vars = c("n_tot_events", "n_events", "median", "hr", "ci", "pval"),</pre>
+                      <pre class="language-r">#'     strata = c("STRATA1", "STRATA2")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">300</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     time_unit = adtte_f$AVALU[1]</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">301</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#'   data = adrs_f</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">302</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">218</td>
+                    <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">219</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 2</pre>
+                      <pre class="language-r">#' # Define groupings of BMRKR2 levels.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">305</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">tabulate_survival_subgroups &lt;- function(lyt,</pre>
+                      <pre class="language-r">#' h_odds_ratio_subgroups_df(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">306</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        df,</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</td>
+                    <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        vars = c("n_tot_events", "n_events", "median", "hr", "ci"),</pre>
+                      <pre class="language-r">#'     rsp = "rsp",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">223</td>
+                    <td class="num">308</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        groups_lists = list(),</pre>
+                      <pre class="language-r">#'     arm = "ARM",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">309</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        label_all = lifecycle::deprecated(),</pre>
+                      <pre class="language-r">#'     subgroups = c("SEX", "BMRKR2")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">310</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        time_unit = NULL,</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">311</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        riskdiff = NULL,</pre>
+                      <pre class="language-r">#'   data = adrs_f,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</td>
+                    <td class="num">312</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        na_str = default_na_str(),</pre>
+                      <pre class="language-r">#'   groups_lists = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        .formats = c(</pre>
+                      <pre class="language-r">#'     BMRKR2 = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</td>
+                    <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          n = "xx", n_events = "xx", n_tot_events = "xx", median = "xx.x", n_tot = "xx",</pre>
+                      <pre class="language-r">#'       "low" = "LOW",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</td>
+                    <td class="num">315</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          hr = list(format_extreme_values(2L)), ci = list(format_extreme_values_ci(2L)),</pre>
+                      <pre class="language-r">#'       "low/medium" = c("LOW", "MEDIUM"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">231</td>
+                    <td class="num">316</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          pval = "x.xxxx | (&lt;0.0001)"</pre>
+                      <pre class="language-r">#'       "low/medium/high" = c("LOW", "MEDIUM", "HIGH")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</td>
+                    <td class="num">317</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        )) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">233</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(riskdiff, null.ok = TRUE)</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">318</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(any(c("n_tot", "n_tot_events") %in% vars))</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">235</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">319</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(all(c("hr", "ci") %in% vars))</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">237</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">321</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (lifecycle::is_present(label_all)) {</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">238</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">322</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
+                      <pre class="language-r">h_odds_ratio_subgroups_df &lt;- function(variables,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">239</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">323</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "0.9.5", "tabulate_survival_subgroups(label_all)",</pre>
+                      <pre class="language-r">                                      data,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">240</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">324</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      details =</pre>
+                      <pre class="language-r">                                      groups_lists = list(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">241</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">325</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Please assign the `label_all` parameter within the `extract_survival_subgroups()` function when creating `df`."</pre>
+                      <pre class="language-r">                                      conf_level = 0.95,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">242</td>
+                    <td class="num">326</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">                                      method = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">327</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                                      label_all = "All Patients") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">244</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">328</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if ("strat" %in% names(variables)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">245</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">329</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Create "ci" column from "lcl" and "ucl"</pre>
+                      <pre class="language-r">    warning(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">246</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">330</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df$hr$ci &lt;- combine_vectors(df$hr$lcl, df$hr$ucl)</pre>
+                      <pre class="language-r">      "Warning: the `strat` element name of the `variables` list argument to `h_odds_ratio_subgroups_df() ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">247</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">331</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      "was deprecated in tern 0.9.4.\n  ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">248</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">332</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Fill in missing formats with defaults</pre>
+                      <pre class="language-r">      "Please use the name `strata` instead of `strat` in the `variables` argument."</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">249</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">333</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  default_fmts &lt;- eval(formals(tabulate_survival_subgroups)$.formats)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">250</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">334</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats &lt;- c(.formats, default_fmts[vars[!vars %in% names(.formats)]])</pre>
+                      <pre class="language-r">    variables[["strata"]] &lt;- variables[["strat"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">335</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</td>
+                    <td class="num">336</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Extract additional parameters from df</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">253</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">337</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  conf_level &lt;- df$hr$conf_level[1]</pre>
+                      <pre class="language-r">  checkmate::assert_character(variables$rsp)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">254</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">338</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  method &lt;- df$hr$pval_label[1]</pre>
+                      <pre class="language-r">  checkmate::assert_character(variables$arm)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">255</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">339</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  colvars &lt;- d_survival_subgroups_colvars(vars, conf_level = conf_level, method = method, time_unit = time_unit)</pre>
+                      <pre class="language-r">  checkmate::assert_character(variables$subgroups, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">256</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">340</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  survtime_vars &lt;- intersect(colvars$vars, c("n", "n_events", "median"))</pre>
+                      <pre class="language-r">  checkmate::assert_character(variables$strata, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">257</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">341</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  hr_vars &lt;- intersect(names(colvars$labels), c("n_tot", "n_tot_events", "hr", "ci", "pval"))</pre>
+                      <pre class="language-r">  assert_df_with_factors(data, list(val = variables$arm), min.levels = 2, max.levels = 2)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">258</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">342</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  colvars_survtime &lt;- list(vars = survtime_vars, labels = colvars$labels[survtime_vars])</pre>
+                      <pre class="language-r">  assert_df_with_variables(data, variables)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">259</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">343</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  colvars_hr &lt;- list(vars = hr_vars, labels = colvars$labels[hr_vars])</pre>
+                      <pre class="language-r">  checkmate::assert_string(label_all)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">260</td>
+                    <td class="num">344</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">261</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">345</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(groups_lists = groups_lists, conf_level = conf_level, method = method)</pre>
+                      <pre class="language-r">  strata_data &lt;- if (is.null(variables$strata)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">262</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">346</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">263</td>
+                    <td class="num">347</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Get analysis function for each statistic</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">264</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">348</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  afun_lst &lt;- a_survival_subgroups(.formats = c(.formats, riskdiff = riskdiff$format), na_str = na_str)</pre>
+                      <pre class="language-r">    data[, variables$strata, drop = FALSE]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</td>
+                    <td class="num">349</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">350</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">266</td>
+                    <td class="num">351</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Add risk difference column</pre>
+                      <pre class="language-r">  # Add All Patients.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">267</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">352</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(riskdiff)) {</pre>
+                      <pre class="language-r">  result_all &lt;- h_odds_ratio_df(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">268</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">353</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.null(riskdiff$arm_x)) riskdiff$arm_x &lt;- levels(df$survtime$arm)[1]</pre>
+                      <pre class="language-r">    rsp = data[[variables$rsp]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">269</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">354</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.null(riskdiff$arm_y)) riskdiff$arm_y &lt;- levels(df$survtime$arm)[2]</pre>
+                      <pre class="language-r">    arm = data[[variables$arm]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">270</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">355</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    colvars_hr$vars &lt;- c(colvars_hr$vars, "riskdiff")</pre>
+                      <pre class="language-r">    strata_data = strata_data,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">271</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">356</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    colvars_hr$labels &lt;- c(colvars_hr$labels, riskdiff = riskdiff$col_label)</pre>
+                      <pre class="language-r">    conf_level = conf_level,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">272</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">357</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    arm_cols &lt;- paste(rep(c("n_events", "n_events", "n", "n")), c(riskdiff$arm_x, riskdiff$arm_y), sep = "_")</pre>
+                      <pre class="language-r">    method = method</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">273</td>
+                    <td class="num">358</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">274</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">359</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_prop_diff &lt;- df$survtime %&gt;%</pre>
+                      <pre class="language-r">  result_all$subgroup &lt;- label_all</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">275</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">360</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::select(-"median") %&gt;%</pre>
+                      <pre class="language-r">  result_all$var &lt;- "ALL"</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">276</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">361</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tidyr::pivot_wider(</pre>
+                      <pre class="language-r">  result_all$var_label &lt;- label_all</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">277</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">362</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id_cols = c("subgroup", "var", "var_label", "row_type"),</pre>
+                      <pre class="language-r">  result_all$row_type &lt;- "content"</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">363</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">278</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">364</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        names_from = "arm",</pre>
+                      <pre class="language-r">  if (is.null(variables$subgroups)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">279</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">365</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        values_from = c("n", "n_events")</pre>
+                      <pre class="language-r">    result_all</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">366</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ) %&gt;%</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">281</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">367</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::rowwise() %&gt;%</pre>
+                      <pre class="language-r">    l_data &lt;- h_split_by_subgroups(data, variables$subgroups, groups_lists = groups_lists)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">282</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">368</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::mutate(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">283</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">369</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        riskdiff = stat_propdiff_ci(</pre>
+                      <pre class="language-r">    l_result &lt;- lapply(l_data, function(grp) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">284</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">370</td>
+                    <td class="coverage">62<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = as.list(.data[[arm_cols[1]]]),</pre>
+                      <pre class="language-r">      grp_strata_data &lt;- if (is.null(variables$strata)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">285</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">371</td>
+                    <td class="coverage">54<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          y = as.list(.data[[arm_cols[2]]]),</pre>
+                      <pre class="language-r">        NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">286</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">372</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          N_x = .data[[arm_cols[3]]],</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">287</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">373</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          N_y = .data[[arm_cols[4]]]</pre>
+                      <pre class="language-r">        grp$df[, variables$strata, drop = FALSE]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">374</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">289</td>
+                    <td class="num">375</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ) %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">290</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">376</td>
+                    <td class="coverage">62<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::select(-dplyr::all_of(arm_cols))</pre>
+                      <pre class="language-r">      result &lt;- h_odds_ratio_df(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">291</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">377</td>
+                    <td class="coverage">62<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        rsp = grp$df[[variables$rsp]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">292</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">378</td>
+                    <td class="coverage">62<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df$hr &lt;- df$hr %&gt;%</pre>
+                      <pre class="language-r">        arm = grp$df[[variables$arm]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">293</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">379</td>
+                    <td class="coverage">62<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::left_join(</pre>
+                      <pre class="language-r">        strata_data = grp_strata_data,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">294</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">380</td>
+                    <td class="coverage">62<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        df_prop_diff,</pre>
+                      <pre class="language-r">        conf_level = conf_level,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">295</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">381</td>
+                    <td class="coverage">62<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        by = c("subgroup", "var", "var_label", "row_type")</pre>
+                      <pre class="language-r">        method = method</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">382</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">297</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">383</td>
+                    <td class="coverage">62<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      result_labels &lt;- grp$df_labels[rep(1, times = nrow(result)), ]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">298</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">384</td>
+                    <td class="coverage">62<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      cbind(result, result_labels)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">299</td>
+                    <td class="num">385</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Add columns from table_survtime (optional)</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">300</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">386</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(colvars_survtime$vars) &gt; 0) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">301</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">387</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt_survtime &lt;- split_cols_by(lyt = lyt, var = "arm")</pre>
+                      <pre class="language-r">    result_subgroups &lt;- do.call(rbind, args = c(l_result, make.row.names = FALSE))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">302</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">388</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt_survtime &lt;- split_rows_by(</pre>
+                      <pre class="language-r">    result_subgroups$row_type &lt;- "analysis"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">303</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">389</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt = lyt_survtime,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">304</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">390</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      var = "row_type",</pre>
+                      <pre class="language-r">    rbind(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">305</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">391</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      split_fun = keep_split_levels("content"),</pre>
+                      <pre class="language-r">      result_all,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">306</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">392</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nested = FALSE</pre>
+                      <pre class="language-r">      result_subgroups</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">307</td>
+                    <td class="num">393</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">308</td>
+                    <td class="num">394</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">309</td>
+                    <td class="num">395</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Add "All Patients" row</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">310</td>
-                    <td class="coverage">9<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/g_ipp.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
+                  <tr class="never">
+                    <td class="num">1</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt_survtime &lt;- summarize_row_groups(</pre>
+                      <pre class="language-r">#' Individual patient plots</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">311</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">2</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt = lyt_survtime,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">312</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">3</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      var = "var_label",</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">313</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cfun = afun_lst[names(colvars_survtime$labels)],</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">314</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      na_str = na_str,</pre>
+                      <pre class="language-r">#' Line plot(s) displaying trend in patients' parameter values over time is rendered.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">315</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      extra_args = extra_args</pre>
+                      <pre class="language-r">#' Patients' individual baseline values can be added to the plot(s) as reference.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">316</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">317</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt_survtime &lt;- split_cols_by_multivar(</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">318</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt = lyt_survtime,</pre>
+                      <pre class="language-r">#' @param xvar (`string`)\cr time point variable to be plotted on x-axis.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">319</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vars = colvars_survtime$vars,</pre>
+                      <pre class="language-r">#' @param yvar (`string`)\cr continuous analysis variable to be plotted on y-axis.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">320</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      varlabels = colvars_survtime$labels</pre>
+                      <pre class="language-r">#' @param xlab (`string`)\cr plot label for x-axis.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">321</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' @param ylab (`string`)\cr plot label for y-axis.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">322</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param id_var (`string`)\cr variable used as patient identifier.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">323</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Add analysis rows</pre>
+                      <pre class="language-r">#' @param title (`string`)\cr title for plot.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">324</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">15</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if ("analysis" %in% df$survtime$row_type) {</pre>
+                      <pre class="language-r">#' @param subtitle (`string`)\cr subtitle for plot.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">325</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">16</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt_survtime &lt;- split_rows_by(</pre>
+                      <pre class="language-r">#' @param add_baseline_hline (`flag`)\cr adds horizontal line at baseline y-value on</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">326</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        lyt = lyt_survtime,</pre>
+                      <pre class="language-r">#'   plot when `TRUE`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">327</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        var = "row_type",</pre>
+                      <pre class="language-r">#' @param yvar_baseline (`string`)\cr variable with baseline values only.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">328</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        split_fun = keep_split_levels("analysis"),</pre>
+                      <pre class="language-r">#'   Ignored when `add_baseline_hline` is `FALSE`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">329</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">20</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nested = FALSE,</pre>
+                      <pre class="language-r">#' @param ggtheme (`theme`)\cr optional graphical theme function as provided</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">330</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        child_labels = "hidden"</pre>
+                      <pre class="language-r">#'   by `ggplot2` to control outlook of plot. Use `ggplot2::theme()` to tweak the display.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">331</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' @param plotting_choices (`string`)\cr specifies options for displaying</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">332</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">23</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt_survtime &lt;- split_rows_by(lyt = lyt_survtime, var = "var_label", nested = TRUE)</pre>
+                      <pre class="language-r">#'   plots. Must be one of `"all_in_one"`, `"split_by_max_obs"`, or `"separate_by_obs"`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">333</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt_survtime &lt;- analyze_colvars(</pre>
+                      <pre class="language-r">#' @param max_obs_per_plot (`integer(1)`)\cr number of observations to be plotted on one</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">334</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">25</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        lyt = lyt_survtime,</pre>
+                      <pre class="language-r">#'   plot. Ignored if `plotting_choices` is not `"separate_by_obs"`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">335</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">26</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        afun = afun_lst[names(colvars_survtime$labels)],</pre>
+                      <pre class="language-r">#' @param caption (`string`)\cr optional caption below the plot.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">336</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">27</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        na_str = na_str,</pre>
+                      <pre class="language-r">#' @param col (`character`)\cr line colors.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">337</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">28</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        inclNAs = TRUE,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">338</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">29</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        extra_args = extra_args</pre>
+                      <pre class="language-r">#' @seealso Relevant helper function [h_g_ipp()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">339</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">340</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' @name g_ipp</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">341</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @aliases individual_patient_plot</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">342</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">33</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table_survtime &lt;- build_table(lyt_survtime, df = df$survtime)</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">343</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">344</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">35</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table_survtime &lt;- NULL</pre>
+                      <pre class="language-r">#' Helper function to create simple line plot over time</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">345</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">346</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">347</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Add columns from table_hr ("n_tot_events" or "n_tot", "or" and "ci" required)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">348</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">39</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lyt_hr &lt;- split_cols_by(lyt = lyt, var = "arm")</pre>
+                      <pre class="language-r">#' Function that generates a simple line plot displaying parameter trends over time.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">349</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">40</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lyt_hr &lt;- split_rows_by(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">350</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">41</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt = lyt_hr,</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">351</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">42</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var = "row_type",</pre>
+                      <pre class="language-r">#' @inheritParams g_ipp</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">352</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">43</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    split_fun = keep_split_levels("content"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">353</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">44</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nested = FALSE</pre>
+                      <pre class="language-r">#' @return A `ggplot` line plot.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">354</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">355</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">46</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lyt_hr &lt;- summarize_row_groups(</pre>
+                      <pre class="language-r">#' @seealso [g_ipp()] which uses this function.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">356</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">47</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt = lyt_hr,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">357</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">48</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var = "var_label",</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">358</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">49</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    cfun = afun_lst[names(colvars_hr$labels)],</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">359</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">50</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">#' library(nestcolor)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">360</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">51</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args = extra_args</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">361</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' # Select a small sample of data to plot.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">362</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">53</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lyt_hr &lt;- split_cols_by_multivar(</pre>
+                      <pre class="language-r">#' adlb &lt;- tern_ex_adlb %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">363</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">54</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt = lyt_hr,</pre>
+                      <pre class="language-r">#'   filter(PARAMCD == "ALT", !(AVISIT %in% c("SCREENING", "BASELINE"))) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">364</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">55</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars = colvars_hr$vars,</pre>
+                      <pre class="language-r">#'   slice(1:36)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">365</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">56</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    varlabels = colvars_hr$labels</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">366</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ) %&gt;%</pre>
+                      <pre class="language-r">#' p &lt;- h_g_ipp(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">367</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">58</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    append_topleft("Baseline Risk Factors")</pre>
+                      <pre class="language-r">#'   df = adlb,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">368</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   xvar = "AVISIT",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">369</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Add analysis rows</pre>
+                      <pre class="language-r">#'   yvar = "AVAL",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">370</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">61</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if ("analysis" %in% df$survtime$row_type) {</pre>
+                      <pre class="language-r">#'   xlab = "Visit",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">371</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">62</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt_hr &lt;- split_rows_by(</pre>
+                      <pre class="language-r">#'   id_var = "USUBJID",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">372</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">63</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt = lyt_hr,</pre>
+                      <pre class="language-r">#'   ylab = "SGOT/ALT (U/L)",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">373</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">64</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      var = "row_type",</pre>
+                      <pre class="language-r">#'   add_baseline_hline = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">374</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">65</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      split_fun = keep_split_levels("analysis"),</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">375</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">66</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nested = FALSE,</pre>
+                      <pre class="language-r">#' p</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">376</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">67</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      child_labels = "hidden"</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">377</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">378</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">69</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt_hr &lt;- split_rows_by(lyt = lyt_hr, var = "var_label", nested = TRUE)</pre>
+                      <pre class="language-r">h_g_ipp &lt;- function(df,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">379</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt_hr &lt;- analyze_colvars(</pre>
+                      <pre class="language-r">                    xvar,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">380</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">71</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt = lyt_hr,</pre>
+                      <pre class="language-r">                    yvar,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">381</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">72</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      afun = afun_lst[names(colvars_hr$labels)],</pre>
+                      <pre class="language-r">                    xlab,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">382</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">73</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      na_str = na_str,</pre>
+                      <pre class="language-r">                    ylab,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">383</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">74</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      inclNAs = TRUE,</pre>
+                      <pre class="language-r">                    id_var,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">384</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">75</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      extra_args = extra_args</pre>
+                      <pre class="language-r">                    title = "Individual Patient Plots",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">385</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">                    subtitle = "",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">386</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                    caption = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">387</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                    add_baseline_hline = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">388</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">79</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  table_hr &lt;- build_table(lyt_hr, df = df$hr)</pre>
+                      <pre class="language-r">                    yvar_baseline = "BASE",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">389</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                    ggtheme = nestcolor::theme_nest(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">390</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Join tables, add forest plot attributes</pre>
+                      <pre class="language-r">                    col = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">391</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">82</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n_tot_ids &lt;- grep("^n_tot", colvars_hr$vars)</pre>
+                      <pre class="language-r">  checkmate::assert_string(xvar)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">392</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">83</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(table_survtime)) {</pre>
+                      <pre class="language-r">  checkmate::assert_string(yvar)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">393</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">84</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result &lt;- table_hr</pre>
+                      <pre class="language-r">  checkmate::assert_string(yvar_baseline)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">394</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">85</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    hr_id &lt;- match("hr", colvars_hr$vars)</pre>
+                      <pre class="language-r">  checkmate::assert_string(id_var)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">395</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">86</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ci_id &lt;- match("ci", colvars_hr$vars)</pre>
+                      <pre class="language-r">  checkmate::assert_string(xlab)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">396</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">87</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">  checkmate::assert_string(ylab)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">397</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">88</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result &lt;- cbind_rtables(table_hr[, n_tot_ids], table_survtime, table_hr[, -n_tot_ids])</pre>
+                      <pre class="language-r">  checkmate::assert_string(title)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">398</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">89</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    hr_id &lt;- length(n_tot_ids) + ncol(table_survtime) + match("hr", colvars_hr$vars[-n_tot_ids])</pre>
+                      <pre class="language-r">  checkmate::assert_string(subtitle)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">399</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">90</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ci_id &lt;- length(n_tot_ids) + ncol(table_survtime) + match("ci", colvars_hr$vars[-n_tot_ids])</pre>
+                      <pre class="language-r">  checkmate::assert_subset(c(xvar, yvar, yvar_baseline, id_var), colnames(df))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">400</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">91</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n_tot_ids &lt;- seq_along(n_tot_ids)</pre>
+                      <pre class="language-r">  checkmate::assert_data_frame(df)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">401</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">92</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  checkmate::assert_flag(add_baseline_hline)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">402</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">93</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  structure(</pre>
+                      <pre class="language-r">  checkmate::assert_character(col, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">403</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">94</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">404</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">95</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    forest_header = paste0(rev(levels(df$survtime$arm)), "\nBetter"),</pre>
+                      <pre class="language-r">  p &lt;- ggplot2::ggplot(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">405</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">96</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    col_x = hr_id,</pre>
+                      <pre class="language-r">    data = df,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">406</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">97</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    col_ci = ci_id,</pre>
+                      <pre class="language-r">    mapping = ggplot2::aes(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">407</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">98</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    col_symbol_size = n_tot_ids[1] # for scaling the symbol sizes in forest plots</pre>
+                      <pre class="language-r">      x = .data[[xvar]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">408</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">99</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      y = .data[[yvar]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">409</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">100</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      group = .data[[id_var]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">410</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">101</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      colour = .data[[id_var]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">411</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Labels for column variables in survival duration by subgroup table</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">412</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  ) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">413</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">104</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">    ggplot2::geom_line(linewidth = 0.4) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">414</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">105</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    ggplot2::geom_point(size = 2) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">415</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">106</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Internal function to check variables included in [tabulate_survival_subgroups()] and create column labels.</pre>
+                      <pre class="language-r">    ggplot2::labs(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">416</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">107</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      x = xlab,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">417</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">108</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams tabulate_survival_subgroups</pre>
+                      <pre class="language-r">      y = ylab,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">418</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">109</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">      title = title,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">419</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">110</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param method (`string`)\cr p-value method for testing hazard ratio = 1.</pre>
+                      <pre class="language-r">      subtitle = subtitle,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">420</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">111</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      caption = caption</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">421</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `list` of variables and their labels to tabulate.</pre>
+                      <pre class="language-r">    ) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">422</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">113</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">423</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note At least one of `n_tot` and `n_tot_events` must be provided in `vars`.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">424</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">115</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if (add_baseline_hline) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">425</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">116</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    baseline_df &lt;- df[, c(id_var, yvar_baseline)]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">426</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">117</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">d_survival_subgroups_colvars &lt;- function(vars,</pre>
+                      <pre class="language-r">    baseline_df &lt;- unique(baseline_df)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">427</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         conf_level,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">428</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">119</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         method,</pre>
+                      <pre class="language-r">    p &lt;- p +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">429</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">120</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         time_unit = NULL) {</pre>
+                      <pre class="language-r">      ggplot2::geom_hline(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">430</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">121</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(vars)</pre>
+                      <pre class="language-r">        data = baseline_df,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">431</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">122</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(time_unit, null.ok = TRUE)</pre>
+                      <pre class="language-r">        mapping = ggplot2::aes(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">432</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">123</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(c("hr", "ci"), vars)</pre>
+                      <pre class="language-r">          yintercept = .data[[yvar_baseline]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">433</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">124</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(any(c("n_tot", "n_tot_events") %in% vars))</pre>
+                      <pre class="language-r">          colour = .data[[id_var]]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">434</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">125</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">435</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">126</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars,</pre>
+                      <pre class="language-r">        linetype = "dotdash",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">436</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">127</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c("n", "n_events", "median", "n_tot", "n_tot_events", "hr", "ci", "pval")</pre>
+                      <pre class="language-r">        linewidth = 0.4</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">437</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      ) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">438</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">129</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      ggplot2::geom_text(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">439</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">130</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  propcase_time_label &lt;- if (!is.null(time_unit)) {</pre>
+                      <pre class="language-r">        data = baseline_df,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">440</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="num">131</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste0("Median (", time_unit, ")")</pre>
+                      <pre class="language-r">        mapping = ggplot2::aes(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">441</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">132</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">          x = 1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">442</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">133</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "Median"</pre>
+                      <pre class="language-r">          y = .data[[yvar_baseline]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">443</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">134</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">          label = .data[[id_var]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">444</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">135</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          colour = .data[[id_var]]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">445</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">136</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  varlabels &lt;- c(</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">446</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">137</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n = "n",</pre>
+                      <pre class="language-r">        nudge_y = 0.025 * (max(df[, yvar], na.rm = TRUE) - min(df[, yvar], na.rm = TRUE)),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">447</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">138</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n_events = "Events",</pre>
+                      <pre class="language-r">        vjust = "right",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">448</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">139</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    median = propcase_time_label,</pre>
+                      <pre class="language-r">        size = 2</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">449</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">140</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n_tot = "Total n",</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">450</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">141</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n_tot_events = "Total Events",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">451</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">142</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    hr = "Hazard Ratio",</pre>
+                      <pre class="language-r">    if (!is.null(col)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">452</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">143</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ci = paste0(100 * conf_level, "% Wald CI"),</pre>
+                      <pre class="language-r">      p &lt;- p +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">453</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">144</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pval = method</pre>
+                      <pre class="language-r">        ggplot2::scale_color_manual(values = col)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">454</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">455</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">456</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">147</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  colvars &lt;- vars</pre>
+                      <pre class="language-r">  p</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">457</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">458</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # The `lcl` variable is just a placeholder available in the analysis data,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">459</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # it is not acutally used in the tabulation.</pre>
+                      <pre class="language-r">#' @describeIn g_ipp Plotting function for individual patient plots which, depending on user</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">460</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Variables used in the tabulation are lcl and ucl, see `a_survival_subgroups` for details.</pre>
+                      <pre class="language-r">#'   preference, renders a single graphic or compiles a list of graphics that show trends in individual's parameter</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">461</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">152</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  colvars[colvars == "ci"] &lt;- "lcl"</pre>
+                      <pre class="language-r">#'   values over time.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">462</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">463</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">154</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">#' @return A `ggplot` object or a list of `ggplot` objects.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">464</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">155</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars = colvars,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">465</td>
-                    <td class="coverage">21<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">156</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    labels = varlabels[vars]</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">466</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">467</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' library(nestcolor)</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/g_lineplot.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Line plot with optional table</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' # Select a small sample of data to plot.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' adlb &lt;- tern_ex_adlb %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   filter(PARAMCD == "ALT", !(AVISIT %in% c("SCREENING", "BASELINE"))) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Line plot with the optional table.</pre>
+                      <pre class="language-r">#'   slice(1:36)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' plot_list &lt;- g_ipp(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param alt_counts_df (`data.frame` or `NULL`)\cr data set that will be used (only)</pre>
+                      <pre class="language-r">#'   df = adlb,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to counts objects in groups for stratification.</pre>
+                      <pre class="language-r">#'   xvar = "AVISIT",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param variables (named `character`) vector of variable names in `df` which should include:</pre>
+                      <pre class="language-r">#'   yvar = "AVAL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `x` (`string`)\cr name of x-axis variable.</pre>
+                      <pre class="language-r">#'   xlab = "Visit",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `y` (`string`)\cr name of y-axis variable.</pre>
+                      <pre class="language-r">#'   ylab = "SGOT/ALT (U/L)",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `group_var` (`string` or `NULL`)\cr name of grouping variable (or strata), i.e. treatment arm.</pre>
+                      <pre class="language-r">#'   title = "Individual Patient Plots",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     Can be `NA` to indicate lack of groups.</pre>
+                      <pre class="language-r">#'   add_baseline_hline = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `subject_var` (`string` or `NULL`)\cr name of subject variable. Only applies if `group_var` is</pre>
+                      <pre class="language-r">#'   plotting_choices = "split_by_max_obs",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'      not NULL.</pre>
+                      <pre class="language-r">#'   max_obs_per_plot = 5</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `paramcd` (`string` or `NA`)\cr name of the variable for parameter's code. Used for y-axis label and plot's</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     subtitle. Can be `NA` if `paramcd` is not to be added to the y-axis label or subtitle.</pre>
+                      <pre class="language-r">#' plot_list</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `y_unit` (`string` or `NA`)\cr name of variable with units of `y`. Used for y-axis label and plot's subtitle.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     Can be `NA` if y unit is not to be added to the y-axis label or subtitle.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `facet_var` (`string` or `NA`)\cr name of the secondary grouping variable used for plot faceting, i.e. treatment</pre>
+                      <pre class="language-r">g_ipp &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     arm. Can be `NA` to indicate lack of groups.</pre>
+                      <pre class="language-r">                  xvar,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param mid (`character` or `NULL`)\cr names of the statistics that will be plotted as midpoints.</pre>
+                      <pre class="language-r">                  yvar,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   All the statistics indicated in `mid` variable must be present in the object returned by `sfun`,</pre>
+                      <pre class="language-r">                  xlab,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and be of a `double` or `numeric` type vector of length one.</pre>
+                      <pre class="language-r">                  ylab,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param interval (`character` or `NULL`)\cr names of the statistics that will be plotted as intervals.</pre>
+                      <pre class="language-r">                  id_var = "USUBJID",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   All the statistics indicated in `interval` variable must be present in the object returned by `sfun`,</pre>
+                      <pre class="language-r">                  title = "Individual Patient Plots",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and be of a `double` or `numeric` type vector of length two. Set `interval = NULL` if intervals should not be</pre>
+                      <pre class="language-r">                  subtitle = "",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   added to the plot.</pre>
+                      <pre class="language-r">                  caption = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param whiskers (`character`)\cr names of the interval whiskers that will be plotted. Names must match names</pre>
+                      <pre class="language-r">                  add_baseline_hline = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   of the list element `interval` that will be returned by `sfun` (e.g. `mean_ci_lwr` element of</pre>
+                      <pre class="language-r">                  yvar_baseline = "BASE",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `sfun(x)[["mean_ci"]]`). It is possible to specify one whisker only, or to suppress all whiskers by setting</pre>
+                      <pre class="language-r">                  ggtheme = nestcolor::theme_nest(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `interval = NULL`.</pre>
+                      <pre class="language-r">                  plotting_choices = c("all_in_one", "split_by_max_obs", "separate_by_obs"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param table (`character` or `NULL`)\cr names of the statistics that will be displayed in the table below the plot.</pre>
+                      <pre class="language-r">                  max_obs_per_plot = 4,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   All the statistics indicated in `table` variable must be present in the object returned by `sfun`.</pre>
+                      <pre class="language-r">                  col = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">194</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param sfun (`function`)\cr the function to compute the values of required statistics. It must return a named `list`</pre>
+                      <pre class="language-r">  checkmate::assert_count(max_obs_per_plot)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">195</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   with atomic vectors. The names of the `list` elements refer to the names of the statistics and are used by `mid`,</pre>
+                      <pre class="language-r">  checkmate::assert_subset(plotting_choices, c("all_in_one", "split_by_max_obs", "separate_by_obs"))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">196</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_character(col, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `interval`, `table`. It must be able to accept as input a vector with data for which statistics are computed.</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">198</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  plotting_choices &lt;- match.arg(plotting_choices)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... optional arguments to `sfun`.</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">200</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (plotting_choices == "all_in_one") {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">201</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    p &lt;- h_g_ipp(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">202</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      df = df,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">203</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      xvar = xvar,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">204</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      yvar = yvar,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">205</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      xlab = xlab,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">206</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      ylab = ylab,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">207</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      id_var = id_var,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">208</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      title = title,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">209</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      subtitle = subtitle,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">210</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      caption = caption,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">211</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      add_baseline_hline = add_baseline_hline,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">212</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      yvar_baseline = yvar_baseline,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">213</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param mid_type (`string`)\cr controls the type of the `mid` plot, it can be point (`"p"`), line (`"l"`),</pre>
+                      <pre class="language-r">      ggtheme = ggtheme,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">214</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or point and line (`"pl"`).</pre>
+                      <pre class="language-r">      col = col</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param mid_point_size (`numeric(1)`)\cr font size of the `mid` plot points.</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param position (`character` or `call`)\cr geom element position adjustment, either as a string, or the result of</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">217</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   a call to a position adjustment function.</pre>
+                      <pre class="language-r">    return(p)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">218</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param legend_title (`string`)\cr legend title.</pre>
+                      <pre class="language-r">  } else if (plotting_choices == "split_by_max_obs") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">219</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param legend_position (`string`)\cr the position of the plot legend (`"none"`, `"left"`, `"right"`, `"bottom"`,</pre>
+                      <pre class="language-r">    id_vec &lt;- unique(df[[id_var]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">220</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `"top"`, or a two-element numeric vector).</pre>
+                      <pre class="language-r">    id_list &lt;- split(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">221</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ggtheme (`theme`)\cr a graphical theme as provided by `ggplot2` to control styling of the plot.</pre>
+                      <pre class="language-r">      id_vec,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">222</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param xticks (`numeric` or `NULL`)\cr numeric vector of tick positions or a single number with spacing</pre>
+                      <pre class="language-r">      rep(1:ceiling(length(id_vec) / max_obs_per_plot),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">223</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   between ticks on the x-axis, for use when `variables$x` is numeric. If `NULL` (default), [labeling::extended()] is</pre>
+                      <pre class="language-r">        each = max_obs_per_plot,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">224</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   used to determine optimal tick positions on the x-axis. If `variables$x` is not numeric, this argument is ignored.</pre>
+                      <pre class="language-r">        length.out = length(id_vec)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x_lab (`string` or `NULL`)\cr x-axis label. If `NULL` then no label will be added.</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param y_lab (`string` or `NULL`)\cr y-axis label. If `NULL` then no label will be added.</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param y_lab_add_paramcd (`flag`)\cr whether `paramcd`, i.e. `unique(df[[variables["paramcd"]]])` should be added</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">55</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">228</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to the y-axis label (`y_lab`).</pre>
+                      <pre class="language-r">    df_list &lt;- list()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">229</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param y_lab_add_unit (`flag`)\cr whether y-axis unit, i.e. `unique(df[[variables["y_unit"]]])` should be added</pre>
+                      <pre class="language-r">    plot_list &lt;- list()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to the y-axis label (`y_lab`).</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">231</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param title (`string`)\cr plot title.</pre>
+                      <pre class="language-r">    for (i in seq_along(id_list)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">232</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param subtitle (`string`)\cr plot subtitle.</pre>
+                      <pre class="language-r">      df_list[[i]] &lt;- df[df[[id_var]] %in% id_list[[i]], ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param subtitle_add_paramcd (`flag`)\cr whether `paramcd`, i.e. `unique(df[[variables["paramcd"]]])` should be</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">234</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   added to the plot's subtitle (`subtitle`).</pre>
+                      <pre class="language-r">      plots &lt;- h_g_ipp(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">235</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param subtitle_add_unit (`flag`)\cr whether the y-axis unit, i.e. `unique(df[[variables["y_unit"]]])` should be</pre>
+                      <pre class="language-r">        df = df_list[[i]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">236</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   added to the plot's subtitle (`subtitle`).</pre>
+                      <pre class="language-r">        xvar = xvar,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">64</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">237</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param caption (`string`)\cr optional caption below the plot.</pre>
+                      <pre class="language-r">        yvar = yvar,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">238</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param table_format (named `character` or `NULL`)\cr format patterns for descriptive statistics used in the</pre>
+                      <pre class="language-r">        xlab = xlab,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">66</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">239</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   (optional) table appended to the plot. It is passed directly to the `h_format_row` function through the `format`</pre>
+                      <pre class="language-r">        ylab = ylab,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">240</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   parameter. Names of `table_format` must match the names of statistics returned by `sfun` function.</pre>
+                      <pre class="language-r">        id_var = id_var,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">68</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">241</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param table_labels (named `character` or `NULL`)\cr labels for descriptive statistics used in the (optional) table</pre>
+                      <pre class="language-r">        title = title,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">242</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   appended to the plot. Names of `table_labels` must match the names of statistics returned by `sfun` function.</pre>
+                      <pre class="language-r">        subtitle = subtitle,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">70</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">243</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param table_font_size (`numeric(1)`)\cr font size of the text in the table.</pre>
+                      <pre class="language-r">        caption = caption,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">244</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param newpage `r lifecycle::badge("deprecated")` not used.</pre>
+                      <pre class="language-r">        add_baseline_hline = add_baseline_hline,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">72</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">245</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param col (`character`)\cr color(s). See `?ggplot2::aes_colour_fill_alpha` for example values.</pre>
+                      <pre class="language-r">        yvar_baseline = yvar_baseline,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">73</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">246</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param linetype (`character`)\cr line type(s). See `?ggplot2::aes_linetype_size_shape` for example values.</pre>
+                      <pre class="language-r">        ggtheme = ggtheme,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">247</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param errorbar_width (`numeric(1)`)\cr width of the error bars.</pre>
+                      <pre class="language-r">        col = col</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `ggplot` line plot (and statistics table if applicable).</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">77</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">250</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      plot_list[[i]] &lt;- plots</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">79</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">252</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(nestcolor)</pre>
+                      <pre class="language-r">    return(plot_list)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">81</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">254</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adsl &lt;- tern_ex_adsl</pre>
+                      <pre class="language-r">    ind_df &lt;- split(df, df[[id_var]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">255</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adlb &lt;- tern_ex_adlb %&gt;% dplyr::filter(ANL01FL == "Y", PARAMCD == "ALT", AVISIT != "SCREENING")</pre>
+                      <pre class="language-r">    plot_list &lt;- lapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">83</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">256</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adlb$AVISIT &lt;- droplevels(adlb$AVISIT)</pre>
+                      <pre class="language-r">      ind_df,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">84</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">257</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adlb &lt;- dplyr::mutate(adlb, AVISIT = forcats::fct_reorder(AVISIT, AVISITN, min))</pre>
+                      <pre class="language-r">      function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">258</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        h_g_ipp(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">86</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">259</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Mean with CI</pre>
+                      <pre class="language-r">          df = x,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">87</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">260</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_lineplot(adlb, adsl, subtitle = "Laboratory Test:")</pre>
+                      <pre class="language-r">          xvar = xvar,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">88</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">261</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          yvar = yvar,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">89</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">262</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Mean with CI, no stratification with group_var</pre>
+                      <pre class="language-r">          xlab = xlab,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">90</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">263</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_lineplot(adlb, variables = control_lineplot_vars(group_var = NA))</pre>
+                      <pre class="language-r">          ylab = ylab,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">91</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">264</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          id_var = id_var,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">92</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">265</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Mean, upper whisker of CI, no group_var(strata) counts N</pre>
+                      <pre class="language-r">          title = title,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">93</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">266</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_lineplot(</pre>
+                      <pre class="language-r">          subtitle = subtitle,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">94</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">267</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   adlb,</pre>
+                      <pre class="language-r">          caption = caption,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">95</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">268</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   whiskers = "mean_ci_upr",</pre>
+                      <pre class="language-r">          add_baseline_hline = add_baseline_hline,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">96</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">269</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   title = "Plot of Mean and Upper 95% Confidence Limit by Visit"</pre>
+                      <pre class="language-r">          yvar_baseline = yvar_baseline,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">97</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">270</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">          ggtheme = ggtheme,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">98</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">271</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          col = col</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">272</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Median with CI</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">273</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_lineplot(</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">274</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   adlb,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">275</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   adsl,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">103</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">276</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mid = "median",</pre>
+                      <pre class="language-r">    return(plot_list)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">277</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   interval = "median_ci",</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   whiskers = c("median_ci_lwr", "median_ci_upr"),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/h_cox_regression.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   title = "Plot of Median and 95% Confidence Limits by Visit"</pre>
+                      <pre class="language-r">#' Helper functions for Cox proportional hazards regression</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Mean, +/- SD</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_lineplot(adlb, adsl,</pre>
+                      <pre class="language-r">#' Helper functions used in [fit_coxreg_univar()] and [fit_coxreg_multivar()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   interval = "mean_sdi",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   whiskers = c("mean_sdi_lwr", "mean_sdi_upr"),</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   title = "Plot of Median +/- SD by Visit"</pre>
+                      <pre class="language-r">#' @inheritParams h_coxreg_univar_extract</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' @inheritParams cox_regression_inter</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @inheritParams control_coxreg</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Mean with CI plot with stats table</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_lineplot(adlb, adsl, table = c("n", "mean", "mean_ci"))</pre>
+                      <pre class="language-r">#' @seealso [cox_regression]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Mean with CI, table and customized confidence level</pre>
+                      <pre class="language-r">#' @name h_cox_regression</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_lineplot(</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   adlb,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   adsl,</pre>
+                      <pre class="language-r">#' @describeIn h_cox_regression Helper for Cox regression formula. Creates a list of formulas. It is used</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   table = c("n", "mean", "mean_ci"),</pre>
+                      <pre class="language-r">#'   internally by [fit_coxreg_univar()] for the comparison of univariate Cox regression models.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   control = control_analyze_vars(conf_level = 0.80),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   title = "Plot of Mean and 80% Confidence Limits by Visit"</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' * `h_coxreg_univar_formulas()` returns a `character` vector coercible into formulas (e.g [stats::as.formula()]).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Mean with CI, table, filtered data</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adlb_f &lt;- dplyr::filter(adlb, ARMCD != "ARM A" | AVISIT == "BASELINE")</pre>
+                      <pre class="language-r">#' # `h_coxreg_univar_formulas`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_lineplot(adlb_f, table = c("n", "mean"))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' ## Simple formulas.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' h_coxreg_univar_formulas(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">g_lineplot &lt;- function(df,</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       alt_counts_df = NULL,</pre>
+                      <pre class="language-r">#'     time = "time", event = "status", arm = "armcd", covariates = c("X", "y")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       variables = control_lineplot_vars(),</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       mid = "mean",</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       interval = "mean_ci",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       whiskers = c("mean_ci_lwr", "mean_ci_upr"),</pre>
+                      <pre class="language-r">#' ## Addition of an optional strata.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       table = NULL,</pre>
+                      <pre class="language-r">#' h_coxreg_univar_formulas(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       sfun = s_summary,</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       ...,</pre>
+                      <pre class="language-r">#'     time = "time", event = "status", arm = "armcd", covariates = c("X", "y"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       mid_type = "pl",</pre>
+                      <pre class="language-r">#'     strata = "SITE"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       mid_point_size = 2,</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       position = ggplot2::position_dodge(width = 0.4),</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       legend_title = NULL,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       legend_position = "bottom",</pre>
+                      <pre class="language-r">#' ## Inclusion of the interaction term.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       ggtheme = nestcolor::theme_nest(),</pre>
+                      <pre class="language-r">#' h_coxreg_univar_formulas(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       xticks = NULL,</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       xlim = NULL,</pre>
+                      <pre class="language-r">#'     time = "time", event = "status", arm = "armcd", covariates = c("X", "y"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       ylim = NULL,</pre>
+                      <pre class="language-r">#'     strata = "SITE"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       x_lab = obj_label(df[[variables[["x"]]]]),</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       y_lab = NULL,</pre>
+                      <pre class="language-r">#'   interaction = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       y_lab_add_paramcd = TRUE,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       y_lab_add_unit = TRUE,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       title = "Plot of Mean and 95% Confidence Limits by Visit",</pre>
+                      <pre class="language-r">#' ## Only covariates fitted in separate models.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       subtitle = "",</pre>
+                      <pre class="language-r">#' h_coxreg_univar_formulas(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       subtitle_add_paramcd = TRUE,</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       subtitle_add_unit = TRUE,</pre>
+                      <pre class="language-r">#'     time = "time", event = "status", covariates = c("X", "y")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       caption = NULL,</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       table_format = NULL,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       table_labels = NULL,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       table_font_size = 3,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       errorbar_width = 0.45,</pre>
+                      <pre class="language-r">h_coxreg_univar_formulas &lt;- function(variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       newpage = lifecycle::deprecated(),</pre>
+                      <pre class="language-r">                                     interaction = FALSE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">165</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">60</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       col = NULL,</pre>
+                      <pre class="language-r">  checkmate::assert_list(variables, names = "named")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">166</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">61</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                       linetype = NULL) {</pre>
+                      <pre class="language-r">  has_arm &lt;- "arm" %in% names(variables)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">62</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(variables, any.missing = TRUE)</pre>
+                      <pre class="language-r">  arm_name &lt;- if (has_arm) "arm" else NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">63</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(mid, null.ok = TRUE)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">64</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(interval, null.ok = TRUE)</pre>
+                      <pre class="language-r">  checkmate::assert_character(variables$covariates, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">65</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(col, null.ok = TRUE)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">66</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(linetype, null.ok = TRUE)</pre>
+                      <pre class="language-r">  checkmate::assert_flag(interaction)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">67</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(xticks, null.ok = TRUE)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">68</td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(xlim, finite = TRUE, any.missing = FALSE, len = 2, sorted = TRUE, null.ok = TRUE)</pre>
+                      <pre class="language-r">  if (!has_arm || is.null(variables$covariates)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">69</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(ylim, finite = TRUE, any.missing = FALSE, len = 2, sorted = TRUE, null.ok = TRUE)</pre>
+                      <pre class="language-r">    checkmate::assert_false(interaction)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(errorbar_width, lower = 0)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">71</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(title, null.ok = TRUE)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">177</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">72</td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(subtitle, null.ok = TRUE)</pre>
+                      <pre class="language-r">  assert_list_of_variables(variables[c(arm_name, "event", "time")])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">74</td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(table)) {</pre>
+                      <pre class="language-r">  if (!is.null(variables$covariates)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">75</td>
+                    <td class="coverage">47<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table_format &lt;- get_formats_from_stats(table)</pre>
+                      <pre class="language-r">    forms &lt;- paste0(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">181</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">76</td>
+                    <td class="coverage">47<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table_labels &lt;- get_labels_from_stats(table)</pre>
+                      <pre class="language-r">      "survival::Surv(", variables$time, ", ", variables$event, ") ~ ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">182</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">77</td>
+                    <td class="coverage">47<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      ifelse(has_arm, variables$arm, "1"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">183</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">78</td>
+                    <td class="coverage">47<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      ifelse(interaction, " * ", " + "),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">79</td>
+                    <td class="coverage">47<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(...)</pre>
+                      <pre class="language-r">      variables$covariates,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">80</td>
+                    <td class="coverage">47<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if ("control" %in% names(extra_args)) {</pre>
+                      <pre class="language-r">      ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">81</td>
+                    <td class="coverage">47<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.null(table) &amp;&amp; all(table_labels == get_labels_from_stats(table))) {</pre>
+                      <pre class="language-r">        !is.null(variables$strata),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">82</td>
+                    <td class="coverage">47<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      table_labels &lt;- table_labels %&gt;% labels_use_control(extra_args[["control"]])</pre>
+                      <pre class="language-r">        paste0(" + strata(", paste0(variables$strata, collapse = ", "), ")"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">        ""</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">86</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.character(interval)) {</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">87</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_vector(whiskers, min.len = 0, max.len = 2)</pre>
+                      <pre class="language-r">    forms &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">194</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">89</td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  nams &lt;- variables$covariates</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">90</td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(whiskers) == 1) {</pre>
+                      <pre class="language-r">  if (has_arm) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">196</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">91</td>
+                    <td class="coverage">41<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_character(mid)</pre>
+                      <pre class="language-r">    ref &lt;- paste0(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">197</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">92</td>
+                    <td class="coverage">41<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      "survival::Surv(", variables$time, ", ", variables$event, ") ~ ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">198</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">93</td>
+                    <td class="coverage">41<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      variables$arm,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">94</td>
+                    <td class="coverage">41<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.character(mid)) {</pre>
+                      <pre class="language-r">      ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">200</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">95</td>
+                    <td class="coverage">41<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_scalar(mid_type)</pre>
+                      <pre class="language-r">        !is.null(variables$strata),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">201</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">96</td>
+                    <td class="coverage">41<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_subset(mid_type, c("pl", "p", "l"))</pre>
+                      <pre class="language-r">        paste0(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">97</td>
+                    <td class="coverage">41<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          " + strata(", paste0(variables$strata, collapse = ", "), ")"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        ""</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">204</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">100</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x &lt;- variables[["x"]]</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">101</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- variables[["y"]]</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">102</td>
+                    <td class="coverage">41<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  paramcd &lt;- variables["paramcd"] # NA if paramcd == NA or it is not in variables</pre>
+                      <pre class="language-r">    forms &lt;- c(ref, forms)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">103</td>
+                    <td class="coverage">41<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y_unit &lt;- variables["y_unit"] # NA if y_unit == NA or it is not in variables</pre>
+                      <pre class="language-r">    nams &lt;- c("ref", nams)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">104</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.na(variables["group_var"])) {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">209</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">105</td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    group_var &lt;- NULL # NULL if group_var == NA or it is not in variables</pre>
+                      <pre class="language-r">  stats::setNames(forms, nams)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">107</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    group_var &lt;- variables[["group_var"]]</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">212</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">108</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    subject_var &lt;- variables[["subject_var"]]</pre>
+                      <pre class="language-r">#' @describeIn h_cox_regression Helper for multivariate Cox regression formula. Creates a formulas</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   string. It is used internally by [fit_coxreg_multivar()] for the comparison of multivariate Cox</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">214</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">110</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.na(variables["facet_var"])) {</pre>
+                      <pre class="language-r">#'   regression models. Interactions will not be included in multivariate Cox regression model.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">111</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    facet_var &lt;- NULL # NULL if facet_var == NA or it is not in variables</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">217</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">113</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    facet_var &lt;- variables[["facet_var"]]</pre>
+                      <pre class="language-r">#' * `h_coxreg_multivar_formula()` returns a `string` coercible into a formula (e.g [stats::as.formula()]).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">218</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">115</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(y_lab_add_paramcd, null.ok = TRUE)</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">116</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(subtitle_add_paramcd, null.ok = TRUE)</pre>
+                      <pre class="language-r">#' # `h_coxreg_multivar_formula`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">221</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">117</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if ((!is.null(y_lab) &amp;&amp; y_lab_add_paramcd) || (!is.null(subtitle) &amp;&amp; subtitle_add_paramcd)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">118</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_false(is.na(paramcd))</pre>
+                      <pre class="language-r">#' h_coxreg_multivar_formula(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">119</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_scalar(unique(df[[paramcd]]))</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'     time = "AVAL", event = "event", arm = "ARMCD", covariates = c("RACE", "AGE")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">122</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(y_lab_add_unit, null.ok = TRUE)</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">123</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(subtitle_add_unit, null.ok = TRUE)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">124</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if ((!is.null(y_lab) &amp;&amp; y_lab_add_unit) || (!is.null(subtitle) &amp;&amp; subtitle_add_unit)) {</pre>
+                      <pre class="language-r">#' # Addition of an optional strata.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">229</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">125</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_false(is.na(y_unit))</pre>
+                      <pre class="language-r">#' h_coxreg_multivar_formula(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">126</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_scalar(unique(df[[y_unit]]))</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">231</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'     time = "AVAL", event = "event", arm = "ARMCD", covariates = c("RACE", "AGE"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     strata = "SITE"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">233</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">129</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(group_var) &amp;&amp; !is.null(alt_counts_df)) {</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">130</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_set_equal(unique(alt_counts_df[[group_var]]), unique(df[[group_var]]))</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' # Example without treatment arm.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">237</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ####################################### |</pre>
+                      <pre class="language-r">#' h_coxreg_multivar_formula(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">238</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # ---- Compute required statistics ----</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ####################################### |</pre>
+                      <pre class="language-r">#'     time = "AVAL", event = "event", covariates = c("RACE", "AGE"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Remove unused levels for x-axis</pre>
+                      <pre class="language-r">#'     strata = "SITE"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">241</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">137</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.factor(df[[x]])) {</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">242</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">138</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df[[x]] &lt;- droplevels(df[[x]])</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">245</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">141</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(facet_var) &amp;&amp; !is.null(group_var)) {</pre>
+                      <pre class="language-r">h_coxreg_multivar_formula &lt;- function(variables) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">246</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">142</td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_grp &lt;- tidyr::expand(df, .data[[facet_var]], .data[[group_var]], .data[[x]]) # expand based on levels of factors</pre>
+                      <pre class="language-r">  checkmate::assert_list(variables, names = "named")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">247</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">143</td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (!is.null(group_var)) {</pre>
+                      <pre class="language-r">  has_arm &lt;- "arm" %in% names(variables)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">248</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">144</td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_grp &lt;- tidyr::expand(df, .data[[group_var]], .data[[x]]) # expand based on levels of factors</pre>
+                      <pre class="language-r">  arm_name &lt;- if (has_arm) "arm" else NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">249</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">250</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">146</td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_grp &lt;- tidyr::expand(df, NULL, .data[[x]])</pre>
+                      <pre class="language-r">  checkmate::assert_character(variables$covariates, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">148</td>
+                    <td class="coverage">89<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  assert_list_of_variables(variables[c(arm_name, "event", "time")])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">253</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">150</td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df_grp &lt;- df_grp %&gt;%</pre>
+                      <pre class="language-r">  y &lt;- paste0(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">254</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">151</td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::full_join(y = df[, c(facet_var, group_var, x, y)], by = c(facet_var, group_var, x), multiple = "all") %&gt;%</pre>
+                      <pre class="language-r">    "survival::Surv(", variables$time, ", ", variables$event, ") ~ ",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">255</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">152</td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::group_by_at(c(facet_var, group_var, x))</pre>
+                      <pre class="language-r">    ifelse(has_arm, variables$arm, "1")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">256</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">257</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">154</td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df_stats &lt;- df_grp %&gt;%</pre>
+                      <pre class="language-r">  if (length(variables$covariates) &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">258</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">155</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::summarise(</pre>
+                      <pre class="language-r">    y &lt;- paste(y, paste(variables$covariates, collapse = " + "), sep = " + ")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">259</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">156</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data.frame(t(do.call(c, unname(sfun(.data[[y]])[c(mid, interval)])))),</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">260</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">157</td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      .groups = "drop"</pre>
+                      <pre class="language-r">  if (!is.null(variables$strata)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">261</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">158</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    y &lt;- paste0(y, " + strata(", paste0(variables$strata, collapse = ", "), ")")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">263</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">160</td>
+                    <td class="coverage">89<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df_stats &lt;- df_stats[!is.na(df_stats[[mid]]), ]</pre>
+                      <pre class="language-r">  y</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">264</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # add number of objects N in group_var (strata)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">266</td>
-                    <td class="coverage">12<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(group_var) &amp;&amp; !is.null(alt_counts_df)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">267</td>
-                    <td class="coverage">7<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    strata_N &lt;- paste0(group_var, "_N") # nolint</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">269</td>
-                    <td class="coverage">7<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    df_N &lt;- stats::aggregate(eval(parse(text = subject_var)) ~ eval(parse(text = group_var)), data = alt_counts_df, FUN = function(x) length(unique(x))) # nolint</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">270</td>
-                    <td class="coverage">7<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    colnames(df_N) &lt;- c(group_var, "N") # nolint</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">271</td>
-                    <td class="coverage">7<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    df_N[[strata_N]] &lt;- paste0(df_N[[group_var]], " (N = ", df_N$N, ")") # nolint</pre>
+                      <pre class="language-r">#' @describeIn h_cox_regression Utility function to help tabulate the result of</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   a univariate Cox regression model.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">273</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # keep strata factor levels</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">274</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">166</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    matches &lt;- sapply(unique(df_N[[group_var]]), function(x) {</pre>
+                      <pre class="language-r">#' @param effect (`string`)\cr the treatment variable.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">275</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">167</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      regex_pattern &lt;- gsub("([][(){}^$.|*+?\\\\])", "\\\\\\1", x)</pre>
+                      <pre class="language-r">#' @param mod (`coxph`)\cr Cox regression model fitted by [survival::coxph()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">276</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">168</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      unique(df_N[[paste0(group_var, "_N")]])[grepl(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">277</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">169</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        paste0("^", regex_pattern),</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">278</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">170</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        unique(df_N[[paste0(group_var, "_N")]])</pre>
+                      <pre class="language-r">#' * `h_coxreg_univar_extract()` returns a `data.frame` with variables `effect`, `term`, `term_label`, `level`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )]</pre>
+                      <pre class="language-r">#'   `n`, `hr`, `lcl`, `ucl`, and `pval`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">281</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">173</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_N[[paste0(group_var, "_N")]] &lt;- factor(df_N[[group_var]]) # nolint</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">282</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">174</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    levels(df_N[[paste0(group_var, "_N")]]) &lt;- unlist(matches) # nolint</pre>
+                      <pre class="language-r">#' library(survival)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">283</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">284</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # strata_N should not be in colnames(df_stats)</pre>
+                      <pre class="language-r">#' dta_simple &lt;- data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">285</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">177</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_disjunct(strata_N, colnames(df_stats))</pre>
+                      <pre class="language-r">#'   time = c(5, 5, 10, 10, 5, 5, 10, 10),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   status = c(0, 0, 1, 0, 0, 1, 1, 1),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">287</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">179</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_stats &lt;- merge(x = df_stats, y = df_N[, c(group_var, strata_N)], by = group_var)</pre>
+                      <pre class="language-r">#'   armcd = factor(LETTERS[c(1, 1, 1, 1, 2, 2, 2, 2)], levels = c("A", "B")),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">288</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">180</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (!is.null(group_var)) {</pre>
+                      <pre class="language-r">#'   var1 = c(45, 55, 65, 75, 55, 65, 85, 75),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">289</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">181</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    strata_N &lt;- group_var # nolint</pre>
+                      <pre class="language-r">#'   var2 = c("F", "M", "F", "M", "F", "M", "F", "U")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">291</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">183</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    strata_N &lt;- NULL # nolint</pre>
+                      <pre class="language-r">#' mod &lt;- coxph(Surv(time, status) ~ armcd + var1, data = dta_simple)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">292</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' result &lt;- h_coxreg_univar_extract(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">293</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   effect = "armcd", covar = "armcd", mod = mod, data = dta_simple</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">294</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ############################################### |</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">295</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # ---- Prepare certain plot's properties. ----</pre>
+                      <pre class="language-r">#' result</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ############################################### |</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # legend title</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">298</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">190</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(legend_title) &amp;&amp; !is.null(group_var) &amp;&amp; legend_position != "none") {</pre>
+                      <pre class="language-r">h_coxreg_univar_extract &lt;- function(effect,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">299</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">191</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    legend_title &lt;- attr(df[[group_var]], "label")</pre>
+                      <pre class="language-r">                                    covar,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">300</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                                    data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">301</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                    mod,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">302</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # y label</pre>
+                      <pre class="language-r">                                    control = control_coxreg()) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">303</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">195</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(y_lab)) {</pre>
+                      <pre class="language-r">  checkmate::assert_string(covar)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">304</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">196</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (y_lab_add_paramcd) {</pre>
+                      <pre class="language-r">  checkmate::assert_string(effect)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">305</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">197</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y_lab &lt;- paste(y_lab, unique(df[[paramcd]]))</pre>
+                      <pre class="language-r">  checkmate::assert_class(mod, "coxph")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">306</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">198</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  test_statistic &lt;- c(wald = "Wald", likelihood = "LR")[control$pval_method]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">307</td>
+                    <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">308</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">200</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (y_lab_add_unit) {</pre>
+                      <pre class="language-r">  mod_aov &lt;- muffled_car_anova(mod, test_statistic)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">309</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">201</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y_lab &lt;- paste0(y_lab, " (", unique(df[[y_unit]]), ")")</pre>
+                      <pre class="language-r">  msum &lt;- summary(mod, conf.int = control$conf_level)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">202</td>
+                    <td class="coverage">66<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  sum_cox &lt;- broom::tidy(msum)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">310</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">311</td>
+                    <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  # Combine results together.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">312</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">205</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y_lab &lt;- trimws(y_lab)</pre>
+                      <pre class="language-r">  effect_aov &lt;- mod_aov[effect, , drop = TRUE]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">313</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">206</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  pval &lt;- effect_aov[[grep(pattern = "Pr", x = names(effect_aov)), drop = TRUE]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">314</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">207</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  sum_main &lt;- sum_cox[grepl(effect, sum_cox$level), ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">315</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # subtitle</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">316</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">209</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(subtitle)) {</pre>
+                      <pre class="language-r">  term_label &lt;- if (effect == covar) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">317</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">210</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (subtitle_add_paramcd) {</pre>
+                      <pre class="language-r">    paste0(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">318</td>
-                    <td class="coverage">12<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      subtitle &lt;- paste(subtitle, unique(df[[paramcd]]))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">319</td>
-                    <td class="coverage"></td>
+                    <td class="num">211</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">      levels(data[[covar]])[2],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">320</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">212</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      " vs control (",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">321</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">213</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (subtitle_add_unit) {</pre>
+                      <pre class="language-r">      levels(data[[covar]])[1],</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">322</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">214</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      subtitle &lt;- paste0(subtitle, " (", unique(df[[y_unit]]), ")")</pre>
+                      <pre class="language-r">      ")"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">323</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">324</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">325</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">217</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    subtitle &lt;- trimws(subtitle)</pre>
+                      <pre class="language-r">    unname(labels_or_names(data[covar]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">326</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">327</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">219</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">328</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">220</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ############################### |</pre>
+                      <pre class="language-r">    effect = ifelse(covar == effect, "Treatment:", "Covariate:"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">329</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">221</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # ---- Build plot object. ----</pre>
+                      <pre class="language-r">    term = covar,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">330</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">222</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ############################### |</pre>
+                      <pre class="language-r">    term_label = term_label,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">331</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">223</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  p &lt;- ggplot2::ggplot(</pre>
+                      <pre class="language-r">    level = levels(data[[effect]])[2],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">332</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">224</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data = df_stats,</pre>
+                      <pre class="language-r">    n = mod[["n"]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">333</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">225</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mapping = ggplot2::aes(</pre>
+                      <pre class="language-r">    hr = unname(sum_main["exp(coef)"]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">334</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">226</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = .data[[x]], y = .data[[mid]],</pre>
+                      <pre class="language-r">    lcl = unname(sum_main[grep("lower", names(sum_main))]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">335</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">227</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      color = if (is.null(strata_N)) NULL else .data[[strata_N]],</pre>
+                      <pre class="language-r">    ucl = unname(sum_main[grep("upper", names(sum_main))]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">336</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">228</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shape = if (is.null(strata_N)) NULL else .data[[strata_N]],</pre>
+                      <pre class="language-r">    pval = pval,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">337</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">229</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lty = if (is.null(strata_N)) NULL else .data[[strata_N]],</pre>
+                      <pre class="language-r">    stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">338</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">230</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      group = if (is.null(strata_N)) NULL else .data[[strata_N]]</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">339</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">340</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">341</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @describeIn h_cox_regression Tabulation of multivariate Cox regressions. Utility function to help</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">342</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">234</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(group_var) &amp;&amp; nlevels(df_stats[[strata_N]]) &gt; 6) {</pre>
+                      <pre class="language-r">#'   tabulate the result of a multivariate Cox regression model for a treatment/covariate variable.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">343</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">235</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    p &lt;- p +</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">344</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">236</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      scale_shape_manual(values = seq(15, 15 + nlevels(df_stats[[strata_N]])))</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">345</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' * `h_coxreg_multivar_extract()` returns a `data.frame` with variables `pval`, `hr`, `lcl`, `ucl`, `level`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">346</td>
+                    <td class="num">238</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   `n`, `term`, and `term_label`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">347</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">239</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(mid)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">348</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # points</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">349</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">241</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (grepl("p", mid_type, fixed = TRUE)) {</pre>
+                      <pre class="language-r">#' mod &lt;- coxph(Surv(time, status) ~ armcd + var1, data = dta_simple)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">350</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">242</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      p &lt;- p + ggplot2::geom_point(position = position, size = mid_point_size, na.rm = TRUE)</pre>
+                      <pre class="language-r">#' result &lt;- h_coxreg_multivar_extract(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">351</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'   var = "var1", mod = mod, data = dta_simple</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">352</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">353</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # lines - plotted only if there is a strata grouping (group_var)</pre>
+                      <pre class="language-r">#' result</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">354</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">246</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (grepl("l", mid_type, fixed = TRUE) &amp;&amp; !is.null(strata_N)) { # nolint</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">355</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">247</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      p &lt;- p + ggplot2::geom_line(position = position, na.rm = TRUE)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">356</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">h_coxreg_multivar_extract &lt;- function(var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">357</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                                      data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">358</td>
+                    <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                      mod,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">359</td>
+                    <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # interval</pre>
+                      <pre class="language-r">                                      control = control_coxreg()) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">360</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">252</td>
+                    <td class="coverage">132<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(interval)) {</pre>
+                      <pre class="language-r">  test_statistic &lt;- c(wald = "Wald", likelihood = "LR")[control$pval_method]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">361</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">253</td>
+                    <td class="coverage">132<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    p &lt;- p +</pre>
+                      <pre class="language-r">  mod_aov &lt;- muffled_car_anova(mod, test_statistic)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">362</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">254</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot2::geom_errorbar(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">363</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">255</td>
+                    <td class="coverage">132<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ggplot2::aes(ymin = .data[[whiskers[1]]], ymax = .data[[whiskers[max(1, length(whiskers))]]]),</pre>
+                      <pre class="language-r">  msum &lt;- summary(mod, conf.int = control$conf_level)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">364</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">256</td>
+                    <td class="coverage">132<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        width = errorbar_width,</pre>
+                      <pre class="language-r">  sum_anova &lt;- broom::tidy(mod_aov)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">365</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">257</td>
+                    <td class="coverage">132<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        position = position</pre>
+                      <pre class="language-r">  sum_cox &lt;- broom::tidy(msum)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">366</td>
+                    <td class="num">258</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">367</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">259</td>
+                    <td class="coverage">132<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  ret_anova &lt;- sum_anova[sum_anova$term == var, c("term", "p.value")]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">368</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">260</td>
+                    <td class="coverage">132<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (length(whiskers) == 1) { # lwr or upr only; mid is then required</pre>
+                      <pre class="language-r">  names(ret_anova)[2] &lt;- "pval"</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">369</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">261</td>
+                    <td class="coverage">132<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # workaround as geom_errorbar does not provide single-direction whiskers</pre>
+                      <pre class="language-r">  if (is.factor(data[[var]])) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">370</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">262</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      p &lt;- p +</pre>
+                      <pre class="language-r">    ret_cox &lt;- sum_cox[startsWith(prefix = var, x = sum_cox$level), !(names(sum_cox) %in% "exp(-coef)")]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">371</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">263</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ggplot2::geom_linerange(</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">372</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">264</td>
+                    <td class="coverage">79<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          data = df_stats[!is.na(df_stats[[whiskers]]), ], # as na.rm =TRUE does not suppress warnings</pre>
+                      <pre class="language-r">    ret_cox &lt;- sum_cox[(var == sum_cox$level), !(names(sum_cox) %in% "exp(-coef)")]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">373</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">265</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ggplot2::aes(ymin = .data[[mid]], ymax = .data[[whiskers]]),</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">374</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">266</td>
+                    <td class="coverage">132<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          position = position,</pre>
+                      <pre class="language-r">  names(ret_cox)[1:4] &lt;- c("pval", "hr", "lcl", "ucl")</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">375</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">267</td>
+                    <td class="coverage">132<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          na.rm = TRUE,</pre>
+                      <pre class="language-r">  varlab &lt;- unname(labels_or_names(data[var]))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">376</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">268</td>
+                    <td class="coverage">132<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          show.legend = FALSE</pre>
+                      <pre class="language-r">  ret_cox$term &lt;- varlab</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">377</td>
+                    <td class="num">269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">378</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">270</td>
+                    <td class="coverage">132<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  if (is.numeric(data[[var]])) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">379</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">271</td>
+                    <td class="coverage">79<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    ret &lt;- ret_cox</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">380</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">272</td>
+                    <td class="coverage">79<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ret$term_label &lt;- ret$term</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">273</td>
+                    <td class="coverage">53<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  } else if (length(levels(data[[var]])) &lt;= 2) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">274</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    ret_anova$pval &lt;- NA</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">381</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">275</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.numeric(df_stats[[x]])) {</pre>
+                      <pre class="language-r">    ret_anova$term_label &lt;- paste0(varlab, " (reference = ", levels(data[[var]])[1], ")")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">382</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">276</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (length(xticks) == 1) xticks &lt;- seq(from = min(df_stats[[x]]), to = max(df_stats[[x]]), by = xticks)</pre>
+                      <pre class="language-r">    ret_cox$level &lt;- gsub(var, "", ret_cox$level)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">383</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">277</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    p &lt;- p + ggplot2::scale_x_continuous(breaks = if (!is.null(xticks)) xticks else waiver(), limits = xlim)</pre>
+                      <pre class="language-r">    ret_cox$term_label &lt;- ret_cox$level</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">384</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">278</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    ret &lt;- dplyr::bind_rows(ret_anova, ret_cox)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">385</td>
+                    <td class="num">279</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">386</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">280</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  p &lt;- p +</pre>
+                      <pre class="language-r">    ret_anova$term_label &lt;- paste0(varlab, " (reference = ", levels(data[[var]])[1], ")")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">387</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">281</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ggplot2::scale_y_continuous(labels = scales::comma, limits = ylim) +</pre>
+                      <pre class="language-r">    ret_cox$level &lt;- gsub(var, "", ret_cox$level)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">388</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">282</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ggplot2::labs(</pre>
+                      <pre class="language-r">    ret_cox$term_label &lt;- ret_cox$level</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">389</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">283</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      title = title,</pre>
+                      <pre class="language-r">    ret &lt;- dplyr::bind_rows(ret_anova, ret_cox)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">390</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">284</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      subtitle = subtitle,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">391</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">285</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      caption = caption,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">392</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">286</td>
+                    <td class="coverage">132<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      color = legend_title,</pre>
+                      <pre class="language-r">  as.data.frame(ret)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">393</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">287</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lty = legend_title,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">394</td>
-                    <td class="coverage">12<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/count_cumulative.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
+                  <tr class="never">
+                    <td class="num">1</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      shape = legend_title,</pre>
+                      <pre class="language-r">#' Cumulative counts of numeric variable by thresholds</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">395</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">2</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = x_lab,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">396</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">3</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y = y_lab</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">397</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">398</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' The analyze function [count_cumulative()] creates a layout element to calculate cumulative counts of values in a</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">399</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(col)) {</pre>
+                      <pre class="language-r">#' numeric variable that are less than, less or equal to, greater than, or greater or equal to user-specified</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">400</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">7</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    p &lt;- p +</pre>
+                      <pre class="language-r">#' threshold values.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">401</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot2::scale_color_manual(values = col)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">402</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' This function analyzes numeric variable `vars` against the threshold values supplied to the `thresholds`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">403</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(linetype)) {</pre>
+                      <pre class="language-r">#' argument as a numeric vector. Whether counts should include the threshold values, and whether to count</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">404</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    p &lt;- p +</pre>
+                      <pre class="language-r">#' values lower or higher than the threshold values can be set via the `include_eq` and `lower_tail`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">405</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot2::scale_linetype_manual(values = linetype)</pre>
+                      <pre class="language-r">#' parameters, respectively.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">406</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">407</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @inheritParams h_count_cumulative</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">408</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">15</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(facet_var)) {</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">409</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">16</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    p &lt;- p +</pre>
+                      <pre class="language-r">#' @param thresholds (`numeric`)\cr vector of cutoff values for the counts.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">410</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      facet_grid(cols = vars(df_stats[[facet_var]]))</pre>
+                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("count_cumulative")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">411</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   to see available statistics for this function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">412</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">413</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">20</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(ggtheme)) {</pre>
+                      <pre class="language-r">#' @seealso Relevant helper function [h_count_cumulative()], and descriptive function [d_count_cumulative()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">414</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    p &lt;- p + ggtheme</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">415</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' @name count_cumulative</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">416</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">23</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    p &lt;- p +</pre>
+                      <pre class="language-r">#' @order 1</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">417</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot2::theme_bw() +</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">418</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">25</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot2::theme(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">419</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">26</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        legend.key.width = grid::unit(1, "cm"),</pre>
+                      <pre class="language-r">#' Helper function for `s_count_cumulative()`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">420</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">27</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        legend.position = legend_position,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">421</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">28</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        legend.direction = ifelse(</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">422</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">29</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          legend_position %in% c("top", "bottom"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">423</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">30</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "horizontal",</pre>
+                      <pre class="language-r">#' Helper function to calculate count and fraction of `x` values in the lower or upper tail given a threshold.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">424</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">31</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "vertical"</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">425</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">426</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' @param threshold (`numeric(1)`)\cr a cutoff value as threshold to count values of `x`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">427</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @param lower_tail (`flag`)\cr whether to count lower tail, default is `TRUE`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">428</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param include_eq (`flag`)\cr whether to include value equal to the `threshold` in</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">429</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ############################################################# |</pre>
+                      <pre class="language-r">#'   count, default is `TRUE`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">430</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # ---- Optionally, add table to the bottom of the plot. ----</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">431</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ############################################################# |</pre>
+                      <pre class="language-r">#' @return A named vector with items:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">432</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">39</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(table)) {</pre>
+                      <pre class="language-r">#'   * `count`: the count of values less than, less or equal to, greater than, or greater or equal to a threshold</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">433</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">40</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_stats_table &lt;- df_grp %&gt;%</pre>
+                      <pre class="language-r">#'     of user specification.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">434</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">41</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::summarise(</pre>
+                      <pre class="language-r">#'   * `fraction`: the fraction of the count.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">435</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">42</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        h_format_row(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">436</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">43</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = sfun(.data[[y]], ...)[table],</pre>
+                      <pre class="language-r">#' @seealso [count_cumulative]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">437</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">44</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          format = table_format,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">438</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">45</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          labels = table_labels</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">439</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">#' set.seed(1, kind = "Mersenne-Twister")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">440</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">47</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        .groups = "drop"</pre>
+                      <pre class="language-r">#' x &lt;- c(sample(1:10, 10), NA)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">441</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' .N_col &lt;- length(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">442</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">443</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">50</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stats_lev &lt;- rev(setdiff(colnames(df_stats_table), c(group_var, x)))</pre>
+                      <pre class="language-r">#' h_count_cumulative(x, 5, .N_col = .N_col)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">444</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' h_count_cumulative(x, 5, lower_tail = FALSE, include_eq = FALSE, na.rm = FALSE, .N_col = .N_col)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">445</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">52</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_stats_table &lt;- df_stats_table %&gt;%</pre>
+                      <pre class="language-r">#' h_count_cumulative(x, 0, lower_tail = FALSE, .N_col = .N_col)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">446</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">53</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tidyr::pivot_longer(</pre>
+                      <pre class="language-r">#' h_count_cumulative(x, 100, lower_tail = FALSE, .N_col = .N_col)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">447</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">54</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        cols = -dplyr::all_of(c(group_var, x)),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">448</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">55</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        names_to = "stat",</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">449</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">56</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        values_to = "value",</pre>
+                      <pre class="language-r">h_count_cumulative &lt;- function(x,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">450</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">57</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        names_ptypes = list(stat = factor(levels = stats_lev))</pre>
+                      <pre class="language-r">                               threshold,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">451</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">                               lower_tail = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">452</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                               include_eq = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">453</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">60</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tbl &lt;- ggplot2::ggplot(</pre>
+                      <pre class="language-r">                               na.rm = TRUE, # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">454</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">61</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df_stats_table,</pre>
+                      <pre class="language-r">                               .N_col) { # nolint</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">455</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">62</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot2::aes(x = .data[[x]], y = .data[["stat"]], label = .data[["value"]])</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">456</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">63</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) +</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(threshold)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">457</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">64</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot2::geom_text(size = table_font_size) +</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(.N_col)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">458</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">65</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot2::theme_bw() +</pre>
+                      <pre class="language-r">  checkmate::assert_flag(lower_tail)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">459</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">66</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot2::theme(</pre>
+                      <pre class="language-r">  checkmate::assert_flag(include_eq)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">460</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">67</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        panel.border = ggplot2::element_blank(),</pre>
+                      <pre class="language-r">  checkmate::assert_flag(na.rm)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">461</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">68</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        panel.grid.major = ggplot2::element_blank(),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">462</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">69</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        panel.grid.minor = ggplot2::element_blank(),</pre>
+                      <pre class="language-r">  is_keep &lt;- if (na.rm) !is.na(x) else rep(TRUE, length(x))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">463</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">70</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        axis.ticks = ggplot2::element_blank(),</pre>
+                      <pre class="language-r">  count &lt;- if (lower_tail &amp;&amp; include_eq) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">464</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">71</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        axis.title = ggplot2::element_blank(),</pre>
+                      <pre class="language-r">    length(x[is_keep &amp; x &lt;= threshold])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">465</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">72</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        axis.text.x = ggplot2::element_blank(),</pre>
+                      <pre class="language-r">  } else if (lower_tail &amp;&amp; !include_eq) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">466</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">73</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        axis.text.y = ggplot2::element_text(margin = ggplot2::margin(t = 0, r = 0, b = 0, l = 5)),</pre>
+                      <pre class="language-r">    length(x[is_keep &amp; x &lt; threshold])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">467</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">74</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        strip.text = ggplot2::element_text(hjust = 0),</pre>
+                      <pre class="language-r">  } else if (!lower_tail &amp;&amp; include_eq) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">468</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">75</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        strip.text.x = ggplot2::element_text(margin = ggplot2::margin(1.5, 0, 1.5, 0, "pt")),</pre>
+                      <pre class="language-r">    length(x[is_keep &amp; x &gt;= threshold])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">469</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">76</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        strip.background = ggplot2::element_rect(fill = "grey95", color = NA),</pre>
+                      <pre class="language-r">  } else if (!lower_tail &amp;&amp; !include_eq) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">470</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">77</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        legend.position = "none"</pre>
+                      <pre class="language-r">    length(x[is_keep &amp; x &gt; threshold])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">471</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">472</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">473</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">80</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.null(group_var)) {</pre>
+                      <pre class="language-r">  result &lt;- c(count = count, fraction = count / .N_col)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">474</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">81</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tbl &lt;- tbl + ggplot2::facet_wrap(facets = group_var, ncol = 1)</pre>
+                      <pre class="language-r">  result</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">475</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">476</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">477</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # align plot and table</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">478</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    cowplot::plot_grid(p, tbl, ncol = 1, align = "v", axis = "tblr")</pre>
+                      <pre class="language-r">#' Description of cumulative count</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">479</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">480</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">86</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    p</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">481</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">482</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' This is a helper function that describes the analysis in [s_count_cumulative()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">483</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">484</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function to format the optional `g_lineplot` table</pre>
+                      <pre class="language-r">#' @inheritParams h_count_cumulative</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">485</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">486</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' @return Labels for [s_count_cumulative()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">487</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">488</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (named `list`)\cr list of numerical values to be formatted and optionally labeled.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">489</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Elements of `x` must be `numeric` vectors.</pre>
+                      <pre class="language-r">d_count_cumulative &lt;- function(threshold, lower_tail = TRUE, include_eq = TRUE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">490</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">96</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param format (named `character` or `NULL`)\cr format patterns for `x`. Names of the `format` must</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(threshold)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">491</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">97</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   match the names of `x`. This parameter is passed directly to the `rtables::format_rcell`</pre>
+                      <pre class="language-r">  lg &lt;- if (lower_tail) "&lt;" else "&gt;"</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">492</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">98</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   function through the `format` parameter.</pre>
+                      <pre class="language-r">  eq &lt;- if (include_eq) "=" else ""</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">99</td>
+                    <td class="coverage">18<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  paste0(lg, eq, " ", threshold)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">493</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param labels (named `character` or `NULL`)\cr optional labels for `x`. Names of the `labels` must</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">494</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   match the names of `x`. When a label is not specified for an element of `x`,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">495</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   then this function tries to use `label` or `names` (in this order) attribute of that element</pre>
+                      <pre class="language-r">#' @describeIn count_cumulative Statistics function that produces a named list given a numeric vector of thresholds.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">496</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   (depending on which one exists and it is not `NULL` or `NA` or `NaN`). If none of these attributes</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">497</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   are attached to a given element of `x`, then the label is automatically generated.</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">498</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' * `s_count_cumulative()` returns a named list of `count_fraction`s: a list with each `thresholds` value as a</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">499</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A single row `data.frame` object.</pre>
+                      <pre class="language-r">#'   component, each component containing a vector for the count and fraction.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">500</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">501</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">502</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' mean_ci &lt;- c(48, 51)</pre>
+                      <pre class="language-r">s_count_cumulative &lt;- function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">503</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x &lt;- list(mean = 50, mean_ci = mean_ci)</pre>
+                      <pre class="language-r">                               thresholds,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">504</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' format &lt;- c(mean = "xx.x", mean_ci = "(xx.xx, xx.xx)")</pre>
+                      <pre class="language-r">                               lower_tail = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">505</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' labels &lt;- c(mean = "My Mean")</pre>
+                      <pre class="language-r">                               include_eq = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">506</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_format_row(x, format, labels)</pre>
+                      <pre class="language-r">                               .N_col, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">507</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                               ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">508</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">115</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' attr(mean_ci, "label") &lt;- "Mean 95% CI"</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(thresholds, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">509</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x &lt;- list(mean = 50, mean_ci = mean_ci)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">510</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">117</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_format_row(x, format, labels)</pre>
+                      <pre class="language-r">  count_fraction_list &lt;- Map(function(thres) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">511</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">118</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    result &lt;- h_count_cumulative(x, thres, lower_tail, include_eq, .N_col = .N_col, ...)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">119</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    label &lt;- d_count_cumulative(thres, lower_tail, include_eq)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">120</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    formatters::with_label(result, label)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">121</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }, thresholds)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">512</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">123</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  names(count_fraction_list) &lt;- thresholds</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">124</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  list(count_fraction = count_fraction_list)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">513</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_format_row &lt;- function(x, format, labels = NULL) {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">514</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # cell: one row, one column data.frame</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">515</td>
-                    <td class="coverage">74<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">127</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  format_cell &lt;- function(x, format, label = NULL) {</pre>
+                      <pre class="language-r">#' @describeIn count_cumulative Formatted analysis function which is used as `afun`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">516</td>
-                    <td class="coverage">184<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">128</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    fc &lt;- format_rcell(x = x, format = unlist(format))</pre>
+                      <pre class="language-r">#'   in `count_cumulative()`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">517</td>
-                    <td class="coverage">184<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">129</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.na(fc)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">518</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">130</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      fc &lt;- "NA"</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">519</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' * `a_count_cumulative()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">520</td>
-                    <td class="coverage">184<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">132</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_label &lt;- attr(x, "label")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">521</td>
-                    <td class="coverage">184<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">133</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.null(label) &amp;&amp; !is.na(label)) {</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">522</td>
-                    <td class="coverage">182<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">134</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      names(fc) &lt;- label</pre>
+                      <pre class="language-r">a_count_cumulative &lt;- make_afun(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">523</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">135</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else if (!is.null(x_label) &amp;&amp; !is.na(x_label)) {</pre>
+                      <pre class="language-r">  s_count_cumulative,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">524</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">136</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      names(fc) &lt;- x_label</pre>
+                      <pre class="language-r">  .formats = c(count_fraction = format_count_fraction)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">525</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">137</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else if (length(x) == length(fc)) {</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">526</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">138</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      names(fc) &lt;- names(x)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">527</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' @describeIn count_cumulative Layout-creating function which can take statistics function arguments</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">528</td>
-                    <td class="coverage">184<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">140</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    as.data.frame(t(fc))</pre>
+                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">529</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">530</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">531</td>
-                    <td class="coverage">74<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">143</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  row &lt;- do.call(</pre>
+                      <pre class="language-r">#' * `count_cumulative()` returns a layout object suitable for passing to further layouting functions,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">532</td>
-                    <td class="coverage">74<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">144</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    cbind,</pre>
+                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">533</td>
-                    <td class="coverage">74<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">145</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lapply(</pre>
+                      <pre class="language-r">#'   the statistics from `s_count_cumulative()` to the table layout.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">534</td>
-                    <td class="coverage">74<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">146</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      names(x), function(xn) format_cell(x[[xn]], format = format[xn], label = labels[xn])</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">535</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">536</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">537</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">538</td>
-                    <td class="coverage">74<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">150</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  row</pre>
+                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">539</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   count_cumulative(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">540</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     vars = "AGE",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">541</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Control function for `g_lineplot()`</pre>
+                      <pre class="language-r">#'     thresholds = c(40, 60)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">542</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">543</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#'   build_table(tern_ex_adsl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">544</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">545</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Default values for `variables` parameter in `g_lineplot` function.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">546</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A variable's default value can be overwritten for any variable.</pre>
+                      <pre class="language-r">#' @order 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">547</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">count_cumulative &lt;- function(lyt,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">548</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`string`)\cr x-variable name.</pre>
+                      <pre class="language-r">                             vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">549</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param y (`string`)\cr y-variable name.</pre>
+                      <pre class="language-r">                             thresholds,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">550</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param group_var (`string` or `NA`)\cr group variable name.</pre>
+                      <pre class="language-r">                             lower_tail = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">551</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param subject_var (`string` or `NA`)\cr subject variable name.</pre>
+                      <pre class="language-r">                             include_eq = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">552</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param facet_var (`string` or `NA`)\cr faceting variable name.</pre>
+                      <pre class="language-r">                             var_labels = vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">553</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param paramcd (`string` or `NA`)\cr parameter code variable name.</pre>
+                      <pre class="language-r">                             show_labels = "visible",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">554</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param y_unit (`string` or `NA`)\cr y-axis unit variable name.</pre>
+                      <pre class="language-r">                             na_str = default_na_str(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">555</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                             nested = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">556</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A named character vector of variable names.</pre>
+                      <pre class="language-r">                             ...,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">557</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                             table_names = vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">558</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">                             .stats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">559</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' control_lineplot_vars()</pre>
+                      <pre class="language-r">                             .formats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">560</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' control_lineplot_vars(group_var = NA)</pre>
+                      <pre class="language-r">                             .labels = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">561</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                             .indent_mods = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">562</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">174</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  extra_args &lt;- list(thresholds = thresholds, lower_tail = lower_tail, include_eq = include_eq, ...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">563</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">control_lineplot_vars &lt;- function(x = "AVISIT",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">564</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">176</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  y = "AVAL",</pre>
+                      <pre class="language-r">  afun &lt;- make_afun(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">565</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">177</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  group_var = "ARM",</pre>
+                      <pre class="language-r">    a_count_cumulative,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">566</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">178</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  facet_var = NA,</pre>
+                      <pre class="language-r">    .stats = .stats,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">567</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">179</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  paramcd = "PARAMCD",</pre>
+                      <pre class="language-r">    .formats = .formats,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">568</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">180</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  y_unit = "AVALU",</pre>
+                      <pre class="language-r">    .labels = .labels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">569</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">181</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  subject_var = "USUBJID") {</pre>
+                      <pre class="language-r">    .indent_mods = .indent_mods,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">570</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">182</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(x)</pre>
+                      <pre class="language-r">    .ungroup_stats = "count_fraction"</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">183</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">571</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">184</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(y)</pre>
+                      <pre class="language-r">  analyze(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">572</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">185</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(group_var, na.ok = TRUE, null.ok = TRUE)</pre>
+                      <pre class="language-r">    lyt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">573</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">186</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(facet_var, na.ok = TRUE, null.ok = TRUE)</pre>
+                      <pre class="language-r">    vars,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">574</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">187</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(subject_var, na.ok = TRUE, null.ok = TRUE)</pre>
+                      <pre class="language-r">    afun = afun,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">575</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">188</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(paramcd, na.ok = TRUE, null.ok = TRUE)</pre>
+                      <pre class="language-r">    na_str = na_str,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">576</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">189</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(y_unit, na.ok = TRUE, null.ok = TRUE)</pre>
+                      <pre class="language-r">    table_names = table_names,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">577</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">190</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    var_labels = var_labels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">578</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">191</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  variables &lt;- c(</pre>
+                      <pre class="language-r">    show_labels = show_labels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">579</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">192</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = x, y = y, group_var = group_var, paramcd = paramcd,</pre>
+                      <pre class="language-r">    nested = nested,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">580</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">193</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y_unit = y_unit, subject_var = subject_var, facet_var = facet_var</pre>
+                      <pre class="language-r">    extra_args = extra_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">581</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">582</td>
-                    <td class="coverage">15<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  return(variables)</pre>
-                    </td>
-                  </tr>
                   <tr class="never">
-                    <td class="num">583</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -103418,14 +104069,14 @@ <h2>tern coverage - 95.64%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/odds_ratio.R" class="hidden">
+            <div id="R/h_stack_by_baskets.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Odds ratio estimation</pre>
+                      <pre class="language-r">#' Helper function to create a new SMQ variable in ADAE by stacking SMQ and/or CQ records.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -103453,2356 +104104,2803 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The analyze function [estimate_odds_ratio()] creates a layout element to compare bivariate responses between</pre>
+                      <pre class="language-r">#' Helper function to create a new SMQ variable in ADAE that consists of all adverse events belonging to</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' two groups by estimating an odds ratio and its confidence interval.</pre>
+                      <pre class="language-r">#' selected Standardized/Customized queries. The new dataset will only contain records of the adverse events</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' belonging to any of the selected baskets. Remember that `na_str` must match the needed pre-processing</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The primary analysis variable specified by `vars` is the group variable. Additional variables can be included in the</pre>
+                      <pre class="language-r">#' done with [df_explicit_na()] to have the desired output.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' analysis via the `variables` argument, which accepts `arm`, an arm variable, and `strata`, a stratification variable.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' If more than two arm levels are present, they can be combined into two groups using the `groups_list` argument.</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param baskets (`character`)\cr variable names of the selected Standardized/Customized queries.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams split_cols_by_groups</pre>
+                      <pre class="language-r">#' @param smq_varlabel (`string`)\cr a label for the new variable created.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' @param keys (`character`)\cr names of the key variables to be returned along with the new variable created.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("estimate_odds_ratio")`</pre>
+                      <pre class="language-r">#' @param aag_summary (`data.frame`)\cr containing the SMQ baskets and the levels of interest for the final SMQ</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to see available statistics for this function.</pre>
+                      <pre class="language-r">#'   variable. This is useful when there are some levels of interest that are not observed in the `df` dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param method (`string`)\cr whether to use the correct (`"exact"`) calculation in the conditional likelihood or one</pre>
+                      <pre class="language-r">#'   The two columns of this dataset should be named `basket` and `basket_name`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   of the approximations. See [survival::clogit()] for details.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return A `data.frame` with variables in `keys` taken from `df` and new variable SMQ containing</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note</pre>
+                      <pre class="language-r">#'   records belonging to the baskets selected via the `baskets` argument.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * This function uses logistic regression for unstratified analyses, and conditional logistic regression for</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   stratified analyses. The Wald confidence interval is calculated with the specified confidence level.</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * For stratified analyses, there is currently no implementation for conditional likelihood confidence intervals,</pre>
+                      <pre class="language-r">#' adae &lt;- tern_ex_adae[1:20, ] %&gt;% df_explicit_na()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   therefore the likelihood confidence interval is not available as an option.</pre>
+                      <pre class="language-r">#' h_stack_by_baskets(df = adae)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * When `vars` contains only responders or non-responders no odds ratio estimation is possible so the returned</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   values will be `NA`.</pre>
+                      <pre class="language-r">#' aag &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   NAMVAR = c("CQ01NAM", "CQ02NAM", "SMQ01NAM", "SMQ02NAM"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso Relevant helper function [h_odds_ratio()].</pre>
+                      <pre class="language-r">#'   REFNAME = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     "D.2.1.5.3/A.1.1.1.1 aesi", "X.9.9.9.9/Y.8.8.8.8 aesi",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name odds_ratio</pre>
+                      <pre class="language-r">#'     "C.1.1.1.3/B.2.2.3.1 aesi", "C.1.1.1.3/B.3.3.3.3 aesi"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 1</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#'   SCOPE = c("", "", "BROAD", "BROAD"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn odds_ratio Statistics function which estimates the odds ratio</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   between a treatment and a control. A `variables` list with `arm` and `strata`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variable names must be passed if a stratified analysis is required.</pre>
+                      <pre class="language-r">#' basket_name &lt;- character(nrow(aag))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' cq_pos &lt;- grep("^(CQ).+NAM$", aag$NAMVAR)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' smq_pos &lt;- grep("^(SMQ).+NAM$", aag$NAMVAR)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_odds_ratio()` returns a named list with the statistics `or_ci`</pre>
+                      <pre class="language-r">#' basket_name[cq_pos] &lt;- aag$REFNAME[cq_pos]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   (containing `est`, `lcl`, and `ucl`) and `n_tot`.</pre>
+                      <pre class="language-r">#' basket_name[smq_pos] &lt;- paste0(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   aag$REFNAME[smq_pos], "(", aag$SCOPE[smq_pos], ")"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Unstratified analysis.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_odds_ratio(</pre>
+                      <pre class="language-r">#' aag_summary &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   df = subset(dta, grp == "A"),</pre>
+                      <pre class="language-r">#'   basket = aag$NAMVAR,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .var = "rsp",</pre>
+                      <pre class="language-r">#'   basket_name = basket_name,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .ref_group = subset(dta, grp == "B"),</pre>
+                      <pre class="language-r">#'   stringsAsFactors = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .in_ref_col = FALSE,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .df_row = dta</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' result &lt;- h_stack_by_baskets(df = adae, aag_summary = aag_summary)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' all(levels(aag_summary$basket_name) %in% levels(result$SMQ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Stratified analysis.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_odds_ratio(</pre>
+                      <pre class="language-r">#' h_stack_by_baskets(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   df = subset(dta, grp == "A"),</pre>
+                      <pre class="language-r">#'   df = adae,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .var = "rsp",</pre>
+                      <pre class="language-r">#'   aag_summary = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .ref_group = subset(dta, grp == "B"),</pre>
+                      <pre class="language-r">#'   keys = c("STUDYID", "USUBJID", "AEDECOD", "ARM"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .in_ref_col = FALSE,</pre>
+                      <pre class="language-r">#'   baskets = "SMQ01NAM"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .df_row = dta,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(arm = "grp", strata = "strata")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">h_stack_by_baskets &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                               baskets = grep("^(SMQ|CQ).+NAM$", names(df), value = TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_odds_ratio &lt;- function(df,</pre>
+                      <pre class="language-r">                               smq_varlabel = "Standardized MedDRA Query",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         .var,</pre>
+                      <pre class="language-r">                               keys = c("STUDYID", "USUBJID", "ASTDTM", "AEDECOD", "AESEQ"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         .ref_group,</pre>
+                      <pre class="language-r">                               aag_summary = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         .in_ref_col,</pre>
+                      <pre class="language-r">                               na_str = "&lt;Missing&gt;") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">66</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         .df_row,</pre>
+                      <pre class="language-r">  smq_nam &lt;- baskets[startsWith(baskets, "SMQ")]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         variables = list(arm = NULL, strata = NULL),</pre>
+                      <pre class="language-r">  # SC corresponding to NAM</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">68</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         conf_level = 0.95,</pre>
+                      <pre class="language-r">  smq_sc &lt;- gsub(pattern = "NAM", replacement = "SC", x = smq_nam, fixed = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">69</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         groups_list = NULL,</pre>
+                      <pre class="language-r">  smq &lt;- stats::setNames(smq_sc, smq_nam)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         method = "exact") {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">71</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- list(or_ci = "", n_tot = "")</pre>
+                      <pre class="language-r">  checkmate::assert_character(baskets)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">72</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  checkmate::assert_string(smq_varlabel)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">73</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!.in_ref_col) {</pre>
+                      <pre class="language-r">  checkmate::assert_data_frame(df)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">74</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    assert_proportion_value(conf_level)</pre>
+                      <pre class="language-r">  checkmate::assert_true(all(startsWith(baskets, "SMQ") | startsWith(baskets, "CQ")))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">75</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    assert_df_with_variables(df, list(rsp = .var))</pre>
+                      <pre class="language-r">  checkmate::assert_true(all(endsWith(baskets, "NAM")))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">76</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    assert_df_with_variables(.ref_group, list(rsp = .var))</pre>
+                      <pre class="language-r">  checkmate::assert_subset(baskets, names(df))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">77</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  checkmate::assert_subset(keys, names(df))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">78</td>
-                    <td class="coverage">87<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.null(variables$strata)) {</pre>
+                      <pre class="language-r">  checkmate::assert_subset(smq_sc, names(df))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">79</td>
-                    <td class="coverage">72<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data &lt;- data.frame(</pre>
+                      <pre class="language-r">  checkmate::assert_string(na_str)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">80</td>
-                    <td class="coverage">72<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        rsp = c(.ref_group[[.var]], df[[.var]]),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">81</td>
-                    <td class="coverage">72<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        grp = factor(</pre>
+                      <pre class="language-r">  if (!is.null(aag_summary)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">82</td>
-                    <td class="coverage">72<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          rep(c("ref", "Not-ref"), c(nrow(.ref_group), nrow(df))),</pre>
+                      <pre class="language-r">    assert_df_with_variables(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">83</td>
-                    <td class="coverage">72<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          levels = c("ref", "Not-ref")</pre>
+                      <pre class="language-r">      df = aag_summary,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">84</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      variables = list(val = c("basket", "basket_name"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">86</td>
-                    <td class="coverage">72<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y &lt;- or_glm(data, conf_level = conf_level)</pre>
+                      <pre class="language-r">    # Warning in case there is no match between `aag_summary$basket` and `baskets` argument.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">    # Honestly, I think those should completely match. Target baskets should be the same.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">88</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      assert_df_with_variables(.df_row, c(list(rsp = .var), variables))</pre>
+                      <pre class="language-r">    if (length(intersect(baskets, unique(aag_summary$basket))) == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">89</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_subset(method, c("exact", "approximate", "efron", "breslow"), empty.ok = FALSE)</pre>
+                      <pre class="language-r">      warning("There are 0 baskets in common between aag_summary$basket and `baskets` argument.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # The group variable prepared for clogit must be synchronised with combination groups definition.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">92</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (is.null(groups_list)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">93</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ref_grp &lt;- as.character(unique(.ref_group[[variables$arm]]))</pre>
+                      <pre class="language-r">  var_labels &lt;- c(formatters::var_labels(df[, keys]), "SMQ" = smq_varlabel)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">94</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        trt_grp &lt;- as.character(unique(df[[variables$arm]]))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">95</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        grp &lt;- stats::relevel(factor(.df_row[[variables$arm]]), ref = ref_grp)</pre>
+                      <pre class="language-r">  # convert `na_str` records from baskets to NA for the later loop and from wide to long steps</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">96</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">  df[, c(baskets, smq_sc)][df[, c(baskets, smq_sc)] == na_str] &lt;- NA</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # If more than one level in reference col.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">98</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        reference &lt;- as.character(unique(.ref_group[[variables$arm]]))</pre>
+                      <pre class="language-r">  if (all(is.na(df[, baskets]))) { # in case there is no level for the target baskets</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">99</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        grp_ref_flag &lt;- vapply(</pre>
+                      <pre class="language-r">    df_long &lt;- df[-seq_len(nrow(df)), keys] # we just need an empty data frame keeping all factor levels</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">100</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          X = groups_list,</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">101</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          FUN.VALUE = TRUE,</pre>
+                      <pre class="language-r">    # Concatenate SMQxxxNAM with corresponding SMQxxxSC</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">102</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          FUN = function(x) all(reference %in% x)</pre>
+                      <pre class="language-r">    df_cnct &lt;- df[, c(keys, baskets[startsWith(baskets, "CQ")])]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">104</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ref_grp &lt;- names(groups_list)[grp_ref_flag]</pre>
+                      <pre class="language-r">    for (nam in names(smq)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">105</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      sc &lt;- smq[nam] # SMQxxxSC corresponding to SMQxxxNAM</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">106</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # If more than one level in treatment col.</pre>
+                      <pre class="language-r">      nam_notna &lt;- !is.na(df[[nam]])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">107</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        treatment &lt;- as.character(unique(df[[variables$arm]]))</pre>
+                      <pre class="language-r">      new_colname &lt;- paste(nam, sc, sep = "_")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">108</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        grp_trt_flag &lt;- vapply(</pre>
+                      <pre class="language-r">      df_cnct[nam_notna, new_colname] &lt;- paste0(df[[nam]], "(", df[[sc]], ")")[nam_notna]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">109</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          X = groups_list,</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">110</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          FUN.VALUE = TRUE,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">111</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          FUN = function(x) all(treatment %in% x)</pre>
+                      <pre class="language-r">    df_cnct$unique_id &lt;- seq(1, nrow(df_cnct))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">112</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    var_cols &lt;- names(df_cnct)[!(names(df_cnct) %in% c(keys, "unique_id"))]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">113</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        trt_grp &lt;- names(groups_list)[grp_trt_flag]</pre>
+                      <pre class="language-r">    # have to convert df_cnct from tibble to data frame</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # as it throws a warning otherwise about rownames.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">115</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        grp &lt;- combine_levels(.df_row[[variables$arm]], levels = reference, new_level = ref_grp)</pre>
+                      <pre class="language-r">    # tibble do not support rownames and reshape creates rownames</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">116</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        grp &lt;- combine_levels(grp, levels = treatment, new_level = trt_grp)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">117</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">    df_long &lt;- stats::reshape(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">118</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      data = as.data.frame(df_cnct),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">119</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # The reference level in `grp` must be the same as in the `rtables` column split.</pre>
+                      <pre class="language-r">      varying = var_cols,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">120</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data &lt;- data.frame(</pre>
+                      <pre class="language-r">      v.names = "SMQ",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">121</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        rsp = .df_row[[.var]],</pre>
+                      <pre class="language-r">      idvar = names(df_cnct)[names(df_cnct) %in% c(keys, "unique_id")],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">122</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        grp = grp,</pre>
+                      <pre class="language-r">      direction = "long",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">123</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        strata = interaction(.df_row[variables$strata])</pre>
+                      <pre class="language-r">      new.row.names = seq(prod(length(var_cols), nrow(df_cnct)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">125</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y_all &lt;- or_clogit(data, conf_level = conf_level, method = method)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">126</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_string(trt_grp)</pre>
+                      <pre class="language-r">    df_long &lt;- df_long[!is.na(df_long[, "SMQ"]), !(names(df_long) %in% c("time", "unique_id"))]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">127</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_subset(trt_grp, names(y_all$or_ci))</pre>
+                      <pre class="language-r">    df_long$SMQ &lt;- as.factor(df_long$SMQ)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">128</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y$or_ci &lt;- y_all$or_ci[[trt_grp]]</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">129</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y$n_tot &lt;- y_all$n_tot</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">130</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  smq_levels &lt;- setdiff(levels(df_long[["SMQ"]]), na_str)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">132</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if (!is.null(aag_summary)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">133</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if ("est" %in% names(y$or_ci) &amp;&amp; is.na(y$or_ci[["est"]]) &amp;&amp; method != "approximate") {</pre>
+                      <pre class="language-r">    # A warning in case there is no match between df and aag_summary records</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">134</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning(</pre>
+                      <pre class="language-r">    if (length(intersect(smq_levels, unique(aag_summary$basket_name))) == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">135</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Unable to compute the odds ratio estimate. Please try re-running the function with ",</pre>
+                      <pre class="language-r">      warning("There are 0 basket levels in common between aag_summary$basket_name and df.")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">136</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      'parameter `method` set to "approximate".'</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">137</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    df_long[["SMQ"]] &lt;- factor(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">138</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      df_long[["SMQ"]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">139</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      levels = sort(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">140</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y$or_ci &lt;- formatters::with_label(</pre>
+                      <pre class="language-r">        c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">141</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = y$or_ci,</pre>
+                      <pre class="language-r">          smq_levels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">142</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label = paste0("Odds Ratio (", 100 * conf_level, "% CI)")</pre>
+                      <pre class="language-r">          setdiff(unique(aag_summary$basket_name), smq_levels)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">145</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y$n_tot &lt;- formatters::with_label(</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">146</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = y$n_tot,</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">147</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label = "Total n"</pre>
+                      <pre class="language-r">    all_na_basket_flag &lt;- vapply(df[, baskets], function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">148</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      all(is.na(x))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">149</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    }, FUN.VALUE = logical(1))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">150</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y</pre>
+                      <pre class="language-r">    all_na_basket &lt;- baskets[all_na_basket_flag]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">151</td>
                     <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">152</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    df_long[["SMQ"]] &lt;- factor(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">153</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      df_long[["SMQ"]],</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">154</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      levels = sort(c(smq_levels, all_na_basket))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">155</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">156</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">157</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  formatters::var_labels(df_long) &lt;- var_labels</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">158</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  tibble::tibble(df_long)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">159</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/response_biomarkers_subgroups.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Tabulate biomarker effects on binary response by subgroup</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn odds_ratio Formatted analysis function which is used as `afun` in `estimate_odds_ratio()`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">3</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' The [tabulate_rsp_biomarkers()] function creates a layout element to tabulate the estimated biomarker effects on a</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `a_odds_ratio()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
+                      <pre class="language-r">#' binary response endpoint across subgroups, returning statistics including response rate and odds ratio for each</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">7</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' population subgroup. The table is created from `df`, a list of data frames returned by [extract_rsp_biomarkers()],</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' with the statistics to include specified via the `vars` parameter.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' A forest plot can be created from the resulting table using the [g_forest()] function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' a_odds_ratio(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   df = subset(dta, grp == "A"),</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .var = "rsp",</pre>
+                      <pre class="language-r">#' @param df (`data.frame`)\cr containing all analysis variables, as returned by</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .ref_group = subset(dta, grp == "B"),</pre>
+                      <pre class="language-r">#'   [extract_rsp_biomarkers()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .in_ref_col = FALSE,</pre>
+                      <pre class="language-r">#' @param vars (`character`)\cr the names of statistics to be reported among:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .df_row = dta</pre>
+                      <pre class="language-r">#'   * `n_tot`: Total number of patients per group.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   * `n_rsp`: Total number of responses per group.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   * `prop`: Total response proportion per group.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   * `or`: Odds ratio.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">20</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   * `ci`: Confidence interval of odds ratio.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   * `pval`: p-value of the effect.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">22</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   Note, the statistics `n_tot`, `or` and `ci` are required.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @return An `rtables` table summarizing biomarker effects on binary response by subgroup.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">a_odds_ratio &lt;- make_afun(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_odds_ratio,</pre>
+                      <pre class="language-r">#' @details These functions create a layout starting from a data frame which contains</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats = c(or_ci = "xx.xx (xx.xx - xx.xx)"),</pre>
+                      <pre class="language-r">#'   the required statistics. The tables are then typically used as input for forest plots.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .indent_mods = c(or_ci = 1L)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">#' @note In contrast to [tabulate_rsp_subgroups()] this tabulation function does</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   not start from an input layout `lyt`. This is because internally the table is</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn odds_ratio Layout-creating function which can take statistics function arguments</pre>
+                      <pre class="language-r">#'   created by combining multiple subtables.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">33</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @seealso [h_tab_rsp_one_biomarker()] which is used internally, [extract_rsp_biomarkers()].</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `estimate_odds_ratio()` returns a layout object suitable for passing to further layouting functions,</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">37</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' library(forcats)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">38</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">39</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' adrs &lt;- tern_ex_adrs</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">40</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' adrs_labels &lt;- formatters::var_labels(adrs)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">41</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">42</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' adrs_f &lt;- adrs %&gt;%</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">43</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   filter(PARAMCD == "BESRSPI") %&gt;%</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">44</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   mutate(rsp = AVALC == "CR")</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">45</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' formatters::var_labels(adrs_f) &lt;- c(adrs_labels, "Response")</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the statistics from `s_odds_ratio()` to the table layout.</pre>
+                      <pre class="language-r">#' df &lt;- extract_rsp_biomarkers(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'     rsp = "rsp",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' set.seed(12)</pre>
+                      <pre class="language-r">#'     biomarkers = c("BMRKR1", "AGE"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dta &lt;- data.frame(</pre>
+                      <pre class="language-r">#'     covariates = "SEX",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   rsp = sample(c(TRUE, FALSE), 100, TRUE),</pre>
+                      <pre class="language-r">#'     subgroups = "BMRKR2"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   grp = factor(rep(c("A", "B"), each = 50), levels = c("A", "B")),</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   strata = factor(sample(c("C", "D"), 100, TRUE))</pre>
+                      <pre class="language-r">#'   data = adrs_f</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' l &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">#' \donttest{</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by(var = "grp", ref_group = "B") %&gt;%</pre>
+                      <pre class="language-r">#' ## Table with default columns.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   estimate_odds_ratio(vars = "rsp")</pre>
+                      <pre class="language-r">#' tabulate_rsp_biomarkers(df)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' build_table(l, df = dta)</pre>
+                      <pre class="language-r">#' ## Table with a manually chosen set of columns: leave out "pval", reorder.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' tab &lt;- tabulate_rsp_biomarkers(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'   df = df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 2</pre>
+                      <pre class="language-r">#'   vars = c("n_rsp", "ci", "n_tot", "prop", "or")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">estimate_odds_ratio &lt;- function(lyt,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                vars,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                variables = list(arm = NULL, strata = NULL),</pre>
+                      <pre class="language-r">#' ## Finally produce the forest plot.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                conf_level = 0.95,</pre>
+                      <pre class="language-r">#' g_forest(tab, xlim = c(0.7, 1.4))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                groups_list = NULL,</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                na_str = default_na_str(),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                nested = TRUE,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">205</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                method = "exact",</pre>
+                      <pre class="language-r">#' @name response_biomarkers_subgroups</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                show_labels = "hidden",</pre>
+                      <pre class="language-r">tabulate_rsp_biomarkers &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                table_names = vars,</pre>
+                      <pre class="language-r">                                    vars = c("n_tot", "n_rsp", "prop", "or", "ci", "pval"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                var_labels = vars,</pre>
+                      <pre class="language-r">                                    na_str = default_na_str(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                .stats = "or_ci",</pre>
+                      <pre class="language-r">                                    .indent_mods = 0L) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">210</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">77</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                .formats = NULL,</pre>
+                      <pre class="language-r">  checkmate::assert_data_frame(df)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">78</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_character(df$biomarker)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">79</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_character(df$biomarker_label)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">80</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_subset(vars, get_stats("tabulate_rsp_biomarkers"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                .labels = NULL,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                .indent_mods = NULL) {</pre>
+                      <pre class="language-r">  # Create "ci" column from "lcl" and "ucl"</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">83</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(variables = variables, conf_level = conf_level, groups_list = groups_list, method = method)</pre>
+                      <pre class="language-r">  df$ci &lt;- combine_vectors(df$lcl, df$ucl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">85</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  afun &lt;- make_afun(</pre>
+                      <pre class="language-r">  df_subs &lt;- split(df, f = df$biomarker)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">216</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">86</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    a_odds_ratio,</pre>
+                      <pre class="language-r">  tabs &lt;- lapply(df_subs, FUN = function(df_sub) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">217</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">87</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .stats = .stats,</pre>
+                      <pre class="language-r">    tab_sub &lt;- h_tab_rsp_one_biomarker(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">218</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">88</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .formats = .formats,</pre>
+                      <pre class="language-r">      df = df_sub,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">89</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .labels = .labels,</pre>
+                      <pre class="language-r">      vars = vars,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">90</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .indent_mods = .indent_mods</pre>
+                      <pre class="language-r">      na_str = na_str,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">91</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      .indent_mods = .indent_mods</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # Insert label row as first row in table.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">94</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  analyze(</pre>
+                      <pre class="language-r">    label_at_path(tab_sub, path = row_paths(tab_sub)[[1]][1]) &lt;- df_sub$biomarker_label[1]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">95</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt,</pre>
+                      <pre class="language-r">    tab_sub</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">96</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">225</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">97</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars,</pre>
+                      <pre class="language-r">  result &lt;- do.call(rbind, tabs)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">98</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">99</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    afun = afun,</pre>
+                      <pre class="language-r">  n_id &lt;- grep("n_tot", vars)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">100</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_labels = var_labels,</pre>
+                      <pre class="language-r">  or_id &lt;- match("or", vars)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">101</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">  ci_id &lt;- match("ci", vars)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">229</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">102</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nested = nested,</pre>
+                      <pre class="language-r">  structure(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">103</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args = extra_args,</pre>
+                      <pre class="language-r">    result,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">231</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">104</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    show_labels = show_labels,</pre>
+                      <pre class="language-r">    forest_header = paste0(c("Lower", "Higher"), "\nBetter"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">105</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table_names = table_names</pre>
+                      <pre class="language-r">    col_x = or_id,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">106</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    col_ci = ci_id,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">107</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    col_symbol_size = n_id</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">234</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper functions for odds ratio estimation</pre>
+                      <pre class="language-r">#' Prepare response data estimates for multiple biomarkers in a single data frame</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">237</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">238</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Functions to calculate odds ratios in [estimate_odds_ratio()].</pre>
+                      <pre class="language-r">#' Prepares estimates for number of responses, patients and overall response rate,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">241</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' as well as odds ratio estimates, confidence intervals and p-values,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">242</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams odds_ratio</pre>
+                      <pre class="language-r">#' for multiple biomarkers across population subgroups in a single data frame.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' `variables` corresponds to the names of variables found in `data`, passed as a</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data (`data.frame`)\cr data frame containing at least the variables `rsp` and `grp`, and optionally</pre>
+                      <pre class="language-r">#' named list and requires elements `rsp` and `biomarkers` (vector of continuous</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `strata` for [or_clogit()].</pre>
+                      <pre class="language-r">#' biomarker variables) and optionally `covariates`, `subgroups` and `strata`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</td>
+                    <td class="num">121</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' `groups_lists` optionally specifies groupings for `subgroups` variables.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">247</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A named `list` of elements `or_ci` and `n_tot`.</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @inheritParams response_subgroups</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">249</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [odds_ratio]</pre>
+                      <pre class="language-r">#' @param control (named `list`)\cr controls for the response definition and the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">250</td>
+                    <td class="num">126</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   confidence level produced by [control_logistic()].</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name h_odds_ratio</pre>
+                      <pre class="language-r">#' @return A `data.frame` with columns `biomarker`, `biomarker_label`, `n_tot`, `n_rsp`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#'   `prop`, `or`, `lcl`, `ucl`, `conf_level`, `pval`, `pval_label`, `subgroup`, `var`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">253</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   `var_label`, and `row_type`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_odds_ratio Estimates the odds ratio based on [stats::glm()]. Note that there must be</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">255</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   exactly 2 groups in `data` as specified by the `grp` variable.</pre>
+                      <pre class="language-r">#' @note You can also specify a continuous variable in `rsp` and then use the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">256</td>
+                    <td class="num">133</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   `response_definition` control to convert that internally to a logical</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">134</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   variable reflecting binary response.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @seealso [h_logistic_mult_cont_df()] which is used internally.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Data with 2 groups.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">259</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- data.frame(</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">260</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   rsp = as.logical(c(1, 1, 0, 1, 0, 0, 1, 1)),</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">261</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   grp = letters[c(1, 1, 1, 2, 2, 2, 1, 2)],</pre>
+                      <pre class="language-r">#' library(forcats)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   strata = letters[c(1, 2, 1, 2, 2, 2, 1, 2)],</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">263</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   stringsAsFactors = TRUE</pre>
+                      <pre class="language-r">#' adrs &lt;- tern_ex_adrs</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">264</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' adrs_labels &lt;- formatters::var_labels(adrs)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">266</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Odds ratio based on glm.</pre>
+                      <pre class="language-r">#' adrs_f &lt;- adrs %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' or_glm(data, conf_level = 0.95)</pre>
+                      <pre class="language-r">#'   filter(PARAMCD == "BESRSPI") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   mutate(rsp = AVALC == "CR")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">or_glm &lt;- function(data, conf_level) {</pre>
+                      <pre class="language-r">#' # Typical analysis of two continuous biomarkers `BMRKR1` and `AGE`,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">271</td>
-                    <td class="coverage">77<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">150</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_logical(data$rsp)</pre>
+                      <pre class="language-r">#' # in logistic regression models with one covariate `RACE`. The subgroups</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">272</td>
-                    <td class="coverage">77<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">151</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_proportion_value(conf_level)</pre>
+                      <pre class="language-r">#' # are defined by the levels of `BMRKR2`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">273</td>
-                    <td class="coverage">77<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">152</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(data, list(rsp = "rsp", grp = "grp"))</pre>
+                      <pre class="language-r">#' df &lt;- extract_rsp_biomarkers(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">274</td>
-                    <td class="coverage">77<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">153</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(data$grp, classes = c("factor", "character"))</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     rsp = "rsp",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">276</td>
-                    <td class="coverage">77<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">155</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data$grp &lt;- as_factor_keep_attributes(data$grp)</pre>
+                      <pre class="language-r">#'     biomarkers = c("BMRKR1", "AGE"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">277</td>
-                    <td class="coverage">77<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">156</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_factors(data, list(val = "grp"), min.levels = 2, max.levels = 2)</pre>
+                      <pre class="language-r">#'     covariates = "SEX",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">278</td>
-                    <td class="coverage">77<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">157</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  formula &lt;- stats::as.formula("rsp ~ grp")</pre>
+                      <pre class="language-r">#'     subgroups = "BMRKR2"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">279</td>
-                    <td class="coverage">77<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">158</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  model_fit &lt;- stats::glm(</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">280</td>
-                    <td class="coverage">77<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">159</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    formula = formula, data = data,</pre>
+                      <pre class="language-r">#'   data = adrs_f</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">281</td>
-                    <td class="coverage">77<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">160</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    family = stats::binomial(link = "logit")</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">282</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' df</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">283</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">284</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Note that here we need to discard the intercept.</pre>
+                      <pre class="language-r">#' # Here we group the levels of `BMRKR2` manually, and we add a stratification</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">285</td>
-                    <td class="coverage">77<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">164</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  or &lt;- exp(stats::coef(model_fit)[-1])</pre>
+                      <pre class="language-r">#' # variable `STRATA1`. We also here use a continuous variable `EOSDY`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">286</td>
-                    <td class="coverage">77<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">165</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  or_ci &lt;- exp(</pre>
+                      <pre class="language-r">#' # which is then binarized internally (response is defined as this variable</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">287</td>
-                    <td class="coverage">77<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">166</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stats::confint.default(model_fit, level = conf_level)[-1, , drop = FALSE]</pre>
+                      <pre class="language-r">#' # being larger than 750).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' df_grouped &lt;- extract_rsp_biomarkers(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">289</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">290</td>
-                    <td class="coverage">77<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">169</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  values &lt;- stats::setNames(c(or, or_ci), c("est", "lcl", "ucl"))</pre>
+                      <pre class="language-r">#'     rsp = "EOSDY",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">291</td>
-                    <td class="coverage">77<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">170</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n_tot &lt;- stats::setNames(nrow(model_fit$model), "n_tot")</pre>
+                      <pre class="language-r">#'     biomarkers = c("BMRKR1", "AGE"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">292</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     covariates = "SEX",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">293</td>
-                    <td class="coverage">77<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">172</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(or_ci = values, n_tot = n_tot)</pre>
+                      <pre class="language-r">#'     subgroups = "BMRKR2",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">294</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'     strata = "STRATA1"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">295</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_odds_ratio Estimates the odds ratio based on [survival::clogit()]. This is done for</pre>
+                      <pre class="language-r">#'   data = adrs_f,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the whole data set including all groups, since the results are not the same as when doing</pre>
+                      <pre class="language-r">#'   groups_lists = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">298</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   pairwise comparisons between the groups.</pre>
+                      <pre class="language-r">#'     BMRKR2 = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">299</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'       "low" = "LOW",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">300</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'       "low/medium" = c("LOW", "MEDIUM"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">301</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Data with 3 groups.</pre>
+                      <pre class="language-r">#'       "low/medium/high" = c("LOW", "MEDIUM", "HIGH")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">302</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' data &lt;- data.frame(</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">303</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   rsp = as.logical(c(1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0)),</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">304</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   grp = letters[c(1, 1, 1, 2, 2, 2, 3, 3, 3, 3, 1, 1, 1, 2, 2, 2, 3, 3, 3, 3)],</pre>
+                      <pre class="language-r">#'   control = control_logistic(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">305</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   strata = LETTERS[c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2)],</pre>
+                      <pre class="language-r">#'     response_definition = "I(response &gt; 750)"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">306</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   stringsAsFactors = TRUE</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">307</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">308</td>
+                    <td class="num">187</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' df_grouped</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">309</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Odds ratio based on stratified estimation by conditional logistic regression.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">310</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' or_clogit(data, conf_level = 0.95)</pre>
+                      <pre class="language-r">extract_rsp_biomarkers &lt;- function(variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">311</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                   data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">312</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                                   groups_lists = list(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">313</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">or_clogit &lt;- function(data, conf_level, method = "exact") {</pre>
+                      <pre class="language-r">                                   control = control_logistic(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">314</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">194</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_logical(data$rsp)</pre>
+                      <pre class="language-r">                                   label_all = "All Patients") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">315</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">195</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_proportion_value(conf_level)</pre>
+                      <pre class="language-r">  if ("strat" %in% names(variables)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">196</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    warning(</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">197</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      "Warning: the `strat` element name of the `variables` list argument to `extract_rsp_biomarkers() ",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">198</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      "was deprecated in tern 0.9.4.\n  ",</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">199</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      "Please use the name `strata` instead of `strat` in the `variables` argument."</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">200</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    )</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">201</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    variables[["strata"]] &lt;- variables[["strat"]]</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">202</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">203</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">316</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">204</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(data, list(rsp = "rsp", grp = "grp", strata = "strata"))</pre>
+                      <pre class="language-r">  assert_list_of_variables(variables)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">317</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">205</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(data$grp, classes = c("factor", "character"))</pre>
+                      <pre class="language-r">  checkmate::assert_string(variables$rsp)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">318</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">206</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(data$strata, classes = c("factor", "character"))</pre>
+                      <pre class="language-r">  checkmate::assert_character(variables$subgroups, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">319</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">207</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(method, c("exact", "approximate", "efron", "breslow"), empty.ok = FALSE)</pre>
+                      <pre class="language-r">  checkmate::assert_string(label_all)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">320</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
+                  <tr class="never">
+                    <td class="num">209</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  # Start with all patients.</pre>
+                    </td>
+                  </tr>
                   <tr class="covered">
-                    <td class="num">321</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">210</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data$grp &lt;- as_factor_keep_attributes(data$grp)</pre>
+                      <pre class="language-r">  result_all &lt;- h_logistic_mult_cont_df(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">322</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">211</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data$strata &lt;- as_factor_keep_attributes(data$strata)</pre>
+                      <pre class="language-r">    variables = variables,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">323</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">212</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    data = data,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">213</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    control = control</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">324</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Deviation from convention: `survival::strata` must be simply `strata`.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">325</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">215</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  formula &lt;- stats::as.formula("rsp ~ grp + strata(strata)")</pre>
+                      <pre class="language-r">  result_all$subgroup &lt;- label_all</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">326</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">216</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  model_fit &lt;- clogit_with_tryCatch(formula = formula, data = data, method = method)</pre>
+                      <pre class="language-r">  result_all$var &lt;- "ALL"</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">217</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  result_all$var_label &lt;- label_all</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">218</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  result_all$row_type &lt;- "content"</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">219</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (is.null(variables$subgroups)) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">327</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # Only return result for all patients.</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">221</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    result_all</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">328</td>
+                    <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Create a list with one set of OR estimates and CI per coefficient, i.e.</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">329</td>
+                    <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # comparison of one group vs. the reference group.</pre>
+                      <pre class="language-r">    # Add subgroups results.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">330</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">224</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  coef_est &lt;- stats::coef(model_fit)</pre>
+                      <pre class="language-r">    l_data &lt;- h_split_by_subgroups(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">331</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">225</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ci_est &lt;- stats::confint(model_fit, level = conf_level)</pre>
+                      <pre class="language-r">      data,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">332</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">226</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  or_ci &lt;- list()</pre>
+                      <pre class="language-r">      variables$subgroups,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">333</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">227</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  for (coef_name in names(coef_est)) {</pre>
+                      <pre class="language-r">      groups_lists = groups_lists</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">228</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">334</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">229</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    grp_name &lt;- gsub("^grp", "", x = coef_name)</pre>
+                      <pre class="language-r">    l_result &lt;- lapply(l_data, function(grp) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">335</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">230</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    or_ci[[grp_name]] &lt;- stats::setNames(</pre>
+                      <pre class="language-r">      result &lt;- h_logistic_mult_cont_df(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">336</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">231</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      object = exp(c(coef_est[coef_name], ci_est[coef_name, , drop = TRUE])),</pre>
+                      <pre class="language-r">        variables = variables,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">337</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">232</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nm = c("est", "lcl", "ucl")</pre>
+                      <pre class="language-r">        data = grp$df,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">233</td>
+                    <td class="coverage">20<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        control = control</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">338</td>
+                    <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      )</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">235</td>
+                    <td class="coverage">20<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      result_labels &lt;- grp$df_labels[rep(1, times = nrow(result)), ]</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">236</td>
+                    <td class="coverage">20<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      cbind(result, result_labels)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">339</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">340</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">238</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(or_ci = or_ci, n_tot = c(n_tot = model_fit$n))</pre>
+                      <pre class="language-r">    result_subgroups &lt;- do.call(rbind, args = c(l_result, make.row.names = FALSE))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">239</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    result_subgroups$row_type &lt;- "analysis"</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">240</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    rbind(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">241</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      result_all,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">242</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      result_subgroups</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">341</td>
+                    <td class="num">243</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">244</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -105811,14 +106909,14 @@ <h2>tern coverage - 95.64%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/count_patients_with_flags.R" class="hidden">
+            <div id="R/g_lineplot.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Count the number of patients with particular flags</pre>
+                      <pre class="language-r">#' Line plot with optional table</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -105846,651 +106944,651 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The analyze function [count_patients_with_flags()] creates a layout element to calculate counts of patients for</pre>
+                      <pre class="language-r">#' Line plot with the optional table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' which user-specified flags are present.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function analyzes primary analysis variable `var` which indicates unique subject identifiers. Flags</pre>
+                      <pre class="language-r">#' @param alt_counts_df (`data.frame` or `NULL`)\cr data set that will be used (only)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' variables to analyze are specified by the user via the `flag_variables` argument, and must either take value</pre>
+                      <pre class="language-r">#'   to counts objects in groups for stratification.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `TRUE` (flag present) or `FALSE` (flag absent) for each record.</pre>
+                      <pre class="language-r">#' @param variables (named `character`) vector of variable names in `df` which should include:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   * `x` (`string`)\cr name of x-axis variable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' If there are multiple records with the same flag present for a patient, only one occurrence is counted.</pre>
+                      <pre class="language-r">#'   * `y` (`string`)\cr name of y-axis variable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   * `group_var` (`string` or `NULL`)\cr name of grouping variable (or strata), i.e. treatment arm.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#'     Can be `NA` to indicate lack of groups.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param flag_variables (`character`)\cr a vector specifying the names of `logical` variables from analysis dataset</pre>
+                      <pre class="language-r">#'   * `subject_var` (`string` or `NULL`)\cr name of subject variable. Only applies if `group_var` is</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   used for counting the number of unique identifiers.</pre>
+                      <pre class="language-r">#'      not NULL.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param flag_labels (`character`)\cr vector of labels to use for flag variables.</pre>
+                      <pre class="language-r">#'   * `paramcd` (`string` or `NA`)\cr name of the variable for parameter's code. Used for y-axis label and plot's</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("count_patients_with_flags")`</pre>
+                      <pre class="language-r">#'     subtitle. Can be `NA` if `paramcd` is not to be added to the y-axis label or subtitle.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to see available statistics for this function.</pre>
+                      <pre class="language-r">#'   * `y_unit` (`string` or `NA`)\cr name of variable with units of `y`. Used for y-axis label and plot's subtitle.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     Can be `NA` if y unit is not to be added to the y-axis label or subtitle.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [count_patients_with_event]</pre>
+                      <pre class="language-r">#'   * `facet_var` (`string` or `NA`)\cr name of the secondary grouping variable used for plot faceting, i.e. treatment</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     arm. Can be `NA` to indicate lack of groups.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name count_patients_with_flags</pre>
+                      <pre class="language-r">#' @param mid (`character` or `NULL`)\cr names of the statistics that will be plotted as midpoints.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 1</pre>
+                      <pre class="language-r">#'   All the statistics indicated in `mid` variable must be present in the object returned by `sfun`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#'   and be of a `double` or `numeric` type vector of length one.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param interval (`character` or `NULL`)\cr names of the statistics that will be plotted as intervals.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn count_patients_with_flags Statistics function which counts the number of patients for which</pre>
+                      <pre class="language-r">#'   All the statistics indicated in `interval` variable must be present in the object returned by `sfun`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   a particular flag variable is `TRUE`.</pre>
+                      <pre class="language-r">#'   and be of a `double` or `numeric` type vector of length two. Set `interval = NULL` if intervals should not be</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   added to the plot.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams analyze_variables</pre>
+                      <pre class="language-r">#' @param whiskers (`character`)\cr names of the interval whiskers that will be plotted. Names must match names</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .var (`string`)\cr name of the column that contains the unique identifier.</pre>
+                      <pre class="language-r">#'   of the list element `interval` that will be returned by `sfun` (e.g. `mean_ci_lwr` element of</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   `sfun(x)[["mean_ci"]]`). It is possible to specify one whisker only, or to suppress all whiskers by setting</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note If `flag_labels` is not specified, variables labels will be extracted from `df`. If variables are not</pre>
+                      <pre class="language-r">#'   `interval = NULL`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   labeled, variable names will be used instead. Alternatively, a named `vector` can be supplied to</pre>
+                      <pre class="language-r">#' @param table (`character` or `NULL`)\cr names of the statistics that will be displayed in the table below the plot.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `flag_variables` such that within each name-value pair the name corresponds to the variable name and the value is</pre>
+                      <pre class="language-r">#'   All the statistics indicated in `table` variable must be present in the object returned by `sfun`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the label to use for this variable.</pre>
+                      <pre class="language-r">#' @param sfun (`function`)\cr the function to compute the values of required statistics. It must return a named `list`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   with atomic vectors. The names of the `list` elements refer to the names of the statistics and are used by `mid`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'   `interval`, `table`. It must be able to accept as input a vector with data for which statistics are computed.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_count_patients_with_flags()` returns the count and the fraction of unique identifiers with each particular</pre>
+                      <pre class="language-r">#' @param ... optional arguments to `sfun`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   flag as a list of statistics `n`, `count`, `count_fraction`, and `n_blq`, with one element per flag.</pre>
+                      <pre class="language-r">#' @param mid_type (`string`)\cr controls the type of the `mid` plot, it can be point (`"p"`), line (`"l"`),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   or point and line (`"pl"`).</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @param mid_point_size (`numeric(1)`)\cr font size of the `mid` plot points.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `s_count_patients_with_flags()`</pre>
+                      <pre class="language-r">#' @param position (`character` or `call`)\cr geom element position adjustment, either as a string, or the result of</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   a call to a position adjustment function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_count_patients_with_flags(</pre>
+                      <pre class="language-r">#' @param legend_title (`string`)\cr legend title.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   adae,</pre>
+                      <pre class="language-r">#' @param legend_position (`string`)\cr the position of the plot legend (`"none"`, `"left"`, `"right"`, `"bottom"`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "SUBJID",</pre>
+                      <pre class="language-r">#'   `"top"`, or a two-element numeric vector).</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   flag_variables = c("fl1", "fl2", "fl3", "fl4"),</pre>
+                      <pre class="language-r">#' @param ggtheme (`theme`)\cr a graphical theme as provided by `ggplot2` to control styling of the plot.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   denom = "N_col",</pre>
+                      <pre class="language-r">#' @param xticks (`numeric` or `NULL`)\cr numeric vector of tick positions or a single number with spacing</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .N_col = 1000</pre>
+                      <pre class="language-r">#'   between ticks on the x-axis, for use when `variables$x` is numeric. If `NULL` (default), [labeling::extended()] is</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   used to determine optimal tick positions on the x-axis. If `variables$x` is not numeric, this argument is ignored.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param x_lab (`string` or `NULL`)\cr x-axis label. If `NULL` then no label will be added.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @param y_lab (`string` or `NULL`)\cr y-axis label. If `NULL` then no label will be added.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_count_patients_with_flags &lt;- function(df,</pre>
+                      <pre class="language-r">#' @param y_lab_add_paramcd (`flag`)\cr whether `paramcd`, i.e. `unique(df[[variables["paramcd"]]])` should be added</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        .var,</pre>
+                      <pre class="language-r">#'   to the y-axis label (`y_lab`).</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        flag_variables,</pre>
+                      <pre class="language-r">#' @param y_lab_add_unit (`flag`)\cr whether y-axis unit, i.e. `unique(df[[variables["y_unit"]]])` should be added</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        flag_labels = NULL,</pre>
+                      <pre class="language-r">#'   to the y-axis label (`y_lab`).</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        .N_col, # nolint</pre>
+                      <pre class="language-r">#' @param title (`string`)\cr plot title.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        .N_row, # nolint</pre>
+                      <pre class="language-r">#' @param subtitle (`string`)\cr plot subtitle.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        denom = c("n", "N_row", "N_col")) {</pre>
+                      <pre class="language-r">#' @param subtitle_add_paramcd (`flag`)\cr whether `paramcd`, i.e. `unique(df[[variables["paramcd"]]])` should be</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">61</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(flag_variables)</pre>
+                      <pre class="language-r">#'   added to the plot's subtitle (`subtitle`).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">62</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(flag_labels)) {</pre>
+                      <pre class="language-r">#' @param subtitle_add_unit (`flag`)\cr whether the y-axis unit, i.e. `unique(df[[variables["y_unit"]]])` should be</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">63</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_character(flag_labels, len = length(flag_variables), any.missing = FALSE)</pre>
+                      <pre class="language-r">#'   added to the plot's subtitle (`subtitle`).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">64</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    flag_names &lt;- flag_labels</pre>
+                      <pre class="language-r">#' @param caption (`string`)\cr optional caption below the plot.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' @param table_format (named `character` or `NULL`)\cr format patterns for descriptive statistics used in the</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">66</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.null(names(flag_variables))) {</pre>
+                      <pre class="language-r">#'   (optional) table appended to the plot. It is passed directly to the `h_format_row` function through the `format`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">67</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      flag_names &lt;- formatters::var_labels(df[flag_variables], fill = TRUE)</pre>
+                      <pre class="language-r">#'   parameter. Names of `table_format` must match the names of statistics returned by `sfun` function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">#' @param table_labels (named `character` or `NULL`)\cr labels for descriptive statistics used in the (optional) table</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">69</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      flag_names &lt;- unname(flag_variables)</pre>
+                      <pre class="language-r">#'   appended to the plot. Names of `table_labels` must match the names of statistics returned by `sfun` function.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">70</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      flag_variables &lt;- names(flag_variables)</pre>
+                      <pre class="language-r">#' @param table_font_size (`numeric(1)`)\cr font size of the text in the table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' @param newpage `r lifecycle::badge("deprecated")` not used.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @param col (`character`)\cr color(s). See `?ggplot2::aes_colour_fill_alpha` for example values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param linetype (`character`)\cr line type(s). See `?ggplot2::aes_linetype_size_shape` for example values.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">74</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(flag_variables, colnames(df))</pre>
+                      <pre class="language-r">#' @param errorbar_width (`numeric(1)`)\cr width of the error bars.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">75</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  temp &lt;- sapply(flag_variables, function(x) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">76</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tmp &lt;- Map(function(y) which(df[[y]]), x)</pre>
+                      <pre class="language-r">#' @return A `ggplot` line plot (and statistics table if applicable).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">77</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    position_satisfy_flags &lt;- Reduce(intersect, tmp)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">78</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    id_satisfy_flags &lt;- as.character(unique(df[position_satisfy_flags, ][[.var]]))</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">79</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    s_count_values(</pre>
+                      <pre class="language-r">#' library(nestcolor)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">80</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      as.character(unique(df[[.var]])),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">81</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id_satisfy_flags,</pre>
+                      <pre class="language-r">#' adsl &lt;- tern_ex_adsl</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">82</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      denom = denom,</pre>
+                      <pre class="language-r">#' adlb &lt;- tern_ex_adlb %&gt;% dplyr::filter(ANL01FL == "Y", PARAMCD == "ALT", AVISIT != "SCREENING")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">83</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      .N_col = .N_col,</pre>
+                      <pre class="language-r">#' adlb$AVISIT &lt;- droplevels(adlb$AVISIT)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">84</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      .N_row = .N_row</pre>
+                      <pre class="language-r">#' adlb &lt;- dplyr::mutate(adlb, AVISIT = forcats::fct_reorder(AVISIT, AVISITN, min))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">#' # Mean with CI</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">87</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  colnames(temp) &lt;- flag_names</pre>
+                      <pre class="language-r">#' g_lineplot(adlb, adsl, subtitle = "Laboratory Test:")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">88</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  temp &lt;- data.frame(t(temp))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">89</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result &lt;- temp %&gt;% as.list()</pre>
+                      <pre class="language-r">#' # Mean with CI, no stratification with group_var</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">90</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(flag_variables) == 1) {</pre>
+                      <pre class="language-r">#' g_lineplot(adlb, variables = control_lineplot_vars(group_var = NA))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">91</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    for (i in 1:3) names(result[[i]]) &lt;- flag_names[1]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' # Mean, upper whisker of CI, no group_var(strata) counts N</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">93</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result</pre>
+                      <pre class="language-r">#' g_lineplot(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   adlb,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   whiskers = "mean_ci_upr",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn count_patients_with_flags Formatted analysis function which is used as `afun`</pre>
+                      <pre class="language-r">#'   title = "Plot of Mean and Upper 95% Confidence Limit by Visit"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   in `count_patients_with_flags()`.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -106504,5454 +107602,5623 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' # Median with CI</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `a_count_patients_with_flags()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
+                      <pre class="language-r">#' g_lineplot(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   adlb,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   adsl,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' #  We need to ungroup `count_fraction` first so that the `rtables` formatting</pre>
+                      <pre class="language-r">#'   mid = "median",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # function `format_count_fraction()` can be applied correctly.</pre>
+                      <pre class="language-r">#'   interval = "median_ci",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   whiskers = c("median_ci_lwr", "median_ci_upr"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `a_count_patients_with_flags()`</pre>
+                      <pre class="language-r">#'   title = "Plot of Median and 95% Confidence Limits by Visit"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' afun &lt;- make_afun(a_count_patients_with_flags,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .stats = "count_fraction",</pre>
+                      <pre class="language-r">#' # Mean, +/- SD</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .ungroup_stats = "count_fraction"</pre>
+                      <pre class="language-r">#' g_lineplot(adlb, adsl,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   interval = "mean_sdi",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' afun(</pre>
+                      <pre class="language-r">#'   whiskers = c("mean_sdi_lwr", "mean_sdi_upr"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   adae,</pre>
+                      <pre class="language-r">#'   title = "Plot of Median +/- SD by Visit"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .N_col = 10L,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .N_row = 10L,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .var = "USUBJID",</pre>
+                      <pre class="language-r">#' # Mean with CI plot with stats table</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   flag_variables = c("fl1", "fl2", "fl3", "fl4")</pre>
+                      <pre class="language-r">#' g_lineplot(adlb, adsl, table = c("n", "mean", "mean_ci"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' # Mean with CI, table and customized confidence level</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' g_lineplot(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">a_count_patients_with_flags &lt;- make_afun(</pre>
+                      <pre class="language-r">#'   adlb,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_count_patients_with_flags,</pre>
+                      <pre class="language-r">#'   adsl,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats = c("count_fraction" = format_count_fraction_fixed_dp)</pre>
+                      <pre class="language-r">#'   table = c("n", "mean", "mean_ci"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">#'   control = control_analyze_vars(conf_level = 0.80),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   title = "Plot of Mean and 80% Confidence Limits by Visit"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn count_patients_with_flags Layout-creating function which can take statistics function</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   arguments and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' # Mean with CI, table, filtered data</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' adlb_f &lt;- dplyr::filter(adlb, ARMCD != "ARM A" | AVISIT == "BASELINE")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `count_patients_with_flags()` returns a layout object suitable for passing to further layouting functions,</pre>
+                      <pre class="language-r">#' g_lineplot(adlb_f, table = c("n", "mean"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the statistics from `s_count_patients_with_flags()` to the table layout.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">g_lineplot &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">                       alt_counts_df = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">                       variables = control_lineplot_vars(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                       mid = "mean",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Add labelled flag variables to analysis dataset.</pre>
+                      <pre class="language-r">                       interval = "mean_ci",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adae &lt;- tern_ex_adae %&gt;%</pre>
+                      <pre class="language-r">                       whiskers = c("mean_ci_lwr", "mean_ci_upr"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mutate(</pre>
+                      <pre class="language-r">                       table = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     fl1 = TRUE %&gt;% with_label("Total AEs"),</pre>
+                      <pre class="language-r">                       sfun = s_summary,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     fl2 = (TRTEMFL == "Y") %&gt;%</pre>
+                      <pre class="language-r">                       ...,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       with_label("Total number of patients with at least one adverse event"),</pre>
+                      <pre class="language-r">                       mid_type = "pl",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     fl3 = (TRTEMFL == "Y" &amp; AEOUT == "FATAL") %&gt;%</pre>
+                      <pre class="language-r">                       mid_point_size = 2,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       with_label("Total number of patients with fatal AEs"),</pre>
+                      <pre class="language-r">                       position = ggplot2::position_dodge(width = 0.4),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     fl4 = (TRTEMFL == "Y" &amp; AEOUT == "FATAL" &amp; AEREL == "Y") %&gt;%</pre>
+                      <pre class="language-r">                       legend_title = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       with_label("Total number of patients with related fatal AEs")</pre>
+                      <pre class="language-r">                       legend_position = "bottom",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">                       ggtheme = nestcolor::theme_nest(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                       xticks = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `count_patients_with_flags()`</pre>
+                      <pre class="language-r">                       xlim = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                       ylim = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' lyt2 &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">                       x_lab = obj_label(df[[variables[["x"]]]]),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
+                      <pre class="language-r">                       y_lab = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                      <pre class="language-r">                       y_lab_add_paramcd = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   count_patients_with_flags(</pre>
+                      <pre class="language-r">                       y_lab_add_unit = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "SUBJID",</pre>
+                      <pre class="language-r">                       title = "Plot of Mean and 95% Confidence Limits by Visit",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     flag_variables = c("fl1", "fl2", "fl3", "fl4"),</pre>
+                      <pre class="language-r">                       subtitle = "",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     denom = "N_col"</pre>
+                      <pre class="language-r">                       subtitle_add_paramcd = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">                       subtitle_add_unit = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                       caption = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' build_table(lyt2, adae, alt_counts_df = tern_ex_adsl)</pre>
+                      <pre class="language-r">                       table_format = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                       table_labels = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                       table_font_size = 3,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 2</pre>
+                      <pre class="language-r">                       errorbar_width = 0.45,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">count_patients_with_flags &lt;- function(lyt,</pre>
+                      <pre class="language-r">                       newpage = lifecycle::deprecated(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      var,</pre>
+                      <pre class="language-r">                       col = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      flag_variables,</pre>
+                      <pre class="language-r">                       linetype = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">167</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      flag_labels = NULL,</pre>
+                      <pre class="language-r">  checkmate::assert_character(variables, any.missing = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">168</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      var_labels = var,</pre>
+                      <pre class="language-r">  checkmate::assert_character(mid, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">169</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      show_labels = "hidden",</pre>
+                      <pre class="language-r">  checkmate::assert_character(interval, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">170</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      riskdiff = FALSE,</pre>
+                      <pre class="language-r">  checkmate::assert_character(col, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">171</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      na_str = default_na_str(),</pre>
+                      <pre class="language-r">  checkmate::assert_character(linetype, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">172</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      nested = TRUE,</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(xticks, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">173</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      ...,</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(xlim, finite = TRUE, any.missing = FALSE, len = 2, sorted = TRUE, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">174</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      table_names = paste0("tbl_flags_", var),</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(ylim, finite = TRUE, any.missing = FALSE, len = 2, sorted = TRUE, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">175</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      .stats = "count_fraction",</pre>
+                      <pre class="language-r">  checkmate::assert_number(errorbar_width, lower = 0)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">176</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      .formats = NULL,</pre>
+                      <pre class="language-r">  checkmate::assert_string(title, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">177</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      .indent_mods = NULL) {</pre>
+                      <pre class="language-r">  checkmate::assert_string(subtitle, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">178</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(riskdiff)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">179</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if (!is.null(table)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">180</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_args &lt;- list(flag_variables = flag_variables, flag_labels = flag_labels, ...)</pre>
+                      <pre class="language-r">    table_format &lt;- get_formats_from_stats(table)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">181</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    table_labels &lt;- get_labels_from_stats(table)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">182</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  afun &lt;- make_afun(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">183</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    a_count_patients_with_flags,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">184</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .stats = .stats,</pre>
+                      <pre class="language-r">  extra_args &lt;- list(...)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">185</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .formats = .formats,</pre>
+                      <pre class="language-r">  if ("control" %in% names(extra_args)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">186</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .indent_mods = .indent_mods,</pre>
+                      <pre class="language-r">    if (!is.null(table) &amp;&amp; all(table_labels == get_labels_from_stats(table))) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">187</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .ungroup_stats = .stats</pre>
+                      <pre class="language-r">      table_labels &lt;- table_labels %&gt;% labels_use_control(extra_args[["control"]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">190</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- if (isFALSE(riskdiff)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">191</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    s_args</pre>
+                      <pre class="language-r">  if (is.character(interval)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">192</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">    checkmate::assert_vector(whiskers, min.len = 0, max.len = 2)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">193</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">194</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      afun = list("s_count_patients_with_flags" = afun),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">195</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      .stats = .stats,</pre>
+                      <pre class="language-r">  if (length(whiskers) == 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">196</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      .indent_mods = .indent_mods,</pre>
+                      <pre class="language-r">    checkmate::assert_character(mid)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">197</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      s_args = s_args</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">199</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  if (is.character(mid)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">200</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    checkmate::assert_scalar(mid_type)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">201</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lyt &lt;- analyze(</pre>
+                      <pre class="language-r">    checkmate::assert_subset(mid_type, c("pl", "p", "l"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">202</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt = lyt,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">203</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars = var,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">204</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_labels = var_labels,</pre>
+                      <pre class="language-r">  x &lt;- variables[["x"]]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">205</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    show_labels = show_labels,</pre>
+                      <pre class="language-r">  y &lt;- variables[["y"]]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">206</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    afun = ifelse(isFALSE(riskdiff), afun, afun_riskdiff),</pre>
+                      <pre class="language-r">  paramcd &lt;- variables["paramcd"] # NA if paramcd == NA or it is not in variables</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">207</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table_names = table_names,</pre>
+                      <pre class="language-r">  y_unit &lt;- variables["y_unit"] # NA if y_unit == NA or it is not in variables</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">208</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">  if (is.na(variables["group_var"])) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">209</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nested = nested,</pre>
+                      <pre class="language-r">    group_var &lt;- NULL # NULL if group_var == NA or it is not in variables</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">210</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args = extra_args</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">211</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    group_var &lt;- variables[["group_var"]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">212</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    subject_var &lt;- variables[["subject_var"]]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">213</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lyt</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">214</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  if (is.na(variables["facet_var"])) {</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/prop_diff_test.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">215</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Difference test for two proportions</pre>
+                      <pre class="language-r">    facet_var &lt;- NULL # NULL if facet_var == NA or it is not in variables</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">217</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">    facet_var &lt;- variables[["facet_var"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">219</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The analyze function [test_proportion_diff()] creates a layout element to test the difference between two</pre>
+                      <pre class="language-r">  checkmate::assert_flag(y_lab_add_paramcd, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">220</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' proportions. The primary analysis variable, `vars`, indicates whether a response has occurred for each record. See</pre>
+                      <pre class="language-r">  checkmate::assert_flag(subtitle_add_paramcd, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">221</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the `method` parameter for options of methods to use to calculate the p-value. Additionally, a stratification</pre>
+                      <pre class="language-r">  if ((!is.null(y_lab) &amp;&amp; y_lab_add_paramcd) || (!is.null(subtitle) &amp;&amp; subtitle_add_paramcd)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">222</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' variable can be supplied via the `strata` element of the `variables` argument.</pre>
+                      <pre class="language-r">    checkmate::assert_false(is.na(paramcd))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">223</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    checkmate::assert_scalar(unique(df[[paramcd]]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param method (`string`)\cr one of `chisq`, `cmh`, `fisher`, or `schouten`; specifies the test used</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">226</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to calculate the p-value.</pre>
+                      <pre class="language-r">  checkmate::assert_flag(y_lab_add_unit, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">227</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("test_proportion_diff")`</pre>
+                      <pre class="language-r">  checkmate::assert_flag(subtitle_add_unit, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">228</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to see available statistics for this function.</pre>
+                      <pre class="language-r">  if ((!is.null(y_lab) &amp;&amp; y_lab_add_unit) || (!is.null(subtitle) &amp;&amp; subtitle_add_unit)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">229</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    checkmate::assert_false(is.na(y_unit))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">230</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [h_prop_diff_test]</pre>
+                      <pre class="language-r">    checkmate::assert_scalar(unique(df[[y_unit]]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name prop_diff_test</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">233</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 1</pre>
+                      <pre class="language-r">  if (!is.null(group_var) &amp;&amp; !is.null(alt_counts_df)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">234</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    checkmate::assert_set_equal(unique(alt_counts_df[[group_var]]), unique(df[[group_var]]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn prop_diff_test Statistics function which tests the difference between two proportions.</pre>
+                      <pre class="language-r">  ####################################### |</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">238</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  # ---- Compute required statistics ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">  ####################################### |</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_test_proportion_diff()` returns a named `list` with a single item `pval` with an attribute `label`</pre>
+                      <pre class="language-r">  # Remove unused levels for x-axis</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">241</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   describing the method used. The p-value tests the null hypothesis that proportions in two groups are the same.</pre>
+                      <pre class="language-r">  if (is.factor(df[[x]])) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">242</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    df[[x]] &lt;- droplevels(df[[x]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_test_proportion_diff &lt;- function(df,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">245</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   .var,</pre>
+                      <pre class="language-r">  if (!is.null(facet_var) &amp;&amp; !is.null(group_var)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">246</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   .ref_group,</pre>
+                      <pre class="language-r">    df_grp &lt;- tidyr::expand(df, .data[[facet_var]], .data[[group_var]], .data[[x]]) # expand based on levels of factors</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">247</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   .in_ref_col,</pre>
+                      <pre class="language-r">  } else if (!is.null(group_var)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">248</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   variables = list(strata = NULL),</pre>
+                      <pre class="language-r">    df_grp &lt;- tidyr::expand(df, .data[[group_var]], .data[[x]]) # expand based on levels of factors</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   method = c("chisq", "schouten", "fisher", "cmh")) {</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">35</td>
-                    <td class="coverage">45<em>x</em></td>
+                    <td class="num">250</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  method &lt;- match.arg(method)</pre>
+                      <pre class="language-r">    df_grp &lt;- tidyr::expand(df, NULL, .data[[x]])</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">36</td>
-                    <td class="coverage">45<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">251</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- list(pval = "")</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">38</td>
-                    <td class="coverage">45<em>x</em></td>
+                    <td class="num">253</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!.in_ref_col) {</pre>
+                      <pre class="language-r">  df_grp &lt;- df_grp %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">39</td>
-                    <td class="coverage">45<em>x</em></td>
+                    <td class="num">254</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    assert_df_with_variables(df, list(rsp = .var))</pre>
+                      <pre class="language-r">    dplyr::full_join(y = df[, c(facet_var, group_var, x, y)], by = c(facet_var, group_var, x), multiple = "all") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">40</td>
-                    <td class="coverage">45<em>x</em></td>
+                    <td class="num">255</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    assert_df_with_variables(.ref_group, list(rsp = .var))</pre>
+                      <pre class="language-r">    dplyr::group_by_at(c(facet_var, group_var, x))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">41</td>
-                    <td class="coverage">45<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">256</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rsp &lt;- factor(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">42</td>
-                    <td class="coverage">45<em>x</em></td>
+                    <td class="num">257</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      c(.ref_group[[.var]], df[[.var]]),</pre>
+                      <pre class="language-r">  df_stats &lt;- df_grp %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">43</td>
-                    <td class="coverage">45<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      levels = c("TRUE", "FALSE")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                    <td class="num">258</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    dplyr::summarise(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">45</td>
-                    <td class="coverage">45<em>x</em></td>
+                    <td class="num">259</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    grp &lt;- factor(</pre>
+                      <pre class="language-r">      data.frame(t(do.call(c, unname(sfun(.data[[y]])[c(mid, interval)])))),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">46</td>
-                    <td class="coverage">45<em>x</em></td>
+                    <td class="num">260</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rep(c("ref", "Not-ref"), c(nrow(.ref_group), nrow(df))),</pre>
+                      <pre class="language-r">      .groups = "drop"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">47</td>
-                    <td class="coverage">45<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">261</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      levels = c("ref", "Not-ref")</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">262</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">263</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  df_stats &lt;- df_stats[!is.na(df_stats[[mid]]), ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">50</td>
-                    <td class="coverage">45<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">265</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.null(variables$strata) || method == "cmh") {</pre>
+                      <pre class="language-r">  # add number of objects N in group_var (strata)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">51</td>
+                    <td class="num">266</td>
                     <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      strata &lt;- variables$strata</pre>
+                      <pre class="language-r">  if (!is.null(group_var) &amp;&amp; !is.null(alt_counts_df)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">52</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">267</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      checkmate::assert_false(is.null(strata))</pre>
+                      <pre class="language-r">    strata_N &lt;- paste0(group_var, "_N") # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">53</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">268</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      strata_vars &lt;- stats::setNames(as.list(strata), strata)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">54</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">269</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      assert_df_with_variables(df, strata_vars)</pre>
+                      <pre class="language-r">    df_N &lt;- stats::aggregate(eval(parse(text = subject_var)) ~ eval(parse(text = group_var)), data = alt_counts_df, FUN = function(x) length(unique(x))) # nolint</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">55</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">270</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      assert_df_with_variables(.ref_group, strata_vars)</pre>
+                      <pre class="language-r">    colnames(df_N) &lt;- c(group_var, "N") # nolint</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">56</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">271</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      strata &lt;- c(interaction(.ref_group[strata]), interaction(df[strata]))</pre>
+                      <pre class="language-r">    df_N[[strata_N]] &lt;- paste0(df_N[[group_var]], " (N = ", df_N$N, ")") # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">272</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">273</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # keep strata factor levels</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">45<em>x</em></td>
+                    <td class="num">274</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tbl &lt;- switch(method,</pre>
+                      <pre class="language-r">    matches &lt;- sapply(unique(df_N[[group_var]]), function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">45<em>x</em></td>
+                    <td class="num">275</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cmh = table(grp, rsp, strata),</pre>
+                      <pre class="language-r">      regex_pattern &lt;- gsub("([][(){}^$.|*+?\\\\])", "\\\\\\1", x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">45<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      table(grp, rsp)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">62</td>
-                    <td class="coverage"></td>
+                    <td class="num">276</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      unique(df_N[[paste0(group_var, "_N")]])[grepl(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">277</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        paste0("^", regex_pattern),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">64</td>
-                    <td class="coverage">45<em>x</em></td>
+                    <td class="num">278</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y$pval &lt;- switch(method,</pre>
+                      <pre class="language-r">        unique(df_N[[paste0(group_var, "_N")]])</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">45<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">279</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      chisq = prop_chisq(tbl),</pre>
+                      <pre class="language-r">      )]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">45<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">280</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cmh = prop_cmh(tbl),</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">67</td>
-                    <td class="coverage">45<em>x</em></td>
+                    <td class="num">281</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      fisher = prop_fisher(tbl),</pre>
+                      <pre class="language-r">    df_N[[paste0(group_var, "_N")]] &lt;- factor(df_N[[group_var]]) # nolint</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">45<em>x</em></td>
+                    <td class="num">282</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      schouten = prop_schouten(tbl)</pre>
+                      <pre class="language-r">    levels(df_N[[paste0(group_var, "_N")]]) &lt;- unlist(matches) # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">283</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    # strata_N should not be in colnames(df_stats)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">285</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    checkmate::assert_disjunct(strata_N, colnames(df_stats))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">45<em>x</em></td>
+                    <td class="num">287</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y$pval &lt;- formatters::with_label(y$pval, d_test_proportion_diff(method))</pre>
+                      <pre class="language-r">    df_stats &lt;- merge(x = df_stats, y = df_N[, c(group_var, strata_N)], by = group_var)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">73</td>
-                    <td class="coverage">45<em>x</em></td>
+                    <td class="num">288</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y</pre>
+                      <pre class="language-r">  } else if (!is.null(group_var)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">289</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    strata_N &lt;- group_var # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">76</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">291</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Description of the difference test between two proportions</pre>
+                      <pre class="language-r">    strata_N &lt;- NULL # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">292</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  ############################################### |</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">295</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This is an auxiliary function that describes the analysis in `s_test_proportion_diff`.</pre>
+                      <pre class="language-r">  # ---- Prepare certain plot's properties. ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">296</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  ############################################### |</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">297</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams s_test_proportion_diff</pre>
+                      <pre class="language-r">  # legend title</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">83</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">298</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if (is.null(legend_title) &amp;&amp; !is.null(group_var) &amp;&amp; legend_position != "none") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">84</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">299</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `string` describing the test from which the p-value is derived.</pre>
+                      <pre class="language-r">    legend_title &lt;- attr(df[[group_var]], "label")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">300</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">301</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">302</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">d_test_proportion_diff &lt;- function(method) {</pre>
+                      <pre class="language-r">  # y label</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">88</td>
-                    <td class="coverage">59<em>x</em></td>
+                    <td class="num">303</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(method)</pre>
+                      <pre class="language-r">  if (!is.null(y_lab)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">89</td>
-                    <td class="coverage">59<em>x</em></td>
+                    <td class="num">304</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  meth_part &lt;- switch(method,</pre>
+                      <pre class="language-r">    if (y_lab_add_paramcd) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">59<em>x</em></td>
+                    <td class="num">305</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "schouten" = "Chi-Squared Test with Schouten Correction",</pre>
+                      <pre class="language-r">      y_lab &lt;- paste(y_lab, unique(df[[paramcd]]))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">91</td>
-                    <td class="coverage">59<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">306</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "chisq" = "Chi-Squared Test",</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">59<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">307</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "cmh" = "Cochran-Mantel-Haenszel Test",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">93</td>
-                    <td class="coverage">59<em>x</em></td>
+                    <td class="num">308</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "fisher" = "Fisher's Exact Test",</pre>
+                      <pre class="language-r">    if (y_lab_add_unit) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">94</td>
-                    <td class="coverage">59<em>x</em></td>
+                    <td class="num">309</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop(paste(method, "does not have a description"))</pre>
+                      <pre class="language-r">      y_lab &lt;- paste0(y_lab, " (", unique(df[[y_unit]]), ")")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">310</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">311</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">96</td>
-                    <td class="coverage">59<em>x</em></td>
+                    <td class="num">312</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  paste0("p-value (", meth_part, ")")</pre>
+                      <pre class="language-r">    y_lab &lt;- trimws(y_lab)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">315</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn prop_diff_test Formatted analysis function which is used as `afun` in `test_proportion_diff()`.</pre>
+                      <pre class="language-r">  # subtitle</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">100</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">316</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if (!is.null(subtitle)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">101</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">317</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">    if (subtitle_add_paramcd) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">102</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">318</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `a_test_proportion_diff()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
+                      <pre class="language-r">      subtitle &lt;- paste(subtitle, unique(df[[paramcd]]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">319</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">105</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">321</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">a_test_proportion_diff &lt;- make_afun(</pre>
+                      <pre class="language-r">    if (subtitle_add_unit) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">106</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">322</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_test_proportion_diff,</pre>
+                      <pre class="language-r">      subtitle &lt;- paste0(subtitle, " (", unique(df[[y_unit]]), ")")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">323</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats = c(pval = "x.xxxx | (&lt;0.0001)"),</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">324</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .indent_mods = c(pval = 1L)</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">325</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    subtitle &lt;- trimws(subtitle)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">326</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">327</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">328</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn prop_diff_test Layout-creating function which can take statistics function arguments</pre>
+                      <pre class="language-r">  ############################### |</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">329</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
+                      <pre class="language-r">  # ---- Build plot object. ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">330</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  ############################### |</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">114</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">331</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">  p &lt;- ggplot2::ggplot(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">115</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">332</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `test_proportion_diff()` returns a layout object suitable for passing to further layouting functions,</pre>
+                      <pre class="language-r">    data = df_stats,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">116</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">333</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
+                      <pre class="language-r">    mapping = ggplot2::aes(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">117</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">334</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the statistics from `s_test_proportion_diff()` to the table layout.</pre>
+                      <pre class="language-r">      x = .data[[x]], y = .data[[mid]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">118</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">335</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      color = if (is.null(strata_N)) NULL else .data[[strata_N]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">119</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">336</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">      shape = if (is.null(strata_N)) NULL else .data[[strata_N]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">120</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">337</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dta &lt;- data.frame(</pre>
+                      <pre class="language-r">      lty = if (is.null(strata_N)) NULL else .data[[strata_N]],</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">338</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      group = if (is.null(strata_N)) NULL else .data[[strata_N]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">339</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   rsp = sample(c(TRUE, FALSE), 100, TRUE),</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">340</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   grp = factor(rep(c("A", "B"), each = 50)),</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">341</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   strata = factor(rep(c("V", "W", "X", "Y", "Z"), each = 20))</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">342</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (!is.null(group_var) &amp;&amp; nlevels(df_stats[[strata_N]]) &gt; 6) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">343</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    p &lt;- p +</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">344</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      scale_shape_manual(values = seq(15, 15 + nlevels(df_stats[[strata_N]])))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">345</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">346</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">347</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (!is.null(mid)) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">348</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # With `rtables` pipelines.</pre>
+                      <pre class="language-r">    # points</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">349</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    if (grepl("p", mid_type, fixed = TRUE)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">350</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      p &lt;- p + ggplot2::geom_point(position = position, size = mid_point_size, na.rm = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">351</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' l &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">352</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by(var = "grp", ref_group = "B") %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">353</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   test_proportion_diff(</pre>
+                      <pre class="language-r">    # lines - plotted only if there is a strata grouping (group_var)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">354</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    if (grepl("l", mid_type, fixed = TRUE) &amp;&amp; !is.null(strata_N)) { # nolint</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">355</td>
+                    <td class="coverage">11<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      p &lt;- p + ggplot2::geom_line(position = position, na.rm = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">356</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     vars = "rsp",</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">357</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     method = "cmh", variables = list(strata = "strata")</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">358</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">359</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  # interval</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">360</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (!is.null(interval)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">134</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">361</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' build_table(l, df = dta)</pre>
+                      <pre class="language-r">    p &lt;- p +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">135</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">362</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      ggplot2::geom_errorbar(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">136</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">363</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">        ggplot2::aes(ymin = .data[[whiskers[1]]], ymax = .data[[whiskers[max(1, length(whiskers))]]]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">137</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">364</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 2</pre>
+                      <pre class="language-r">        width = errorbar_width,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">138</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">365</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">test_proportion_diff &lt;- function(lyt,</pre>
+                      <pre class="language-r">        position = position</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">366</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 vars,</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">367</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 variables = list(strata = NULL),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">141</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">368</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 method = c("chisq", "schouten", "fisher", "cmh"),</pre>
+                      <pre class="language-r">    if (length(whiskers) == 1) { # lwr or upr only; mid is then required</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">369</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 na_str = default_na_str(),</pre>
+                      <pre class="language-r">      # workaround as geom_errorbar does not provide single-direction whiskers</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">143</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">370</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 nested = TRUE,</pre>
+                      <pre class="language-r">      p &lt;- p +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">144</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">371</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 ...,</pre>
+                      <pre class="language-r">        ggplot2::geom_linerange(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">145</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">372</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 var_labels = vars,</pre>
+                      <pre class="language-r">          data = df_stats[!is.na(df_stats[[whiskers]]), ], # as na.rm =TRUE does not suppress warnings</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">146</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">373</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 show_labels = "hidden",</pre>
+                      <pre class="language-r">          ggplot2::aes(ymin = .data[[mid]], ymax = .data[[whiskers]]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">147</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">374</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 table_names = vars,</pre>
+                      <pre class="language-r">          position = position,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">148</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">375</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 .stats = NULL,</pre>
+                      <pre class="language-r">          na.rm = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">149</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">376</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 .formats = NULL,</pre>
+                      <pre class="language-r">          show.legend = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">377</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 .labels = NULL,</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">378</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 .indent_mods = NULL) {</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">379</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(variables = variables, method = method, ...)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">380</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">154</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">381</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  afun &lt;- make_afun(</pre>
+                      <pre class="language-r">  if (is.numeric(df_stats[[x]])) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">382</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    a_test_proportion_diff,</pre>
+                      <pre class="language-r">    if (length(xticks) == 1) xticks &lt;- seq(from = min(df_stats[[x]]), to = max(df_stats[[x]]), by = xticks)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">383</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .stats = .stats,</pre>
+                      <pre class="language-r">    p &lt;- p + ggplot2::scale_x_continuous(breaks = if (!is.null(xticks)) xticks else waiver(), limits = xlim)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">384</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .formats = .formats,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">385</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .labels = .labels,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    .indent_mods = .indent_mods</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">160</td>
-                    <td class="coverage"></td>
+                    <td class="num">386</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  p &lt;- p +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">387</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  analyze(</pre>
+                      <pre class="language-r">    ggplot2::scale_y_continuous(labels = scales::comma, limits = ylim) +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">388</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt,</pre>
+                      <pre class="language-r">    ggplot2::labs(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">389</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars,</pre>
+                      <pre class="language-r">      title = title,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">390</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    afun = afun,</pre>
+                      <pre class="language-r">      subtitle = subtitle,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">391</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_labels = var_labels,</pre>
+                      <pre class="language-r">      caption = caption,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">392</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">      color = legend_title,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">393</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nested = nested,</pre>
+                      <pre class="language-r">      lty = legend_title,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">394</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args = extra_args,</pre>
+                      <pre class="language-r">      shape = legend_title,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">395</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    show_labels = show_labels,</pre>
+                      <pre class="language-r">      x = x_lab,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">396</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table_names = table_names</pre>
+                      <pre class="language-r">      y = y_lab</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">397</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">398</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">173</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">399</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if (!is.null(col)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">174</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">400</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper functions to test proportion differences</pre>
+                      <pre class="language-r">    p &lt;- p +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">175</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">401</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      ggplot2::scale_color_manual(values = col)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">402</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper functions to implement various tests on the difference between two proportions.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">177</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">403</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if (!is.null(linetype)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">178</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">404</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param tbl (`matrix`)\cr matrix with two groups in rows and the binary response (`TRUE`/`FALSE`) in columns.</pre>
+                      <pre class="language-r">    p &lt;- p +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">179</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">405</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      ggplot2::scale_linetype_manual(values = linetype)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">406</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A p-value.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">407</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">182</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">408</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [prop_diff_test()] for implementation of these helper functions.</pre>
+                      <pre class="language-r">  if (!is.null(facet_var)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">183</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">409</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    p &lt;- p +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">184</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">410</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name h_prop_diff_test</pre>
+                      <pre class="language-r">      facet_grid(cols = vars(df_stats[[facet_var]]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">411</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">412</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">187</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">413</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_prop_diff_test Performs Chi-Squared test. Internally calls [stats::prop.test()].</pre>
+                      <pre class="language-r">  if (!is.null(ggtheme)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">188</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">414</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    p &lt;- p + ggtheme</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">415</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">190</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">416</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">prop_chisq &lt;- function(tbl) {</pre>
+                      <pre class="language-r">    p &lt;- p +</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">41<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">417</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_integer(c(ncol(tbl), nrow(tbl)), lower = 2, upper = 2)</pre>
+                      <pre class="language-r">      ggplot2::theme_bw() +</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">41<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">418</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tbl &lt;- tbl[, c("TRUE", "FALSE")]</pre>
+                      <pre class="language-r">      ggplot2::theme(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">193</td>
-                    <td class="coverage">41<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">419</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any(colSums(tbl) == 0)) {</pre>
+                      <pre class="language-r">        legend.key.width = grid::unit(1, "cm"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">194</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">420</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(1)</pre>
+                      <pre class="language-r">        legend.position = legend_position,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">195</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">421</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        legend.direction = ifelse(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">39<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">422</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  stats::prop.test(tbl, correct = FALSE)$p.value</pre>
+                      <pre class="language-r">          legend_position %in% c("top", "bottom"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">197</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">423</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">          "horizontal",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">198</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">424</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          "vertical"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">425</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_prop_diff_test Performs stratified Cochran-Mantel-Haenszel test. Internally calls</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">426</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   [stats::mantelhaen.test()]. Note that strata with less than two observations are automatically discarded.</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">427</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">428</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ary (`array`, 3 dimensions)\cr array with two groups in rows, the binary response</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">429</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   (`TRUE`/`FALSE`) in columns, and the strata in the third dimension.</pre>
+                      <pre class="language-r">  ############################################################# |</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">430</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  # ---- Optionally, add table to the bottom of the plot. ----</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">205</td>
+                    <td class="num">431</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">  ############################################################# |</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">206</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">432</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">prop_cmh &lt;- function(ary) {</pre>
+                      <pre class="language-r">  if (!is.null(table)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="num">433</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_array(ary)</pre>
+                      <pre class="language-r">    df_stats_table &lt;- df_grp %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="num">434</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_integer(c(ncol(ary), nrow(ary)), lower = 2, upper = 2)</pre>
+                      <pre class="language-r">      dplyr::summarise(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">209</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="num">435</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_integer(length(dim(ary)), lower = 3, upper = 3)</pre>
+                      <pre class="language-r">        h_format_row(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="num">436</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  strata_sizes &lt;- apply(ary, MARGIN = 3, sum)</pre>
+                      <pre class="language-r">          x = sfun(.data[[y]], ...)[table],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="num">437</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any(strata_sizes &lt; 5)) {</pre>
+                      <pre class="language-r">          format = table_format,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">212</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">438</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning("&lt;5 data points in some strata. CMH test may be incorrect.")</pre>
+                      <pre class="language-r">          labels = table_labels</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">439</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">440</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ary &lt;- ary[, , strata_sizes &gt; 1]</pre>
+                      <pre class="language-r">        .groups = "drop"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">441</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">442</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">216</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="num">443</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  stats::mantelhaen.test(ary, correct = FALSE)$p.value</pre>
+                      <pre class="language-r">    stats_lev &lt;- rev(setdiff(colnames(df_stats_table), c(group_var, x)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">444</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">218</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">445</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    df_stats_table &lt;- df_stats_table %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">219</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">446</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_prop_diff_test Performs the Chi-Squared test with Schouten correction.</pre>
+                      <pre class="language-r">      tidyr::pivot_longer(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">220</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">447</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        cols = -dplyr::all_of(c(group_var, x)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">221</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">448</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso Schouten correction is based upon \insertCite{Schouten1980-kd;textual}{tern}.</pre>
+                      <pre class="language-r">        names_to = "stat",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">222</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">449</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        values_to = "value",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">223</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">450</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">        names_ptypes = list(stat = factor(levels = stats_lev))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">451</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">prop_schouten &lt;- function(tbl) {</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">225</td>
-                    <td class="coverage">100<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">452</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_integer(c(ncol(tbl), nrow(tbl)), lower = 2, upper = 2)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">100<em>x</em></td>
+                    <td class="num">453</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tbl &lt;- tbl[, c("TRUE", "FALSE")]</pre>
+                      <pre class="language-r">    tbl &lt;- ggplot2::ggplot(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">100<em>x</em></td>
+                    <td class="num">454</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any(colSums(tbl) == 0)) {</pre>
+                      <pre class="language-r">      df_stats_table,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    return(1)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">229</td>
-                    <td class="coverage"></td>
+                    <td class="num">455</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      ggplot2::aes(x = .data[[x]], y = .data[["stat"]], label = .data[["value"]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</td>
+                    <td class="num">456</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    ) +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">231</td>
-                    <td class="coverage">99<em>x</em></td>
+                    <td class="num">457</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n &lt;- sum(tbl)</pre>
+                      <pre class="language-r">      ggplot2::geom_text(size = table_font_size) +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">99<em>x</em></td>
+                    <td class="num">458</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n1 &lt;- sum(tbl[1, ])</pre>
+                      <pre class="language-r">      ggplot2::theme_bw() +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">233</td>
-                    <td class="coverage">99<em>x</em></td>
+                    <td class="num">459</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n2 &lt;- sum(tbl[2, ])</pre>
+                      <pre class="language-r">      ggplot2::theme(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">234</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">460</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        panel.border = ggplot2::element_blank(),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">235</td>
-                    <td class="coverage">99<em>x</em></td>
+                    <td class="num">461</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ad &lt;- diag(tbl)</pre>
+                      <pre class="language-r">        panel.grid.major = ggplot2::element_blank(),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">236</td>
-                    <td class="coverage">99<em>x</em></td>
+                    <td class="num">462</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  bc &lt;- diag(apply(tbl, 2, rev))</pre>
+                      <pre class="language-r">        panel.grid.minor = ggplot2::element_blank(),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">237</td>
-                    <td class="coverage">99<em>x</em></td>
+                    <td class="num">463</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ac &lt;- tbl[, 1]</pre>
+                      <pre class="language-r">        axis.ticks = ggplot2::element_blank(),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">238</td>
-                    <td class="coverage">99<em>x</em></td>
+                    <td class="num">464</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  bd &lt;- tbl[, 2]</pre>
+                      <pre class="language-r">        axis.title = ggplot2::element_blank(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">239</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">465</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        axis.text.x = ggplot2::element_blank(),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">240</td>
-                    <td class="coverage">99<em>x</em></td>
+                    <td class="num">466</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  t_schouten &lt;- (n - 1) *</pre>
+                      <pre class="language-r">        axis.text.y = ggplot2::element_text(margin = ggplot2::margin(t = 0, r = 0, b = 0, l = 5)),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">241</td>
-                    <td class="coverage">99<em>x</em></td>
+                    <td class="num">467</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    (abs(prod(ad) - prod(bc)) - 0.5 * min(n1, n2))^2 /</pre>
+                      <pre class="language-r">        strip.text = ggplot2::element_text(hjust = 0),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">242</td>
-                    <td class="coverage">99<em>x</em></td>
+                    <td class="num">468</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    (n1 * n2 * sum(ac) * sum(bd))</pre>
+                      <pre class="language-r">        strip.text.x = ggplot2::element_text(margin = ggplot2::margin(1.5, 0, 1.5, 0, "pt")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">243</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">469</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        strip.background = ggplot2::element_rect(fill = "grey95", color = NA),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">244</td>
-                    <td class="coverage">99<em>x</em></td>
+                    <td class="num">470</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  1 - stats::pchisq(t_schouten, df = 1)</pre>
+                      <pre class="language-r">        legend.position = "none"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">471</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</td>
+                    <td class="num">472</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">247</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">473</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_prop_diff_test Performs the Fisher's exact test. Internally calls [stats::fisher.test()].</pre>
+                      <pre class="language-r">    if (!is.null(group_var)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">474</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      tbl &lt;- tbl + ggplot2::facet_wrap(facets = group_var, ncol = 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">475</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">249</td>
+                    <td class="num">476</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">250</td>
+                    <td class="num">477</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">prop_fisher &lt;- function(tbl) {</pre>
+                      <pre class="language-r">    # align plot and table</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">251</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">478</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_integer(c(ncol(tbl), nrow(tbl)), lower = 2, upper = 2)</pre>
+                      <pre class="language-r">    cowplot::plot_grid(p, tbl, ncol = 1, align = "v", axis = "tblr")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">252</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">479</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tbl &lt;- tbl[, c("TRUE", "FALSE")]</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">253</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">480</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  stats::fisher.test(tbl)$p.value</pre>
+                      <pre class="language-r">    p</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</td>
+                    <td class="num">481</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/count_occurrences.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">482</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Count occurrences</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">483</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">484</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' Helper function to format the optional `g_lineplot` table</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">485</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">486</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The analyze function [count_occurrences()] creates a layout element to calculate occurrence counts for patients.</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">487</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">488</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function analyzes the variable(s) supplied to `vars` and returns a table of occurrence counts for</pre>
+                      <pre class="language-r">#' @param x (named `list`)\cr list of numerical values to be formatted and optionally labeled.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">489</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' each unique value (or level) of the variable(s). This variable (or variables) must be</pre>
+                      <pre class="language-r">#'   Elements of `x` must be `numeric` vectors.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">490</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' non-numeric. The `id` variable is used to indicate unique subject identifiers (defaults to `USUBJID`).</pre>
+                      <pre class="language-r">#' @param format (named `character` or `NULL`)\cr format patterns for `x`. Names of the `format` must</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">491</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   match the names of `x`. This parameter is passed directly to the `rtables::format_rcell`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">492</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' If there are multiple occurrences of the same value recorded for a patient, the value is only counted once.</pre>
+                      <pre class="language-r">#'   function through the `format` parameter.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">493</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param labels (named `character` or `NULL`)\cr optional labels for `x`. Names of the `labels` must</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">494</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The summarize function [summarize_occurrences()] performs the same function as [count_occurrences()] except it</pre>
+                      <pre class="language-r">#'   match the names of `x`. When a label is not specified for an element of `x`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">495</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' creates content rows, not data rows, to summarize the current table row/column context and operates on the level of</pre>
+                      <pre class="language-r">#'   then this function tries to use `label` or `names` (in this order) attribute of that element</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">496</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the latest row split or the root of the table if no row splits have occurred.</pre>
+                      <pre class="language-r">#'   (depending on which one exists and it is not `NULL` or `NA` or `NaN`). If none of these attributes</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">497</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   are attached to a given element of `x`, then the label is automatically generated.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">498</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">499</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param drop (`flag`)\cr whether non-appearing occurrence levels should be dropped from the resulting table.</pre>
+                      <pre class="language-r">#' @return A single row `data.frame` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">500</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Note that in that case the remaining occurrence levels in the table are sorted alphabetically.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">501</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("count_occurrences")`</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">502</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to see available statistics for this function.</pre>
+                      <pre class="language-r">#' mean_ci &lt;- c(48, 51)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">503</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' x &lt;- list(mean = 50, mean_ci = mean_ci)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">504</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note By default, occurrences which don't appear in a given row split are dropped from the table and</pre>
+                      <pre class="language-r">#' format &lt;- c(mean = "xx.x", mean_ci = "(xx.xx, xx.xx)")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">505</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the occurrences in the table are sorted alphabetically per row split. Therefore, the corresponding layout</pre>
+                      <pre class="language-r">#' labels &lt;- c(mean = "My Mean")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">506</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   needs to use `split_fun = drop_split_levels` in the `split_rows_by` calls. Use `drop = FALSE` if you would</pre>
+                      <pre class="language-r">#' h_format_row(x, format, labels)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">507</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   like to show all occurrences.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">508</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' attr(mean_ci, "label") &lt;- "Mean 95% CI"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">509</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' x &lt;- list(mean = 50, mean_ci = mean_ci)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">510</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">#' h_format_row(x, format, labels)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">511</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- data.frame(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">512</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   USUBJID = as.character(c(</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">513</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     1, 1, 2, 4, 4, 4,</pre>
+                      <pre class="language-r">h_format_row &lt;- function(x, format, labels = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">514</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     6, 6, 6, 7, 7, 8</pre>
+                      <pre class="language-r">  # cell: one row, one column data.frame</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">515</td>
+                    <td class="coverage">74<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )),</pre>
+                      <pre class="language-r">  format_cell &lt;- function(x, format, label = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">516</td>
+                    <td class="coverage">184<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   MHDECOD = c(</pre>
+                      <pre class="language-r">    fc &lt;- format_rcell(x = x, format = unlist(format))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">517</td>
+                    <td class="coverage">184<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "MH1", "MH2", "MH1", "MH1", "MH1", "MH3",</pre>
+                      <pre class="language-r">    if (is.na(fc)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">518</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "MH2", "MH2", "MH3", "MH1", "MH2", "MH4"</pre>
+                      <pre class="language-r">      fc &lt;- "NA"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">519</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">520</td>
+                    <td class="coverage">184<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ARM = rep(c("A", "B"), each = 6),</pre>
+                      <pre class="language-r">    x_label &lt;- attr(x, "label")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">521</td>
+                    <td class="coverage">184<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   SEX = c("F", "F", "M", "M", "M", "M", "F", "F", "F", "M", "M", "F")</pre>
+                      <pre class="language-r">    if (!is.null(label) &amp;&amp; !is.na(label)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">522</td>
+                    <td class="coverage">182<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      names(fc) &lt;- label</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">523</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    } else if (!is.null(x_label) &amp;&amp; !is.na(x_label)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">524</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      names(fc) &lt;- x_label</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">525</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    } else if (length(x) == length(fc)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">526</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      names(fc) &lt;- names(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">527</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">528</td>
+                    <td class="coverage">184<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    as.data.frame(t(fc))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">529</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df_adsl &lt;- df %&gt;%</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">530</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   select(USUBJID, ARM) %&gt;%</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">531</td>
+                    <td class="coverage">74<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  row &lt;- do.call(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">532</td>
+                    <td class="coverage">74<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    cbind,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">533</td>
+                    <td class="coverage">74<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   unique()</pre>
+                      <pre class="language-r">    lapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">534</td>
+                    <td class="coverage">74<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      names(x), function(xn) format_cell(x[[xn]], format = format[xn], label = labels[xn])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">535</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name count_occurrences</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">536</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 1</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">537</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">538</td>
+                    <td class="coverage">74<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  row</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">539</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn count_occurrences Statistics function which counts number of patients that report an</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">540</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' occurrence.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">541</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Control function for `g_lineplot()`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">542</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param denom (`string`)\cr choice of denominator for patient proportions. Can be:</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">543</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   - `N_col`: total number of patients in this column across rows</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">544</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   - `n`: number of patients with any occurrences</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">545</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Default values for `variables` parameter in `g_lineplot` function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">546</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' A variable's default value can be overwritten for any variable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">547</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_count_occurrences()` returns a list with:</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">548</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `count`: list of counts with one element per occurrence.</pre>
+                      <pre class="language-r">#' @param x (`string`)\cr x-variable name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">549</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `count_fraction`: list of counts and fractions with one element per occurrence.</pre>
+                      <pre class="language-r">#' @param y (`string`)\cr y-variable name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">550</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `fraction`: list of numerators and denominators with one element per occurrence.</pre>
+                      <pre class="language-r">#' @param group_var (`string` or `NA`)\cr group variable name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">551</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param subject_var (`string` or `NA`)\cr subject variable name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">552</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @param facet_var (`string` or `NA`)\cr faceting variable name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">553</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Count unique occurrences per subject.</pre>
+                      <pre class="language-r">#' @param paramcd (`string` or `NA`)\cr parameter code variable name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">554</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_count_occurrences(</pre>
+                      <pre class="language-r">#' @param y_unit (`string` or `NA`)\cr y-axis unit variable name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">555</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   df,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">556</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .N_col = 4L,</pre>
+                      <pre class="language-r">#' @return A named character vector of variable names.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">557</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .df_row = df,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">558</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .var = "MHDECOD",</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">559</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   id = "USUBJID"</pre>
+                      <pre class="language-r">#' control_lineplot_vars()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">560</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' control_lineplot_vars(group_var = NA)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">561</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">562</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">563</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_count_occurrences &lt;- function(df,</pre>
+                      <pre class="language-r">control_lineplot_vars &lt;- function(x = "AVISIT",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">564</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                denom = c("N_col", "n"),</pre>
+                      <pre class="language-r">                                  y = "AVAL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">565</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                .N_col, # nolint</pre>
+                      <pre class="language-r">                                  group_var = "ARM",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">566</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                .df_row,</pre>
+                      <pre class="language-r">                                  facet_var = NA,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">567</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                drop = TRUE,</pre>
+                      <pre class="language-r">                                  paramcd = "PARAMCD",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">568</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                .var = "MHDECOD",</pre>
+                      <pre class="language-r">                                  y_unit = "AVALU",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">569</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                id = "USUBJID") {</pre>
+                      <pre class="language-r">                                  subject_var = "USUBJID") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">126<em>x</em></td>
+                    <td class="num">570</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(drop)</pre>
+                      <pre class="language-r">  checkmate::assert_string(x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">82</td>
-                    <td class="coverage">126<em>x</em></td>
+                    <td class="num">571</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(df, list(range = .var, id = id))</pre>
+                      <pre class="language-r">  checkmate::assert_string(y)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">83</td>
-                    <td class="coverage">126<em>x</em></td>
+                    <td class="num">572</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_count(.N_col)</pre>
+                      <pre class="language-r">  checkmate::assert_string(group_var, na.ok = TRUE, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">126<em>x</em></td>
+                    <td class="num">573</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(df[[.var]], classes = c("factor", "character"))</pre>
+                      <pre class="language-r">  checkmate::assert_string(facet_var, na.ok = TRUE, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">85</td>
-                    <td class="coverage">126<em>x</em></td>
+                    <td class="num">574</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(df[[id]], classes = c("factor", "character"))</pre>
+                      <pre class="language-r">  checkmate::assert_string(subject_var, na.ok = TRUE, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">126<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  denom &lt;- match.arg(denom)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">87</td>
-                    <td class="coverage"></td>
+                    <td class="num">575</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  checkmate::assert_string(paramcd, na.ok = TRUE, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">88</td>
-                    <td class="coverage">126<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  occurrences &lt;- if (drop) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">89</td>
-                    <td class="coverage"></td>
+                    <td class="num">576</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Note that we don't try to preserve original level order here since a) that would required</pre>
+                      <pre class="language-r">  checkmate::assert_string(y_unit, na.ok = TRUE, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">577</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # more time to look up in large original levels and b) that would fail for character input variable.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">91</td>
-                    <td class="coverage">115<em>x</em></td>
+                    <td class="num">578</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    occurrence_levels &lt;- sort(unique(.df_row[[.var]]))</pre>
+                      <pre class="language-r">  variables &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">115<em>x</em></td>
+                    <td class="num">579</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (length(occurrence_levels) == 0) {</pre>
+                      <pre class="language-r">    x = x, y = y, group_var = group_var, paramcd = paramcd,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">93</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">580</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stop(</pre>
+                      <pre class="language-r">    y_unit = y_unit, subject_var = subject_var, facet_var = facet_var</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">94</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">581</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "no empty `.df_row` input allowed when `drop = TRUE`,",</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">582</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        " please use `split_fun = drop_split_levels` in the `rtables` `split_rows_by` calls"</pre>
+                      <pre class="language-r">  return(variables)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">583</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/utils_split_funs.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">98</td>
-                    <td class="coverage">114<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    factor(df[[.var]], levels = occurrence_levels)</pre>
+                      <pre class="language-r">#' Custom split functions</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">100</td>
-                    <td class="coverage">11<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    df[[.var]]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">125<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  ids &lt;- factor(df[[id]])</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">125<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  dn &lt;- switch(denom,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">104</td>
-                    <td class="coverage">125<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n = nlevels(ids),</pre>
+                      <pre class="language-r">#' Collection of useful functions that are expanding on the core list of functions</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">125<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    N_col = .N_col</pre>
+                      <pre class="language-r">#' provided by `rtables`. See [rtables::custom_split_funs] and [rtables::make_split_fun()]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' for more information on how to make a custom split function. All these functions</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">125<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  has_occurrence_per_id &lt;- table(occurrences, ids) &gt; 0</pre>
+                      <pre class="language-r">#' work with [rtables::split_rows_by()] argument `split_fun` to modify the way the split</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">125<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n_ids_per_occurrence &lt;- as.list(rowSums(has_occurrence_per_id))</pre>
+                      <pre class="language-r">#' happens. For other split functions, consider consulting [`rtables::split_funcs`].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">125<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">125<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    count = n_ids_per_occurrence,</pre>
+                      <pre class="language-r">#' @seealso [rtables::make_split_fun()]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">125<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    count_fraction = lapply(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">125<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">13</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n_ids_per_occurrence,</pre>
+                      <pre class="language-r">#' @name utils_split_funs</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">125<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">14</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      function(i, denom) {</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">114</td>
-                    <td class="coverage">514<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">15</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (i == 0 &amp;&amp; denom == 0) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">115</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">16</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          c(0, 0)</pre>
+                      <pre class="language-r">#' @describeIn utils_split_funs Split function to place reference group facet at a specific position</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">#'  during post-processing stage.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">514<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          c(i, i / denom)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#' @param position (`string` or `integer`)\cr position to use for the reference group facet. Can be `"first"`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r">#'   `"last"`, or a specific position.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">120</td>
-                    <td class="coverage">125<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      denom = dn</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">122</td>
-                    <td class="coverage">125<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">23</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    fraction = lapply(</pre>
+                      <pre class="language-r">#' * `ref_group_position()` returns an utility function that puts the reference group</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">125<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n_ids_per_occurrence,</pre>
+                      <pre class="language-r">#'   as first, last or at a certain position and needs to be assigned to `split_fun`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">125<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">25</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      function(i, denom) c("num" = i, "denom" = denom),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">125<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">26</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      denom = dn</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' dat &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   x = factor(letters[1:5], levels = letters[5:1]),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn count_occurrences Formatted analysis function which is used as `afun`</pre>
+                      <pre class="language-r">#'   y = 1:5</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   in `count_occurrences()`.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' # With rtables layout functions</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `a_count_occurrences()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   split_cols_by("x", ref_group = "c", split_fun = ref_group_position("last")) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   analyze("y") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' a_count_occurrences(</pre>
+                      <pre class="language-r">#'   build_table(dat)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   df,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .N_col = 4L,</pre>
+                      <pre class="language-r">#' # With tern layout funcitons</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .df_row = df,</pre>
+                      <pre class="language-r">#' adtte_f &lt;- tern_ex_adtte %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .var = "MHDECOD",</pre>
+                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   id = "USUBJID"</pre>
+                      <pre class="language-r">#'   mutate(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'     AVAL = day2month(AVAL),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     is_event = CNSR == 0</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">a_count_occurrences &lt;- function(df,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                labelstr = "",</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                id = "USUBJID",</pre>
+                      <pre class="language-r">#'   split_cols_by(var = "ARMCD", ref_group = "ARM B", split_fun = ref_group_position("first")) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                denom = c("N_col", "n"),</pre>
+                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                drop = TRUE,</pre>
+                      <pre class="language-r">#'   surv_time(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                .N_col, # nolint</pre>
+                      <pre class="language-r">#'     vars = "AVAL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                .var = NULL,</pre>
+                      <pre class="language-r">#'     var_labels = "Survival Time (Months)",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                .df_row = NULL,</pre>
+                      <pre class="language-r">#'     is_event = "is_event",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                .stats = NULL,</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                .formats = NULL,</pre>
+                      <pre class="language-r">#'   build_table(df = adtte_f)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                .labels = NULL,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                .indent_mods = NULL,</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                na_str = default_na_str()) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">85<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  denom &lt;- match.arg(denom)</pre>
+                      <pre class="language-r">#'   split_cols_by(var = "ARMCD", ref_group = "ARM B", split_fun = ref_group_position(2)) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">160</td>
-                    <td class="coverage">85<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">60</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats &lt;- s_count_occurrences(</pre>
+                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">85<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">61</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df = df, denom = denom, .N_col = .N_col, .df_row = .df_row, drop = drop, .var = .var, id = id</pre>
+                      <pre class="language-r">#'   surv_time(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'     vars = "AVAL",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">85<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">63</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(unlist(x_stats))) {</pre>
+                      <pre class="language-r">#'     var_labels = "Survival Time (Months)",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">64</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(NULL)</pre>
+                      <pre class="language-r">#'     is_event = "is_event",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">66</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_lvls &lt;- names(x_stats[[1]])</pre>
+                      <pre class="language-r">#'   build_table(df = adtte_f)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Fill in with formatting defaults if needed</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">69</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .stats &lt;- get_stats("count_occurrences", stats_in = .stats)</pre>
+                      <pre class="language-r">ref_group_position &lt;- function(position = "first") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">82<em>x</em></td>
+                    <td class="num">70</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats &lt;- get_formats_from_stats(.stats, .formats)</pre>
+                      <pre class="language-r">  make_split_fun(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">82<em>x</em></td>
+                    <td class="num">71</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .labels &lt;- get_labels_from_stats(.stats, .labels, row_nms = x_lvls)</pre>
+                      <pre class="language-r">    post = list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">82<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  .indent_mods &lt;- get_indents_from_stats(.stats, .indent_mods, row_nms = x_lvls)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">173</td>
-                    <td class="coverage"></td>
+                    <td class="num">72</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      function(splret, spl, fulldf) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">81<em>x</em></td>
+                    <td class="num">73</td>
+                    <td class="coverage">57<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if ("count_fraction_fixed_dp" %in% .stats) x_stats[["count_fraction_fixed_dp"]] &lt;- x_stats[["count_fraction"]]</pre>
+                      <pre class="language-r">        if (!"ref_group_value" %in% methods::slotNames(spl)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">82<em>x</em></td>
+                    <td class="num">74</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats &lt;- x_stats[.stats]</pre>
+                      <pre class="language-r">          stop("Reference group is undefined.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Ungroup statistics with values for each level of x</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">82<em>x</em></td>
+                    <td class="num">77</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_ungrp &lt;- ungroup_stats(x_stats, .formats, list(), list())</pre>
+                      <pre class="language-r">        spl_var &lt;- rtables:::spl_payload(spl)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">82<em>x</em></td>
+                    <td class="num">78</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats &lt;- x_ungrp[["x"]]</pre>
+                      <pre class="language-r">        fulldf[[spl_var]] &lt;- factor(fulldf[[spl_var]])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">82<em>x</em></td>
+                    <td class="num">79</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats &lt;- x_ungrp[[".formats"]]</pre>
+                      <pre class="language-r">        init_lvls &lt;- levels(fulldf[[spl_var]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">182</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">81</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Auto format handling</pre>
+                      <pre class="language-r">        if (!all(names(splret$values) %in% init_lvls)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">183</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">82</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats &lt;- apply_auto_formatting(.formats, x_stats, .df_row, .var)</pre>
+                      <pre class="language-r">          stop("This split function does not work with combination facets.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">84</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  in_rows(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">82<em>x</em></td>
+                    <td class="num">85</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .list = x_stats,</pre>
+                      <pre class="language-r">        ref_group_pos &lt;- which(init_lvls == rtables:::spl_ref_group(spl))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">82<em>x</em></td>
+                    <td class="num">86</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .formats = .formats,</pre>
+                      <pre class="language-r">        pos_choices &lt;- c("first", "last")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">82<em>x</em></td>
+                    <td class="num">87</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .names = .labels,</pre>
+                      <pre class="language-r">        if (checkmate::test_choice(position, pos_choices) &amp;&amp; position == "first") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">82<em>x</em></td>
+                    <td class="num">88</td>
+                    <td class="coverage">41<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .labels = .labels,</pre>
+                      <pre class="language-r">          pos &lt;- 0</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">82<em>x</em></td>
+                    <td class="num">89</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .indent_mods = .indent_mods,</pre>
+                      <pre class="language-r">        } else if (checkmate::test_choice(position, pos_choices) &amp;&amp; position == "last") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">82<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    .format_na_strs = na_str</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">192</td>
-                    <td class="coverage"></td>
+                    <td class="num">90</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">          pos &lt;- length(init_lvls)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">193</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">91</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        } else if (checkmate::test_int(position, lower = 1, upper = length(init_lvls))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">194</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">92</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          pos &lt;- position - 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn count_occurrences Layout-creating function which can take statistics function arguments</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">196</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">94</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
+                      <pre class="language-r">          stop("Wrong input for ref group position. It must be 'first', 'last', or a integer.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">199</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">97</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `count_occurrences()` returns a layout object suitable for passing to further layouting functions,</pre>
+                      <pre class="language-r">        reord_lvls &lt;- append(init_lvls[-ref_group_pos], init_lvls[ref_group_pos], after = pos)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">200</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">98</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
+                      <pre class="language-r">        ord &lt;- match(reord_lvls, names(splret$values))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the statistics from `s_count_occurrences()` to the table layout.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">202</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">100</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        make_split_result(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">203</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">101</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">          splret$values[ord],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">204</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">102</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Create table layout</pre>
+                      <pre class="language-r">          splret$datasplit[ord],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">205</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">103</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">          splret$labels[ord]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   count_occurrences(vars = "MHDECOD", .stats = c("count_fraction"))</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Apply table layout to data and produce `rtable` object</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tbl &lt;- lyt %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(df, alt_counts_df = df_adsl) %&gt;%</pre>
+                      <pre class="language-r">#' @describeIn utils_split_funs Split function to change level order based on an `integer`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   prune_table()</pre>
+                      <pre class="language-r">#'   vector or a `character` vector that represent the split variable's factor levels.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tbl</pre>
+                      <pre class="language-r">#' @param order (`character` or `numeric`)\cr vector of ordering indices for the split facets.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">218</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @order 2</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">219</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">count_occurrences &lt;- function(lyt,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">220</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                              vars,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              id = "USUBJID",</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              drop = TRUE,</pre>
+                      <pre class="language-r">#' * `level_order()` returns an utility function that changes the original levels' order,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">223</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              var_labels = vars,</pre>
+                      <pre class="language-r">#'   depending on input `order` and split levels.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              show_labels = "hidden",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              riskdiff = FALSE,</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              na_str = default_na_str(),</pre>
+                      <pre class="language-r">#' # level_order --------</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              nested = TRUE,</pre>
+                      <pre class="language-r">#' # Even if default would bring ref_group first, the original order puts it last</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              ...,</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              table_names = vars,</pre>
+                      <pre class="language-r">#'   split_cols_by("Species", split_fun = level_order(c(1, 3, 2))) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              .stats = "count_fraction_fixed_dp",</pre>
+                      <pre class="language-r">#'   analyze("Sepal.Length") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">231</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              .formats = NULL,</pre>
+                      <pre class="language-r">#'   build_table(iris)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              .labels = NULL,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              .indent_mods = NULL) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(riskdiff)</pre>
+                      <pre class="language-r">#' # character vector</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">236</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">237</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    .stats = .stats, .formats = .formats, .labels = .labels, .indent_mods = .indent_mods, na_str = na_str</pre>
+                      <pre class="language-r">#' new_order &lt;- level_order(levels(iris$Species)[c(1, 3, 2)])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">238</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">239</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">130</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_args &lt;- list(id = id, drop = drop, ...)</pre>
+                      <pre class="language-r">#'   split_cols_by("Species", ref_group = "virginica", split_fun = new_order) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   analyze("Sepal.Length") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">241</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">132</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (isFALSE(riskdiff)) {</pre>
+                      <pre class="language-r">#'   build_table(iris)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">242</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">133</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args &lt;- c(extra_args, s_args)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">244</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">135</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args &lt;- c(</pre>
+                      <pre class="language-r">level_order &lt;- function(order) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">245</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">136</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      extra_args,</pre>
+                      <pre class="language-r">  make_split_fun(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">246</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">137</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      list(</pre>
+                      <pre class="language-r">    post = list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">247</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">138</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        afun = list("s_count_occurrences" = a_count_occurrences),</pre>
+                      <pre class="language-r">      function(splret, spl, fulldf) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">248</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">139</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        s_args = s_args</pre>
+                      <pre class="language-r">        if (checkmate::test_integerish(order)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">249</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">140</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">          checkmate::assert_integerish(order, lower = 1, upper = length(splret$values))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">250</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">141</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">          ord &lt;- order</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">252</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">143</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          checkmate::assert_character(order, len = length(splret$values))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">253</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">144</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  analyze(</pre>
+                      <pre class="language-r">          checkmate::assert_set_equal(order, names(splret$values), ordered = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">254</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">145</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt = lyt,</pre>
+                      <pre class="language-r">          ord &lt;- match(order, names(splret$values))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">255</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">146</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars = vars,</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">256</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">147</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    afun = ifelse(isFALSE(riskdiff), a_count_occurrences, afun_riskdiff),</pre>
+                      <pre class="language-r">        make_split_result(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">257</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">148</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_labels = var_labels,</pre>
+                      <pre class="language-r">          splret$values[ord],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">258</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">149</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    show_labels = show_labels,</pre>
+                      <pre class="language-r">          splret$datasplit[ord],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">259</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">150</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table_names = table_names,</pre>
+                      <pre class="language-r">          splret$labels[ord]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">260</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">151</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">261</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">152</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nested = nested,</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">262</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">153</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args = extra_args</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">263</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">264</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/utils_checkmate.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">265</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Additional assertions to use with `checkmate`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">266</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn count_occurrences Layout-creating function which can take content function arguments</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::summarize_row_groups()].</pre>
+                      <pre class="language-r">#' Additional assertion functions which can be used together with the `checkmate` package.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' @inheritParams checkmate::assert_factor</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `summarize_occurrences()` returns a layout object suitable for passing to further layouting functions,</pre>
+                      <pre class="language-r">#' @param x (`any`)\cr object to test.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">271</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted content rows</pre>
+                      <pre class="language-r">#' @param df (`data.frame`)\cr data set to test.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   containing the statistics from `s_count_occurrences()` to the table layout.</pre>
+                      <pre class="language-r">#' @param variables (named `list` of `character`)\cr list of variables to test.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">273</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param include_boundaries (`flag`)\cr whether to include boundaries when testing</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">274</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   for proportions.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Layout creating function with custom format.</pre>
+                      <pre class="language-r">#' @param na_level (`string`)\cr the string you have been using to represent NA or</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">276</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">#'   missing data. For `NA` values please consider using directly [is.na()] or</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">277</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                      <pre class="language-r">#'   similar approaches.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by("SEX", child_labels = "visible") %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   summarize_occurrences(</pre>
+                      <pre class="language-r">#' @return Nothing if assertion passes, otherwise prints the error message.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     var = "MHDECOD",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">281</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .formats = c("count_fraction" = "xx.xx (xx.xx%)")</pre>
+                      <pre class="language-r">#' @name assertions</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">282</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">283</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(df, alt_counts_df = df_adsl)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">284</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">check_list_of_variables &lt;- function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">285</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  # drop NULL elements in list</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">286</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">22</td>
+                    <td class="coverage">2927<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 3</pre>
+                      <pre class="language-r">  x &lt;- Filter(Negate(is.null), x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">summarize_occurrences &lt;- function(lyt,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">288</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">24</td>
+                    <td class="coverage">2927<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  var,</pre>
+                      <pre class="language-r">  res &lt;- checkmate::check_list(x,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">25</td>
+                    <td class="coverage">2927<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    names = "named",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">26</td>
+                    <td class="coverage">2927<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    min.len = 1,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">27</td>
+                    <td class="coverage">2927<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    any.missing = FALSE,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">28</td>
+                    <td class="coverage">2927<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    types = "character"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">289</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  id = "USUBJID",</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  drop = TRUE,</pre>
+                      <pre class="language-r">  # no empty strings allowed</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">31</td>
+                    <td class="coverage">2927<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (isTRUE(res)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">32</td>
+                    <td class="coverage">2922<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    res &lt;- checkmate::check_character(unlist(x), min.chars = 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">291</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  riskdiff = FALSE,</pre>
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">34</td>
+                    <td class="coverage">2927<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  return(res)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">292</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  na_str = default_na_str(),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">293</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  ...,</pre>
+                      <pre class="language-r">#' @describeIn assertions Checks whether `x` is a valid list of variable names.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">294</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  .stats = "count_fraction_fixed_dp",</pre>
+                      <pre class="language-r">#'   `NULL` elements of the list `x` are dropped with `Filter(Negate(is.null), x)`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">295</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  .formats = NULL,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  .indent_mods = NULL,</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  .labels = NULL) {</pre>
+                      <pre class="language-r">assert_list_of_variables &lt;- checkmate::makeAssertionFunction(check_list_of_variables)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">298</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">41</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(riskdiff)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">299</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">check_df_with_variables &lt;- function(df, variables, na_level = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">300</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">43</td>
+                    <td class="coverage">2610<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(</pre>
+                      <pre class="language-r">  checkmate::assert_data_frame(df)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">301</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">44</td>
+                    <td class="coverage">2608<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .stats = .stats, .formats = .formats, .labels = .labels, .indent_mods = .indent_mods, na_str = na_str</pre>
+                      <pre class="language-r">  assert_list_of_variables(variables)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">302</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">303</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  s_args &lt;- list(id = id, drop = drop, ...)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">304</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  # flag for equal variables and column names</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">305</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">47</td>
+                    <td class="coverage">2606<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (isFALSE(riskdiff)) {</pre>
+                      <pre class="language-r">  err_flag &lt;- all(unlist(variables) %in% colnames(df))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">306</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">48</td>
+                    <td class="coverage">2606<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args &lt;- c(extra_args, s_args)</pre>
+                      <pre class="language-r">  checkmate::assert_flag(err_flag)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">307</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">308</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">50</td>
+                    <td class="coverage">2606<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args &lt;- c(</pre>
+                      <pre class="language-r">  if (isFALSE(err_flag)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">309</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">51</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      extra_args,</pre>
+                      <pre class="language-r">    vars &lt;- setdiff(unlist(variables), colnames(df))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">310</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">52</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      list(</pre>
+                      <pre class="language-r">    return(paste(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">311</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">53</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        afun = list("s_count_occurrences" = a_count_occurrences),</pre>
+                      <pre class="language-r">      deparse(substitute(df)),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">312</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">54</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        s_args = s_args</pre>
+                      <pre class="language-r">      "does not contain all specified variables as column names. Missing from data frame:",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">313</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">55</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      paste(vars, collapse = ", ")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">314</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">315</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">316</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  # checking if na_level is present and in which column</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">317</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">59</td>
+                    <td class="coverage">2601<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  summarize_row_groups(</pre>
+                      <pre class="language-r">  if (!is.null(na_level)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">318</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">60</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt = lyt,</pre>
+                      <pre class="language-r">    checkmate::assert_string(na_level)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">319</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">61</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var = var,</pre>
+                      <pre class="language-r">    res &lt;- unlist(lapply(as.list(df)[unlist(variables)], function(x) any(x == na_level)))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">320</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">62</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    cfun = ifelse(isFALSE(riskdiff), a_count_occurrences, afun_riskdiff),</pre>
+                      <pre class="language-r">    if (any(res)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">321</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">63</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">      return(paste0(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">322</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">64</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args = extra_args</pre>
+                      <pre class="language-r">        deparse(substitute(df)), " contains explicit na_level (", na_level,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">323</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">65</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        ") in the following columns: ", paste0(unlist(variables)[res],</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">66</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          collapse = ", "</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">324</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/summarize_colvars.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Summarize variables in columns</pre>
+                      <pre class="language-r">      ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">71</td>
+                    <td class="coverage">2600<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  return(TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The analyze function [summarize_colvars()] uses the statistics function [s_summary()] to analyze variables that are</pre>
+                      <pre class="language-r">#' @describeIn assertions Check whether `df` is a data frame with the analysis `variables`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' arranged in columns. The variables to analyze should be specified in the table layout via column splits (see</pre>
+                      <pre class="language-r">#'   Please notice how this produces an error when not all variables are present in the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' [rtables::split_cols_by()] and [rtables::split_cols_by_multivar()]) prior to using [summarize_colvars()].</pre>
+                      <pre class="language-r">#'   data.frame while the opposite is not required.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The function is a minimal wrapper for [rtables::analyze_colvars()], a function typically used to apply different</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' analysis methods in rows for each column variable. To use the analysis methods as column labels, please refer to</pre>
+                      <pre class="language-r">assert_df_with_variables &lt;- checkmate::makeAssertionFunction(check_df_with_variables)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the [analyze_vars_in_cols()] function.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">check_valid_factor &lt;- function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">                               min.levels = 1, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... arguments passed to [s_summary()].</pre>
+                      <pre class="language-r">                               max.levels = NULL, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .indent_mods (named `vector` of `integer`)\cr indent modifiers for the labels. Each element of the vector</pre>
+                      <pre class="language-r">                               null.ok = TRUE, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   should be a name-value pair with name corresponding to a statistic specified in `.stats` and value the indentation</pre>
+                      <pre class="language-r">                               any.missing = TRUE, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   for that statistic's row label.</pre>
+                      <pre class="language-r">                               n.levels = NULL, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                               len = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">  # checks on levels insertion</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">88</td>
+                    <td class="coverage">1081<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A layout object suitable for passing to further layouting functions, or to [rtables::build_table()].</pre>
+                      <pre class="language-r">  checkmate::assert_int(min.levels, lower = 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Adding this function to an `rtable` layout will summarize the given variables, arrange the output</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' in columns, and add it to the table layout.</pre>
+                      <pre class="language-r">  # main factor check</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">91</td>
+                    <td class="coverage">1081<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  res &lt;- checkmate::check_factor(x,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">92</td>
+                    <td class="coverage">1081<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [rtables::split_cols_by_multivar()] and [`analyze_colvars_functions`].</pre>
+                      <pre class="language-r">    min.levels = min.levels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">93</td>
+                    <td class="coverage">1081<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    null.ok = null.ok,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">94</td>
+                    <td class="coverage">1081<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    max.levels = max.levels,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">95</td>
+                    <td class="coverage">1081<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    any.missing = any.missing,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">96</td>
+                    <td class="coverage">1081<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    n.levels = n.levels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dta_test &lt;- data.frame(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   USUBJID = rep(1:6, each = 3),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   PARAMCD = rep("lab", 6 * 3),</pre>
+                      <pre class="language-r">  # no empty strings allowed</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">100</td>
+                    <td class="coverage">1081<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (isTRUE(res)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">101</td>
+                    <td class="coverage">1067<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    res &lt;- checkmate::check_character(levels(x), min.chars = 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   AVISIT = rep(paste0("V", 1:3), 6),</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ARM = rep(LETTERS[1:3], rep(6, 3)),</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">104</td>
+                    <td class="coverage">1081<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  return(res)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   AVAL = c(9:1, rep(NA, 9)),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   CHG = c(1:9, rep(NA, 9))</pre>
+                      <pre class="language-r">#' @describeIn assertions Check whether `x` is a valid factor (i.e. has levels and no empty</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   string levels). Note that `NULL` and `NA` elements are allowed.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Default output within a `rtables` pipeline.</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">assert_valid_factor &lt;- checkmate::makeAssertionFunction(check_valid_factor)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by("AVISIT") %&gt;%</pre>
+                      <pre class="language-r">check_df_with_factors &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by_multivar(vars = c("AVAL", "CHG")) %&gt;%</pre>
+                      <pre class="language-r">                                  variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   summarize_colvars() %&gt;%</pre>
+                      <pre class="language-r">                                  min.levels = 1, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(dta_test)</pre>
+                      <pre class="language-r">                                  max.levels = NULL, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                  any.missing = TRUE, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Selection of statistics, formats and labels also work.</pre>
+                      <pre class="language-r">                                  na_level = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">118</td>
+                    <td class="coverage">254<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">  res &lt;- check_df_with_variables(df, variables, na_level)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
+                      <pre class="language-r">  # checking if all the columns specified by variables are valid factors</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">120</td>
+                    <td class="coverage">253<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by("AVISIT") %&gt;%</pre>
+                      <pre class="language-r">  if (isTRUE(res)) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by_multivar(vars = c("AVAL", "CHG")) %&gt;%</pre>
+                      <pre class="language-r">    # searching the data.frame with selected columns (variables) as a list</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">122</td>
+                    <td class="coverage">251<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   summarize_colvars(</pre>
+                      <pre class="language-r">    res &lt;- lapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">123</td>
+                    <td class="coverage">251<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .stats = c("n", "mean_sd"),</pre>
+                      <pre class="language-r">      X = as.list(df)[unlist(variables)],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">124</td>
+                    <td class="coverage">251<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .formats = c("mean_sd" = "xx.x, xx.x"),</pre>
+                      <pre class="language-r">      FUN = check_valid_factor,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">125</td>
+                    <td class="coverage">251<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .labels = c(n = "n", mean_sd = "Mean, SD")</pre>
+                      <pre class="language-r">      min.levels = min.levels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">126</td>
+                    <td class="coverage">251<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">      max.levels = max.levels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">127</td>
+                    <td class="coverage">251<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(dta_test)</pre>
+                      <pre class="language-r">      any.missing = any.missing</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">129</td>
+                    <td class="coverage">251<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Use arguments interpreted by `s_summary`.</pre>
+                      <pre class="language-r">    res_lo &lt;- unlist(vapply(res, Negate(isTRUE), logical(1)))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">57</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">130</td>
+                    <td class="coverage">251<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">    if (any(res_lo)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">131</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
+                      <pre class="language-r">      return(paste0(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">132</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        deparse(substitute(df)), " does not contain only factor variables among:",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">133</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        "\n* Column `", paste0(unlist(variables)[res_lo],</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">134</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          "` of the data.frame -&gt; ", res[res_lo],</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">135</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          collapse = "\n* "</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by("AVISIT") %&gt;%</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by_multivar(vars = c("AVAL", "CHG")) %&gt;%</pre>
+                      <pre class="language-r">      ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   summarize_colvars(na.rm = FALSE) %&gt;%</pre>
+                      <pre class="language-r">    } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">139</td>
+                    <td class="coverage">245<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      res &lt;- TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(dta_test)</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">142</td>
+                    <td class="coverage">247<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  return(res)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">summarize_colvars &lt;- function(lyt,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              ...,</pre>
+                      <pre class="language-r">#' @describeIn assertions Check whether `df` is a data frame where the analysis `variables`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              na_str = default_na_str(),</pre>
+                      <pre class="language-r">#'   are all factors. Note that the creation of `NA` by direct call of `factor()` will</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              .stats = c("n", "mean_sd", "median", "range", "count_fraction"),</pre>
+                      <pre class="language-r">#'   trim `NA` levels out of the vector list itself.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              .formats = NULL,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              .labels = NULL,</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              .indent_mods = NULL) {</pre>
+                      <pre class="language-r">assert_df_with_factors &lt;- checkmate::makeAssertionFunction(check_df_with_factors)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">151</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(.stats = .stats, na_str = na_str, ...)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">73</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">152</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(.formats)) extra_args[[".formats"]] &lt;- .formats</pre>
+                      <pre class="language-r">#' @describeIn assertions Check whether `x` is a proportion: number between 0 and 1.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">153</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(.labels)) extra_args[[".labels"]] &lt;- .labels</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">154</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(.indent_mods)) extra_args[[".indent_mods"]] &lt;- .indent_mods</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">assert_proportion_value &lt;- function(x, include_boundaries = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">156</td>
+                    <td class="coverage">13912<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  analyze_colvars(</pre>
+                      <pre class="language-r">  checkmate::assert_number(x, lower = 0, upper = 1)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">157</td>
+                    <td class="coverage">13900<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt,</pre>
+                      <pre class="language-r">  checkmate::assert_flag(include_boundaries)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">158</td>
+                    <td class="coverage">13900<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    afun = a_summary,</pre>
+                      <pre class="language-r">  if (isFALSE(include_boundaries)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">159</td>
+                    <td class="coverage">8381<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">    checkmate::assert_true(x &gt; 0)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">160</td>
+                    <td class="coverage">8379<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args = extra_args</pre>
+                      <pre class="language-r">    checkmate::assert_true(x &lt; 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -113080,4140 +114347,2789 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           arm = "ARMCD",</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">161</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                           covariates = NULL,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">162</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                           interaction = NULL,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">163</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                           strata = NULL</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">164</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                         ),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">165</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                         response_definition = "response") {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">75<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(data, variables)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">75<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(names(variables), c("response", "arm", "covariates", "interaction", "strata"))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">75<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(response_definition)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">75<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(grepl("response", response_definition))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">170</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">75<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  response_definition &lt;- sub(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">75<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    pattern = "response",</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">75<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    replacement = variables$response,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">75<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    x = response_definition,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">75<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    fixed = TRUE</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">176</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">177</td>
-                    <td class="coverage">75<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  form &lt;- paste0(response_definition, " ~ ", variables$arm)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">75<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(variables$covariates)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">29<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    form &lt;- paste0(form, " + ", paste(variables$covariates, collapse = " + "))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">180</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">181</td>
-                    <td class="coverage">75<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(variables$interaction)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">182</td>
-                    <td class="coverage">18<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_string(variables$interaction)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">183</td>
-                    <td class="coverage">18<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_subset(variables$interaction, variables$covariates)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">18<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    form &lt;- paste0(form, " + ", variables$arm, ":", variables$interaction)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">185</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">75<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(variables$strata)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    strata_arg &lt;- if (length(variables$strata) &gt; 1) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">7<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      paste0("I(interaction(", paste0(variables$strata, collapse = ", "), "))")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">189</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">7<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      variables$strata</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">191</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    form &lt;- paste0(form, "+ strata(", strata_arg, ")")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">193</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">194</td>
-                    <td class="coverage">75<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  formula &lt;- stats::as.formula(form)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">75<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(variables$strata)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">61<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    stats::glm(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">197</td>
-                    <td class="coverage">61<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      formula = formula,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">198</td>
-                    <td class="coverage">61<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      data = data,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">61<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      family = stats::binomial("logit")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">200</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">201</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    clogit_with_tryCatch(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">203</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      formula = formula,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">204</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      data = data,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      x = TRUE</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">206</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">207</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">208</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">209</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">210</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' Custom tidy method for binomial GLM results</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">211</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">212</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">213</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">214</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' Helper method (for [broom::tidy()]) to prepare a data frame from a `glm` object</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">215</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' with `binomial` family.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">216</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">217</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">218</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @param at (`numeric` or `NULL`)\cr optional values for the interaction variable. Otherwise the median is used.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">219</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`glm`)\cr logistic regression model fitted by [stats::glm()] with "binomial" family.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">220</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">221</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `data.frame` containing the tidied model.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">222</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">223</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @method tidy glm</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">224</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">225</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [h_logistic_regression] for relevant helper functions.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">226</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">227</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">228</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">229</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' library(broom)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">230</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">231</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' adrs_f &lt;- tern_ex_adrs %&gt;%</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">232</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(PARAMCD == "BESRSPI") %&gt;%</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">233</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(RACE %in% c("ASIAN", "WHITE", "BLACK OR AFRICAN AMERICAN")) %&gt;%</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">234</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   mutate(</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">235</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'     Response = case_when(AVALC %in% c("PR", "CR") ~ 1, TRUE ~ 0),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">236</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'     RACE = factor(RACE),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">237</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'     SEX = factor(SEX)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">238</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">239</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' formatters::var_labels(adrs_f) &lt;- c(formatters::var_labels(tern_ex_adrs), Response = "Response")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">240</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' mod1 &lt;- fit_logistic(</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">241</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adrs_f,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">242</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">243</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'     response = "Response",</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">244</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'     arm = "ARMCD",</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">245</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'     covariates = c("AGE", "RACE")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">246</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">247</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">248</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' mod2 &lt;- fit_logistic(</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">249</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adrs_f,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">250</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">251</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'     response = "Response",</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">252</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'     arm = "ARMCD",</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">253</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'     covariates = c("AGE", "RACE"),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">254</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'     interaction = "AGE"</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">255</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">256</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">257</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">258</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- tidy(mod1, conf_level = 0.99)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">259</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' df2 &lt;- tidy(mod2, conf_level = 0.99)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">260</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">261</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">262</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">tidy.glm &lt;- function(x, # nolint</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">263</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                     conf_level = 0.95,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">264</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                     at = NULL,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">265</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                     ...) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">266</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(x, "glm")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">267</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_set_equal(x$family$family, "binomial")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">268</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">269</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  terms_name &lt;- attr(stats::terms(x), "term.labels")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">270</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  xs_class &lt;- attr(x$terms, "dataClasses")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">271</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  interaction &lt;- terms_name[which(!terms_name %in% names(xs_class))]</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">272</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  df &lt;- if (length(interaction) == 0) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">273</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    h_logistic_simple_terms(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">274</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      x = terms_name,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">275</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      fit_glm = x,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">276</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      conf_level = conf_level</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">277</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">278</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">279</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    h_logistic_inter_terms(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">280</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      x = terms_name,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">281</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      fit_glm = x,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">282</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      conf_level = conf_level,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">283</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      at = at</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">284</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">285</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">286</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  for (var in c("variable", "term", "interaction", "reference")) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">287</td>
-                    <td class="coverage">20<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    df[[var]] &lt;- factor(df[[var]], levels = unique(df[[var]]))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">288</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">289</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  df</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">290</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">291</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">292</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' Logistic regression multivariate column layout function</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">293</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">294</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">295</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">296</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' Layout-creating function which creates a multivariate column layout summarizing logistic</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">297</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' regression results. This function is a wrapper for [rtables::split_cols_by_multivar()].</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">298</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">299</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">300</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">301</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @return A layout object suitable for passing to further layouting functions. Adding this</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">302</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   function to an `rtable` layout will split the table into columns corresponding to</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">303</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   statistics `df`, `estimate`, `std_error`, `odds_ratio`, `ci`, and `pvalue`.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">304</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">305</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">306</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">logistic_regression_cols &lt;- function(lyt,</pre>
+                      <pre class="language-r">                           arm = "ARMCD",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">307</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     conf_level = 0.95) {</pre>
+                      <pre class="language-r">                           covariates = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">308</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">162</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  vars &lt;- c("df", "estimate", "std_error", "odds_ratio", "ci", "pvalue")</pre>
+                      <pre class="language-r">                           interaction = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">309</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">163</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  var_labels &lt;- c(</pre>
+                      <pre class="language-r">                           strata = NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">310</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">164</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df = "Degrees of Freedom",</pre>
+                      <pre class="language-r">                         ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">311</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">165</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    estimate = "Parameter Estimate",</pre>
+                      <pre class="language-r">                         response_definition = "response") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">312</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">166</td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    std_error = "Standard Error",</pre>
+                      <pre class="language-r">  assert_df_with_variables(data, variables)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">313</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">167</td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    odds_ratio = "Odds Ratio",</pre>
+                      <pre class="language-r">  checkmate::assert_subset(names(variables), c("response", "arm", "covariates", "interaction", "strata"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">314</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">168</td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ci = paste("Wald", f_conf_level(conf_level)),</pre>
+                      <pre class="language-r">  checkmate::assert_string(response_definition)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">315</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">169</td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pvalue = "p-value"</pre>
+                      <pre class="language-r">  checkmate::assert_true(grepl("response", response_definition))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">316</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">317</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">171</td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  split_cols_by_multivar(</pre>
+                      <pre class="language-r">  response_definition &lt;- sub(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">318</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">172</td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt = lyt,</pre>
+                      <pre class="language-r">    pattern = "response",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">319</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">173</td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars = vars,</pre>
+                      <pre class="language-r">    replacement = variables$response,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">320</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    varlabels = var_labels</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">321</td>
-                    <td class="coverage"></td>
+                    <td class="num">174</td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    x = response_definition,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">322</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">175</td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    fixed = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">323</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">324</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">177</td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Logistic regression summary table</pre>
+                      <pre class="language-r">  form &lt;- paste0(response_definition, " ~ ", variables$arm)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">325</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">178</td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if (!is.null(variables$covariates)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">326</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">179</td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">    form &lt;- paste0(form, " + ", paste(variables$covariates, collapse = " + "))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">327</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">328</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">181</td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Constructor for content functions to be used in [`summarize_logistic()`] to summarize</pre>
+                      <pre class="language-r">  if (!is.null(variables$interaction)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">329</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">182</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' logistic regression results. This function is a wrapper for [rtables::summarize_row_groups()].</pre>
+                      <pre class="language-r">    checkmate::assert_string(variables$interaction)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">330</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">183</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    checkmate::assert_subset(variables$interaction, variables$covariates)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">331</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">184</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">    form &lt;- paste0(form, " + ", variables$arm, ":", variables$interaction)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">332</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param flag_var (`string`)\cr variable name identifying which row should be used in this</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">333</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">186</td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   content function.</pre>
+                      <pre class="language-r">  if (!is.null(variables$strata)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">334</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">187</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    strata_arg &lt;- if (length(variables$strata) &gt; 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">335</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">188</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A content function.</pre>
+                      <pre class="language-r">      paste0("I(interaction(", paste0(variables$strata, collapse = ", "), "))")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">336</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">337</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">190</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">      variables$strata</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">338</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">logistic_summary_by_flag &lt;- function(flag_var, na_str = default_na_str(), .indent_mods = NULL) {</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">339</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">192</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(flag_var)</pre>
+                      <pre class="language-r">    form &lt;- paste0(form, "+ strata(", strata_arg, ")")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">340</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">193</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  function(lyt) {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">341</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">194</td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    cfun_list &lt;- list(</pre>
+                      <pre class="language-r">  formula &lt;- stats::as.formula(form)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">342</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">195</td>
+                    <td class="coverage">75<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df = cfun_by_flag("df", flag_var, format = "xx.", .indent_mods = .indent_mods),</pre>
+                      <pre class="language-r">  if (is.null(variables$strata)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">343</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">196</td>
+                    <td class="coverage">61<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      estimate = cfun_by_flag("estimate", flag_var, format = "xx.xxx", .indent_mods = .indent_mods),</pre>
+                      <pre class="language-r">    stats::glm(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">344</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">197</td>
+                    <td class="coverage">61<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      std_error = cfun_by_flag("std_error", flag_var, format = "xx.xxx", .indent_mods = .indent_mods),</pre>
+                      <pre class="language-r">      formula = formula,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">345</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">198</td>
+                    <td class="coverage">61<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      odds_ratio = cfun_by_flag("odds_ratio", flag_var, format = "&gt;999.99", .indent_mods = .indent_mods),</pre>
+                      <pre class="language-r">      data = data,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">346</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">199</td>
+                    <td class="coverage">61<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci = cfun_by_flag("ci", flag_var, format = format_extreme_values_ci(2L), .indent_mods = .indent_mods),</pre>
+                      <pre class="language-r">      family = stats::binomial("logit")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">347</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">200</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pvalue = cfun_by_flag("pvalue", flag_var, format = "x.xxxx | (&lt;0.0001)", .indent_mods = .indent_mods)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">348</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">349</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">202</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    summarize_row_groups(</pre>
+                      <pre class="language-r">    clogit_with_tryCatch(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">350</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">203</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt = lyt,</pre>
+                      <pre class="language-r">      formula = formula,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">351</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">204</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cfun = cfun_list,</pre>
+                      <pre class="language-r">      data = data,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">352</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">205</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      na_str = na_str</pre>
+                      <pre class="language-r">      x = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">353</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">354</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">355</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/h_response_subgroups.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper functions for tabulating binary response by subgroup</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">210</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' Custom tidy method for binomial GLM results</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper functions that tabulate in a data frame statistics such as response rate</pre>
+                      <pre class="language-r">#' Helper method (for [broom::tidy()]) to prepare a data frame from a `glm` object</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' and odds ratio for population subgroups.</pre>
+                      <pre class="language-r">#' with `binomial` family.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams response_subgroups</pre>
+                      <pre class="language-r">#' @param at (`numeric` or `NULL`)\cr optional values for the interaction variable. Otherwise the median is used.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param arm (`factor`)\cr the treatment group variable.</pre>
+                      <pre class="language-r">#' @param x (`glm`)\cr logistic regression model fitted by [stats::glm()] with "binomial" family.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details Main functionality is to prepare data for use in a layout-creating function.</pre>
+                      <pre class="language-r">#' @return A `data.frame` containing the tidied model.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @method tidy glm</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(forcats)</pre>
+                      <pre class="language-r">#' @seealso [h_logistic_regression] for relevant helper functions.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adrs &lt;- tern_ex_adrs</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adrs_labels &lt;- formatters::var_labels(adrs)</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' library(broom)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adrs_f &lt;- adrs %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(PARAMCD == "BESRSPI") %&gt;%</pre>
+                      <pre class="language-r">#' adrs_f &lt;- tern_ex_adrs %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(ARM %in% c("A: Drug X", "B: Placebo")) %&gt;%</pre>
+                      <pre class="language-r">#'   filter(PARAMCD == "BESRSPI") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   droplevels() %&gt;%</pre>
+                      <pre class="language-r">#'   filter(RACE %in% c("ASIAN", "WHITE", "BLACK OR AFRICAN AMERICAN")) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'   mutate(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     # Reorder levels of factor to make the placebo group the reference arm.</pre>
+                      <pre class="language-r">#'     Response = case_when(AVALC %in% c("PR", "CR") ~ 1, TRUE ~ 0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ARM = fct_relevel(ARM, "B: Placebo"),</pre>
+                      <pre class="language-r">#'     RACE = factor(RACE),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     rsp = AVALC == "CR"</pre>
+                      <pre class="language-r">#'     SEX = factor(SEX)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">238</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' formatters::var_labels(adrs_f) &lt;- c(adrs_labels, "Response")</pre>
+                      <pre class="language-r">#' formatters::var_labels(adrs_f) &lt;- c(formatters::var_labels(tern_ex_adrs), Response = "Response")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' mod1 &lt;- fit_logistic(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name h_response_subgroups</pre>
+                      <pre class="language-r">#'   data = adrs_f,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     response = "Response",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_response_subgroups Helper to prepare a data frame of binary responses by arm.</pre>
+                      <pre class="language-r">#'     arm = "ARMCD",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     covariates = c("AGE", "RACE")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_proportion_df()` returns a `data.frame` with columns `arm`, `n`, `n_rsp`, and `prop`.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' mod2 &lt;- fit_logistic(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   data = adrs_f,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_proportion_df(</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   c(TRUE, FALSE, FALSE),</pre>
+                      <pre class="language-r">#'     response = "Response",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   arm = factor(c("A", "A", "B"), levels = c("A", "B"))</pre>
+                      <pre class="language-r">#'     arm = "ARMCD",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'     covariates = c("AGE", "RACE"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     interaction = "AGE"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_proportion_df &lt;- function(rsp, arm) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">48</td>
-                    <td class="coverage">79<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_logical(rsp)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">78<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  assert_valid_factor(arm, len = length(rsp))</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">50</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">257</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  non_missing_rsp &lt;- !is.na(rsp)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">51</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">258</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  rsp &lt;- rsp[non_missing_rsp]</pre>
+                      <pre class="language-r">#' df &lt;- tidy(mod1, conf_level = 0.99)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">52</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">259</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  arm &lt;- arm[non_missing_rsp]</pre>
+                      <pre class="language-r">#' df2 &lt;- tidy(mod2, conf_level = 0.99)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">54</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">261</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lst_rsp &lt;- split(rsp, arm)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">55</td>
-                    <td class="coverage">78<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">262</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lst_results &lt;- Map(function(x, arm) {</pre>
+                      <pre class="language-r">tidy.glm &lt;- function(x, # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">56</td>
-                    <td class="coverage">156<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">263</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (length(x) &gt; 0) {</pre>
+                      <pre class="language-r">                     conf_level = 0.95,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">154<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">264</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      s_prop &lt;- s_proportion(df = x)</pre>
+                      <pre class="language-r">                     at = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">154<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">265</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data.frame(</pre>
+                      <pre class="language-r">                     ...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">154<em>x</em></td>
+                    <td class="num">266</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        arm = arm,</pre>
+                      <pre class="language-r">  checkmate::assert_class(x, "glm")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">154<em>x</em></td>
+                    <td class="num">267</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n = length(x),</pre>
+                      <pre class="language-r">  checkmate::assert_set_equal(x$family$family, "binomial")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">154<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">268</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n_rsp = unname(s_prop$n_prop[1]),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">154<em>x</em></td>
+                    <td class="num">269</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        prop = unname(s_prop$n_prop[2]),</pre>
+                      <pre class="language-r">  terms_name &lt;- attr(stats::terms(x), "term.labels")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">154<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        stringsAsFactors = FALSE</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">64</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                    <td class="num">270</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">  xs_class &lt;- attr(x$terms, "dataClasses")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">271</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data.frame(</pre>
+                      <pre class="language-r">  interaction &lt;- terms_name[which(!terms_name %in% names(xs_class))]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">67</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">272</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        arm = arm,</pre>
+                      <pre class="language-r">  df &lt;- if (length(interaction) == 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">68</td>
+                    <td class="num">273</td>
                     <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n = 0L,</pre>
+                      <pre class="language-r">    h_logistic_simple_terms(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">69</td>
+                    <td class="num">274</td>
                     <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n_rsp = NA,</pre>
+                      <pre class="language-r">      x = terms_name,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">70</td>
+                    <td class="num">275</td>
                     <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        prop = NA,</pre>
+                      <pre class="language-r">      fit_glm = x,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">71</td>
+                    <td class="num">276</td>
                     <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">      conf_level = conf_level</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">277</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">78<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  }, lst_rsp, names(lst_rsp))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">75</td>
-                    <td class="coverage"></td>
+                    <td class="num">279</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    h_logistic_inter_terms(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">280</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df &lt;- do.call(rbind, args = c(lst_results, make.row.names = FALSE))</pre>
+                      <pre class="language-r">      x = terms_name,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">281</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df$arm &lt;- factor(df$arm, levels = levels(arm))</pre>
+                      <pre class="language-r">      fit_glm = x,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">282</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df</pre>
+                      <pre class="language-r">      conf_level = conf_level,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">79</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">283</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      at = at</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_response_subgroups Summarizes proportion of binary responses by arm and across subgroups</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">286</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    in a data frame. `variables` corresponds to the names of variables found in `data`, passed as a named list and</pre>
+                      <pre class="language-r">  for (var in c("variable", "term", "interaction", "reference")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">83</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">287</td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    requires elements `rsp`, `arm` and optionally `subgroups`. `groups_lists` optionally specifies</pre>
+                      <pre class="language-r">    df[[var]] &lt;- factor(df[[var]], levels = unique(df[[var]]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">288</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    groupings for `subgroups` variables.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">289</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  df</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_proportion_subgroups_df()` returns a `data.frame` with columns `arm`, `n`, `n_rsp`, `prop`, `subgroup`,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">292</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `var`, `var_label`, and `row_type`.</pre>
+                      <pre class="language-r">#' Logistic regression multivariate column layout function</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">91</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' h_proportion_subgroups_df(</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">92</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(rsp = "rsp", arm = "ARM", subgroups = c("SEX", "BMRKR2")),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">93</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adrs_f</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">295</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' # Define groupings for BMRKR2 levels.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">97</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' h_proportion_subgroups_df(</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">98</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(rsp = "rsp", arm = "ARM", subgroups = c("SEX", "BMRKR2")),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">99</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adrs_f,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">296</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   groups_lists = list(</pre>
+                      <pre class="language-r">#' Layout-creating function which creates a multivariate column layout summarizing logistic</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">297</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     BMRKR2 = list(</pre>
+                      <pre class="language-r">#' regression results. This function is a wrapper for [rtables::split_cols_by_multivar()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">298</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "low" = "LOW",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "low/medium" = c("LOW", "MEDIUM"),</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">300</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "low/medium/high" = c("LOW", "MEDIUM", "HIGH")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">301</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">#' @return A layout object suitable for passing to further layouting functions. Adding this</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">302</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#'   function to an `rtable` layout will split the table into columns corresponding to</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   statistics `df`, `estimate`, `std_error`, `odds_ratio`, `ci`, and `pvalue`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">305</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">h_proportion_subgroups_df &lt;- function(variables,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">111</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                                      data,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">112</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                                      groups_lists = list(),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">113</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                                      label_all = "All Patients") {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">114</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(variables$rsp)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(variables$arm)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(variables$subgroups, null.ok = TRUE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_factors(data, list(val = variables$arm), min.levels = 2, max.levels = 2)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">118</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(data, variables)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label_all)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">120</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">121</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  # Add All Patients.</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">122</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  result_all &lt;- h_proportion_df(data[[variables$rsp]], data[[variables$arm]])</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  result_all$subgroup &lt;- label_all</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  result_all$var &lt;- "ALL"</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  result_all$var_label &lt;- label_all</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  result_all$row_type &lt;- "content"</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">306</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">logistic_regression_cols &lt;- function(lyt,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Add Subgroups.</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(variables$subgroups)) {</pre>
+                      <pre class="language-r">                                     conf_level = 0.95) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    result_all</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">131</td>
-                    <td class="coverage"></td>
+                    <td class="num">308</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">  vars &lt;- c("df", "estimate", "std_error", "odds_ratio", "ci", "pvalue")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    l_data &lt;- h_split_by_subgroups(data, variables$subgroups, groups_lists = groups_lists)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">133</td>
-                    <td class="coverage"></td>
+                    <td class="num">309</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  var_labels &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">310</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    l_result &lt;- lapply(l_data, function(grp) {</pre>
+                      <pre class="language-r">    df = "Degrees of Freedom",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">135</td>
-                    <td class="coverage">58<em>x</em></td>
+                    <td class="num">311</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      result &lt;- h_proportion_df(grp$df[[variables$rsp]], grp$df[[variables$arm]])</pre>
+                      <pre class="language-r">    estimate = "Parameter Estimate",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">136</td>
-                    <td class="coverage">58<em>x</em></td>
+                    <td class="num">312</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      result_labels &lt;- grp$df_labels[rep(1, times = nrow(result)), ]</pre>
+                      <pre class="language-r">    std_error = "Standard Error",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">58<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      cbind(result, result_labels)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">138</td>
-                    <td class="coverage"></td>
+                    <td class="num">313</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">    odds_ratio = "Odds Ratio",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">314</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result_subgroups &lt;- do.call(rbind, args = c(l_result, make.row.names = FALSE))</pre>
+                      <pre class="language-r">    ci = paste("Wald", f_conf_level(conf_level)),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">315</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result_subgroups$row_type &lt;- "analysis"</pre>
+                      <pre class="language-r">    pvalue = "p-value"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">316</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">317</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rbind(</pre>
+                      <pre class="language-r">  split_cols_by_multivar(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">318</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      result_all,</pre>
+                      <pre class="language-r">    lyt = lyt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">319</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      result_subgroups</pre>
+                      <pre class="language-r">    vars = vars,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">145</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">320</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    varlabels = var_labels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">322</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">323</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">324</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_response_subgroups Helper to prepare a data frame with estimates of</pre>
+                      <pre class="language-r">#' Logistic regression summary table</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">325</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the odds ratio between a treatment and a control arm.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">326</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">327</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">328</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams response_subgroups</pre>
+                      <pre class="language-r">#' Constructor for content functions to be used in [`summarize_logistic()`] to summarize</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">329</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param strata_data (`factor`, `data.frame`, or `NULL`)\cr required if stratified analysis is performed.</pre>
+                      <pre class="language-r">#' logistic regression results. This function is a wrapper for [rtables::summarize_row_groups()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">330</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">331</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">332</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_odds_ratio_df()` returns a `data.frame` with columns `arm`, `n_tot`, `or`, `lcl`, `ucl`, `conf_level`, and</pre>
+                      <pre class="language-r">#' @param flag_var (`string`)\cr variable name identifying which row should be used in this</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">333</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   optionally `pval` and `pval_label`.</pre>
+                      <pre class="language-r">#'   content function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">334</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">335</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @return A content function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">336</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Unstratatified analysis.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">337</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_odds_ratio_df(</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">338</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   c(TRUE, FALSE, FALSE, TRUE),</pre>
+                      <pre class="language-r">logistic_summary_by_flag &lt;- function(flag_var, na_str = default_na_str(), .indent_mods = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">163</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">339</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   arm = factor(c("A", "A", "B", "B"), levels = c("A", "B"))</pre>
+                      <pre class="language-r">  checkmate::assert_string(flag_var)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">164</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">340</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  function(lyt) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">165</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">341</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    cfun_list &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">166</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">342</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Include p-value.</pre>
+                      <pre class="language-r">      df = cfun_by_flag("df", flag_var, format = "xx.", .indent_mods = .indent_mods),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">167</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">343</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_odds_ratio_df(adrs_f$rsp, adrs_f$ARM, method = "chisq")</pre>
+                      <pre class="language-r">      estimate = cfun_by_flag("estimate", flag_var, format = "xx.xxx", .indent_mods = .indent_mods),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">168</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">344</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      std_error = cfun_by_flag("std_error", flag_var, format = "xx.xxx", .indent_mods = .indent_mods),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">169</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">345</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Stratatified analysis.</pre>
+                      <pre class="language-r">      odds_ratio = cfun_by_flag("odds_ratio", flag_var, format = "&gt;999.99", .indent_mods = .indent_mods),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">170</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">346</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_odds_ratio_df(</pre>
+                      <pre class="language-r">      ci = cfun_by_flag("ci", flag_var, format = format_extreme_values_ci(2L), .indent_mods = .indent_mods),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">171</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">347</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   rsp = adrs_f$rsp,</pre>
+                      <pre class="language-r">      pvalue = cfun_by_flag("pvalue", flag_var, format = "x.xxxx | (&lt;0.0001)", .indent_mods = .indent_mods)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">348</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   arm = adrs_f$ARM,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">173</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">349</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   strata_data = adrs_f[, c("STRATA1", "STRATA2")],</pre>
+                      <pre class="language-r">    summarize_row_groups(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">174</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">350</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   method = "cmh"</pre>
+                      <pre class="language-r">      lyt = lyt,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">175</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">351</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">      cfun = cfun_list,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">176</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">352</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      na_str = na_str</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">353</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">354</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_odds_ratio_df &lt;- function(rsp, arm, strata_data = NULL, conf_level = 0.95, method = NULL) {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">84<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">355</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_valid_factor(arm, n.levels = 2, len = length(rsp))</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/count_patients_with_event.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Count the number of patients with a particular event</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">181</td>
-                    <td class="coverage">84<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">2</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df_rsp &lt;- data.frame(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">182</td>
-                    <td class="coverage">84<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">3</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rsp = rsp,</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">183</td>
-                    <td class="coverage">84<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    arm = arm</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' The analyze function [count_patients_with_event()] creates a layout element to calculate patient counts for a</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' user-specified set of events.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">84<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">7</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(strata_data)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    strata_var &lt;- interaction(strata_data, drop = TRUE)</pre>
+                      <pre class="language-r">#' This function analyzes primary analysis variable `vars` which indicates unique subject identifiers. Events</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    strata_name &lt;- "strata"</pre>
+                      <pre class="language-r">#' are defined by the user as a named vector via the `filters` argument, where each name corresponds to a</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' variable and each value is the value(s) that that variable takes for the event.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    assert_valid_factor(strata_var, len = nrow(df_rsp))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' If there are multiple records with the same event recorded for a patient, only one occurrence is counted.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">13</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_rsp[[strata_name]] &lt;- strata_var</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">194</td>
-                    <td class="coverage">73<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">15</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    strata_name &lt;- NULL</pre>
+                      <pre class="language-r">#' @param filters (`character`)\cr a character vector specifying the column names and flag variables</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   to be used for counting the number of unique identifiers satisfying such conditions.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   Multiple column names and flags are accepted in this format</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">197</td>
-                    <td class="coverage">84<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  l_df &lt;- split(df_rsp, arm)</pre>
+                      <pre class="language-r">#'   `c("column_name1" = "flag1", "column_name2" = "flag2")`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   Note that only equality is being accepted as condition.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">84<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">20</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (nrow(l_df[[1]]) &gt; 0 &amp;&amp; nrow(l_df[[2]]) &gt; 0) {</pre>
+                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("count_patients_with_event")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Odds ratio and CI.</pre>
+                      <pre class="language-r">#'   to see available statistics for this function.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">201</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">22</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result_odds_ratio &lt;- s_odds_ratio(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">23</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df = l_df[[2]],</pre>
+                      <pre class="language-r">#' @seealso [count_patients_with_flags]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">203</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      .var = "rsp",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">204</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">25</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      .ref_group = l_df[[1]],</pre>
+                      <pre class="language-r">#' @name count_patients_with_event</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">26</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      .in_ref_col = FALSE,</pre>
+                      <pre class="language-r">#' @order 1</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">27</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      .df_row = df_rsp,</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">28</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      variables = list(arm = "arm", strata = strata_name),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">29</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      conf_level = conf_level</pre>
+                      <pre class="language-r">#' @describeIn count_patients_with_event Statistics function which counts the number of patients for which</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'   the defined event has occurred.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">32</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df &lt;- data.frame(</pre>
+                      <pre class="language-r">#' @inheritParams analyze_variables</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Dummy column needed downstream to create a nested header.</pre>
+                      <pre class="language-r">#' @param .var (`string`)\cr name of the column that contains the unique identifier.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">34</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      arm = " ",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">214</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">35</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n_tot = unname(result_odds_ratio$n_tot["n_tot"]),</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">36</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      or = unname(result_odds_ratio$or_ci["est"]),</pre>
+                      <pre class="language-r">#' * `s_count_patients_with_event()` returns the count and fraction of unique identifiers with the defined event.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">216</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">37</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lcl = unname(result_odds_ratio$or_ci["lcl"]),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">217</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">38</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ucl = unname(result_odds_ratio$or_ci["ucl"]),</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">218</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">39</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      conf_level = conf_level,</pre>
+                      <pre class="language-r">#' # `s_count_patients_with_event()`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">40</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' s_count_patients_with_event(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   tern_ex_adae,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">82<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">43</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.null(method)) {</pre>
+                      <pre class="language-r">#'   .var = "SUBJID",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">223</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Test for difference.</pre>
+                      <pre class="language-r">#'   filters = c("TRTEMFL" = "Y")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">44<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">45</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      result_test &lt;- s_test_proportion_diff(</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">225</td>
-                    <td class="coverage">44<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">46</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        df = l_df[[2]],</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">44<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">47</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        .var = "rsp",</pre>
+                      <pre class="language-r">#' s_count_patients_with_event(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">44<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">48</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        .ref_group = l_df[[1]],</pre>
+                      <pre class="language-r">#'   tern_ex_adae,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">44<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">49</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        .in_ref_col = FALSE,</pre>
+                      <pre class="language-r">#'   .var = "SUBJID",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">229</td>
-                    <td class="coverage">44<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">50</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        variables = list(strata = strata_name),</pre>
+                      <pre class="language-r">#'   filters = c("TRTEMFL" = "Y", "AEOUT" = "FATAL")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">44<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">51</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        method = method</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">231</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' s_count_patients_with_event(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">233</td>
-                    <td class="coverage">44<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">54</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df$pval &lt;- as.numeric(result_test$pval)</pre>
+                      <pre class="language-r">#'   tern_ex_adae,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">44<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">55</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df$pval_label &lt;- obj_label(result_test$pval)</pre>
+                      <pre class="language-r">#'   .var = "SUBJID",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'   filters = c("TRTEMFL" = "Y", "AEOUT" = "FATAL"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   denom = "N_col",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">237</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # In those cases cannot go through the model so will obtain n_tot from data.</pre>
+                      <pre class="language-r">#'   .N_col = 456</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">238</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">239</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">60</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    (nrow(l_df[[1]]) == 0 &amp;&amp; nrow(l_df[[2]]) &gt; 0) ||</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">240</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">61</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      (nrow(l_df[[1]]) &gt; 0 &amp;&amp; nrow(l_df[[2]]) == 0)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">241</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ) {</pre>
+                      <pre class="language-r">s_count_patients_with_event &lt;- function(df,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">242</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">63</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df &lt;- data.frame(</pre>
+                      <pre class="language-r">                                        .var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Dummy column needed downstream to create a nested header.</pre>
+                      <pre class="language-r">                                        filters,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">244</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">65</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      arm = " ",</pre>
+                      <pre class="language-r">                                        .N_col, # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">245</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">66</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n_tot = sum(stats::complete.cases(df_rsp)),</pre>
+                      <pre class="language-r">                                        .N_row, # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">246</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">67</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      or = NA,</pre>
+                      <pre class="language-r">                                        denom = c("n", "N_row", "N_col")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">247</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">68</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lcl = NA,</pre>
+                      <pre class="language-r">  col_names &lt;- names(filters)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">248</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">69</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ucl = NA,</pre>
+                      <pre class="language-r">  filter_values &lt;- filters</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">249</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      conf_level = conf_level,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">250</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">71</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">  checkmate::assert_subset(col_names, colnames(df))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">252</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">73</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.null(method)) {</pre>
+                      <pre class="language-r">  temp &lt;- Map(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">253</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">74</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df$pval &lt;- NA</pre>
+                      <pre class="language-r">    function(x, y) which(df[[x]] == y),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">254</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      df$pval_label &lt;- NA</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">255</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">256</td>
-                    <td class="coverage"></td>
+                    <td class="num">75</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">    col_names,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">257</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">76</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df &lt;- data.frame(</pre>
+                      <pre class="language-r">    filter_values</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Dummy column needed downstream to create a nested header.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">259</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">78</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      arm = " ",</pre>
+                      <pre class="language-r">  position_satisfy_filters &lt;- Reduce(intersect, temp)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">260</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">79</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n_tot = 0L,</pre>
+                      <pre class="language-r">  id_satisfy_filters &lt;- as.character(unique(df[position_satisfy_filters, ][[.var]]))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">261</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">80</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      or = NA,</pre>
+                      <pre class="language-r">  result &lt;- s_count_values(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">262</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">81</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lcl = NA,</pre>
+                      <pre class="language-r">    as.character(unique(df[[.var]])),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">263</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">82</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ucl = NA,</pre>
+                      <pre class="language-r">    id_satisfy_filters,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">264</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">83</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      conf_level = conf_level,</pre>
+                      <pre class="language-r">    denom = denom,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">265</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">84</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">    .N_col = .N_col,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">266</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">85</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    .N_row = .N_row</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">268</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.null(method)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">269</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      df$pval &lt;- NA</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">270</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">87</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df$pval_label &lt;- NA</pre>
+                      <pre class="language-r">  result</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">271</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">273</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @describeIn count_patients_with_event Formatted analysis function which is used as `afun`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">274</td>
-                    <td class="coverage">84<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">91</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df</pre>
+                      <pre class="language-r">#'   in `count_patients_with_event()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">276</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">277</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_response_subgroups Summarizes estimates of the odds ratio between a treatment and a control</pre>
+                      <pre class="language-r">#' * `a_count_patients_with_event()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   arm across subgroups in a data frame. `variables` corresponds to the names of variables found in</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `data`, passed as a named list and requires elements `rsp`, `arm` and optionally `subgroups`</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and `strata`. `groups_lists` optionally specifies groupings for `subgroups` variables.</pre>
+                      <pre class="language-r">#' # `a_count_patients_with_event()`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">281</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">282</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' a_count_patients_with_event(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">283</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_odds_ratio_subgroups_df()` returns a `data.frame` with columns `arm`, `n_tot`, `or`, `lcl`, `ucl`,</pre>
+                      <pre class="language-r">#'   tern_ex_adae,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">284</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `conf_level`, `subgroup`, `var`, `var_label`, and `row_type`.</pre>
+                      <pre class="language-r">#'   .var = "SUBJID",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">285</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   filters = c("TRTEMFL" = "Y"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   .N_col = 100,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Unstratified analysis.</pre>
+                      <pre class="language-r">#'   .N_row = 100</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_odds_ratio_subgroups_df(</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">289</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(rsp = "rsp", arm = "ARM", subgroups = c("SEX", "BMRKR2")),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adrs_f</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">291</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">a_count_patients_with_event &lt;- make_afun(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">292</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  s_count_patients_with_event,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">293</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Stratified analysis.</pre>
+                      <pre class="language-r">  .formats = c(count_fraction = format_count_fraction_fixed_dp)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">294</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_odds_ratio_subgroups_df(</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">295</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     rsp = "rsp",</pre>
+                      <pre class="language-r">#' @describeIn count_patients_with_event Layout-creating function which can take statistics function</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     arm = "ARM",</pre>
+                      <pre class="language-r">#'   arguments and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">298</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     subgroups = c("SEX", "BMRKR2"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">299</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     strata = c("STRATA1", "STRATA2")</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">300</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#' * `count_patients_with_event()` returns a layout object suitable for passing to further layouting functions,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">301</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adrs_f</pre>
+                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">302</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   the statistics from `s_count_patients_with_event()` to the table layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">303</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">304</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Define groupings of BMRKR2 levels.</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">305</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_odds_ratio_subgroups_df(</pre>
+                      <pre class="language-r">#' # `count_patients_with_event()`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">306</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">307</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     rsp = "rsp",</pre>
+                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">308</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     arm = "ARM",</pre>
+                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">309</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     subgroups = c("SEX", "BMRKR2")</pre>
+                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">310</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#'   count_values(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">311</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adrs_f,</pre>
+                      <pre class="language-r">#'     "STUDYID",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">312</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   groups_lists = list(</pre>
+                      <pre class="language-r">#'     values = "AB12345",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">313</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     BMRKR2 = list(</pre>
+                      <pre class="language-r">#'     .stats = "count",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">314</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "low" = "LOW",</pre>
+                      <pre class="language-r">#'     .labels = c(count = "Total AEs")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">315</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "low/medium" = c("LOW", "MEDIUM"),</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">316</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "low/medium/high" = c("LOW", "MEDIUM", "HIGH")</pre>
+                      <pre class="language-r">#'   count_patients_with_event(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">317</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">#'     "SUBJID",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">318</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#'     filters = c("TRTEMFL" = "Y"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">319</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'     .labels = c(count_fraction = "Total number of patients with at least one adverse event"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">320</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     table_names = "tbl_all"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">321</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">322</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_odds_ratio_subgroups_df &lt;- function(variables,</pre>
+                      <pre class="language-r">#'   count_patients_with_event(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">323</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      data,</pre>
+                      <pre class="language-r">#'     "SUBJID",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">324</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      groups_lists = list(),</pre>
+                      <pre class="language-r">#'     filters = c("TRTEMFL" = "Y", "AEOUT" = "FATAL"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">325</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      conf_level = 0.95,</pre>
+                      <pre class="language-r">#'     .labels = c(count_fraction = "Total number of patients with fatal AEs"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">326</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      method = NULL,</pre>
+                      <pre class="language-r">#'     table_names = "tbl_fatal"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">327</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      label_all = "All Patients") {</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">328</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">145</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if ("strat" %in% names(variables)) {</pre>
+                      <pre class="language-r">#'   count_patients_with_event(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">329</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">146</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning(</pre>
+                      <pre class="language-r">#'     "SUBJID",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">330</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">147</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Warning: the `strat` element name of the `variables` list argument to `h_odds_ratio_subgroups_df() ",</pre>
+                      <pre class="language-r">#'     filters = c("TRTEMFL" = "Y", "AEOUT" = "FATAL", "AEREL" = "Y"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">331</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">148</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "was deprecated in tern 0.9.4.\n  ",</pre>
+                      <pre class="language-r">#'     .labels = c(count_fraction = "Total number of patients with related fatal AEs"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">332</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">149</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Please use the name `strata` instead of `strat` in the `variables` argument."</pre>
+                      <pre class="language-r">#'     .indent_mods = c(count_fraction = 2L),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">333</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'     table_names = "tbl_rel_fatal"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">334</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">151</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    variables[["strata"]] &lt;- variables[["strat"]]</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">335</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">336</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' build_table(lyt, tern_ex_adae, alt_counts_df = tern_ex_adsl)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">337</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">154</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(variables$rsp)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">338</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">155</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(variables$arm)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">339</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">156</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(variables$subgroups, null.ok = TRUE)</pre>
+                      <pre class="language-r">#' @order 2</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">340</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">157</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(variables$strata, null.ok = TRUE)</pre>
+                      <pre class="language-r">count_patients_with_event &lt;- function(lyt,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">341</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">158</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_factors(data, list(val = variables$arm), min.levels = 2, max.levels = 2)</pre>
+                      <pre class="language-r">                                      vars,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">342</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">159</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(data, variables)</pre>
+                      <pre class="language-r">                                      filters,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">343</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">160</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label_all)</pre>
+                      <pre class="language-r">                                      riskdiff = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">344</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                      na_str = default_na_str(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">345</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">162</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  strata_data &lt;- if (is.null(variables$strata)) {</pre>
+                      <pre class="language-r">                                      nested = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">346</td>
-                    <td class="coverage">16<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">163</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    NULL</pre>
+                      <pre class="language-r">                                      ...,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">347</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">                                      table_names = vars,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">348</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">165</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data[, variables$strata, drop = FALSE]</pre>
+                      <pre class="language-r">                                      .stats = "count_fraction",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">349</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                                      .formats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">350</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                      .labels = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">351</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Add All Patients.</pre>
+                      <pre class="language-r">                                      .indent_mods = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">352</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">169</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result_all &lt;- h_odds_ratio_df(</pre>
+                      <pre class="language-r">  checkmate::assert_flag(riskdiff)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">353</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">170</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rsp = data[[variables$rsp]],</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">354</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">171</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    arm = data[[variables$arm]],</pre>
+                      <pre class="language-r">  s_args &lt;- list(filters = filters, ...)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">355</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">172</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    strata_data = strata_data,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">356</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">173</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    conf_level = conf_level,</pre>
+                      <pre class="language-r">  afun &lt;- make_afun(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">357</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">174</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    method = method</pre>
+                      <pre class="language-r">    a_count_patients_with_event,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">358</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">175</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    .stats = .stats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">359</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">176</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result_all$subgroup &lt;- label_all</pre>
+                      <pre class="language-r">    .formats = .formats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">360</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">177</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result_all$var &lt;- "ALL"</pre>
+                      <pre class="language-r">    .labels = .labels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">361</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">178</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result_all$var_label &lt;- label_all</pre>
+                      <pre class="language-r">    .indent_mods = .indent_mods</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">362</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">179</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result_all$row_type &lt;- "content"</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">363</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">364</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">181</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(variables$subgroups)) {</pre>
+                      <pre class="language-r">  extra_args &lt;- if (isFALSE(riskdiff)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">365</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">182</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result_all</pre>
+                      <pre class="language-r">    s_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">366</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">367</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">184</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    l_data &lt;- h_split_by_subgroups(data, variables$subgroups, groups_lists = groups_lists)</pre>
+                      <pre class="language-r">    list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">368</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">185</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      afun = list("s_count_patients_with_event" = afun),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">369</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">186</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    l_result &lt;- lapply(l_data, function(grp) {</pre>
+                      <pre class="language-r">      .stats = .stats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">370</td>
-                    <td class="coverage">62<em>x</em></td>
+                    <td class="num">187</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      grp_strata_data &lt;- if (is.null(variables$strata)) {</pre>
+                      <pre class="language-r">      .indent_mods = .indent_mods,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">371</td>
-                    <td class="coverage">54<em>x</em></td>
+                    <td class="num">188</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        NULL</pre>
+                      <pre class="language-r">      s_args = s_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">372</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">373</td>
-                    <td class="coverage">8<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        grp$df[, variables$strata, drop = FALSE]</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">374</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">375</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">376</td>
-                    <td class="coverage">62<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      result &lt;- h_odds_ratio_df(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">377</td>
-                    <td class="coverage">62<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        rsp = grp$df[[variables$rsp]],</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">378</td>
-                    <td class="coverage">62<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        arm = grp$df[[variables$arm]],</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">379</td>
-                    <td class="coverage">62<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        strata_data = grp_strata_data,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">380</td>
-                    <td class="coverage">62<em>x</em></td>
+                    <td class="num">192</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        conf_level = conf_level,</pre>
+                      <pre class="language-r">  analyze(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">381</td>
-                    <td class="coverage">62<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        method = method</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">382</td>
-                    <td class="coverage"></td>
+                    <td class="num">193</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    lyt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">383</td>
-                    <td class="coverage">62<em>x</em></td>
+                    <td class="num">194</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      result_labels &lt;- grp$df_labels[rep(1, times = nrow(result)), ]</pre>
+                      <pre class="language-r">    vars,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">384</td>
-                    <td class="coverage">62<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      cbind(result, result_labels)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">385</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">386</td>
-                    <td class="coverage"></td>
+                    <td class="num">195</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    afun = ifelse(isFALSE(riskdiff), afun, afun_riskdiff),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">387</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">196</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result_subgroups &lt;- do.call(rbind, args = c(l_result, make.row.names = FALSE))</pre>
+                      <pre class="language-r">    na_str = na_str,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">388</td>
-                    <td class="coverage">15<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    result_subgroups$row_type &lt;- "analysis"</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">389</td>
-                    <td class="coverage"></td>
+                    <td class="num">197</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    nested = nested,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">390</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">198</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rbind(</pre>
+                      <pre class="language-r">    extra_args = extra_args,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">391</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="num">199</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      result_all,</pre>
+                      <pre class="language-r">    show_labels = ifelse(length(vars) &gt; 1, "visible", "hidden"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">392</td>
-                    <td class="coverage">15<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      result_subgroups</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">393</td>
-                    <td class="coverage"></td>
+                    <td class="num">200</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    table_names = table_names</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">394</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">395</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -117222,14 +117138,14 @@ <h2>tern coverage - 95.64%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/missing_data.R" class="hidden">
+            <div id="R/g_step.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Missing data</pre>
+                      <pre class="language-r">#' Create a STEP graph</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -117257,70 +117173,70 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Substitute missing data with a string or factor level.</pre>
+                      <pre class="language-r">#' Based on the STEP results, creates a `ggplot` graph showing the estimated HR or OR</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' along the continuous biomarker value subgroups.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`factor` or `character`)\cr values for which any missing values should be substituted.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param label (`string`)\cr string that missing data should be replaced with.</pre>
+                      <pre class="language-r">#' @param df (`tibble`)\cr result of [tidy.step()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param use_percentile (`flag`)\cr whether to use percentiles for the x axis or actual</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `x` with any `NA` values substituted by `label`.</pre>
+                      <pre class="language-r">#'   biomarker values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param est (named `list`)\cr `col` and `lty` settings for estimate line.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @param ci_ribbon (named `list` or `NULL`)\cr `fill` and `alpha` settings for the confidence interval</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' explicit_na(c(NA, "a", "b"))</pre>
+                      <pre class="language-r">#'   ribbon area, or `NULL` to not plot a CI ribbon.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' is.na(explicit_na(c(NA, "a", "b")))</pre>
+                      <pre class="language-r">#' @param col (`character`)\cr color(s).</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -117334,161 +117250,161 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' explicit_na(factor(c(NA, "a", "b")))</pre>
+                      <pre class="language-r">#' @return A `ggplot` STEP graph.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' is.na(explicit_na(factor(c(NA, "a", "b"))))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @seealso Custom tidy method [tidy.step()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' explicit_na(sas_na(c("a", "")))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' library(nestcolor)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">explicit_na &lt;- function(x, label = "&lt;Missing&gt;") {</pre>
+                      <pre class="language-r">#' library(survival)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">23</td>
-                    <td class="coverage">254<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label)</pre>
+                      <pre class="language-r">#' lung$sex &lt;- factor(lung$sex)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">25</td>
-                    <td class="coverage">254<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.factor(x)) {</pre>
+                      <pre class="language-r">#' # Survival example.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">26</td>
-                    <td class="coverage">151<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x &lt;- forcats::fct_na_value_to_level(x, label)</pre>
+                      <pre class="language-r">#' vars &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">27</td>
-                    <td class="coverage">151<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    forcats::fct_drop(x, only = label)</pre>
+                      <pre class="language-r">#'   time = "time",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">28</td>
-                    <td class="coverage">103<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (is.character(x)) {</pre>
+                      <pre class="language-r">#'   event = "status",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">29</td>
-                    <td class="coverage">103<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x[is.na(x)] &lt;- label</pre>
+                      <pre class="language-r">#'   arm = "sex",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">30</td>
-                    <td class="coverage">103<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x</pre>
+                      <pre class="language-r">#'   biomarker = "age"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">32</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("only factors and character vectors allowed")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' step_matrix &lt;- fit_survival_step(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   variables = vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   data = lung,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Convert strings to `NA`</pre>
+                      <pre class="language-r">#'   control = c(control_coxph(), control_step(num_points = 10, degree = 2))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' step_data &lt;- broom::tidy(step_matrix)</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -117502,14 +117418,14 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' SAS imports missing data as empty strings or strings with whitespaces only. This helper function can be used to</pre>
+                      <pre class="language-r">#' # Default plot.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' convert these values to `NA`s.</pre>
+                      <pre class="language-r">#' g_step(step_data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -117523,1368 +117439,1131 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams explicit_na</pre>
+                      <pre class="language-r">#' # Add the reference 1 horizontal line.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param empty (`flag`)\cr if `TRUE`, empty strings get replaced by `NA`.</pre>
+                      <pre class="language-r">#' library(ggplot2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param whitespaces (`flag`)\cr if `TRUE`, strings made from only whitespaces get replaced with `NA`.</pre>
+                      <pre class="language-r">#' g_step(step_data) +</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   ggplot2::geom_hline(ggplot2::aes(yintercept = 1), linetype = 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `x` with `""` and/or whitespace-only values substituted by `NA`, depending on the values of</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `empty` and `whitespaces`.</pre>
+                      <pre class="language-r">#' # Use actual values instead of percentiles, different color for estimate and no CI,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' # use log scale for y axis.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' g_step(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' sas_na(c("1", "", " ", "   ", "b"))</pre>
+                      <pre class="language-r">#'   step_data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' sas_na(factor(c("", " ", "b")))</pre>
+                      <pre class="language-r">#'   use_percentile = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   est = list(col = "blue", lty = 1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' is.na(sas_na(c("1", "", " ", "   ", "b")))</pre>
+                      <pre class="language-r">#'   ci_ribbon = NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' ) + scale_y_log10()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">56</td>
                     <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">57</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">sas_na &lt;- function(x, empty = TRUE, whitespaces = TRUE) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">243<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(empty)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">243<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(whitespaces)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">60</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">243<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (is.factor(x)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">135<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    empty_levels &lt;- levels(x) == ""</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">11<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    if (empty &amp;&amp; any(empty_levels)) levels(x)[empty_levels] &lt;- NA</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">64</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">135<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    ws_levels &lt;- grepl("^\\s+$", levels(x))</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">66</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    if (whitespaces &amp;&amp; any(ws_levels)) levels(x)[ws_levels] &lt;- NA</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">67</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">135<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    x</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">69</td>
-                    <td class="coverage">108<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  } else if (is.character(x)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">70</td>
-                    <td class="coverage">108<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    if (empty) x[x == ""] &lt;- NA_character_</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">71</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">108<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    if (whitespaces) x[grepl("^\\s+$", x)] &lt;- NA_character_</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">73</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">108<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    x</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">75</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">76</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    stop("only factors and character vectors allowed")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">77</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">78</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
-                    </td>
-                  </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/h_stack_by_baskets.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function to create a new SMQ variable in ADAE by stacking SMQ and/or CQ records.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function to create a new SMQ variable in ADAE that consists of all adverse events belonging to</pre>
+                      <pre class="language-r">#' # Adding another curve based on additional column.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' selected Standardized/Customized queries. The new dataset will only contain records of the adverse events</pre>
+                      <pre class="language-r">#' step_data$extra &lt;- exp(step_data$`Percentile Center`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' belonging to any of the selected baskets. Remember that `na_str` must match the needed pre-processing</pre>
+                      <pre class="language-r">#' g_step(step_data) +</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' done with [df_explicit_na()] to have the desired output.</pre>
+                      <pre class="language-r">#'   ggplot2::geom_line(ggplot2::aes(y = extra), linetype = 2, color = "green")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @param baskets (`character`)\cr variable names of the selected Standardized/Customized queries.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @param smq_varlabel (`string`)\cr a label for the new variable created.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @param keys (`character`)\cr names of the key variables to be returned along with the new variable created.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param aag_summary (`data.frame`)\cr containing the SMQ baskets and the levels of interest for the final SMQ</pre>
+                      <pre class="language-r">#' # Response example.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variable. This is useful when there are some levels of interest that are not observed in the `df` dataset.</pre>
+                      <pre class="language-r">#' vars &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   The two columns of this dataset should be named `basket` and `basket_name`.</pre>
+                      <pre class="language-r">#'   response = "status",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   arm = "sex",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `data.frame` with variables in `keys` taken from `df` and new variable SMQ containing</pre>
+                      <pre class="language-r">#'   biomarker = "age"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   records belonging to the baskets selected via the `baskets` argument.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' adae &lt;- tern_ex_adae[1:20, ] %&gt;% df_explicit_na()</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' h_stack_by_baskets(df = adae)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' step_matrix &lt;- fit_rsp_step(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' aag &lt;- data.frame(</pre>
+                      <pre class="language-r">#'   variables = vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   NAMVAR = c("CQ01NAM", "CQ02NAM", "SMQ01NAM", "SMQ02NAM"),</pre>
+                      <pre class="language-r">#'   data = lung,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   REFNAME = c(</pre>
+                      <pre class="language-r">#'   control = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "D.2.1.5.3/A.1.1.1.1 aesi", "X.9.9.9.9/Y.8.8.8.8 aesi",</pre>
+                      <pre class="language-r">#'     control_logistic(response_definition = "I(response == 2)"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "C.1.1.1.3/B.2.2.3.1 aesi", "C.1.1.1.3/B.3.3.3.3 aesi"</pre>
+                      <pre class="language-r">#'     control_step()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   SCOPE = c("", "", "BROAD", "BROAD"),</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">#' step_data &lt;- broom::tidy(step_matrix)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' g_step(step_data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basket_name &lt;- character(nrow(aag))</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' cq_pos &lt;- grep("^(CQ).+NAM$", aag$NAMVAR)</pre>
+                      <pre class="language-r">g_step &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' smq_pos &lt;- grep("^(SMQ).+NAM$", aag$NAMVAR)</pre>
+                      <pre class="language-r">                   use_percentile = "Percentile Center" %in% names(df),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basket_name[cq_pos] &lt;- aag$REFNAME[cq_pos]</pre>
+                      <pre class="language-r">                   est = list(col = "blue", lty = 1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basket_name[smq_pos] &lt;- paste0(</pre>
+                      <pre class="language-r">                   ci_ribbon = list(fill = getOption("ggplot2.discrete.colour")[1], alpha = 0.5),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   aag$REFNAME[smq_pos], "(", aag$SCOPE[smq_pos], ")"</pre>
+                      <pre class="language-r">                   col = getOption("ggplot2.discrete.colour")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">86</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  checkmate::assert_tibble(df)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">87</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_flag(use_percentile)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">88</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' aag_summary &lt;- data.frame(</pre>
+                      <pre class="language-r">  checkmate::assert_character(col, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">89</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   basket = aag$NAMVAR,</pre>
+                      <pre class="language-r">  checkmate::assert_list(est, names = "named")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">90</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   basket_name = basket_name,</pre>
+                      <pre class="language-r">  checkmate::assert_list(ci_ribbon, names = "named", null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   stringsAsFactors = TRUE</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">92</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  x_var &lt;- ifelse(use_percentile, "Percentile Center", "Interval Center")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">93</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  df$x &lt;- df[[x_var]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">94</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result &lt;- h_stack_by_baskets(df = adae, aag_summary = aag_summary)</pre>
+                      <pre class="language-r">  attrs &lt;- attributes(df)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">95</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' all(levels(aag_summary$basket_name) %in% levels(result$SMQ))</pre>
+                      <pre class="language-r">  df$y &lt;- df[[attrs$estimate]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_stack_by_baskets(</pre>
+                      <pre class="language-r">  # Set legend names. To be modified also at call level</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">98</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   df = adae,</pre>
+                      <pre class="language-r">  legend_names &lt;- c("Estimate", "CI 95%")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   aag_summary = NULL,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">55</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">100</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   keys = c("STUDYID", "USUBJID", "AEDECOD", "ARM"),</pre>
+                      <pre class="language-r">  p &lt;- ggplot2::ggplot(df, ggplot2::aes(x = .data[["x"]], y = .data[["y"]]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   baskets = "SMQ01NAM"</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">57</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">102</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  if (!is.null(col)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">103</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    p &lt;- p +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">104</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">      ggplot2::scale_color_manual(values = col)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_stack_by_baskets &lt;- function(df,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               baskets = grep("^(SMQ|CQ).+NAM$", names(df), value = TRUE),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">107</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               smq_varlabel = "Standardized MedDRA Query",</pre>
+                      <pre class="language-r">  if (!is.null(ci_ribbon)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">108</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               keys = c("STUDYID", "USUBJID", "ASTDTM", "AEDECOD", "AESEQ"),</pre>
+                      <pre class="language-r">    if (is.null(ci_ribbon$fill)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">64</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">109</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               aag_summary = NULL,</pre>
+                      <pre class="language-r">      ci_ribbon$fill &lt;- "lightblue"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               na_str = "&lt;Missing&gt;") {</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">111</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  smq_nam &lt;- baskets[startsWith(baskets, "SMQ")]</pre>
+                      <pre class="language-r">    p &lt;- p + ggplot2::geom_ribbon(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">112</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # SC corresponding to NAM</pre>
+                      <pre class="language-r">      ggplot2::aes(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">113</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  smq_sc &lt;- gsub(pattern = "NAM", replacement = "SC", x = smq_nam, fixed = TRUE)</pre>
+                      <pre class="language-r">        ymin = .data[["ci_lower"]], ymax = .data[["ci_upper"]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">69</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">114</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  smq &lt;- stats::setNames(smq_sc, smq_nam)</pre>
+                      <pre class="language-r">        fill = legend_names[2]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">71</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">116</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(baskets)</pre>
+                      <pre class="language-r">      alpha = ci_ribbon$alpha</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">117</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(smq_varlabel)</pre>
+                      <pre class="language-r">    ) +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">73</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">118</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(df)</pre>
+                      <pre class="language-r">      scale_fill_manual(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">119</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(all(startsWith(baskets, "SMQ") | startsWith(baskets, "CQ")))</pre>
+                      <pre class="language-r">        name = "", values = c("CI 95%" = ci_ribbon$fill)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">120</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(all(endsWith(baskets, "NAM")))</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">121</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(baskets, names(df))</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">122</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(keys, names(df))</pre>
+                      <pre class="language-r">  suppressMessages(p &lt;- p +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">123</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(smq_sc, names(df))</pre>
+                      <pre class="language-r">    ggplot2::geom_line(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(na_str)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">80</td>
-                    <td class="coverage"></td>
+                    <td class="num">124</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      ggplot2::aes(y = .data[["y"]], color = legend_names[1]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">125</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(aag_summary)) {</pre>
+                      <pre class="language-r">      linetype = est$lty</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">82</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">126</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    assert_df_with_variables(</pre>
+                      <pre class="language-r">    ) +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">83</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">127</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df = aag_summary,</pre>
+                      <pre class="language-r">    scale_colour_manual(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">128</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      variables = list(val = c("basket", "basket_name"))</pre>
+                      <pre class="language-r">      name = "", values = c("Estimate" = "blue")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Warning in case there is no match between `aag_summary$basket` and `baskets` argument.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">87</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">131</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Honestly, I think those should completely match. Target baskets should be the same.</pre>
+                      <pre class="language-r">  p &lt;- p + ggplot2::labs(x = attrs$biomarker, y = attrs$estimate)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">88</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">132</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (length(intersect(baskets, unique(aag_summary$basket))) == 0) {</pre>
+                      <pre class="language-r">  if (use_percentile) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">89</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">133</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      warning("There are 0 baskets in common between aag_summary$basket and `baskets` argument.")</pre>
+                      <pre class="language-r">    p &lt;- p + ggplot2::scale_x_continuous(labels = scales::percent)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">91</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">135</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  p</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">93</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  var_labels &lt;- c(formatters::var_labels(df[, keys]), "SMQ" = smq_varlabel)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # convert `na_str` records from baskets to NA for the later loop and from wide to long steps</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">96</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  df[, c(baskets, smq_sc)][df[, c(baskets, smq_sc)] == na_str] &lt;- NA</pre>
+                      <pre class="language-r">#' Custom tidy method for STEP results</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">98</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">140</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (all(is.na(df[, baskets]))) { # in case there is no level for the target baskets</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">99</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">141</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_long &lt;- df[-seq_len(nrow(df)), keys] # we just need an empty data frame keeping all factor levels</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' Tidy the STEP results into a `tibble` format ready for plotting.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Concatenate SMQxxxNAM with corresponding SMQxxxSC</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">144</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_cnct &lt;- df[, c(keys, baskets[startsWith(baskets, "CQ")])]</pre>
+                      <pre class="language-r">#' @param x (`matrix`)\cr results from [fit_survival_step()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param ... not used.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">104</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">146</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    for (nam in names(smq)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">147</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sc &lt;- smq[nam] # SMQxxxSC corresponding to SMQxxxNAM</pre>
+                      <pre class="language-r">#' @return A `tibble` with one row per STEP subgroup. The estimates and CIs are on the HR or OR scale,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">148</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nam_notna &lt;- !is.na(df[[nam]])</pre>
+                      <pre class="language-r">#'   respectively. Additional attributes carry metadata also used for plotting.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">149</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      new_colname &lt;- paste(nam, sc, sep = "_")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">150</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df_cnct[nam_notna, new_colname] &lt;- paste0(df[[nam]], "(", df[[sc]], ")")[nam_notna]</pre>
+                      <pre class="language-r">#' @seealso [g_step()] which consumes the result from this function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @method tidy step</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">153</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_cnct$unique_id &lt;- seq(1, nrow(df_cnct))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">154</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_cols &lt;- names(df_cnct)[!(names(df_cnct) %in% c(keys, "unique_id"))]</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # have to convert df_cnct from tibble to data frame</pre>
+                      <pre class="language-r">#' library(survival)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # as it throws a warning otherwise about rownames.</pre>
+                      <pre class="language-r">#' lung$sex &lt;- factor(lung$sex)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # tibble do not support rownames and reshape creates rownames</pre>
+                      <pre class="language-r">#' vars &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   time = "time",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">159</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_long &lt;- stats::reshape(</pre>
+                      <pre class="language-r">#'   event = "status",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">118</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">160</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data = as.data.frame(df_cnct),</pre>
+                      <pre class="language-r">#'   arm = "sex",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">161</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      varying = var_cols,</pre>
+                      <pre class="language-r">#'   biomarker = "age"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">120</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">162</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      v.names = "SMQ",</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">121</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">163</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      idvar = names(df_cnct)[names(df_cnct) %in% c(keys, "unique_id")],</pre>
+                      <pre class="language-r">#' step_matrix &lt;- fit_survival_step(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">122</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">164</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      direction = "long",</pre>
+                      <pre class="language-r">#'   variables = vars,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">165</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      new.row.names = seq(prod(length(var_cols), nrow(df_cnct)))</pre>
+                      <pre class="language-r">#'   data = lung,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'   control = c(control_coxph(), control_step(num_points = 10, degree = 2))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">168</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_long &lt;- df_long[!is.na(df_long[, "SMQ"]), !(names(df_long) %in% c("time", "unique_id"))]</pre>
+                      <pre class="language-r">#' broom::tidy(step_matrix)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">169</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_long$SMQ &lt;- as.factor(df_long$SMQ)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">tidy.step &lt;- function(x, ...) { # nolint</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">172</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  smq_levels &lt;- setdiff(levels(df_long[["SMQ"]]), na_str)</pre>
+                      <pre class="language-r">  checkmate::assert_class(x, "step")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">131</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">173</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  dat &lt;- as.data.frame(x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">174</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(aag_summary)) {</pre>
+                      <pre class="language-r">  nams &lt;- names(dat)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">133</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">175</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # A warning in case there is no match between df and aag_summary records</pre>
+                      <pre class="language-r">  is_surv &lt;- "loghr" %in% names(dat)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">176</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (length(intersect(smq_levels, unique(aag_summary$basket_name))) == 0) {</pre>
+                      <pre class="language-r">  est_var &lt;- ifelse(is_surv, "loghr", "logor")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">135</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">177</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      warning("There are 0 basket levels in common between aag_summary$basket_name and df.")</pre>
+                      <pre class="language-r">  new_est_var &lt;- ifelse(is_surv, "Hazard Ratio", "Odds Ratio")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">136</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">178</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  new_y_vars &lt;- c(new_est_var, c("ci_lower", "ci_upper"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">179</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_long[["SMQ"]] &lt;- factor(</pre>
+                      <pre class="language-r">  names(dat)[match(est_var, nams)] &lt;- new_est_var</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">180</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df_long[["SMQ"]],</pre>
+                      <pre class="language-r">  dat[, new_y_vars] &lt;- exp(dat[, new_y_vars])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">181</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      levels = sort(</pre>
+                      <pre class="language-r">  any_is_na &lt;- any(is.na(dat[, new_y_vars]))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">182</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        c(</pre>
+                      <pre class="language-r">  any_is_very_large &lt;- any(abs(dat[, new_y_vars]) &gt; 1e10, na.rm = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">183</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          smq_levels,</pre>
+                      <pre class="language-r">  if (any_is_na) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">184</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          setdiff(unique(aag_summary$basket_name), smq_levels)</pre>
+                      <pre class="language-r">    warning(paste(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">143</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">185</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      "Missing values in the point estimate or CI columns,",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">144</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">186</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      "this will lead to holes in the `g_step()` plot"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">189</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    all_na_basket_flag &lt;- vapply(df[, baskets], function(x) {</pre>
+                      <pre class="language-r">  if (any_is_very_large) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">190</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      all(is.na(x))</pre>
+                      <pre class="language-r">    warning(paste(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">149</td>
+                    <td class="num">191</td>
                     <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }, FUN.VALUE = logical(1))</pre>
+                      <pre class="language-r">      "Very large absolute values in the point estimate or CI columns,",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">150</td>
+                    <td class="num">192</td>
                     <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    all_na_basket &lt;- baskets[all_na_basket_flag]</pre>
+                      <pre class="language-r">      "consider adding `scale_y_log10()` to the `g_step()` result for plotting"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    ))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">194</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_long[["SMQ"]] &lt;- factor(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">153</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">195</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df_long[["SMQ"]],</pre>
+                      <pre class="language-r">  if (any_is_na || any_is_very_large) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">154</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">196</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      levels = sort(c(smq_levels, all_na_basket))</pre>
+                      <pre class="language-r">    warning("Consider using larger `bandwidth`, less `num_points` in `control_step()` settings for fitting")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">156</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">198</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  structure(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">199</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  formatters::var_labels(df_long) &lt;- var_labels</pre>
+                      <pre class="language-r">    tibble::as_tibble(dat),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">200</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tibble::tibble(df_long)</pre>
+                      <pre class="language-r">    estimate = new_est_var,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">201</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    biomarker = attr(x, "variables")$biomarker,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">202</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ci = f_conf_level(attr(x, "control")$conf_level)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">203</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -118893,14 +118572,14 @@ <h2>tern coverage - 95.64%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/bland_altman.R" class="hidden">
+            <div id="R/survival_time.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Bland-Altman analysis</pre>
+                      <pre class="language-r">#' Survival time analysis</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -118914,7 +118593,7 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -118928,28 +118607,28 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Functions that use the Bland-Altman method to assess the agreement between two numerical vectors.</pre>
+                      <pre class="language-r">#' The analyze function [surv_time()] creates a layout element to analyze survival time by calculating survival time</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' median, median confidence interval, quantiles, and range (for all, censored, or event patients). The primary</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' analysis variable `vars` is the time variable and the secondary analysis variable `is_event` indicates whether or</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param y (`numeric`)\cr vector of numbers we want to analyze, to be compared with `x`.</pre>
+                      <pre class="language-r">#' not an event has occurred.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -118963,5161 +118642,4832 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name bland_altman</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#' @param control (`list`)\cr parameters for comparison details, specified by using the helper function</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   [control_surv_time()]. Some possible parameter options are:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn bland_altman Statistics function that compares two numeric vectors using the Bland-Altman method</pre>
+                      <pre class="language-r">#'   * `conf_level` (`proportion`)\cr confidence level of the interval for survival time.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and calculates a variety of statistics.</pre>
+                      <pre class="language-r">#'   * `conf_type` (`string`)\cr confidence interval type. Options are "plain" (default), "log", or "log-log",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     see more in [survival::survfit()]. Note option "none" is not supported.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'   * `quantiles` (`numeric`)\cr vector of length two to specify the quantiles of survival time.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_bland_altman()` returns a named list of the following elements: `df`, `difference_mean`, `ci_mean`,</pre>
+                      <pre class="language-r">#' @param ref_fn_censor (`flag`)\cr whether referential footnotes indicating censored observations should be printed</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `difference_sd`, `difference_se`, `upper_agreement_limit`, `lower_agreement_limit`, `agreement_limit_se`,</pre>
+                      <pre class="language-r">#'   when the `range` statistic is included.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `upper_agreement_limit_ci`, `lower_agreement_limit_ci`, `t_value`, and `n`.</pre>
+                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("surv_time")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   to see available statistics for this function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @param .indent_mods (named `integer`)\cr indent modifiers for the labels. Each element of the vector</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x &lt;- seq(1, 60, 5)</pre>
+                      <pre class="language-r">#'   should be a name-value pair with name corresponding to a statistic specified in `.stats` and value the indentation</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' y &lt;- seq(5, 50, 4)</pre>
+                      <pre class="language-r">#'   for that statistic's row label.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' conf_level &lt;- 0.9</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Derive statistics that are needed for Bland-Altman plot</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_bland_altman(x, y, conf_level = conf_level)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' adtte_f &lt;- tern_ex_adtte %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_bland_altman &lt;- function(x, y, conf_level = 0.95) {</pre>
+                      <pre class="language-r">#'   mutate(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">31</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(x, min.len = 1, any.missing = TRUE)</pre>
+                      <pre class="language-r">#'     AVAL = day2month(AVAL),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">32</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(y, len = length(x), any.missing = TRUE)</pre>
+                      <pre class="language-r">#'     is_event = CNSR == 0</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">33</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(conf_level, lower = 0, upper = 1, any.missing = TRUE)</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' df &lt;- adtte_f %&gt;% filter(ARMCD == "ARM A")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">35</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  alpha &lt;- 1 - conf_level</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @name survival_time</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">37</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ind &lt;- complete.cases(x, y) # use only pairwise complete observations, and check if x and y have the same length</pre>
+                      <pre class="language-r">#' @order 1</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">38</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x &lt;- x[ind]</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">39</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- y[ind]</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">40</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n &lt;- sum(ind) # number of 'observations'</pre>
+                      <pre class="language-r">#' @describeIn survival_time Statistics function which analyzes survival times.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">42</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (n == 0) {</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">43</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop("there is no valid paired data")</pre>
+                      <pre class="language-r">#' * `s_surv_time()` returns the statistics:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   * `median`: Median survival time.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   * `median_ci`: Confidence interval for median time.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">46</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  difference &lt;- x - y # vector of differences</pre>
+                      <pre class="language-r">#'   * `quantiles`: Survival time for two specified quantiles.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">47</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  average &lt;- (x + y) / 2 # vector of means</pre>
+                      <pre class="language-r">#'   * `range_censor`: Survival time range for censored observations.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">48</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  difference_mean &lt;- mean(difference) # mean difference</pre>
+                      <pre class="language-r">#'   * `range_event`: Survival time range for observations with events.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">49</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  difference_sd &lt;- sd(difference) # SD of differences</pre>
+                      <pre class="language-r">#'   * `range`: Survival time range for all observations.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">50</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  al &lt;- qnorm(1 - alpha / 2) * difference_sd</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">51</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  upper_agreement_limit &lt;- difference_mean + al # agreement limits</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">52</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lower_agreement_limit &lt;- difference_mean - al</pre>
+                      <pre class="language-r">s_surv_time &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                        .var,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">54</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  difference_se &lt;- difference_sd / sqrt(n) # standard error of the mean</pre>
+                      <pre class="language-r">                        is_event,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">55</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  al_se &lt;- difference_sd * sqrt(3) / sqrt(n) # standard error of the agreement limit</pre>
+                      <pre class="language-r">                        control = control_surv_time()) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">56</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">232<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tvalue &lt;- qt(1 - alpha / 2, n - 1) # t value for 95% CI calculation</pre>
+                      <pre class="language-r">  checkmate::assert_string(.var)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">57</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">232<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  difference_mean_ci &lt;- difference_se * tvalue</pre>
+                      <pre class="language-r">  assert_df_with_variables(df, list(tte = .var, is_event = is_event))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">58</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">232<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  al_ci &lt;- al_se * tvalue</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(df[[.var]], min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">59</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">232<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  upper_agreement_limit_ci &lt;- c(upper_agreement_limit - al_ci, upper_agreement_limit + al_ci)</pre>
+                      <pre class="language-r">  checkmate::assert_logical(df[[is_event]], min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">60</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lower_agreement_limit_ci &lt;- c(lower_agreement_limit - al_ci, lower_agreement_limit + al_ci)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">61</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">232<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  conf_type &lt;- control$conf_type</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">62</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">232<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">  conf_level &lt;- control$conf_level</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">63</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">232<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df = data.frame(average, difference),</pre>
+                      <pre class="language-r">  quantiles &lt;- control$quantiles</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">64</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    difference_mean = difference_mean,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">65</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">232<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ci_mean = difference_mean + c(-1, 1) * difference_mean_ci,</pre>
+                      <pre class="language-r">  formula &lt;- stats::as.formula(paste0("survival::Surv(", .var, ", ", is_event, ") ~ 1"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">66</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">232<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    difference_sd = difference_sd,</pre>
+                      <pre class="language-r">  srv_fit &lt;- survival::survfit(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">67</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">232<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    difference_se = difference_se,</pre>
+                      <pre class="language-r">    formula = formula,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">68</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">232<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    upper_agreement_limit = upper_agreement_limit,</pre>
+                      <pre class="language-r">    data = df,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">69</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">232<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lower_agreement_limit = lower_agreement_limit,</pre>
+                      <pre class="language-r">    conf.int = conf_level,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">70</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">232<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    agreement_limit_se = al_se,</pre>
+                      <pre class="language-r">    conf.type = conf_type</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">71</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    upper_agreement_limit_ci = upper_agreement_limit_ci,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">72</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">232<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lower_agreement_limit_ci = lower_agreement_limit_ci,</pre>
+                      <pre class="language-r">  srv_tab &lt;- summary(srv_fit, extend = TRUE)$table</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">73</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">232<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    t_value = tvalue,</pre>
+                      <pre class="language-r">  srv_qt_tab &lt;- stats::quantile(srv_fit, probs = quantiles)$quantile</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">74</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">232<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n = n</pre>
+                      <pre class="language-r">  range_censor &lt;- range_noinf(df[[.var]][!df[[is_event]]], na.rm = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">75</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">232<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  range_event &lt;- range_noinf(df[[.var]][df[[is_event]]], na.rm = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">76</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">232<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  range &lt;- range_noinf(df[[.var]], na.rm = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">77</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">232<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">78</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">232<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn bland_altman Graphing function that produces a Bland-Altman plot.</pre>
+                      <pre class="language-r">    median = formatters::with_label(unname(srv_tab["median"]), "Median"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">79</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">232<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    median_ci = formatters::with_label(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">80</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">232<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">      unname(srv_tab[paste0(srv_fit$conf.int, c("LCL", "UCL"))]), f_conf_level(conf_level)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `g_bland_altman()` returns a `ggplot` Bland-Altman plot.</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">82</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">232<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    quantiles = formatters::with_label(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">83</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">232<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">      unname(srv_qt_tab), paste0(quantiles[1] * 100, "% and ", quantiles[2] * 100, "%-ile")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Create a Bland-Altman plot</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">85</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">232<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_bland_altman(x = x, y = y, conf_level = conf_level)</pre>
+                      <pre class="language-r">    range_censor = formatters::with_label(range_censor, "Range (censored)"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">86</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">232<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    range_event = formatters::with_label(range_event, "Range (event)"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">87</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">232<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    range = formatters::with_label(range, "Range")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">g_bland_altman &lt;- function(x, y, conf_level = 0.95) {</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">89</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result_tem &lt;- s_bland_altman(x, y, conf_level = conf_level)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">90</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  xpos &lt;- max(result_tem$df$average) * 0.9 + min(result_tem$df$average) * 0.1</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">91</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  yrange &lt;- diff(range(result_tem$df$difference))</pre>
+                      <pre class="language-r">#' @describeIn survival_time Formatted analysis function which is used as `afun` in `surv_time()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">93</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  p &lt;- ggplot(result_tem$df) +</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">94</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    geom_point(aes(x = average, y = difference), color = "blue") +</pre>
+                      <pre class="language-r">#' * `a_surv_time()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">95</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    geom_hline(yintercept = result_tem$difference_mean, color = "blue", linetype = 1) +</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">96</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    geom_hline(yintercept = 0, color = "blue", linetype = 2) +</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">97</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    geom_hline(yintercept = result_tem$lower_agreement_limit, color = "red", linetype = 2) +</pre>
+                      <pre class="language-r">#' a_surv_time(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">98</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    geom_hline(yintercept = result_tem$upper_agreement_limit, color = "red", linetype = 2) +</pre>
+                      <pre class="language-r">#'   df,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">99</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    annotate(</pre>
+                      <pre class="language-r">#'   .df_row = df,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">100</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "text",</pre>
+                      <pre class="language-r">#'   .var = "AVAL",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">101</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = xpos,</pre>
+                      <pre class="language-r">#'   is_event = "is_event"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">102</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y = result_tem$lower_agreement_limit + 0.03 * yrange,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">103</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      label = "lower limits of agreement",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">104</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      color = "red"</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) +</pre>
+                      <pre class="language-r">a_surv_time &lt;- function(df,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">106</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    annotate(</pre>
+                      <pre class="language-r">                        labelstr = "",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">107</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "text",</pre>
+                      <pre class="language-r">                        .var = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">108</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = xpos,</pre>
+                      <pre class="language-r">                        .df_row = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">109</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y = result_tem$upper_agreement_limit + 0.03 * yrange,</pre>
+                      <pre class="language-r">                        is_event,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">110</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      label = "upper limits of agreement",</pre>
+                      <pre class="language-r">                        control = control_surv_time(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">111</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      color = "red"</pre>
+                      <pre class="language-r">                        ref_fn_censor = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) +</pre>
+                      <pre class="language-r">                        .stats = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">113</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    annotate(</pre>
+                      <pre class="language-r">                        .formats = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">114</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "text",</pre>
+                      <pre class="language-r">                        .labels = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">115</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = xpos,</pre>
+                      <pre class="language-r">                        .indent_mods = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">116</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y = result_tem$difference_mean + 0.03 * yrange,</pre>
+                      <pre class="language-r">                        na_str = default_na_str()) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">117</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      label = "mean of difference between two measures",</pre>
+                      <pre class="language-r">  x_stats &lt;- s_surv_time(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">118</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      color = "blue"</pre>
+                      <pre class="language-r">    df = df, .var = .var, is_event = is_event, control = control</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) +</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">120</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    annotate(</pre>
+                      <pre class="language-r">  rng_censor_lwr &lt;- x_stats[["range_censor"]][1]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">121</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "text",</pre>
+                      <pre class="language-r">  rng_censor_upr &lt;- x_stats[["range_censor"]][2]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">122</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = xpos,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">123</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y = result_tem$lower_agreement_limit - 0.03 * yrange,</pre>
+                      <pre class="language-r">  # Use method-specific defaults</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">124</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      label = sprintf("%.2f", result_tem$lower_agreement_limit),</pre>
+                      <pre class="language-r">  fmts &lt;- c(median_ci = "(xx.x, xx.x)", quantiles = "xx.x, xx.x", range = "xx.x to xx.x")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">125</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      color = "red"</pre>
+                      <pre class="language-r">  lbls &lt;- c(median_ci = "95% CI", range = "Range", range_censor = "Range (censored)", range_event = "Range (event)")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">126</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) +</pre>
+                      <pre class="language-r">  lbls_custom &lt;- .labels</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">127</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    annotate(</pre>
+                      <pre class="language-r">  .formats &lt;- c(.formats, fmts[setdiff(names(fmts), names(.formats))])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">128</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "text",</pre>
+                      <pre class="language-r">  .labels &lt;- c(.labels, lbls[setdiff(names(lbls), names(lbls_custom))])</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">129</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = xpos,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">130</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y = result_tem$upper_agreement_limit - 0.03 * yrange,</pre>
+                      <pre class="language-r">  # Fill in with formatting defaults if needed</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">131</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      label = sprintf("%.2f", result_tem$upper_agreement_limit),</pre>
+                      <pre class="language-r">  .stats &lt;- get_stats("surv_time", stats_in = .stats)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">132</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      color = "red"</pre>
+                      <pre class="language-r">  .formats &lt;- get_formats_from_stats(.stats, .formats)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">133</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) +</pre>
+                      <pre class="language-r">  .labels &lt;- get_labels_from_stats(.stats, .labels) %&gt;% labels_use_control(control, lbls_custom)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">134</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    annotate(</pre>
+                      <pre class="language-r">  .indent_mods &lt;- get_indents_from_stats(.stats, .indent_mods)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">135</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "text",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">136</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = xpos,</pre>
+                      <pre class="language-r">  x_stats &lt;- x_stats[.stats]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">137</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y = result_tem$difference_mean - 0.03 * yrange,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">138</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      label = sprintf("%.2f", result_tem$difference_meanm),</pre>
+                      <pre class="language-r">  # Auto format handling</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">139</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      color = "blue"</pre>
+                      <pre class="language-r">  .formats &lt;- apply_auto_formatting(.formats, x_stats, .df_row, .var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) +</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">141</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xlab("Average of two measures") +</pre>
+                      <pre class="language-r">  cell_fns &lt;- setNames(vector("list", length = length(x_stats)), .labels)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">142</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ylab("Difference between two measures")</pre>
+                      <pre class="language-r">  if ("range" %in% names(x_stats) &amp;&amp; ref_fn_censor) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">143</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    if (identical(x_stats[["range"]][1], rng_censor_lwr) &amp;&amp; identical(x_stats[["range"]][2], rng_censor_upr)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">144</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(p)</pre>
+                      <pre class="language-r">      cell_fns[[.labels[["range"]]]] &lt;- "Censored observations: range minimum &amp; maximum"</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">145</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
-                    </td>
-                  </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/h_cox_regression.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' Helper functions for Cox proportional hazards regression</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper functions used in [fit_coxreg_univar()] and [fit_coxreg_multivar()].</pre>
+                      <pre class="language-r">    } else if (identical(x_stats[["range"]][1], rng_censor_lwr)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">146</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      cell_fns[[.labels[["range"]]]] &lt;- "Censored observation: range minimum"</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">147</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">    } else if (identical(x_stats[["range"]][2], rng_censor_upr)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">148</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams h_coxreg_univar_extract</pre>
+                      <pre class="language-r">      cell_fns[[.labels[["range"]]]] &lt;- "Censored observation: range maximum"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams cox_regression_inter</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams control_coxreg</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">152</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [cox_regression]</pre>
+                      <pre class="language-r">  in_rows(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">153</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    .list = x_stats,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">154</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name h_cox_regression</pre>
+                      <pre class="language-r">    .formats = .formats,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">155</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">    .names = .labels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">156</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    .labels = .labels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">157</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_cox_regression Helper for Cox regression formula. Creates a list of formulas. It is used</pre>
+                      <pre class="language-r">    .indent_mods = .indent_mods,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">158</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   internally by [fit_coxreg_univar()] for the comparison of univariate Cox regression models.</pre>
+                      <pre class="language-r">    .format_na_strs = na_str,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">159</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    .cell_footnotes = cell_fns</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_coxreg_univar_formulas()` returns a `character` vector coercible into formulas (e.g [stats::as.formula()]).</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @describeIn survival_time Layout-creating function which can take statistics function arguments</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `h_coxreg_univar_formulas`</pre>
+                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' ## Simple formulas.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' h_coxreg_univar_formulas(</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     time = "time", event = "status", arm = "armcd", covariates = c("X", "y")</pre>
+                      <pre class="language-r">#' * `surv_time()` returns a layout object suitable for passing to further layouting functions,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   the statistics from `s_surv_time()` to the table layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Addition of an optional strata.</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_coxreg_univar_formulas(</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">#'   split_cols_by(var = "ARMCD") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     time = "time", event = "status", arm = "armcd", covariates = c("X", "y"),</pre>
+                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     strata = "SITE"</pre>
+                      <pre class="language-r">#'   surv_time(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#'     vars = "AVAL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'     var_labels = "Survival Time (Months)",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     is_event = "is_event",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Inclusion of the interaction term.</pre>
+                      <pre class="language-r">#'     control = control_surv_time(conf_level = 0.9, conf_type = "log-log")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_coxreg_univar_formulas(</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">#'   build_table(df = adtte_f)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     time = "time", event = "status", arm = "armcd", covariates = c("X", "y"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     strata = "SITE"</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#' @order 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   interaction = TRUE</pre>
+                      <pre class="language-r">surv_time &lt;- function(lyt,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">                      vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                      is_event,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Only covariates fitted in separate models.</pre>
+                      <pre class="language-r">                      control = control_surv_time(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_coxreg_univar_formulas(</pre>
+                      <pre class="language-r">                      ref_fn_censor = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">                      na_str = default_na_str(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     time = "time", event = "status", covariates = c("X", "y")</pre>
+                      <pre class="language-r">                      nested = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">                      ...,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">                      var_labels = "Time to Event",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                      show_labels = "visible",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                      table_names = vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_coxreg_univar_formulas &lt;- function(variables,</pre>
+                      <pre class="language-r">                      .stats = c("median", "median_ci", "quantiles", "range"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     interaction = FALSE) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">50<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(variables, names = "named")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">50<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  has_arm &lt;- "arm" %in% names(variables)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">50<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  arm_name &lt;- if (has_arm) "arm" else NULL</pre>
+                      <pre class="language-r">                      .formats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">64</td>
-                    <td class="coverage">50<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(variables$covariates, null.ok = TRUE)</pre>
+                      <pre class="language-r">                      .labels = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                      .indent_mods = c(median_ci = 1L)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">50<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(interaction)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">67</td>
-                    <td class="coverage"></td>
+                    <td class="num">200</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  extra_args &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">50<em>x</em></td>
+                    <td class="num">201</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!has_arm || is.null(variables$covariates)) {</pre>
+                      <pre class="language-r">    .stats = .stats, .formats = .formats, .labels = .labels, .indent_mods = .indent_mods, na_str = na_str,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">69</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">202</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_false(interaction)</pre>
+                      <pre class="language-r">    is_event = is_event, control = control, ref_fn_censor = ref_fn_censor, ...</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">48<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  assert_list_of_variables(variables[c(arm_name, "event", "time")])</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">73</td>
-                    <td class="coverage"></td>
+                    <td class="num">205</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  analyze(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">48<em>x</em></td>
+                    <td class="num">206</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(variables$covariates)) {</pre>
+                      <pre class="language-r">    lyt = lyt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">47<em>x</em></td>
+                    <td class="num">207</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    forms &lt;- paste0(</pre>
+                      <pre class="language-r">    vars = vars,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">47<em>x</em></td>
+                    <td class="num">208</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "survival::Surv(", variables$time, ", ", variables$event, ") ~ ",</pre>
+                      <pre class="language-r">    afun = a_surv_time,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">47<em>x</em></td>
+                    <td class="num">209</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ifelse(has_arm, variables$arm, "1"),</pre>
+                      <pre class="language-r">    var_labels = var_labels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">47<em>x</em></td>
+                    <td class="num">210</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ifelse(interaction, " * ", " + "),</pre>
+                      <pre class="language-r">    show_labels = show_labels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">47<em>x</em></td>
+                    <td class="num">211</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      variables$covariates,</pre>
+                      <pre class="language-r">    table_names = table_names,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">47<em>x</em></td>
+                    <td class="num">212</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ifelse(</pre>
+                      <pre class="language-r">    na_str = na_str,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">47<em>x</em></td>
+                    <td class="num">213</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        !is.null(variables$strata),</pre>
+                      <pre class="language-r">    nested = nested,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">82</td>
-                    <td class="coverage">47<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        paste0(" + strata(", paste0(variables$strata, collapse = ", "), ")"),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">83</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        ""</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">84</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                    <td class="num">214</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    extra_args = extra_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    forms &lt;- NULL</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">89</td>
-                    <td class="coverage">48<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  nams &lt;- variables$covariates</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">48<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (has_arm) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">91</td>
-                    <td class="coverage">41<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    ref &lt;- paste0(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">41<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      "survival::Surv(", variables$time, ", ", variables$event, ") ~ ",</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">93</td>
-                    <td class="coverage">41<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      variables$arm,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">94</td>
-                    <td class="coverage">41<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      ifelse(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">41<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        !is.null(variables$strata),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">96</td>
-                    <td class="coverage">41<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        paste0(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">97</td>
-                    <td class="coverage">41<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          " + strata(", paste0(variables$strata, collapse = ", "), ")"</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/count_occurrences_by_grade.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">#' Count occurrences by grade</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ""</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">41<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    forms &lt;- c(ref, forms)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">41<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    nams &lt;- c("ref", nams)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">48<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  stats::setNames(forms, nams)</pre>
+                      <pre class="language-r">#' The analyze function [count_occurrences_by_grade()] creates a layout element to calculate occurrence counts by grade.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' This function analyzes primary analysis variable `var` which indicates toxicity grades. The `id` variable</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_cox_regression Helper for multivariate Cox regression formula. Creates a formulas</pre>
+                      <pre class="language-r">#' is used to indicate unique subject identifiers (defaults to `USUBJID`). The user can also supply a list of</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   string. It is used internally by [fit_coxreg_multivar()] for the comparison of multivariate Cox</pre>
+                      <pre class="language-r">#' custom groups of grades to analyze via the `grade_groups` parameter. The `remove_single`  argument will</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   regression models. Interactions will not be included in multivariate Cox regression model.</pre>
+                      <pre class="language-r">#' remove single grades from the analysis so that *only* grade groups are analyzed.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_coxreg_multivar_formula()` returns a `string` coercible into a formula (e.g [stats::as.formula()]).</pre>
+                      <pre class="language-r">#' If there are multiple grades recorded for one patient only the highest grade level is counted.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `h_coxreg_multivar_formula`</pre>
+                      <pre class="language-r">#' The summarize function [summarize_occurrences_by_grade()] performs the same function as</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' [count_occurrences_by_grade()] except it creates content rows, not data rows, to summarize the current table</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_coxreg_multivar_formula(</pre>
+                      <pre class="language-r">#' row/column context and operates on the level of the latest row split or the root of the table if no row splits have</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">#' occurred.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     time = "AVAL", event = "event", arm = "ARMCD", covariates = c("RACE", "AGE")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' @param grade_groups (named `list` of `character`)\cr list containing groupings of grades.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param remove_single (`flag`)\cr `TRUE` to not include the elements of one-element grade groups</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Addition of an optional strata.</pre>
+                      <pre class="language-r">#'   in the the output list; in this case only the grade groups names will be included in the output. If</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_coxreg_multivar_formula(</pre>
+                      <pre class="language-r">#'   `only_grade_groups` is set to `TRUE` this argument is ignored.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">#' @param only_grade_groups (`flag`)\cr whether only the specified grade groups should be</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     time = "AVAL", event = "event", arm = "ARMCD", covariates = c("RACE", "AGE"),</pre>
+                      <pre class="language-r">#'   included, with individual grade rows removed (`TRUE`), or all grades and grade groups</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     strata = "SITE"</pre>
+                      <pre class="language-r">#'   should be displayed (`FALSE`).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("count_occurrences_by_grade")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   to see available statistics for this function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Example without treatment arm.</pre>
+                      <pre class="language-r">#' @seealso Relevant helper function [h_append_grade_groups()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_coxreg_multivar_formula(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">#' @name count_occurrences_by_grade</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     time = "AVAL", event = "event", covariates = c("RACE", "AGE"),</pre>
+                      <pre class="language-r">#' @order 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     strata = "SITE"</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' Helper function for `s_count_occurrences_by_grade()`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_coxreg_multivar_formula &lt;- function(variables) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">89<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(variables, names = "named")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">89<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  has_arm &lt;- "arm" %in% names(variables)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">89<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  arm_name &lt;- if (has_arm) "arm" else NULL</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Helper function for [s_count_occurrences_by_grade()] to insert grade groupings into list with</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">41</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(variables$covariates, null.ok = TRUE)</pre>
+                      <pre class="language-r">#' individual grade frequencies. The order of the final result follows the order of `grade_groups`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' The elements under any-grade group (if any), i.e. the grade group equal to `refs` will be moved to</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">43</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_list_of_variables(variables[c(arm_name, "event", "time")])</pre>
+                      <pre class="language-r">#' the end. Grade groups names must be unique.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">150</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">45</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- paste0(</pre>
+                      <pre class="language-r">#' @inheritParams count_occurrences_by_grade</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">46</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "survival::Surv(", variables$time, ", ", variables$event, ") ~ ",</pre>
+                      <pre class="language-r">#' @param refs (named `list` of `numeric`)\cr named list where each name corresponds to a reference grade level</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">47</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ifelse(has_arm, variables$arm, "1")</pre>
+                      <pre class="language-r">#'   and each entry represents a count.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">154</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">49</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(variables$covariates) &gt; 0) {</pre>
+                      <pre class="language-r">#' @return Formatted list of grade groupings.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">26<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">50</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y &lt;- paste(y, paste(variables$covariates, collapse = " + "), sep = " + ")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">52</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(variables$strata)) {</pre>
+                      <pre class="language-r">#' h_append_grade_groups(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">53</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y &lt;- paste0(y, " + strata(", paste0(variables$strata, collapse = ", "), ")")</pre>
+                      <pre class="language-r">#'   list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'     "Any Grade" = as.character(1:5),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">160</td>
-                    <td class="coverage">89<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">55</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y</pre>
+                      <pre class="language-r">#'     "Grade 1-2" = c("1", "2"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'     "Grade 3-4" = c("3", "4")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_cox_regression Utility function to help tabulate the result of</pre>
+                      <pre class="language-r">#'   list("1" = 10, "2" = 20, "3" = 30, "4" = 40, "5" = 50)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   a univariate Cox regression model.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param effect (`string`)\cr the treatment variable.</pre>
+                      <pre class="language-r">#' h_append_grade_groups(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param mod (`coxph`)\cr Cox regression model fitted by [survival::coxph()].</pre>
+                      <pre class="language-r">#'   list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     "Any Grade" = as.character(5:1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'     "Grade A" = "5",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_coxreg_univar_extract()` returns a `data.frame` with variables `effect`, `term`, `term_label`, `level`,</pre>
+                      <pre class="language-r">#'     "Grade B" = c("4", "3")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `n`, `hr`, `lcl`, `ucl`, and `pval`.</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   list("1" = 10, "2" = 20, "3" = 30, "4" = 40, "5" = 50)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(survival)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' h_append_grade_groups(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dta_simple &lt;- data.frame(</pre>
+                      <pre class="language-r">#'   list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   time = c(5, 5, 10, 10, 5, 5, 10, 10),</pre>
+                      <pre class="language-r">#'     "Any Grade" = as.character(1:5),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   status = c(0, 0, 1, 0, 0, 1, 1, 1),</pre>
+                      <pre class="language-r">#'     "Grade 1-2" = c("1", "2"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   armcd = factor(LETTERS[c(1, 1, 1, 1, 2, 2, 2, 2)], levels = c("A", "B")),</pre>
+                      <pre class="language-r">#'     "Grade 3-4" = c("3", "4")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   var1 = c(45, 55, 65, 75, 55, 65, 85, 75),</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   var2 = c("F", "M", "F", "M", "F", "M", "F", "U")</pre>
+                      <pre class="language-r">#'   list("1" = 10, "2" = 5, "3" = 0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' mod &lt;- coxph(Surv(time, status) ~ armcd + var1, data = dta_simple)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result &lt;- h_coxreg_univar_extract(</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   effect = "armcd", covar = "armcd", mod = mod, data = dta_simple</pre>
+                      <pre class="language-r">h_append_grade_groups &lt;- function(grade_groups, refs, remove_single = TRUE, only_grade_groups = FALSE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">186</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">81</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  checkmate::assert_list(grade_groups)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">187</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">82</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result</pre>
+                      <pre class="language-r">  checkmate::assert_list(refs)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">188</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">83</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  refs_orig &lt;- refs</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">189</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">84</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  elements &lt;- unique(unlist(grade_groups))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_coxreg_univar_extract &lt;- function(effect,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    covar,</pre>
+                      <pre class="language-r">  ### compute sums in groups</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">87</td>
+                    <td class="coverage">22<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  grp_sum &lt;- lapply(grade_groups, function(i) do.call(sum, refs[i]))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">88</td>
+                    <td class="coverage">22<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (!checkmate::test_subset(elements, names(refs))) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">89</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    padding_el &lt;- setdiff(elements, names(refs))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">90</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    refs[padding_el] &lt;- 0</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    data,</pre>
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">92</td>
+                    <td class="coverage">22<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  result &lt;- c(grp_sum, refs)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    mod,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    control = control_coxreg()) {</pre>
+                      <pre class="language-r">  ### order result while keeping grade_groups's ordering</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="num">95</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(covar)</pre>
+                      <pre class="language-r">  ordr &lt;- grade_groups</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">66<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">96</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(effect)</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">97</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  # elements of any-grade group (if any) will be moved to the end</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">197</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="num">98</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_class(mod, "coxph")</pre>
+                      <pre class="language-r">  is_any &lt;- sapply(grade_groups, setequal, y = names(refs))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">198</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="num">99</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  test_statistic &lt;- c(wald = "Wald", likelihood = "LR")[control$pval_method]</pre>
+                      <pre class="language-r">  ordr[is_any] &lt;- list(character(0)) # hide elements under any-grade group</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">200</td>
-                    <td class="coverage">66<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">101</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mod_aov &lt;- muffled_car_anova(mod, test_statistic)</pre>
+                      <pre class="language-r">  # groups-elements combined sequence</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">201</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="num">102</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  msum &lt;- summary(mod, conf.int = control$conf_level)</pre>
+                      <pre class="language-r">  ordr &lt;- c(lapply(names(ordr), function(g) c(g, ordr[[g]])), recursive = TRUE, use.names = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="num">103</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  sum_cox &lt;- broom::tidy(msum)</pre>
+                      <pre class="language-r">  ordr &lt;- ordr[!duplicated(ordr)]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Combine results together.</pre>
+                      <pre class="language-r">  # append remaining elements (if any)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="num">106</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  effect_aov &lt;- mod_aov[effect, , drop = TRUE]</pre>
+                      <pre class="language-r">  ordr &lt;- union(ordr, unlist(grade_groups[is_any])) # from any-grade group</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="num">107</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  pval &lt;- effect_aov[[grep(pattern = "Pr", x = names(effect_aov)), drop = TRUE]]</pre>
+                      <pre class="language-r">  ordr &lt;- union(ordr, names(refs)) # from refs</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">66<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">108</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  sum_main &lt;- sum_cox[grepl(effect, sum_cox$level), ]</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  # remove elements of single-element groups, if any</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">209</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="num">110</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  term_label &lt;- if (effect == covar) {</pre>
+                      <pre class="language-r">  if (only_grade_groups) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">34<em>x</em></td>
+                    <td class="num">111</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    paste0(</pre>
+                      <pre class="language-r">    ordr &lt;- intersect(ordr, names(grade_groups))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">34<em>x</em></td>
+                    <td class="num">112</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      levels(data[[covar]])[2],</pre>
+                      <pre class="language-r">  } else if (remove_single) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">212</td>
-                    <td class="coverage">34<em>x</em></td>
+                    <td class="num">113</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      " vs control (",</pre>
+                      <pre class="language-r">    is_single &lt;- sapply(grade_groups, length) == 1L</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">34<em>x</em></td>
+                    <td class="num">114</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      levels(data[[covar]])[1],</pre>
+                      <pre class="language-r">    ordr &lt;- setdiff(ordr, unlist(grade_groups[is_single]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ")"</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">  # apply the order</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">217</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">118</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    unname(labels_or_names(data[covar]))</pre>
+                      <pre class="language-r">  result &lt;- result[ordr]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">218</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">66<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">120</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data.frame(</pre>
+                      <pre class="language-r">  # remove groups without any elements in the original refs</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">66<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">121</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    effect = ifelse(covar == effect, "Treatment:", "Covariate:"),</pre>
+                      <pre class="language-r">  # note: it's OK if groups have 0 value</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">221</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="num">122</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    term = covar,</pre>
+                      <pre class="language-r">  keep_grp &lt;- vapply(grade_groups, function(x, rf) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="num">123</td>
+                    <td class="coverage">54<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    term_label = term_label,</pre>
+                      <pre class="language-r">    any(x %in% rf)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="num">124</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    level = levels(data[[effect]])[2],</pre>
+                      <pre class="language-r">  }, rf = names(refs_orig), logical(1))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">66<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">125</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n = mod[["n"]],</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">225</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="num">126</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    hr = unname(sum_main["exp(coef)"]),</pre>
+                      <pre class="language-r">  keep_el &lt;- names(result) %in% names(refs_orig) | names(result) %in% names(keep_grp)[keep_grp]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="num">127</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lcl = unname(sum_main[grep("lower", names(sum_main))]),</pre>
+                      <pre class="language-r">  result &lt;- result[keep_el]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">66<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">128</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ucl = unname(sum_main[grep("upper", names(sum_main))]),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="num">129</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pval = pval,</pre>
+                      <pre class="language-r">  result</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">229</td>
-                    <td class="coverage">66<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">130</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">231</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @describeIn count_occurrences_by_grade Statistics function which counts the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'  number of patients by highest grade.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_cox_regression Tabulation of multivariate Cox regressions. Utility function to help</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">234</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   tabulate the result of a multivariate Cox regression model for a treatment/covariate variable.</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' * `s_count_occurrences_by_grade()` returns a list of counts and fractions with one element per grade level or</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'   grade level grouping.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">237</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_coxreg_multivar_extract()` returns a `data.frame` with variables `pval`, `hr`, `lcl`, `ucl`, `level`,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">238</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `n`, `term`, and `term_label`.</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' s_count_occurrences_by_grade(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">241</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' mod &lt;- coxph(Surv(time, status) ~ armcd + var1, data = dta_simple)</pre>
+                      <pre class="language-r">#'   .N_col = 10L,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">242</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result &lt;- h_coxreg_multivar_extract(</pre>
+                      <pre class="language-r">#'   .var = "AETOXGR",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   var = "var1", mod = mod, data = dta_simple</pre>
+                      <pre class="language-r">#'   id = "USUBJID",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   grade_groups = list("ANY" = levels(df$AETOXGR))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">247</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_coxreg_multivar_extract &lt;- function(var,</pre>
+                      <pre class="language-r">s_count_occurrences_by_grade &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">249</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      data,</pre>
+                      <pre class="language-r">                                         .var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">250</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      mod,</pre>
+                      <pre class="language-r">                                         .N_col, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      control = control_coxreg()) {</pre>
+                      <pre class="language-r">                                         id = "USUBJID",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">252</td>
-                    <td class="coverage">132<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">153</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  test_statistic &lt;- c(wald = "Wald", likelihood = "LR")[control$pval_method]</pre>
+                      <pre class="language-r">                                         grade_groups = list(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">253</td>
-                    <td class="coverage">132<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">154</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mod_aov &lt;- muffled_car_anova(mod, test_statistic)</pre>
+                      <pre class="language-r">                                         remove_single = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                         only_grade_groups = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">255</td>
-                    <td class="coverage">132<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">156</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  msum &lt;- summary(mod, conf.int = control$conf_level)</pre>
+                      <pre class="language-r">                                         labelstr = "") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">256</td>
-                    <td class="coverage">132<em>x</em></td>
+                    <td class="num">157</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  sum_anova &lt;- broom::tidy(mod_aov)</pre>
+                      <pre class="language-r">  assert_valid_factor(df[[.var]])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">257</td>
-                    <td class="coverage">132<em>x</em></td>
+                    <td class="num">158</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  sum_cox &lt;- broom::tidy(msum)</pre>
+                      <pre class="language-r">  assert_df_with_variables(df, list(grade = .var, id = id))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">259</td>
-                    <td class="coverage">132<em>x</em></td>
+                    <td class="num">160</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ret_anova &lt;- sum_anova[sum_anova$term == var, c("term", "p.value")]</pre>
+                      <pre class="language-r">  if (nrow(df) &lt; 1) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">260</td>
-                    <td class="coverage">132<em>x</em></td>
+                    <td class="num">161</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  names(ret_anova)[2] &lt;- "pval"</pre>
+                      <pre class="language-r">    grade_levels &lt;- levels(df[[.var]])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">261</td>
-                    <td class="coverage">132<em>x</em></td>
+                    <td class="num">162</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.factor(data[[var]])) {</pre>
+                      <pre class="language-r">    l_count &lt;- as.list(rep(0, length(grade_levels)))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">262</td>
-                    <td class="coverage">53<em>x</em></td>
+                    <td class="num">163</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ret_cox &lt;- sum_cox[startsWith(prefix = var, x = sum_cox$level), !(names(sum_cox) %in% "exp(-coef)")]</pre>
+                      <pre class="language-r">    names(l_count) &lt;- grade_levels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">263</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">264</td>
-                    <td class="coverage">79<em>x</em></td>
+                    <td class="num">165</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ret_cox &lt;- sum_cox[(var == sum_cox$level), !(names(sum_cox) %in% "exp(-coef)")]</pre>
+                      <pre class="language-r">    if (isTRUE(is.factor(df[[id]]))) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">166</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      assert_valid_factor(df[[id]], any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">266</td>
-                    <td class="coverage">132<em>x</em></td>
+                    <td class="num">168</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  names(ret_cox)[1:4] &lt;- c("pval", "hr", "lcl", "ucl")</pre>
+                      <pre class="language-r">      checkmate::assert_character(df[[id]], min.chars = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">267</td>
-                    <td class="coverage">132<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">169</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  varlab &lt;- unname(labels_or_names(data[var]))</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">268</td>
-                    <td class="coverage">132<em>x</em></td>
+                    <td class="num">170</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ret_cox$term &lt;- varlab</pre>
+                      <pre class="language-r">    checkmate::assert_count(.N_col)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">270</td>
-                    <td class="coverage">132<em>x</em></td>
+                    <td class="num">172</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.numeric(data[[var]])) {</pre>
+                      <pre class="language-r">    id &lt;- df[[id]]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">271</td>
-                    <td class="coverage">79<em>x</em></td>
+                    <td class="num">173</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ret &lt;- ret_cox</pre>
+                      <pre class="language-r">    grade &lt;- df[[.var]]</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">174</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">272</td>
-                    <td class="coverage">79<em>x</em></td>
+                    <td class="num">175</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ret$term_label &lt;- ret$term</pre>
+                      <pre class="language-r">    if (!is.ordered(grade)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">273</td>
-                    <td class="coverage">53<em>x</em></td>
+                    <td class="num">176</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (length(levels(data[[var]])) &lt;= 2) {</pre>
+                      <pre class="language-r">      grade_lbl &lt;- obj_label(grade)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">274</td>
-                    <td class="coverage">34<em>x</em></td>
+                    <td class="num">177</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ret_anova$pval &lt;- NA</pre>
+                      <pre class="language-r">      lvls &lt;- levels(grade)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">275</td>
-                    <td class="coverage">34<em>x</em></td>
+                    <td class="num">178</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ret_anova$term_label &lt;- paste0(varlab, " (reference = ", levels(data[[var]])[1], ")")</pre>
+                      <pre class="language-r">      if (sum(grepl("^\\d+$", lvls)) %in% c(0, length(lvls))) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">276</td>
-                    <td class="coverage">34<em>x</em></td>
+                    <td class="num">179</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ret_cox$level &lt;- gsub(var, "", ret_cox$level)</pre>
+                      <pre class="language-r">        lvl_ord &lt;- lvls</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">180</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">277</td>
-                    <td class="coverage">34<em>x</em></td>
+                    <td class="num">181</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ret_cox$term_label &lt;- ret_cox$level</pre>
+                      <pre class="language-r">        lvls[!grepl("^\\d+$", lvls)] &lt;- min(as.numeric(lvls[grepl("^\\d+$", lvls)])) - 1</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">278</td>
-                    <td class="coverage">34<em>x</em></td>
+                    <td class="num">182</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ret &lt;- dplyr::bind_rows(ret_anova, ret_cox)</pre>
+                      <pre class="language-r">        lvl_ord &lt;- levels(grade)[order(as.numeric(lvls))]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">280</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">184</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ret_anova$term_label &lt;- paste0(varlab, " (reference = ", levels(data[[var]])[1], ")")</pre>
+                      <pre class="language-r">      grade &lt;- formatters::with_label(factor(grade, levels = lvl_ord, ordered = TRUE), grade_lbl)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">185</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">186</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">281</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">187</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ret_cox$level &lt;- gsub(var, "", ret_cox$level)</pre>
+                      <pre class="language-r">    missing_lvl &lt;- grepl("missing", tolower(levels(grade)))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">282</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">188</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ret_cox$term_label &lt;- ret_cox$level</pre>
+                      <pre class="language-r">    if (any(missing_lvl)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">283</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">189</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ret &lt;- dplyr::bind_rows(ret_anova, ret_cox)</pre>
+                      <pre class="language-r">      grade &lt;- factor(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">284</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">190</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        grade,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">285</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">191</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        levels = c(levels(grade)[!missing_lvl], levels(grade)[missing_lvl]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">286</td>
-                    <td class="coverage">132<em>x</em></td>
+                    <td class="num">192</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  as.data.frame(ret)</pre>
+                      <pre class="language-r">        ordered = is.ordered(grade)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/summarize_patients_exposure_in_cols.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Count number of patients and sum exposure across all patients in columns</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">195</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    df_max &lt;- stats::aggregate(grade ~ id, FUN = max, drop = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">196</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">    l_count &lt;- as.list(table(df_max$grade))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The analyze function [analyze_patients_exposure_in_cols()] creates a layout element to count total numbers of</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">199</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' patients and sum an analysis value (i.e. exposure) across all patients in columns.</pre>
+                      <pre class="language-r">  if (length(grade_groups) &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">200</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    l_count &lt;- h_append_grade_groups(grade_groups, l_count, remove_single, only_grade_groups)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The primary analysis variable `ex_var` is the exposure variable used to calculate the `sum_exposure` statistic. The</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `id` variable is used to uniquely identify patients in the data such that only unique patients are counted in the</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">203</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `n_patients` statistic, and the `var` variable is used to create a row split if needed. The percentage returned as</pre>
+                      <pre class="language-r">  l_count_fraction &lt;- lapply(l_count, function(i, denom) c(i, i / denom), denom = .N_col)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' part of the `n_patients` statistic is the proportion of all records that correspond to a unique patient.</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">205</td>
+                    <td class="coverage">11<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  list(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">206</td>
+                    <td class="coverage">11<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    count_fraction = l_count_fraction</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The summarize function [summarize_patients_exposure_in_cols()] performs the same function as</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' [analyze_patients_exposure_in_cols()] except it creates content rows, not data rows, to summarize the current table</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' row/column context and operates on the level of the latest row split or the root of the table if no row splits have</pre>
+                      <pre class="language-r">#' @describeIn count_occurrences_by_grade Formatted analysis function which is used as `afun`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' occurred.</pre>
+                      <pre class="language-r">#'   in `count_occurrences_by_grade()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' If a column split has not yet been performed in the table, `col_split` must be set to `TRUE` for the first call of</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' [analyze_patients_exposure_in_cols()] or [summarize_patients_exposure_in_cols()].</pre>
+                      <pre class="language-r">#' * `a_count_occurrences_by_grade()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ex_var (`string`)\cr name of the variable in `df` containing exposure values.</pre>
+                      <pre class="language-r">#' #  We need to ungroup `count_fraction` first so that the `rtables` formatting</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param custom_label (`string` or `NULL`)\cr if provided and `labelstr` is empty, this will be used as label.</pre>
+                      <pre class="language-r">#' # function `format_count_fraction()` can be applied correctly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run</pre>
+                      <pre class="language-r">#' afun &lt;- make_afun(a_count_occurrences_by_grade, .ungroup_stats = "count_fraction")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `get_stats("analyze_patients_exposure_in_cols")` to see available statistics for this function.</pre>
+                      <pre class="language-r">#' afun(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name summarize_patients_exposure_in_cols</pre>
+                      <pre class="language-r">#'   .N_col = 10L,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 1</pre>
+                      <pre class="language-r">#'   .var = "AETOXGR",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#'   id = "USUBJID",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   grade_groups = list("ANY" = levels(df$AETOXGR))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn summarize_patients_exposure_in_cols Statistics function which counts numbers</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   of patients and the sum of exposure across all patients.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">a_count_occurrences_by_grade &lt;- make_afun(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_count_patients_sum_exposure()` returns a named `list` with the statistics:</pre>
+                      <pre class="language-r">  s_count_occurrences_by_grade,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `n_patients`: Number of unique patients in `df`.</pre>
+                      <pre class="language-r">  .formats = c("count_fraction" = format_count_fraction_fixed_dp)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `sum_exposure`: Sum of `ex_var` across all patients in `df`.</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">234</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @describeIn count_occurrences_by_grade Layout-creating function which can take statistics function</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'   arguments and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_count_patients_sum_exposure &lt;- function(df,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          ex_var = "AVAL",</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">238</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          id = "USUBJID",</pre>
+                      <pre class="language-r">#' * `count_occurrences_by_grade()` returns a layout object suitable for passing to further layouting functions,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          labelstr = "",</pre>
+                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          .stats = c("n_patients", "sum_exposure"),</pre>
+                      <pre class="language-r">#'   the statistics from `s_count_occurrences_by_grade()` to the table layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          .N_col, # nolint</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          custom_label = NULL) {</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">47</td>
-                    <td class="coverage">56<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">243</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(df, list(ex_var = ex_var, id = id))</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">48</td>
-                    <td class="coverage">56<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">244</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(id)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">56<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">245</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(labelstr)</pre>
+                      <pre class="language-r">#' df &lt;- data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">50</td>
-                    <td class="coverage">56<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">246</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(custom_label, null.ok = TRUE)</pre>
+                      <pre class="language-r">#'   USUBJID = as.character(c(1:6, 1)),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">51</td>
-                    <td class="coverage">56<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">247</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(df[[ex_var]])</pre>
+                      <pre class="language-r">#'   ARM = factor(c("A", "A", "A", "B", "B", "B", "A"), levels = c("A", "B")),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">52</td>
-                    <td class="coverage">56<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">248</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(all(.stats %in% c("n_patients", "sum_exposure")))</pre>
+                      <pre class="language-r">#'   AETOXGR = factor(c(1, 2, 3, 4, 1, 2, 3), levels = c(1:5)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   AESEV = factor(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">54</td>
-                    <td class="coverage">56<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">250</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  row_label &lt;- if (labelstr != "") {</pre>
+                      <pre class="language-r">#'     x = c("MILD", "MODERATE", "SEVERE", "MILD", "MILD", "MODERATE", "SEVERE"),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">55</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">251</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    labelstr</pre>
+                      <pre class="language-r">#'     levels = c("MILD", "MODERATE", "SEVERE")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">56</td>
-                    <td class="coverage">56<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">252</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (!is.null(custom_label)) {</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">48<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">253</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    custom_label</pre>
+                      <pre class="language-r">#'   stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">255</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "Total patients numbers/person time"</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' df_adsl &lt;- df %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   select(USUBJID, ARM) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">56<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">258</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- list()</pre>
+                      <pre class="language-r">#'   unique()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">64</td>
-                    <td class="coverage">56<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">260</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if ("n_patients" %in% .stats) {</pre>
+                      <pre class="language-r">#' # Layout creating function with custom format.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">261</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y$n_patients &lt;-</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">262</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      formatters::with_label(</pre>
+                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">67</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">263</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        s_num_patients_content(</pre>
+                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">264</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          df = df,</pre>
+                      <pre class="language-r">#'   count_occurrences_by_grade(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">69</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">265</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          .N_col = .N_col, # nolint</pre>
+                      <pre class="language-r">#'     var = "AESEV",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">70</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">266</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          .var = id,</pre>
+                      <pre class="language-r">#'     .formats = c("count_fraction" = "xx.xx (xx.xx%)")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">71</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">267</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          labelstr = ""</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">268</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )$unique,</pre>
+                      <pre class="language-r">#'   build_table(df, alt_counts_df = df_adsl)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">73</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">269</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        row_label</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">270</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' # Define additional grade groupings.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">271</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' grade_groups &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">56<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">272</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if ("sum_exposure" %in% .stats) {</pre>
+                      <pre class="language-r">#'   "-Any-" = c("1", "2", "3", "4", "5"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">34<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">273</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y$sum_exposure &lt;- formatters::with_label(sum(df[[ex_var]]), row_label)</pre>
+                      <pre class="language-r">#'   "Grade 1-2" = c("1", "2"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">274</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   "Grade 3-5" = c("3", "4", "5")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">56<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">275</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">276</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">277</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn summarize_patients_exposure_in_cols Analysis function which is used as `afun` in</pre>
+                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">279</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   [rtables::analyze_colvars()] within `analyze_patients_exposure_in_cols()` and as `cfun` in</pre>
+                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">280</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   [rtables::summarize_row_groups()] within `summarize_patients_exposure_in_cols()`.</pre>
+                      <pre class="language-r">#'   count_occurrences_by_grade(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">281</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     var = "AETOXGR",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">282</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'     grade_groups = grade_groups,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">283</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `a_count_patients_sum_exposure()` returns formatted [rtables::CellValue()].</pre>
+                      <pre class="language-r">#'     only_grade_groups = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   build_table(df, alt_counts_df = df_adsl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' a_count_patients_sum_exposure(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   df = df,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">288</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   var = "SEX",</pre>
+                      <pre class="language-r">#' @order 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">289</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .N_col = nrow(df),</pre>
+                      <pre class="language-r">count_occurrences_by_grade &lt;- function(lyt,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .stats = "n_patients"</pre>
+                      <pre class="language-r">                                       var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">                                       id = "USUBJID",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">292</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                       grade_groups = list(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                                       remove_single = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">a_count_patients_sum_exposure &lt;- function(df,</pre>
+                      <pre class="language-r">                                       only_grade_groups = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">295</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          var = NULL,</pre>
+                      <pre class="language-r">                                       var_labels = var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">296</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          ex_var = "AVAL",</pre>
+                      <pre class="language-r">                                       show_labels = "default",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">297</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          id = "USUBJID",</pre>
+                      <pre class="language-r">                                       riskdiff = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">298</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          add_total_level = FALSE,</pre>
+                      <pre class="language-r">                                       na_str = default_na_str(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          custom_label = NULL,</pre>
+                      <pre class="language-r">                                       nested = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">300</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          labelstr = "",</pre>
+                      <pre class="language-r">                                       ...,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">301</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          .N_col, # nolint</pre>
+                      <pre class="language-r">                                       table_names = var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">302</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          .stats,</pre>
+                      <pre class="language-r">                                       .stats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          .formats = list(n_patients = "xx (xx.x%)", sum_exposure = "xx")) {</pre>
+                      <pre class="language-r">                                       .formats = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">32<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">304</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(add_total_level)</pre>
+                      <pre class="language-r">                                       .indent_mods = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">305</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                       .labels = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">306</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(var)) {</pre>
+                      <pre class="language-r">  checkmate::assert_flag(riskdiff)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">307</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    assert_df_with_variables(df, list(var = var))</pre>
+                      <pre class="language-r">  s_args &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">308</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df[[var]] &lt;- as.factor(df[[var]])</pre>
+                      <pre class="language-r">    id = id, grade_groups = grade_groups, remove_single = remove_single, only_grade_groups = only_grade_groups, ...</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">309</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">310</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">32<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- list()</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">311</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(var)) {</pre>
+                      <pre class="language-r">  afun &lt;- make_afun(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">117</td>
+                    <td class="num">312</td>
                     <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y[[.stats]] &lt;- list(Total = s_count_patients_sum_exposure(</pre>
+                      <pre class="language-r">    a_count_occurrences_by_grade,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">118</td>
+                    <td class="num">313</td>
                     <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df = df,</pre>
+                      <pre class="language-r">    .stats = .stats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">119</td>
+                    <td class="num">314</td>
                     <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ex_var = ex_var,</pre>
+                      <pre class="language-r">    .formats = .formats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">120</td>
+                    <td class="num">315</td>
                     <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      id = id,</pre>
+                      <pre class="language-r">    .indent_mods = .indent_mods,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">121</td>
+                    <td class="num">316</td>
                     <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      labelstr = labelstr,</pre>
+                      <pre class="language-r">    .ungroup_stats = "count_fraction"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">122</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">317</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      .N_col = .N_col,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">318</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      .stats = .stats,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">124</td>
+                    <td class="num">319</td>
                     <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      custom_label = custom_label</pre>
+                      <pre class="language-r">  extra_args &lt;- if (isFALSE(riskdiff)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">320</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )[[.stats]])</pre>
+                      <pre class="language-r">    s_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">21<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    for (lvl in levels(df[[var]])) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">42<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      y[[.stats]][[lvl]] &lt;- s_count_patients_sum_exposure(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">42<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        df = subset(df, get(var) == lvl),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">42<em>x</em></td>
+                    <td class="num">322</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ex_var = ex_var,</pre>
+                      <pre class="language-r">    list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">42<em>x</em></td>
+                    <td class="num">323</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = id,</pre>
+                      <pre class="language-r">      afun = list("s_count_occurrences_by_grade" = afun),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">42<em>x</em></td>
+                    <td class="num">324</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        labelstr = labelstr,</pre>
+                      <pre class="language-r">      .stats = .stats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">42<em>x</em></td>
+                    <td class="num">325</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        .N_col = .N_col,</pre>
+                      <pre class="language-r">      .indent_mods = .indent_mods,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">42<em>x</em></td>
+                    <td class="num">326</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        .stats = .stats,</pre>
+                      <pre class="language-r">      s_args = s_args</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">135</td>
-                    <td class="coverage">42<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">327</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        custom_label = lvl</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">136</td>
-                    <td class="coverage">42<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">328</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )[[.stats]]</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">329</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">330</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (add_total_level) {</pre>
+                      <pre class="language-r">  analyze(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">331</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y[[.stats]][["Total"]] &lt;- s_count_patients_sum_exposure(</pre>
+                      <pre class="language-r">    lyt = lyt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">332</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        df = df,</pre>
+                      <pre class="language-r">    vars = var,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">333</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ex_var = ex_var,</pre>
+                      <pre class="language-r">    var_labels = var_labels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">334</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        id = id,</pre>
+                      <pre class="language-r">    show_labels = show_labels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">335</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        labelstr = labelstr,</pre>
+                      <pre class="language-r">    afun = ifelse(isFALSE(riskdiff), afun, afun_riskdiff),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">336</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        .N_col = .N_col,</pre>
+                      <pre class="language-r">    table_names = table_names,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">145</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">337</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        .stats = .stats,</pre>
+                      <pre class="language-r">    na_str = na_str,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">338</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        custom_label = custom_label</pre>
+                      <pre class="language-r">    nested = nested,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">339</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )[[.stats]]</pre>
+                      <pre class="language-r">    extra_args = extra_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">340</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">341</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">342</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">32<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  in_rows(.list = y[[.stats]], .formats = .formats[[.stats]])</pre>
-                    </td>
-                  </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">343</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @describeIn count_occurrences_by_grade Layout-creating function which can take content function arguments</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">344</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::summarize_row_groups()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">345</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn summarize_patients_exposure_in_cols Layout-creating function which can take statistics</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">346</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   function arguments and additional format arguments. This function is a wrapper for</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">347</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   [rtables::split_cols_by_multivar()] and [rtables::summarize_row_groups()].</pre>
+                      <pre class="language-r">#' * `summarize_occurrences_by_grade()` returns a layout object suitable for passing to further layouting functions,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">348</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted content rows</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">349</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'   containing the statistics from `s_count_occurrences_by_grade()` to the table layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">350</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `summarize_patients_exposure_in_cols()` returns a layout object suitable for passing to further</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">351</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   layouting functions, or to [rtables::build_table()]. Adding this function to an `rtable` layout will</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">352</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add formatted content rows, with the statistics from `s_count_patients_sum_exposure()` arranged in</pre>
+                      <pre class="language-r">#' # Layout creating function with custom format.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">353</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   columns, to the table layout.</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">354</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">355</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   split_rows_by("ARM", child_labels = "visible", nested = TRUE) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">356</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' lyt5 &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">#'   summarize_occurrences_by_grade(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">357</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   summarize_patients_exposure_in_cols(var = "AVAL", col_split = TRUE)</pre>
+                      <pre class="language-r">#'     var = "AESEV",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">358</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     .formats = c("count_fraction" = "xx.xx (xx.xx%)")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">359</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result5 &lt;- build_table(lyt5, df = df, alt_counts_df = adsl)</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">360</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result5</pre>
+                      <pre class="language-r">#'   build_table(df, alt_counts_df = df_adsl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">361</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">362</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' lyt6 &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">363</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   summarize_patients_exposure_in_cols(var = "AVAL", col_split = TRUE, .stats = "sum_exposure")</pre>
+                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">364</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   split_rows_by("ARM", child_labels = "visible", nested = TRUE) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">365</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result6 &lt;- build_table(lyt6, df = df, alt_counts_df = adsl)</pre>
+                      <pre class="language-r">#'   summarize_occurrences_by_grade(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">366</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result6</pre>
+                      <pre class="language-r">#'     var = "AETOXGR",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">367</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     grade_groups = grade_groups</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">368</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">369</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 3</pre>
+                      <pre class="language-r">#'   build_table(df, alt_counts_df = df_adsl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">370</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">summarize_patients_exposure_in_cols &lt;- function(lyt, # nolint</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">371</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                var,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">372</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                ex_var = "AVAL",</pre>
+                      <pre class="language-r">#' @order 3</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">373</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                id = "USUBJID",</pre>
+                      <pre class="language-r">summarize_occurrences_by_grade &lt;- function(lyt,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">374</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                add_total_level = FALSE,</pre>
+                      <pre class="language-r">                                           var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">375</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                custom_label = NULL,</pre>
+                      <pre class="language-r">                                           id = "USUBJID",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">376</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                col_split = TRUE,</pre>
+                      <pre class="language-r">                                           grade_groups = list(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">377</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                na_str = default_na_str(),</pre>
+                      <pre class="language-r">                                           remove_single = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">378</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                ...,</pre>
+                      <pre class="language-r">                                           only_grade_groups = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">379</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                .stats = c("n_patients", "sum_exposure"),</pre>
+                      <pre class="language-r">                                           na_str = default_na_str(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">380</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                .labels = c(n_patients = "Patients", sum_exposure = "Person time"),</pre>
+                      <pre class="language-r">                                           ...,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">381</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                .indent_mods = NULL) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(ex_var = ex_var, id = id, add_total_level = add_total_level, custom_label = custom_label, ...)</pre>
+                      <pre class="language-r">                                           .stats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">382</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">193</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (col_split) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">194</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    lyt &lt;- split_cols_by_multivar(</pre>
+                      <pre class="language-r">                                           .formats = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">383</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt = lyt,</pre>
+                      <pre class="language-r">                                           .indent_mods = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">384</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vars = rep(var, length(.stats)),</pre>
+                      <pre class="language-r">                                           .labels = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">197</td>
+                    <td class="num">385</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      varlabels = .labels[.stats],</pre>
+                      <pre class="language-r">  extra_args &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">198</td>
+                    <td class="num">386</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      extra_args = list(.stats = .stats)</pre>
+                      <pre class="language-r">    id = id, grade_groups = grade_groups, remove_single = remove_single, only_grade_groups = only_grade_groups, ...</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">387</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">388</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">201</td>
+                    <td class="num">389</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  summarize_row_groups(</pre>
+                      <pre class="language-r">  cfun &lt;- make_afun(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">202</td>
+                    <td class="num">390</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt = lyt,</pre>
+                      <pre class="language-r">    a_count_occurrences_by_grade,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">203</td>
+                    <td class="num">391</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var = var,</pre>
+                      <pre class="language-r">    .stats = .stats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">204</td>
+                    <td class="num">392</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    cfun = a_count_patients_sum_exposure,</pre>
+                      <pre class="language-r">    .formats = .formats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">205</td>
+                    <td class="num">393</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">    .labels = .labels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">206</td>
+                    <td class="num">394</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args = extra_args</pre>
+                      <pre class="language-r">    .indent_mods = .indent_mods,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">207</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">395</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    .ungroup_stats = "count_fraction"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">396</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">397</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">210</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn summarize_patients_exposure_in_cols Layout-creating function which can take statistics</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">211</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   function arguments and additional format arguments. This function is a wrapper for</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">212</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   [rtables::split_cols_by_multivar()] and [rtables::analyze_colvars()].</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">213</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">214</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @param col_split (`flag`)\cr whether the columns should be split. Set to `FALSE` when the required</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">215</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   column split has been done already earlier in the layout pipe.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">216</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">217</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">218</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' * `analyze_patients_exposure_in_cols()` returns a layout object suitable for passing to further</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">219</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   layouting functions, or to [rtables::build_table()]. Adding this function to an `rtable` layout will</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">220</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   add formatted data rows, with the statistics from `s_count_patients_sum_exposure()` arranged in</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">221</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   columns, to the table layout.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">222</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">223</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @note As opposed to [summarize_patients_exposure_in_cols()] which generates content rows,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">224</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   `analyze_patients_exposure_in_cols()` generates data rows which will _not_ be repeated on multiple</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">225</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   pages when pagination is used.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">226</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">227</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">228</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' set.seed(1)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">229</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">398</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- data.frame(</pre>
+                      <pre class="language-r">  summarize_row_groups(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">230</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">399</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   USUBJID = c(paste("id", seq(1, 12), sep = "")),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">231</td>
-                    <td class="coverage"></td>
+                      <pre class="language-r">    lyt = lyt,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">400</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ARMCD = c(rep("ARM A", 6), rep("ARM B", 6)),</pre>
+                      <pre class="language-r">    var = var,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">232</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">401</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   SEX = c(rep("Female", 6), rep("Male", 6)),</pre>
+                      <pre class="language-r">    cfun = cfun,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">233</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">402</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   AVAL = as.numeric(sample(seq(1, 20), 12)),</pre>
+                      <pre class="language-r">    na_str = na_str,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">234</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">403</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   stringsAsFactors = TRUE</pre>
+                      <pre class="language-r">    extra_args = extra_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</td>
+                    <td class="num">404</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">405</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adsl &lt;- data.frame(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/control_step.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">237</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   USUBJID = c(paste("id", seq(1, 12), sep = "")),</pre>
+                      <pre class="language-r">#' Control function for subgroup treatment effect pattern (STEP) calculations</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">238</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ARMCD = c(rep("ARM A", 2), rep("ARM B", 2)),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   SEX = c(rep("Female", 2), rep("Male", 2)),</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   stringsAsFactors = TRUE</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">241</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' This is an auxiliary function for controlling arguments for STEP calculations.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">242</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">#' @param biomarker (`numeric` or `NULL`)\cr optional provision of the numeric biomarker variable, which</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARMCD", split_fun = add_overall_level("Total", first = FALSE)) %&gt;%</pre>
+                      <pre class="language-r">#'   could be used to infer `bandwidth`, see below.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   summarize_patients_exposure_in_cols(var = "AVAL", col_split = TRUE) %&gt;%</pre>
+                      <pre class="language-r">#' @param use_percentile (`flag`)\cr if `TRUE`, the running windows are created according to</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze_patients_exposure_in_cols(var = "SEX", col_split = FALSE)</pre>
+                      <pre class="language-r">#'   quantiles rather than actual values, i.e. the bandwidth refers to the percentage of data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">247</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result &lt;- build_table(lyt, df = df, alt_counts_df = adsl)</pre>
+                      <pre class="language-r">#'   covered in each window. Suggest `TRUE` if the biomarker variable is not uniformly</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result</pre>
+                      <pre class="language-r">#'   distributed.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">249</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param bandwidth (`numeric(1)` or `NULL`)\cr indicating the bandwidth of each window.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">250</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' lyt2 &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">#'   Depending on the argument `use_percentile`, it can be either the length of actual-value</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARMCD", split_fun = add_overall_level("Total", first = FALSE)) %&gt;%</pre>
+                      <pre class="language-r">#'   windows on the real biomarker scale, or percentage windows.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   summarize_patients_exposure_in_cols(</pre>
+                      <pre class="language-r">#'   If `use_percentile = TRUE`, it should be a number between 0 and 1.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">253</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     var = "AVAL", col_split = TRUE,</pre>
+                      <pre class="language-r">#'   If `NULL`, treat the bandwidth to be infinity, which means only one global model will be fitted.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .stats = "n_patients", custom_label = "some custom label"</pre>
+                      <pre class="language-r">#'   By default, `0.25` is used for percentage windows and one quarter of the range of the `biomarker`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">255</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">#'   variable for actual-value windows.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">256</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze_patients_exposure_in_cols(var = "SEX", col_split = FALSE, ex_var = "AVAL")</pre>
+                      <pre class="language-r">#' @param degree (`integer(1)`)\cr the degree of polynomial function of the biomarker as an interaction term</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result2 &lt;- build_table(lyt2, df = df, alt_counts_df = adsl)</pre>
+                      <pre class="language-r">#'   with the treatment arm fitted at each window. If 0 (default), then the biomarker variable</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result2</pre>
+                      <pre class="language-r">#'   is not included in the model fitted in each biomarker window.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">259</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param num_points (`integer(1)`)\cr the number of points at which the hazard ratios are estimated. The</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">260</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' lyt3 &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">#'   smallest number is 2.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">261</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze_patients_exposure_in_cols(var = "SEX", col_split = TRUE, ex_var = "AVAL")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result3 &lt;- build_table(lyt3, df = df, alt_counts_df = adsl)</pre>
+                      <pre class="language-r">#' @return A list of components with the same names as the arguments, except `biomarker` which is</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">263</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result3</pre>
+                      <pre class="language-r">#'   just used to calculate the `bandwidth` in case that actual biomarker windows are requested.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">264</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Adding total levels and custom label</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">266</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' lyt4 &lt;- basic_table(</pre>
+                      <pre class="language-r">#' # Provide biomarker values and request actual values to be used,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   show_colcounts = TRUE</pre>
+                      <pre class="language-r">#' # so that bandwidth is chosen from range.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ) %&gt;%</pre>
+                      <pre class="language-r">#' control_step(biomarker = 1:10, use_percentile = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze_patients_exposure_in_cols(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     var = "ARMCD",</pre>
+                      <pre class="language-r">#' # Use a global model with quadratic biomarker interaction term.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">271</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     col_split = TRUE,</pre>
+                      <pre class="language-r">#' control_step(bandwidth = NULL, degree = 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     add_total_level = TRUE,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">273</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     custom_label = "TOTAL"</pre>
+                      <pre class="language-r">#' # Reduce number of points to be used.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">274</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">#' control_step(num_points = 10)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   append_topleft(c("", "Sex"))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">276</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">277</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result4 &lt;- build_table(lyt4, df = df, alt_counts_df = adsl)</pre>
+                      <pre class="language-r">control_step &lt;- function(biomarker = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result4</pre>
+                      <pre class="language-r">                         use_percentile = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                         bandwidth,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                         degree = 0L,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">281</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 2</pre>
+                      <pre class="language-r">                         num_points = 39L) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">282</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">46</td>
+                    <td class="coverage">31<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">analyze_patients_exposure_in_cols &lt;- function(lyt, # nolint</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(biomarker, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">283</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">47</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              var = NULL,</pre>
+                      <pre class="language-r">  checkmate::assert_flag(use_percentile)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">284</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">48</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              ex_var = "AVAL",</pre>
+                      <pre class="language-r">  checkmate::assert_int(num_points, lower = 2)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">285</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">49</td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              id = "USUBJID",</pre>
+                      <pre class="language-r">  checkmate::assert_count(degree)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              add_total_level = FALSE,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">287</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">51</td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              custom_label = NULL,</pre>
+                      <pre class="language-r">  if (missing(bandwidth)) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              col_split = TRUE,</pre>
+                      <pre class="language-r">    # Infer bandwidth</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">289</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">53</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              na_str = default_na_str(),</pre>
+                      <pre class="language-r">    bandwidth &lt;- if (use_percentile) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">290</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">54</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              .stats = c("n_patients", "sum_exposure"),</pre>
+                      <pre class="language-r">      0.25</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">291</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">55</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              .labels = c(n_patients = "Patients", sum_exposure = "Person time"),</pre>
+                      <pre class="language-r">    } else if (!is.null(biomarker)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">292</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">56</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              .indent_mods = 0L,</pre>
+                      <pre class="language-r">      diff(range(biomarker, na.rm = TRUE)) / 4</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">293</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              ...) {</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">294</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">58</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(</pre>
+                      <pre class="language-r">      NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">295</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">59</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var = var, ex_var = ex_var, id = id, add_total_level = add_total_level, custom_label = custom_label, ...</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # Check bandwidth</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">298</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">62</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (col_split) {</pre>
+                      <pre class="language-r">    if (!is.null(bandwidth)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">299</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">63</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt &lt;- split_cols_by_multivar(</pre>
+                      <pre class="language-r">      if (use_percentile) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">300</td>
+                    <td class="num">64</td>
                     <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt = lyt,</pre>
+                      <pre class="language-r">        assert_proportion_value(bandwidth)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">301</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">65</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vars = rep(ex_var, length(.stats)),</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">302</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">66</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      varlabels = .labels[.stats],</pre>
+                      <pre class="language-r">        checkmate::assert_scalar(bandwidth)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">303</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">67</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      extra_args = list(.stats = .stats)</pre>
+                      <pre class="language-r">        checkmate::assert_true(bandwidth &gt; 0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">304</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">305</td>
+                    <td class="num">69</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">306</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">71</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lyt &lt;- lyt %&gt;% analyze_colvars(</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">307</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">72</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    afun = a_count_patients_sum_exposure,</pre>
+                      <pre class="language-r">    use_percentile = use_percentile,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">308</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">73</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    indent_mod = .indent_mods,</pre>
+                      <pre class="language-r">    bandwidth = bandwidth,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">309</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">74</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">    degree = as.integer(degree),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">310</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">75</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args = extra_args</pre>
+                      <pre class="language-r">    num_points = as.integer(num_points)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">311</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">312</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  lyt</pre>
-                    </td>
-                  </tr>
                   <tr class="never">
-                    <td class="num">313</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -124126,14 +123476,14 @@ <h2>tern coverage - 95.64%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/survival_timepoint.R" class="hidden">
+            <div id="R/coxph.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Survival time point analysis</pre>
+                      <pre class="language-r">#' Univariate formula special term</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -124161,42 +123511,42 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The analyze function [surv_timepoint()] creates a layout element to analyze patient survival rates and difference</pre>
+                      <pre class="language-r">#' The special term `univariate` indicate that the model should be fitted individually for</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' of survival rates between groups at a given time point. The primary analysis variable `vars` is the time variable.</pre>
+                      <pre class="language-r">#' every variable included in univariate.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Other required inputs are `time_point`, the numeric time point of interest, and `is_event`, a variable that</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' indicates whether or not an event has occurred. The `method` argument is used to specify whether you want to analyze</pre>
+                      <pre class="language-r">#' @param x (`character`)\cr a vector of variable names separated by commas.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' survival estimations (`"surv"`), difference in survival with the control (`"surv_diff"`), or both of these</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' (`"both"`).</pre>
+                      <pre class="language-r">#' @return When used within a model formula, produces univariate models for each variable provided.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -124210,644 +123560,644 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' @details</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams s_surv_time</pre>
+                      <pre class="language-r">#' If provided alongside with pairwise specification, the model</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param time_point (`numeric(1)`)\cr survival time point of interest.</pre>
+                      <pre class="language-r">#' `y ~ ARM + univariate(SEX, AGE, RACE)` lead to the study and comparison of the models</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param control (`list`)\cr parameters for comparison details, specified by using the helper function</pre>
+                      <pre class="language-r">#' + `y ~ ARM`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   [control_surv_timepoint()]. Some possible parameter options are:</pre>
+                      <pre class="language-r">#' + `y ~ ARM + SEX`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `conf_level` (`proportion`)\cr confidence level of the interval for survival rate.</pre>
+                      <pre class="language-r">#' + `y ~ ARM + AGE`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `conf_type` (`string`)\cr confidence interval type. Options are "plain" (default), "log", "log-log",</pre>
+                      <pre class="language-r">#' + `y ~ ARM + RACE`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     see more in [survival::survfit()]. Note option "none" is no longer supported.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param method (`string`)\cr `"surv"` (survival estimations), `"surv_diff"` (difference in survival with the</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   control), or `"both"`.</pre>
+                      <pre class="language-r">univariate &lt;- function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">22</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param table_names_suffix (`string`)\cr optional suffix for the `table_names` used for the `rtables` to</pre>
+                      <pre class="language-r">  structure(x, varname = deparse(substitute(x)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   avoid warnings from duplicate table names.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("surv_timepoint")`</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to see available statistics for this function.</pre>
+                      <pre class="language-r"># Get the right-hand-term of a formula</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .indent_mods (named `integer`)\cr indent modifiers for the labels. Each element of the vector</pre>
+                      <pre class="language-r">rht &lt;- function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">27</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   should be a name-value pair with name corresponding to a statistic specified in `.stats` and value the indentation</pre>
+                      <pre class="language-r">  checkmate::assert_formula(x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">28</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   for that statistic's row label.</pre>
+                      <pre class="language-r">  y &lt;- as.character(rev(x)[[1]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">29</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  return(y)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name survival_timepoint</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 1</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#' Hazard ratio estimation in interactions</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn survival_timepoint Statistics function which analyzes survival rate.</pre>
+                      <pre class="language-r">#' This function estimates the hazard ratios between arms when an interaction variable is given with</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' specific values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_surv_timepoint()` returns the statistics:</pre>
+                      <pre class="language-r">#' @param variable,given (`character(2)`)\cr names of the two variables in the interaction. We seek the estimation of</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `pt_at_risk`: Patients remaining at risk.</pre>
+                      <pre class="language-r">#'   the levels of `variable` given the levels of `given`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `event_free_rate`: Event-free rate (%).</pre>
+                      <pre class="language-r">#' @param lvl_var,lvl_given (`character`)\cr corresponding levels given by [levels()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `rate_se`: Standard error of event free rate.</pre>
+                      <pre class="language-r">#' @param mmat (named `numeric`) a vector filled with `0`s used as a template to obtain the design matrix.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `rate_ci`: Confidence interval for event free rate.</pre>
+                      <pre class="language-r">#' @param coef (`numeric`)\cr vector of estimated coefficients.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param vcov (`matrix`)\cr variance-covariance matrix of underlying model.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' @param conf_level (`proportion`)\cr confidence level of estimate intervals.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_surv_timepoint &lt;- function(df,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             .var,</pre>
+                      <pre class="language-r">#' @details Given the cox regression investigating the effect of Arm (A, B, C; reference A)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             time_point,</pre>
+                      <pre class="language-r">#'   and Sex (F, M; reference Female). The model is abbreviated: y ~ Arm + Sex + Arm x Sex.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             is_event,</pre>
+                      <pre class="language-r">#'   The cox regression estimates the coefficients along with a variance-covariance matrix for:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             control = control_surv_timepoint()) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">49</td>
-                    <td class="coverage">23<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(.var)</pre>
+                      <pre class="language-r">#'   - b1 (arm b), b2 (arm c)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">50</td>
-                    <td class="coverage">23<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(df, list(tte = .var, is_event = is_event))</pre>
+                      <pre class="language-r">#'   - b3 (sex m)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">51</td>
-                    <td class="coverage">23<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(df[[.var]], min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">#'   - b4 (arm b: sex m), b5 (arm c: sex m)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">52</td>
-                    <td class="coverage">23<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(time_point)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">53</td>
-                    <td class="coverage">23<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_logical(df[[is_event]], min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">#'   Given that I want an estimation of the Hazard Ratio for arm C/sex M, the estimation</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   will be given in reference to arm A/Sex M by exp(b2 + b3 + b5)/ exp(b3) = exp(b2 + b5),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">55</td>
-                    <td class="coverage">23<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  conf_type &lt;- control$conf_type</pre>
+                      <pre class="language-r">#'   therefore the interaction coefficient is given by b2 + b5 while the standard error is obtained</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">56</td>
-                    <td class="coverage">23<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  conf_level &lt;- control$conf_level</pre>
+                      <pre class="language-r">#'   as $1.96 * sqrt(Var b2 + Var b5 + 2 * covariance (b2,b5))$ for a confidence level of 0.95.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">58</td>
-                    <td class="coverage">23<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  formula &lt;- stats::as.formula(paste0("survival::Surv(", .var, ", ", is_event, ") ~ 1"))</pre>
+                      <pre class="language-r">#' @return A list of matrices (one per level of variable) with rows corresponding to the combinations of</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">59</td>
-                    <td class="coverage">23<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  srv_fit &lt;- survival::survfit(</pre>
+                      <pre class="language-r">#'   `variable` and `given`, with columns:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">60</td>
-                    <td class="coverage">23<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    formula = formula,</pre>
+                      <pre class="language-r">#'   * `coef_hat`: Estimation of the coefficient.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">61</td>
-                    <td class="coverage">23<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data = df,</pre>
+                      <pre class="language-r">#'   * `coef_se`: Standard error of the estimation.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">62</td>
-                    <td class="coverage">23<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    conf.int = conf_level,</pre>
+                      <pre class="language-r">#'   * `hr`: Hazard ratio.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">63</td>
-                    <td class="coverage">23<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    conf.type = conf_type</pre>
+                      <pre class="language-r">#'   * `lcl, ucl`: Lower/upper confidence limit of the hazard ratio.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">65</td>
-                    <td class="coverage">23<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_srv_fit &lt;- summary(srv_fit, times = time_point, extend = TRUE)</pre>
+                      <pre class="language-r">#' @seealso [s_cox_multivariate()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">66</td>
-                    <td class="coverage">23<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df_srv_fit &lt;- as.data.frame(s_srv_fit[c("time", "n.risk", "surv", "lower", "upper", "std.err")])</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">67</td>
-                    <td class="coverage">23<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (df_srv_fit[["n.risk"]] == 0) {</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">68</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pt_at_risk &lt;- event_free_rate &lt;- rate_se &lt;- NA_real_</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">69</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rate_ci &lt;- c(NA_real_, NA_real_)</pre>
+                      <pre class="language-r">#' library(survival)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">71</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pt_at_risk &lt;- df_srv_fit$n.risk</pre>
+                      <pre class="language-r">#' ADSL &lt;- tern_ex_adsl %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">72</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    event_free_rate &lt;- df_srv_fit$surv</pre>
+                      <pre class="language-r">#'   filter(SEX %in% c("F", "M"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">73</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rate_se &lt;- df_srv_fit$std.err</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">74</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rate_ci &lt;- c(df_srv_fit$lower, df_srv_fit$upper)</pre>
+                      <pre class="language-r">#' adtte &lt;- tern_ex_adtte %&gt;% filter(PARAMCD == "PFS")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' adtte$ARMCD &lt;- droplevels(adtte$ARMCD)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">76</td>
-                    <td class="coverage">23<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">#' adtte$SEX &lt;- droplevels(adtte$SEX)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">77</td>
-                    <td class="coverage">23<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pt_at_risk = formatters::with_label(pt_at_risk, "Patients remaining at risk"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">78</td>
-                    <td class="coverage">23<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    event_free_rate = formatters::with_label(event_free_rate * 100, "Event Free Rate (%)"),</pre>
+                      <pre class="language-r">#' mod &lt;- coxph(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">79</td>
-                    <td class="coverage">23<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rate_se = formatters::with_label(rate_se * 100, "Standard Error of Event Free Rate"),</pre>
+                      <pre class="language-r">#'   formula = Surv(time = AVAL, event = 1 - CNSR) ~ (SEX + ARMCD)^2,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">80</td>
-                    <td class="coverage">23<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rate_ci = formatters::with_label(rate_ci * 100, f_conf_level(conf_level))</pre>
+                      <pre class="language-r">#'   data = adtte</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' mmat &lt;- stats::model.matrix(mod)[1, ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn survival_timepoint Formatted analysis function which is used as `afun` in `surv_timepoint()`</pre>
+                      <pre class="language-r">#' mmat[!mmat == 0] &lt;- 0</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   when `method = "surv"`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">estimate_coef &lt;- function(variable, given,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `a_surv_timepoint()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
+                      <pre class="language-r">                          lvl_var, lvl_given,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                          coef,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">                          mmat,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">a_surv_timepoint &lt;- make_afun(</pre>
+                      <pre class="language-r">                          vcov,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_surv_timepoint,</pre>
+                      <pre class="language-r">                          conf_level = 0.95) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">93</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .indent_mods = c(</pre>
+                      <pre class="language-r">  var_lvl &lt;- paste0(variable, lvl_var[-1]) # [-1]: reference level</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">94</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pt_at_risk = 0L,</pre>
+                      <pre class="language-r">  giv_lvl &lt;- paste0(given, lvl_given)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    event_free_rate = 0L,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">96</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rate_se = 1L,</pre>
+                      <pre class="language-r">  design_mat &lt;- expand.grid(variable = var_lvl, given = giv_lvl)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">97</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rate_ci = 1L</pre>
+                      <pre class="language-r">  design_mat &lt;- design_mat[order(design_mat$variable, design_mat$given), ]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">98</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ),</pre>
+                      <pre class="language-r">  design_mat &lt;- within(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">99</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats = c(</pre>
+                      <pre class="language-r">    data = design_mat,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">100</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pt_at_risk = "xx",</pre>
+                      <pre class="language-r">    expr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">101</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    event_free_rate = "xx.xx",</pre>
+                      <pre class="language-r">      inter &lt;- paste0(variable, ":", given)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">102</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rate_se = "xx.xx",</pre>
+                      <pre class="language-r">      rev_inter &lt;- paste0(given, ":", variable)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rate_ci = "(xx.xx, xx.xx)"</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -124861,224 +124211,224 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">106</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  split_by_variable &lt;- design_mat$variable</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">107</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn survival_timepoint Statistics function which analyzes difference between two survival rates.</pre>
+                      <pre class="language-r">  interaction_names &lt;- paste(design_mat$variable, design_mat$given, sep = "/")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">109</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">  design_mat &lt;- apply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">110</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_surv_timepoint_diff()` returns the statistics:</pre>
+                      <pre class="language-r">    X = design_mat, MARGIN = 1, FUN = function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">111</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `rate_diff`: Event-free rate difference between two groups.</pre>
+                      <pre class="language-r">      mmat[names(mmat) %in% x[-which(names(x) == "given")]] &lt;- 1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">112</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `rate_diff_ci`: Confidence interval for the difference.</pre>
+                      <pre class="language-r">      return(mmat)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `ztest_pval`: p-value to test the difference is 0.</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">115</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">  colnames(design_mat) &lt;- interaction_names</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_surv_timepoint_diff &lt;- function(df,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">117</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  .var,</pre>
+                      <pre class="language-r">  betas &lt;- as.matrix(coef)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  .ref_group,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">119</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  .in_ref_col,</pre>
+                      <pre class="language-r">  coef_hat &lt;- t(design_mat) %*% betas</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">120</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  time_point,</pre>
+                      <pre class="language-r">  dimnames(coef_hat)[2] &lt;- "coef"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  control = control_surv_timepoint(),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">122</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  ...) {</pre>
+                      <pre class="language-r">  coef_se &lt;- apply(design_mat, 2, function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">123</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (.in_ref_col) {</pre>
+                      <pre class="language-r">    vcov_el &lt;- as.logical(x)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">124</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(</pre>
+                      <pre class="language-r">    y &lt;- vcov[vcov_el, vcov_el]</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">125</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      list(</pre>
+                      <pre class="language-r">    y &lt;- sum(y)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">126</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        rate_diff = formatters::with_label("", "Difference in Event Free Rate"),</pre>
+                      <pre class="language-r">    y &lt;- sqrt(y)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">127</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        rate_diff_ci = formatters::with_label("", f_conf_level(control$conf_level)),</pre>
+                      <pre class="language-r">    return(y)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">128</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ztest_pval = formatters::with_label("", "p-value (Z-test)")</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">130</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  q_norm &lt;- stats::qnorm((1 + conf_level) / 2)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">131</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  y &lt;- cbind(coef_hat, `se(coef)` = coef_se)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">132</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data &lt;- rbind(.ref_group, df)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">133</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  group &lt;- factor(rep(c("ref", "x"), c(nrow(.ref_group), nrow(df))), levels = c("ref", "x"))</pre>
+                      <pre class="language-r">  y &lt;- apply(y, 1, function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">134</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  res_per_group &lt;- lapply(split(data, group), function(x) {</pre>
+                      <pre class="language-r">    x["hr"] &lt;- exp(x["coef"])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">135</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    s_surv_timepoint(df = x, .var = .var, time_point = time_point, control = control, ...)</pre>
+                      <pre class="language-r">    x["lcl"] &lt;- exp(x["coef"] - q_norm * x["se(coef)"])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">136</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">    x["ucl"] &lt;- exp(x["coef"] + q_norm * x["se(coef)"])</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -125090,856 +124440,856 @@ <h2>tern coverage - 95.64%</h2>
                   </tr>
                   <tr class="covered">
                     <td class="num">138</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  res_x &lt;- res_per_group[[2]]</pre>
+                      <pre class="language-r">    return(x)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">139</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  res_ref &lt;- res_per_group[[1]]</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">140</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  rate_diff &lt;- res_x$event_free_rate - res_ref$event_free_rate</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">141</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  se_diff &lt;- sqrt(res_x$rate_se^2 + res_ref$rate_se^2)</pre>
+                      <pre class="language-r">  y &lt;- t(y)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">142</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  y &lt;- by(y, split_by_variable, identity)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">143</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  qs &lt;- c(-1, 1) * stats::qnorm(1 - (1 - control$conf_level) / 2)</pre>
+                      <pre class="language-r">  y &lt;- lapply(y, as.matrix)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">144</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  rate_diff_ci &lt;- rate_diff + qs * se_diff</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">145</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ztest_pval &lt;- if (is.na(rate_diff)) {</pre>
+                      <pre class="language-r">  attr(y, "details") &lt;- paste0(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">146</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    NA</pre>
+                      <pre class="language-r">    "Estimations of ", variable,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">147</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">    " hazard ratio given the level of ", given, " compared to ",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">148</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    2 * (1 - stats::pnorm(abs(rate_diff) / se_diff))</pre>
+                      <pre class="language-r">    variable, " level ", lvl_var[1], "."</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">150</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">  return(y)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">151</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rate_diff = formatters::with_label(rate_diff, "Difference in Event Free Rate"),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">152</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rate_diff_ci = formatters::with_label(rate_diff_ci, f_conf_level(control$conf_level)),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">153</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ztest_pval = formatters::with_label(ztest_pval, "p-value (Z-test)")</pre>
+                      <pre class="language-r">#' `tryCatch` around `car::Anova`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' Captures warnings when executing [car::Anova].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn survival_timepoint Formatted analysis function which is used as `afun` in `surv_timepoint()`</pre>
+                      <pre class="language-r">#' @inheritParams car::Anova</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   when `method = "surv_diff"`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return A list with item `aov` for the result of the model and `error_text` for the captured warnings.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `a_surv_timepoint_diff()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' # `car::Anova` on cox regression model including strata and expected</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' # a likelihood ratio test triggers a warning as only Wald method is</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">a_surv_timepoint_diff &lt;- make_afun(</pre>
+                      <pre class="language-r">#' # accepted.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_surv_timepoint_diff,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats = c(</pre>
+                      <pre class="language-r">#' library(survival)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rate_diff = "xx.xx",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rate_diff_ci = "(xx.xx, xx.xx)",</pre>
+                      <pre class="language-r">#' mod &lt;- coxph(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ztest_pval = "x.xxxx | (&lt;0.0001)"</pre>
+                      <pre class="language-r">#'   formula = Surv(time = futime, event = fustat) ~ factor(rx) + strata(ecog.ps),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'   data = ovarian</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn survival_timepoint Layout-creating function which can take statistics function arguments</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
+                      <pre class="language-r">try_car_anova &lt;- function(mod,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                          test.statistic) { # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">176</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">  y &lt;- tryCatch(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">177</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `surv_timepoint()` returns a layout object suitable for passing to further layouting functions,</pre>
+                      <pre class="language-r">    withCallingHandlers(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">178</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
+                      <pre class="language-r">      expr = {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">179</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the statistics from `s_surv_timepoint()` and/or `s_surv_timepoint_diff()` to the table layout depending on</pre>
+                      <pre class="language-r">        warn_text &lt;- c()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">180</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the value of `method`.</pre>
+                      <pre class="language-r">        list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">181</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          aov = car::Anova(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">182</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">            mod,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">183</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">            test.statistic = test.statistic,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">184</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            type = "III"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adtte_f &lt;- tern_ex_adtte %&gt;%</pre>
+                      <pre class="language-r">          ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">186</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
+                      <pre class="language-r">          warn_text = warn_text</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mutate(</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     AVAL = day2month(AVAL),</pre>
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">189</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     is_event = CNSR == 0</pre>
+                      <pre class="language-r">      warning = function(w) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">        # If a warning is detected it is handled as "w".</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">191</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        warn_text &lt;&lt;- trimws(paste0("Warning in `try_car_anova`: ", w))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Survival at given time points.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">        # A warning is sometimes expected, then, we want to restart</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by(var = "ARMCD", ref_group = "ARM A") %&gt;%</pre>
+                      <pre class="language-r">        # the execution while ignoring the warning.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">195</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                      <pre class="language-r">        invokeRestart("muffleWarning")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   surv_timepoint(</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     vars = "AVAL",</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">198</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     var_labels = "Months",</pre>
+                      <pre class="language-r">    finally = {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     is_event = "is_event",</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     time_point = 7</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">202</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(df = adtte_f)</pre>
+                      <pre class="language-r">  return(y)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Difference in survival at given time points.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">205</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">#' Fit a Cox regression model and ANOVA</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by(var = "ARMCD", ref_group = "ARM A") %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                      <pre class="language-r">#' The functions derives the effect p-values using [car::Anova()] from [survival::coxph()] results.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   surv_timepoint(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     vars = "AVAL",</pre>
+                      <pre class="language-r">#' @inheritParams t_coxreg</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     var_labels = "Months",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     is_event = "is_event",</pre>
+                      <pre class="language-r">#' @return A list with items `mod` (results of [survival::coxph()]), `msum` (result of `summary`) and</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     time_point = 9,</pre>
+                      <pre class="language-r">#'   `aov` (result of [car::Anova()]).</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     method = "surv_diff",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .indent_mods = c("rate_diff" = 0L, "rate_diff_ci" = 2L, "ztest_pval" = 2L)</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">fit_n_aov &lt;- function(formula,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(df = adtte_f)</pre>
+                      <pre class="language-r">                      data = data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                      conf_level = conf_level,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Survival and difference in survival at given time points.</pre>
+                      <pre class="language-r">                      pval_method = c("wald", "likelihood"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">                      ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">220</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by(var = "ARMCD", ref_group = "ARM A") %&gt;%</pre>
+                      <pre class="language-r">  pval_method &lt;- match.arg(pval_method)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">222</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   surv_timepoint(</pre>
+                      <pre class="language-r">  environment(formula) &lt;- environment()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">223</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     vars = "AVAL",</pre>
+                      <pre class="language-r">  suppressWarnings({</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     var_labels = "Months",</pre>
+                      <pre class="language-r">    # We expect some warnings due to coxph which fails strict programming.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">225</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     is_event = "is_event",</pre>
+                      <pre class="language-r">    mod &lt;- survival::coxph(formula, data = data, ...)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">226</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     time_point = 9,</pre>
+                      <pre class="language-r">    msum &lt;- summary(mod, conf.int = conf_level)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     method = "both"</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">229</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(df = adtte_f)</pre>
+                      <pre class="language-r">  aov &lt;- try_car_anova(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">230</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    mod,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">231</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    test.statistic = switch(pval_method,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">232</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 2</pre>
+                      <pre class="language-r">      "wald" = "Wald",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">233</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">surv_timepoint &lt;- function(lyt,</pre>
+                      <pre class="language-r">      "likelihood" = "LR"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           vars,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           time_point,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           is_event,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">237</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           control = control_surv_timepoint(),</pre>
+                      <pre class="language-r">  warn_attr &lt;- aov$warn_text</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">238</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           method = c("surv", "surv_diff", "both"),</pre>
+                      <pre class="language-r">  if (!is.null(aov$warn_text)) message(warn_attr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           na_str = default_na_str(),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">240</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           nested = TRUE,</pre>
+                      <pre class="language-r">  aov &lt;- aov$aov</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">241</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           ...,</pre>
+                      <pre class="language-r">  y &lt;- list(mod = mod, msum = msum, aov = aov)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">242</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           table_names_suffix = "",</pre>
+                      <pre class="language-r">  attr(y, "message") &lt;- warn_attr</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           var_labels = "Time",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">244</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           show_labels = "visible",</pre>
+                      <pre class="language-r">  return(y)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           .stats = c(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             "pt_at_risk", "event_free_rate", "rate_ci",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             "rate_diff", "rate_diff_ci", "ztest_pval"</pre>
+                      <pre class="language-r"># argument_checks</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           ),</pre>
+                      <pre class="language-r">check_formula &lt;- function(formula) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">249</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           .formats = NULL,</pre>
+                      <pre class="language-r">  if (!(inherits(formula, "formula"))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">250</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           .labels = NULL,</pre>
+                      <pre class="language-r">    stop("Check `formula`. A formula should resemble `Surv(time = AVAL, event = 1 - CNSR) ~ study_arm(ARMCD)`.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           .indent_mods = if (method == "both") {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">252</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             c(rate_diff = 1L, rate_diff_ci = 2L, ztest_pval = 2L)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">253</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           } else {</pre>
+                      <pre class="language-r">  invisible()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">254</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             c(rate_diff_ci = 1L, ztest_pval = 1L)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           }) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">256</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  method &lt;- match.arg(method)</pre>
+                      <pre class="language-r">check_covariate_formulas &lt;- function(covariates) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">257</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(table_names_suffix)</pre>
+                      <pre class="language-r">  if (!all(vapply(X = covariates, FUN = inherits, what = "formula", FUN.VALUE = TRUE)) || is.null(covariates)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">258</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    stop("Check `covariates`, it should be a list of right-hand-term formulas, e.g. list(Age = ~AGE).")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">259</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(time_point = time_point, is_event = is_event, control = control, ...)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -125949,1323 +125299,953 @@ <h2>tern coverage - 95.64%</h2>
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">261</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  f &lt;- list(</pre>
+                      <pre class="language-r">  invisible()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">262</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    surv = c("pt_at_risk", "event_free_rate", "rate_se", "rate_ci"),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">263</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    surv_diff = c("rate_diff", "rate_diff_ci", "ztest_pval")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">name_covariate_names &lt;- function(covariates) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">265</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .stats &lt;- h_split_param(.stats, .stats, f = f)</pre>
+                      <pre class="language-r">  miss_names &lt;- names(covariates) == ""</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">266</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats &lt;- h_split_param(.formats, names(.formats), f = f)</pre>
+                      <pre class="language-r">  no_names &lt;- is.null(names(covariates))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">267</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .labels &lt;- h_split_param(.labels, names(.labels), f = f)</pre>
+                      <pre class="language-r">  if (any(miss_names)) names(covariates)[miss_names] &lt;- vapply(covariates[miss_names], FUN = rht, FUN.VALUE = "name")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">268</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .indent_mods &lt;- h_split_param(.indent_mods, names(.indent_mods), f = f)</pre>
+                      <pre class="language-r">  if (no_names) names(covariates) &lt;- vapply(covariates, FUN = rht, FUN.VALUE = "name")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">269</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  return(covariates)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">270</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  afun_surv &lt;- make_afun(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">271</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    a_surv_timepoint,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">272</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .stats = .stats$surv,</pre>
+                      <pre class="language-r">check_increments &lt;- function(increments, covariates) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">273</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .formats = .formats$surv,</pre>
+                      <pre class="language-r">  if (!is.null(increments)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">274</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .labels = .labels$surv,</pre>
+                      <pre class="language-r">    covariates &lt;- vapply(covariates, FUN = rht, FUN.VALUE = "name")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">275</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .indent_mods = .indent_mods$surv</pre>
+                      <pre class="language-r">    lapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">276</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      X = names(increments), FUN = function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">277</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        if (!x %in% covariates) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">278</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  afun_surv_diff &lt;- make_afun(</pre>
+                      <pre class="language-r">          warning(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">279</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    a_surv_timepoint_diff,</pre>
+                      <pre class="language-r">            paste(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">280</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .stats = .stats$surv_diff,</pre>
+                      <pre class="language-r">              "Check `increments`, the `increment` for ", x,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">281</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    .formats = .formats$surv_diff,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">282</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    .labels = .labels$surv_diff,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">283</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .indent_mods = .indent_mods$surv_diff</pre>
+                      <pre class="language-r">              "doesn't match any names in investigated covariate(s)."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">284</td>
+                    <td class="num">282</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">285</td>
+                    <td class="num">283</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">286</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  time_point &lt;- extra_args$time_point</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">288</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  for (i in seq_along(time_point)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">289</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    extra_args[["time_point"]] &lt;- time_point[i]</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</td>
+                    <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">291</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    if (method %in% c("surv", "both")) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">292</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      lyt &lt;- analyze(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">293</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        lyt,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">294</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        vars,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">295</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        var_labels = paste(time_point[i], var_labels),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">296</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        table_names = paste0("surv_", time_point[i], table_names_suffix),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">297</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        show_labels = show_labels,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">298</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        afun = afun_surv,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">299</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        na_str = na_str,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">300</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        nested = nested,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">301</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        extra_args = extra_args</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">302</td>
+                    <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">303</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">304</td>
+                    <td class="num">288</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">305</td>
-                    <td class="coverage">6<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    if (method %in% c("surv_diff", "both")) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">306</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      lyt &lt;- analyze(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">307</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        lyt,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">308</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        vars,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">309</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        var_labels = paste(time_point[i], var_labels),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">310</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        table_names = paste0("surv_diff_", time_point[i], table_names_suffix),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">311</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        show_labels = ifelse(method == "both", "hidden", show_labels),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">312</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        afun = afun_surv_diff,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">313</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        na_str = na_str,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">314</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        nested = nested,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">315</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        extra_args = extra_args</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">316</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">317</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">318</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">319</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">289</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lyt</pre>
+                      <pre class="language-r">  invisible()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">320</td>
+                    <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/df_explicit_na.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' Encode categorical missing values in a data frame</pre>
-                    </td>
-                  </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">292</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' Multivariate Cox model - summarized results</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' This is a helper function to encode missing entries across groups of categorical</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' variables in a data frame.</pre>
+                      <pre class="language-r">#' Analyses based on multivariate Cox model are usually not performed for the Controlled Substance Reporting or</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">295</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' regulatory documents but serve exploratory purposes only (e.g., for publication). In practice, the model usually</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">296</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details Missing entries are those with `NA` or empty strings and will</pre>
+                      <pre class="language-r">#' includes only the main effects (without interaction terms). It produces the hazard ratio estimates for each of the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">297</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   be replaced with a specified value. If factor variables include missing</pre>
+                      <pre class="language-r">#' covariates included in the model.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">298</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   values, the missing value will be inserted as the last level.</pre>
+                      <pre class="language-r">#' The analysis follows the same principles (e.g., stratified vs. unstratified analysis and tie handling) as the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Similarly, in case character or logical variables should be converted to factors</pre>
+                      <pre class="language-r">#' usual Cox model analysis. Since there is usually no pre-specified hypothesis testing for such analysis,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">300</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   with the `char_as_factor` or `logical_as_factor` options, the missing values will</pre>
+                      <pre class="language-r">#' the p.values need to be interpreted with caution. (**Statistical Analysis of Clinical Trials Data with R**,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">301</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   be set as the last level.</pre>
+                      <pre class="language-r">#' `NEST's bookdown`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">302</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @param data (`data.frame`)\cr data set.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @param omit_columns (`character`)\cr names of variables from `data` that should</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   not be modified by this function.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param char_as_factor (`flag`)\cr whether to convert character variables</pre>
+                      <pre class="language-r">#' @param formula (`formula`)\cr a formula corresponding to the investigated [survival::Surv()] survival model</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   in `data` to factors.</pre>
+                      <pre class="language-r">#'   including covariates.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">305</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param logical_as_factor (`flag`)\cr whether to convert logical variables</pre>
+                      <pre class="language-r">#' @param data (`data.frame`)\cr a data frame which includes the variable in formula and covariates.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">306</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   in `data` to factors.</pre>
+                      <pre class="language-r">#' @param conf_level (`proportion`)\cr the confidence level for the hazard ratio interval estimations. Default is 0.95.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param na_level (`string`)\cr string used to replace all `NA` or empty</pre>
+                      <pre class="language-r">#' @param pval_method (`string`)\cr the method used for the estimation of p-values, should be one of</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">308</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   values inside non-`omit_columns` columns.</pre>
+                      <pre class="language-r">#'   `"wald"` (default) or `"likelihood"`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">309</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param ... optional parameters passed to [survival::coxph()]. Can include `ties`, a character string specifying the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">310</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `data.frame` with the chosen modifications applied.</pre>
+                      <pre class="language-r">#'   method for tie handling, one of `exact` (default), `efron`, `breslow`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">311</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">312</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [sas_na()] and [explicit_na()] for other missing data helper functions.</pre>
+                      <pre class="language-r">#' @return A `list` with elements `mod`, `msum`, `aov`, and `coef_inter`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' my_data &lt;- data.frame(</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   u = c(TRUE, FALSE, NA, TRUE),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   v = factor(c("A", NA, NA, NA), levels = c("Z", "A")),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   w = c("A", "B", NA, "C"),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   x = c("D", "E", "F", NA),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   y = c("G", "H", "I", ""),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   z = c(1, 2, 3, 4),</pre>
+                      <pre class="language-r">#' @details The output is limited to single effect terms. Work in ongoing for estimation of interaction terms</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">315</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">#'   but is out of scope as defined by the  Global Data Standards Repository</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">316</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   (**`GDS_Standard_TLG_Specs_Tables_2.doc`**).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">317</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' # Example 1</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' # Encode missing values in all character or factor columns.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">42</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' df_explicit_na(my_data)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' # Also convert logical columns to factor columns.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' df_explicit_na(my_data, logical_as_factor = TRUE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' # Encode missing values in a subset of columns.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">318</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df_explicit_na(my_data, omit_columns = c("x", "y"))</pre>
+                      <pre class="language-r">#' @seealso [estimate_coef()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">319</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' # Example 2</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' # Here we purposefully convert all `M` values to `NA` in the `SEX` variable.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' # After running `df_explicit_na` the `NA` values are encoded as `&lt;Missing&gt;` but they are not</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">51</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' # included when generating `rtables`.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' adsl &lt;- tern_ex_adsl</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adsl$SEX[adsl$SEX == "M"] &lt;- NA</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adsl &lt;- df_explicit_na(adsl)</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">322</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' # If you want the `Na` values to be displayed in the table use the `na_level` argument.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">57</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' adsl &lt;- tern_ex_adsl</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">323</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adsl$SEX[adsl$SEX == "M"] &lt;- NA</pre>
+                      <pre class="language-r">#' adtte &lt;- tern_ex_adtte</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">324</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adsl &lt;- df_explicit_na(adsl, na_level = "Missing Values")</pre>
+                      <pre class="language-r">#' adtte_f &lt;- subset(adtte, PARAMCD == "OS") # _f: filtered</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">325</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' adtte_f &lt;- filter(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">326</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Example 3</pre>
+                      <pre class="language-r">#'   adtte_f,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">327</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Numeric variables that have missing values are not altered. This means that any `NA` value in</pre>
+                      <pre class="language-r">#'   PARAMCD == "OS" &amp;</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">328</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # a numeric variable will not be included in the summary statistics, nor will they be included</pre>
+                      <pre class="language-r">#'     SEX %in% c("F", "M") &amp;</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">329</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # in the denominator value for calculating the percent values.</pre>
+                      <pre class="language-r">#'     RACE %in% c("ASIAN", "BLACK OR AFRICAN AMERICAN", "WHITE")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">330</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adsl &lt;- tern_ex_adsl</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">331</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adsl$AGE[adsl$AGE &lt; 30] &lt;- NA</pre>
+                      <pre class="language-r">#' adtte_f$SEX &lt;- droplevels(adtte_f$SEX)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">332</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adsl &lt;- df_explicit_na(adsl)</pre>
+                      <pre class="language-r">#' adtte_f$RACE &lt;- droplevels(adtte_f$RACE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">333</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">334</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">335</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">df_explicit_na &lt;- function(data,</pre>
+                      <pre class="language-r">s_cox_multivariate &lt;- function(formula, data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">336</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           omit_columns = NULL,</pre>
+                      <pre class="language-r">                               conf_level = 0.95,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">337</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           char_as_factor = TRUE,</pre>
+                      <pre class="language-r">                               pval_method = c("wald", "likelihood"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">338</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           logical_as_factor = FALSE,</pre>
+                      <pre class="language-r">                               ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">339</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           na_level = "&lt;Missing&gt;") {</pre>
+                      <pre class="language-r">  tf &lt;- stats::terms(formula, specials = c("strata"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">340</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(omit_columns, null.ok = TRUE, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">  covariates &lt;- rownames(attr(tf, "factors"))[-c(1, unlist(attr(tf, "specials")))]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">23<em>x</em></td>
+                    <td class="num">341</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(data)</pre>
+                      <pre class="language-r">  lapply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">342</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(char_as_factor)</pre>
+                      <pre class="language-r">    X = covariates,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">343</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(logical_as_factor)</pre>
+                      <pre class="language-r">    FUN = function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">344</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(na_level)</pre>
+                      <pre class="language-r">      if (is.character(data[[x]])) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">345</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        data[[x]] &lt;&lt;- as.factor(data[[x]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">346</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">347</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  target_vars &lt;- if (is.null(omit_columns)) {</pre>
+                      <pre class="language-r">      invisible()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">82</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">348</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    names(data)</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">349</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">350</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    setdiff(names(data), omit_columns) # May have duplicates.</pre>
+                      <pre class="language-r">  pval_method &lt;- match.arg(pval_method)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">351</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">352</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  # Results directly exported from environment(fit_n_aov) to environment(s_function_draft)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">353</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(target_vars) == 0) {</pre>
+                      <pre class="language-r">  y &lt;- fit_n_aov(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">87</td>
+                    <td class="num">354</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(data)</pre>
+                      <pre class="language-r">    formula = formula,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">88</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">355</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    data = data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">89</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">356</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    conf_level = conf_level,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">357</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  l_target_vars &lt;- split(target_vars, target_vars)</pre>
+                      <pre class="language-r">    pval_method = pval_method,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">358</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    ...</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">359</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Makes sure target_vars exist in data and names are not duplicated.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">93</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">360</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(data, l_target_vars)</pre>
+                      <pre class="language-r">  mod &lt;- y$mod</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">361</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  aov &lt;- y$aov</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">362</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  msum &lt;- y$msum</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">363</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  list2env(as.list(y), environment())</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">364</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">365</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  for (x in target_vars) {</pre>
+                      <pre class="language-r">  all_term_labs &lt;- attr(mod$terms, "term.labels")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">96</td>
-                    <td class="coverage">306<em>x</em></td>
+                    <td class="num">366</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xi &lt;- data[[x]]</pre>
+                      <pre class="language-r">  term_labs &lt;- all_term_labs[which(attr(mod$terms, "order") == 1)]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">97</td>
-                    <td class="coverage">306<em>x</em></td>
+                    <td class="num">367</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    xi_label &lt;- obj_label(xi)</pre>
+                      <pre class="language-r">  names(term_labs) &lt;- term_labs</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">368</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">99</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">369</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Determine whether to convert character or logical input.</pre>
+                      <pre class="language-r">  coef_inter &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">100</td>
-                    <td class="coverage">306<em>x</em></td>
+                    <td class="num">370</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    do_char_conversion &lt;- is.character(xi) &amp;&amp; char_as_factor</pre>
+                      <pre class="language-r">  if (any(attr(mod$terms, "order") &gt; 1)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">306<em>x</em></td>
+                    <td class="num">371</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    do_logical_conversion &lt;- is.logical(xi) &amp;&amp; logical_as_factor</pre>
+                      <pre class="language-r">    for_inter &lt;- all_term_labs[attr(mod$terms, "order") &gt; 1]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">102</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">372</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    names(for_inter) &lt;- for_inter</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">103</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">373</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Pre-convert logical to character to deal correctly with replacing NA</pre>
+                      <pre class="language-r">    mmat &lt;- stats::model.matrix(mod)[1, ]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">104</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">374</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # values below.</pre>
+                      <pre class="language-r">    mmat[!mmat == 0] &lt;- 0</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">306<em>x</em></td>
+                    <td class="num">375</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (do_logical_conversion) {</pre>
+                      <pre class="language-r">    mcoef &lt;- stats::coef(mod)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">376</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      xi &lt;- as.character(xi)</pre>
+                      <pre class="language-r">    mvcov &lt;- stats::vcov(mod)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">377</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">108</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">378</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    estimate_coef_local &lt;- function(variable, given) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">306<em>x</em></td>
+                    <td class="num">379</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.factor(xi) || is.character(xi)) {</pre>
+                      <pre class="language-r">      estimate_coef(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">110</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">380</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Handle empty strings and NA values.</pre>
+                      <pre class="language-r">        variable, given,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">219<em>x</em></td>
+                    <td class="num">381</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      xi &lt;- explicit_na(sas_na(xi), label = na_level)</pre>
+                      <pre class="language-r">        coef = mcoef, mmat = mmat, vcov = mvcov, conf_level = conf_level,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">112</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">382</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        lvl_var = levels(data[[variable]]), lvl_given = levels(data[[given]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">383</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # Convert to factors if requested for the original type,</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">384</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      # set na_level as the last value.</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">219<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">385</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (do_char_conversion || do_logical_conversion) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">386</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        levels_xi &lt;- setdiff(sort(unique(xi)), na_level)</pre>
+                      <pre class="language-r">    coef_inter &lt;- lapply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">387</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (na_level %in% unique(xi)) {</pre>
+                      <pre class="language-r">      for_inter, function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">118</td>
-                    <td class="coverage">18<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          levels_xi &lt;- c(levels_xi, na_level)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">119</td>
-                    <td class="coverage"></td>
+                    <td class="num">388</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">        y &lt;- attr(mod$terms, "factors")[, x]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">120</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">389</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        y &lt;- names(y[y &gt; 0])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">121</td>
-                    <td class="coverage">78<em>x</em></td>
+                    <td class="num">390</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        xi &lt;- factor(xi, levels = levels_xi)</pre>
+                      <pre class="language-r">        Map(estimate_coef_local, variable = y, given = rev(y))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">391</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">392</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">219<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      data[, x] &lt;- formatters::with_label(xi, label = xi_label)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">393</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">394</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">395</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(data)</pre>
+                      <pre class="language-r">  list(mod = mod, msum = msum, aov = aov, coef_inter = coef_inter)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">396</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -127274,14 +126254,14 @@ <h2>tern coverage - 95.64%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/analyze_vars_in_cols.R" class="hidden">
+            <div id="R/decorate_grob.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Analyze numeric variables in columns</pre>
+                      <pre class="language-r">#' Add titles, footnotes, page Number, and a bounding box to a grid grob</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -127295,7 +126275,7 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -127309,14 +126289,14 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The layout-creating function [analyze_vars_in_cols()] creates a layout element to generate a column-wise</pre>
+                      <pre class="language-r">#' This function is useful to label grid grobs (also `ggplot2`, and `lattice` plots)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' analysis table.</pre>
+                      <pre class="language-r">#' with title, footnote, and page numbers.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -127330,182 +126310,182 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function sets the analysis methods as column labels and is a wrapper for [rtables::analyze_colvars()].</pre>
+                      <pre class="language-r">#' @inheritParams grid::grob</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' It was designed principally for PK tables.</pre>
+                      <pre class="language-r">#' @param grob (`grob`)\cr a grid grob object, optionally `NULL` if only a `grob` with the decoration should be shown.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param titles (`character`)\cr titles given as a vector of strings that are each separated by a newline and wrapped</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#'   according to the page width.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams rtables::analyze_colvars</pre>
+                      <pre class="language-r">#' @param footnotes (`character`)\cr footnotes. Uses the same formatting rules as `titles`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param imp_rule (`string` or `NULL`)\cr imputation rule setting. Defaults to `NULL` for no imputation rule. Can</pre>
+                      <pre class="language-r">#' @param page (`string` or `NULL`)\cr page numeration. If `NULL` then no page number is displayed.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   also be `"1/3"` to implement 1/3 imputation rule or `"1/2"` to implement 1/2 imputation rule. In order</pre>
+                      <pre class="language-r">#' @param width_titles (`grid::unit`)\cr width of titles. Usually defined as all the available space</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to use an imputation rule, the `avalcat_var` argument must be specified. See [imputation_rule()]</pre>
+                      <pre class="language-r">#'   `grid::unit(1, "npc")`, it is affected by the parameter `outer_margins`. Right margins (`outer_margins[4]`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   for more details on imputation.</pre>
+                      <pre class="language-r">#'   need to be subtracted to the allowed width.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param avalcat_var (`string`)\cr if `imp_rule` is not `NULL`, name of variable that indicates whether a</pre>
+                      <pre class="language-r">#' @param width_footnotes (`grid::unit`)\cr width of footnotes. Same default and margin correction as `width_titles`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   row in the data corresponds to an analysis value in category `"BLQ"`, `"LTR"`, `"&lt;PCLLOQ"`, or none of</pre>
+                      <pre class="language-r">#' @param border (`flag`)\cr whether a border should be drawn around the plot or not.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the above (defaults to `"AVALCAT1"`). Variable must be present in the data and should match the variable</pre>
+                      <pre class="language-r">#' @param padding (`grid::unit`)\cr padding. A unit object of length 4. Innermost margin between the plot (`grob`)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   used to calculate the `n_blq` statistic (if included in `.stats`).</pre>
+                      <pre class="language-r">#'   and, possibly, the border of the plot. Usually expressed in 4 identical values (usually `"lines"`). It defaults</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param cache (`flag`)\cr whether to store computed values in a temporary caching environment. This will</pre>
+                      <pre class="language-r">#'   to `grid::unit(rep(1, 4), "lines")`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   speed up calculations in large tables, but should be set to `FALSE` if the same `rtable` layout is</pre>
+                      <pre class="language-r">#' @param margins (`grid::unit`)\cr margins. A unit object of length 4. Margins between the plot and the other</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   used for multiple tables with different data. Defaults to `FALSE`.</pre>
+                      <pre class="language-r">#'   elements in the list (e.g. titles, plot, and footers). This is usually expressed in 4 `"lines"`, where the</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param row_labels (`character`)\cr as this function works in columns space, usually `.labels`</pre>
+                      <pre class="language-r">#'   lateral ones are 0s, while top and bottom are 1s. It defaults to `grid::unit(c(1, 0, 1, 0), "lines")`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   character vector applies on the column space. You can change the row labels by defining this</pre>
+                      <pre class="language-r">#' @param outer_margins (`grid::unit`)\cr outer margins. A unit object of length 4. It defines the general margin of</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   parameter to a named character vector with names corresponding to the split values. It defaults</pre>
+                      <pre class="language-r">#'   the plot, considering also decorations like titles, footnotes, and page numbers. It defaults to</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to `NULL` and if it contains only one `string`, it will duplicate that as a row label.</pre>
+                      <pre class="language-r">#'   `grid::unit(c(2, 1.5, 3, 1.5), "cm")`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param do_summarize_row_groups (`flag`)\cr defaults to `FALSE` and applies the analysis to the current</pre>
+                      <pre class="language-r">#' @param gp_titles (`gpar`)\cr a `gpar` object. Mainly used to set different `"fontsize"`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   label rows. This is a wrapper of [rtables::summarize_row_groups()] and it can accept `labelstr`</pre>
+                      <pre class="language-r">#' @param gp_footnotes (`gpar`)\cr a `gpar` object. Mainly used to set different `"fontsize"`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to define row labels. This behavior is not supported as we never need to overload row labels.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param split_col_vars (`flag`)\cr defaults to `TRUE` and puts the analysis results onto the columns.</pre>
+                      <pre class="language-r">#' @return A grid grob (`gTree`).</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   This option allows you to add multiple instances of this functions, also in a nested fashion,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   without adding more splits. This split must happen only one time on a single layout.</pre>
+                      <pre class="language-r">#' @details The titles and footnotes will be ragged, i.e. each title will be wrapped individually.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -127519,217 +126499,217 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A layout object suitable for passing to further layouting functions, or to [rtables::build_table()].</pre>
+                      <pre class="language-r">#' library(grid)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Adding this function to an `rtable` layout will summarize the given variables, arrange the output</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' in columns, and add it to the table layout.</pre>
+                      <pre class="language-r">#' titles &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   "Edgar Anderson's Iris Data",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note</pre>
+                      <pre class="language-r">#'   paste(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * This is an experimental implementation of [rtables::summarize_row_groups()] and [rtables::analyze_colvars()]</pre>
+                      <pre class="language-r">#'     "This famous (Fisher's or Anderson's) iris data set gives the measurements",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   that may be subjected to changes as `rtables` extends its support to more complex analysis pipelines in the</pre>
+                      <pre class="language-r">#'     "in centimeters of the variables sepal length and width and petal length",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   column space. We encourage users to read the examples carefully and file issues for different use cases.</pre>
+                      <pre class="language-r">#'     "and width, respectively, for 50 flowers from each of 3 species of iris."</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * In this function, `labelstr` behaves atypically. If `labelstr = NULL` (the default), row labels are assigned</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   automatically as the split values if `do_summarize_row_groups = FALSE` (the default), and as the group label</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   if `do_summarize_row_groups = TRUE`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' footnotes &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [analyze_vars()], [rtables::analyze_colvars()].</pre>
+                      <pre class="language-r">#'   "The species are Iris setosa, versicolor, and virginica.",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   paste(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'     "iris is a data frame with 150 cases (rows) and 5 variables (columns) named",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">#'     "Sepal.Length, Sepal.Width, Petal.Length, Petal.Width, and Species."</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Data preparation</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adpp &lt;- tern_ex_adpp %&gt;% h_pkparam_sort()</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' ## empty plot</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">#' grid.newpage()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by(var = "STRATA1", label_pos = "topleft") %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by(</pre>
+                      <pre class="language-r">#' grid.draw(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     var = "SEX",</pre>
+                      <pre class="language-r">#'   decorate_grob(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     label_pos = "topleft",</pre>
+                      <pre class="language-r">#'     NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     child_labels = "hidden"</pre>
+                      <pre class="language-r">#'     titles = titles,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;% # Removes duplicated labels</pre>
+                      <pre class="language-r">#'     footnotes = footnotes,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze_vars_in_cols(vars = "AGE")</pre>
+                      <pre class="language-r">#'     page = "Page 4 of 10"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result &lt;- build_table(lyt = lyt, df = adpp)</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -127743,1862 +126723,1862 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # By selecting just some statistics and ad-hoc labels</pre>
+                      <pre class="language-r">#' # grid</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">#' p &lt;- gTree(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by(var = "ARM", label_pos = "topleft") %&gt;%</pre>
+                      <pre class="language-r">#'   children = gList(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by(</pre>
+                      <pre class="language-r">#'     rectGrob(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     var = "SEX",</pre>
+                      <pre class="language-r">#'     xaxisGrob(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     label_pos = "topleft",</pre>
+                      <pre class="language-r">#'     yaxisGrob(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     child_labels = "hidden",</pre>
+                      <pre class="language-r">#'     textGrob("Sepal.Length", y = unit(-4, "lines")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     split_fun = drop_split_levels</pre>
+                      <pre class="language-r">#'     textGrob("Petal.Length", x = unit(-3.5, "lines"), rot = 90),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">#'     pointsGrob(iris$Sepal.Length, iris$Petal.Length, gp = gpar(col = iris$Species), pch = 16)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze_vars_in_cols(</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     vars = "AGE",</pre>
+                      <pre class="language-r">#'   vp = vpStack(plotViewport(), dataViewport(xData = iris$Sepal.Length, yData = iris$Petal.Length))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .stats = c("n", "cv", "geom_mean"),</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .labels = c(</pre>
+                      <pre class="language-r">#' grid.newpage()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       n = "aN",</pre>
+                      <pre class="language-r">#' grid.draw(p)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       cv = "aCV",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       geom_mean = "aGeomMean"</pre>
+                      <pre class="language-r">#' grid.newpage()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">#' grid.draw(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#'   decorate_grob(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result &lt;- build_table(lyt = lyt, df = adpp)</pre>
+                      <pre class="language-r">#'     grob = p,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result</pre>
+                      <pre class="language-r">#'     titles = titles,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     footnotes = footnotes,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Changing row labels</pre>
+                      <pre class="language-r">#'     page = "Page 6 of 129"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze_vars_in_cols(</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     vars = "AGE",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     row_labels = "some custom label"</pre>
+                      <pre class="language-r">#' ## with ggplot2</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#' library(ggplot2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result &lt;- build_table(lyt, df = adpp)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result</pre>
+                      <pre class="language-r">#' p_gg &lt;- ggplot2::ggplot(iris, aes(Sepal.Length, Sepal.Width, col = Species)) +</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   ggplot2::geom_point()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Pharmacokinetic parameters</pre>
+                      <pre class="language-r">#' p_gg</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">#' p &lt;- ggplotGrob(p_gg)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by(</pre>
+                      <pre class="language-r">#' grid.newpage()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     var = "TLG_DISPLAY",</pre>
+                      <pre class="language-r">#' grid.draw(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     split_label = "PK Parameter",</pre>
+                      <pre class="language-r">#'   decorate_grob(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     label_pos = "topleft",</pre>
+                      <pre class="language-r">#'     grob = p,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     child_labels = "hidden"</pre>
+                      <pre class="language-r">#'     titles = titles,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">#'     footnotes = footnotes,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze_vars_in_cols(</pre>
+                      <pre class="language-r">#'     page = "Page 6 of 129"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     vars = "AVAL"</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result &lt;- build_table(lyt, df = adpp)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result</pre>
+                      <pre class="language-r">#' ## with lattice</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' library(lattice)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Multiple calls (summarize label and analyze underneath)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">#' xyplot(Sepal.Length ~ Petal.Length, data = iris, col = iris$Species)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by(</pre>
+                      <pre class="language-r">#' p &lt;- grid.grab()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     var = "TLG_DISPLAY",</pre>
+                      <pre class="language-r">#' grid.newpage()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     split_label = "PK Parameter",</pre>
+                      <pre class="language-r">#' grid.draw(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     label_pos = "topleft"</pre>
+                      <pre class="language-r">#'   decorate_grob(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">#'     grob = p,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze_vars_in_cols(</pre>
+                      <pre class="language-r">#'     titles = titles,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     vars = "AVAL",</pre>
+                      <pre class="language-r">#'     footnotes = footnotes,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     do_summarize_row_groups = TRUE # does a summarize level</pre>
+                      <pre class="language-r">#'     page = "Page 6 of 129"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by("SEX",</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     child_labels = "hidden",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     label_pos = "topleft"</pre>
+                      <pre class="language-r">#' # with gridExtra - no borders</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">#' library(gridExtra)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze_vars_in_cols(</pre>
+                      <pre class="language-r">#' grid.newpage()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     vars = "AVAL",</pre>
+                      <pre class="language-r">#' grid.draw(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     split_col_vars = FALSE # avoids re-splitting the columns</pre>
+                      <pre class="language-r">#'   decorate_grob(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#'     tableGrob(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result &lt;- build_table(lyt, df = adpp)</pre>
+                      <pre class="language-r">#'       head(mtcars)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result</pre>
+                      <pre class="language-r">#'     ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     titles = "title",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'     footnotes = "footnote",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">analyze_vars_in_cols &lt;- function(lyt,</pre>
+                      <pre class="language-r">#'     border = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 vars,</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 ...,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 .stats = c(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   "n",</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   "mean",</pre>
+                      <pre class="language-r">decorate_grob &lt;- function(grob,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   "sd",</pre>
+                      <pre class="language-r">                          titles,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   "se",</pre>
+                      <pre class="language-r">                          footnotes,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   "cv",</pre>
+                      <pre class="language-r">                          page = "",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   "geom_cv"</pre>
+                      <pre class="language-r">                          width_titles = grid::unit(1, "npc"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 ),</pre>
+                      <pre class="language-r">                          width_footnotes = grid::unit(1, "npc"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 .labels = c(</pre>
+                      <pre class="language-r">                          border = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   n = "n",</pre>
+                      <pre class="language-r">                          padding = grid::unit(rep(1, 4), "lines"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   mean = "Mean",</pre>
+                      <pre class="language-r">                          margins = grid::unit(c(1, 0, 1, 0), "lines"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   sd = "SD",</pre>
+                      <pre class="language-r">                          outer_margins = grid::unit(c(2, 1.5, 3, 1.5), "cm"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   se = "SE",</pre>
+                      <pre class="language-r">                          gp_titles = grid::gpar(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   cv = "CV (%)",</pre>
+                      <pre class="language-r">                          gp_footnotes = grid::gpar(fontsize = 8),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   geom_cv = "CV % Geometric Mean"</pre>
+                      <pre class="language-r">                          name = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 ),</pre>
+                      <pre class="language-r">                          gp = grid::gpar(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 row_labels = NULL,</pre>
+                      <pre class="language-r">                          vp = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 do_summarize_row_groups = FALSE,</pre>
+                      <pre class="language-r">  # External margins need to be taken into account when defining the width of titles and footers</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 split_col_vars = TRUE,</pre>
+                      <pre class="language-r">  # because the text is split in advance depending on only the width of the viewport.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">156</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 imp_rule = NULL,</pre>
+                      <pre class="language-r">  if (any(as.numeric(outer_margins) &gt; 0)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">157</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 avalcat_var = "AVALCAT1",</pre>
+                      <pre class="language-r">    width_titles &lt;- width_titles - outer_margins[4]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">158</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 cache = FALSE,</pre>
+                      <pre class="language-r">    width_footnotes &lt;- width_footnotes - outer_margins[4]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 .indent_mods = NULL,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 na_str = default_na_str(),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">161</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 nested = TRUE,</pre>
+                      <pre class="language-r">  st_titles &lt;- split_text_grob(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">162</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 .formats = NULL,</pre>
+                      <pre class="language-r">    titles,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">163</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 .aligns = NULL) {</pre>
+                      <pre class="language-r">    x = 0, y = 1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">164</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(...)</pre>
+                      <pre class="language-r">    just = c("left", "top"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">165</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    width = width_titles,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">166</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(na_str, na.ok = TRUE, null.ok = TRUE)</pre>
+                      <pre class="language-r">    vp = grid::viewport(layout.pos.row = 1, layout.pos.col = 1),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">167</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(row_labels, null.ok = TRUE)</pre>
+                      <pre class="language-r">    gp = gp_titles</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">168</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_int(.indent_mods, null.ok = TRUE)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">169</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(nested)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">170</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(split_col_vars)</pre>
+                      <pre class="language-r">  st_footnotes &lt;- split_text_grob(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">171</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(do_summarize_row_groups)</pre>
+                      <pre class="language-r">    footnotes,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">172</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    x = 0, y = 1,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">173</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Filtering</pre>
+                      <pre class="language-r">    just = c("left", "top"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">174</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  met_grps &lt;- paste0("analyze_vars", c("_numeric", "_counts"))</pre>
+                      <pre class="language-r">    width = width_footnotes,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">175</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .stats &lt;- get_stats(met_grps, stats_in = .stats)</pre>
+                      <pre class="language-r">    vp = grid::viewport(layout.pos.row = 3, layout.pos.col = 1),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">176</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  formats_v &lt;- get_formats_from_stats(stats = .stats, formats_in = .formats)</pre>
+                      <pre class="language-r">    gp = gp_footnotes</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">177</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  labels_v &lt;- get_labels_from_stats(stats = .stats, labels_in = .labels)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">178</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if ("control" %in% names(extra_args)) labels_v &lt;- labels_v %&gt;% labels_use_control(extra_args[["control"]], .labels)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">179</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  pg_footnote &lt;- grid::textGrob(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">180</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Check for vars in the case that one or more are used</pre>
+                      <pre class="language-r">    paste("\n", page),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">181</td>
-                    <td class="coverage">26<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(vars) == 1) {</pre>
+                      <pre class="language-r">    x = 1, y = 0,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">182</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars &lt;- rep(vars, length(.stats))</pre>
+                      <pre class="language-r">    just = c("right", "bottom"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">183</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (length(vars) != length(.stats)) {</pre>
+                      <pre class="language-r">    vp = grid::viewport(layout.pos.row = 4, layout.pos.col = 1),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">184</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop(</pre>
+                      <pre class="language-r">    gp = gp_footnotes</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">185</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Analyzed variables (vars) does not have the same ",</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">186</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "number of elements of specified statistics (.stats)."</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  # Initial decoration of the grob -&gt; border, paddings, and margins are used here</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">188</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  main_plot &lt;- grid::gTree(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">189</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    children = grid::gList(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">190</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (split_col_vars) {</pre>
+                      <pre class="language-r">      if (border) grid::rectGrob(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">191</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Checking there is not a previous identical column split</pre>
+                      <pre class="language-r">      grid::gTree(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">192</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    clyt &lt;- tail(clayout(lyt), 1)[[1]]</pre>
+                      <pre class="language-r">        children = grid::gList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">193</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          grob</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">194</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dummy_lyt &lt;- split_cols_by_multivar(</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">195</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt = basic_table(),</pre>
+                      <pre class="language-r">        vp = grid::plotViewport(margins = padding) # innermost margins of the grob plot</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">196</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vars = vars,</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">197</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      varlabels = labels_v</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">198</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    vp = grid::vpStack(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">199</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      grid::viewport(layout.pos.row = 2, layout.pos.col = 1),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">200</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (any(sapply(clyt, identical, y = get_last_col_split(dummy_lyt)))) {</pre>
+                      <pre class="language-r">      grid::plotViewport(margins = margins) # margins around the border plot</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">201</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stop(</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">202</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Column split called again with the same values. ",</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">203</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "This can create many unwanted columns. Please consider adding ",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">204</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "split_col_vars = FALSE to the last call of ",</pre>
+                      <pre class="language-r">  grid::gTree(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">205</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        deparse(sys.calls()[[sys.nframe() - 1]]), "."</pre>
+                      <pre class="language-r">    grob = grob,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">206</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    titles = titles,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">207</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    footnotes = footnotes,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">208</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    page = page,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">209</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Main col split</pre>
+                      <pre class="language-r">    width_titles = width_titles,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">210</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt &lt;- split_cols_by_multivar(</pre>
+                      <pre class="language-r">    width_footnotes = width_footnotes,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">211</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt = lyt,</pre>
+                      <pre class="language-r">    outer_margins = outer_margins,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">212</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vars = vars,</pre>
+                      <pre class="language-r">    gp_titles = gp_titles,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">213</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      varlabels = labels_v</pre>
+                      <pre class="language-r">    gp_footnotes = gp_footnotes,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">214</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    children = grid::gList(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">215</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      grid::gTree(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">216</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        children = grid::gList(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">217</td>
-                    <td class="coverage">23<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  env &lt;- new.env() # create caching environment</pre>
+                      <pre class="language-r">          st_titles,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">218</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          main_plot, # main plot with border, padding, and margins</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">219</td>
-                    <td class="coverage">23<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (do_summarize_row_groups) {</pre>
+                      <pre class="language-r">          st_footnotes,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">220</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (length(unique(vars)) &gt; 1) {</pre>
+                      <pre class="language-r">          pg_footnote</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">221</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stop("When using do_summarize_row_groups only one label level var should be inserted.")</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">222</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">        childrenvp = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">223</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        name = "titles_grob_footnotes",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">224</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Function list for do_summarize_row_groups. Slightly different handling of labels</pre>
+                      <pre class="language-r">        vp = grid::vpStack(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">225</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    cfun_list &lt;- Map(</pre>
+                      <pre class="language-r">          grid::plotViewport(margins = outer_margins), # Main external margins</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">226</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      function(stat, use_cache, cache_env) {</pre>
+                      <pre class="language-r">          grid::viewport(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">227</td>
-                    <td class="coverage">48<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        function(u, .spl_context, labelstr, .df_row, ...) {</pre>
+                      <pre class="language-r">            layout = grid::grid.layout(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">228</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # Statistic</pre>
+                      <pre class="language-r">              nrow = 4, ncol = 1,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">229</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          var_row_val &lt;- paste(</pre>
+                      <pre class="language-r">              heights = grid::unit.c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">230</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            gsub("\\._\\[\\[[0-9]+\\]\\]_\\.", "", paste(tail(.spl_context$cur_col_split_val, 1)[[1]], collapse = "_")),</pre>
+                      <pre class="language-r">                grid::grobHeight(st_titles),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">231</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            paste(.spl_context$value, collapse = "_"),</pre>
+                      <pre class="language-r">                grid::unit(1, "null"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">232</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            sep = "_"</pre>
+                      <pre class="language-r">                grid::grobHeight(st_footnotes),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">233</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">                grid::grobHeight(pg_footnote)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">234</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (use_cache) {</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">235</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (is.null(cache_env[[var_row_val]])) cache_env[[var_row_val]] &lt;- s_summary(u, ...)</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">236</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            x_stats &lt;- cache_env[[var_row_val]]</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          } else {</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">238</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            x_stats &lt;- s_summary(u, ...)</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">240</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    name = name,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">241</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (is.null(imp_rule) || !stat %in% c("mean", "sd", "cv", "geom_mean", "geom_cv", "median", "min", "max")) {</pre>
+                      <pre class="language-r">    gp = gp,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">242</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            res &lt;- x_stats[[stat]]</pre>
+                      <pre class="language-r">    vp = vp,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">243</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          } else {</pre>
+                      <pre class="language-r">    cl = "decoratedGrob"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">244</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            timept &lt;- as.numeric(gsub(".*?([0-9\\.]+).*", "\\1", tail(.spl_context$value, 1)))</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">245</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            res_imp &lt;- imputation_rule(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">246</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              .df_row, x_stats, stat,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">247</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              imp_rule = imp_rule,</pre>
+                      <pre class="language-r"># nocov start</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">248</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              post = grepl("Predose", tail(.spl_context$value, 1)) || timept &gt; 0,</pre>
+                      <pre class="language-r">#' @importFrom grid validDetails</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">249</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              avalcat_var = avalcat_var</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">validDetails.decoratedGrob &lt;- function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">251</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            res &lt;- res_imp[["val"]]</pre>
+                      <pre class="language-r">  checkmate::assert_character(x$titles)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">252</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            na_str &lt;- res_imp[["na_str"]]</pre>
+                      <pre class="language-r">  checkmate::assert_character(x$footnotes)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if (!is.null(x$grob)) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # Label check and replacement</pre>
+                      <pre class="language-r">    checkmate::assert_true(grid::is.grob(x$grob))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">256</td>
-                    <td class="coverage">152<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (length(row_labels) &gt; 1) {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">257</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (!(labelstr %in% names(row_labels))) {</pre>
+                      <pre class="language-r">  if (length(x$page) == 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">258</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              stop(</pre>
+                      <pre class="language-r">    checkmate::assert_character(x$page)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">259</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                "Replacing the labels in do_summarize_row_groups needs a named vector",</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">260</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                "that contains the split values. In the current split variable ",</pre>
+                      <pre class="language-r">  if (!grid::is.unit(x$outer_margins)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">261</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                .spl_context$split[nrow(.spl_context)],</pre>
+                      <pre class="language-r">    checkmate::assert_vector(x$outer_margins, len = 4)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">262</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                " the labelstr value (split value by default) ", labelstr, " is not in",</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">263</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                " row_labels names: ", names(row_labels)</pre>
+                      <pre class="language-r">  if (!grid::is.unit(x$margins)) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              )</pre>
+                      <pre class="language-r">    checkmate::assert_vector(x$margins, len = 4)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">265</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">266</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            lbl &lt;- unlist(row_labels[labelstr])</pre>
+                      <pre class="language-r">  if (!grid::is.unit(x$padding)) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">267</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          } else {</pre>
+                      <pre class="language-r">    checkmate::assert_vector(x$padding, len = 4)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">268</td>
-                    <td class="coverage">120<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            lbl &lt;- labelstr</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">270</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  x</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">271</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # Cell creation</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">272</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          rcell(res,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">273</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            label = lbl,</pre>
+                      <pre class="language-r">#' @importFrom grid widthDetails</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">274</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            format = formats_v[names(formats_v) == stat][[1]],</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">275</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            format_na_str = na_str,</pre>
+                      <pre class="language-r">widthDetails.decoratedGrob &lt;- function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">276</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            indent_mod = ifelse(is.null(.indent_mods), 0L, .indent_mods),</pre>
+                      <pre class="language-r">  grid::unit(1, "null")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">277</td>
-                    <td class="coverage">150<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            align = .aligns</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">279</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#' @importFrom grid heightDetails</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">280</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">281</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stat = .stats,</pre>
+                      <pre class="language-r">heightDetails.decoratedGrob &lt;- function(x) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">282</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      use_cache = cache,</pre>
+                      <pre class="language-r">  grid::unit(1, "null")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">283</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cache_env = replicate(length(.stats), env)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Split text according to available text width</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Main call to rtables</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">287</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    summarize_row_groups(</pre>
+                      <pre class="language-r">#' Dynamically wrap text.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">288</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt = lyt,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">289</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      var = unique(vars),</pre>
+                      <pre class="language-r">#' @inheritParams grid::grid.text</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">290</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cfun = cfun_list,</pre>
+                      <pre class="language-r">#' @param text (`string`)\cr the text to wrap.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">291</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      na_str = na_str,</pre>
+                      <pre class="language-r">#' @param width (`grid::unit`)\cr a unit object specifying maximum width of text.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">292</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      extra_args = extra_args</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' @return A text `grob`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">295</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Function list for analyze_colvars</pre>
+                      <pre class="language-r">#' @details This code is taken from `R Graphics by Paul Murell, 2nd edition`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">296</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    afun_list &lt;- Map(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">297</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      function(stat, use_cache, cache_env) {</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">298</td>
-                    <td class="coverage">76<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        function(u, .spl_context, .df_row, ...) {</pre>
+                      <pre class="language-r">split_text_grob &lt;- function(text,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # Main statistics</pre>
+                      <pre class="language-r">                            x = grid::unit(0.5, "npc"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">300</td>
-                    <td class="coverage">468<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          var_row_val &lt;- paste(</pre>
+                      <pre class="language-r">                            y = grid::unit(0.5, "npc"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">301</td>
-                    <td class="coverage">468<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            gsub("\\._\\[\\[[0-9]+\\]\\]_\\.", "", paste(tail(.spl_context$cur_col_split_val, 1)[[1]], collapse = "_")),</pre>
+                      <pre class="language-r">                            width = grid::unit(1, "npc"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">302</td>
-                    <td class="coverage">468<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            paste(.spl_context$value, collapse = "_"),</pre>
+                      <pre class="language-r">                            just = "centre",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">303</td>
-                    <td class="coverage">468<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            sep = "_"</pre>
+                      <pre class="language-r">                            hjust = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">                            vjust = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">305</td>
-                    <td class="coverage">468<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (use_cache) {</pre>
+                      <pre class="language-r">                            default.units = "npc", # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">306</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (is.null(cache_env[[var_row_val]])) cache_env[[var_row_val]] &lt;- s_summary(u, ...)</pre>
+                      <pre class="language-r">                            name = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">307</td>
-                    <td class="coverage">56<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            x_stats &lt;- cache_env[[var_row_val]]</pre>
+                      <pre class="language-r">                            gp = grid::gpar(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">308</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          } else {</pre>
+                      <pre class="language-r">                            vp = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">309</td>
-                    <td class="coverage">412<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            x_stats &lt;- s_summary(u, ...)</pre>
+                      <pre class="language-r">  text &lt;- gsub("\\\\n", "\n", text) # fixing cases of mixed behavior (\n and \\n)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">310</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">311</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if (!grid::is.unit(x)) x &lt;- grid::unit(x, default.units)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">312</td>
-                    <td class="coverage">468<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (is.null(imp_rule) || !stat %in% c("mean", "sd", "cv", "geom_mean", "geom_cv", "median", "min", "max")) {</pre>
+                      <pre class="language-r">  if (!grid::is.unit(y)) y &lt;- grid::unit(y, default.units)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">313</td>
-                    <td class="coverage">348<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            res &lt;- x_stats[[stat]]</pre>
+                      <pre class="language-r">  if (!grid::is.unit(width)) width &lt;- grid::unit(width, default.units)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          } else {</pre>
+                      <pre class="language-r">  if (grid::unitType(x) %in% c("sum", "min", "max")) x &lt;- grid::convertUnit(x, default.units)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">315</td>
-                    <td class="coverage">120<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            timept &lt;- as.numeric(gsub(".*?([0-9\\.]+).*", "\\1", tail(.spl_context$value, 1)))</pre>
+                      <pre class="language-r">  if (grid::unitType(y) %in% c("sum", "min", "max")) y &lt;- grid::convertUnit(y, default.units)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">316</td>
-                    <td class="coverage">120<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            res_imp &lt;- imputation_rule(</pre>
+                      <pre class="language-r">  if (grid::unitType(width) %in% c("sum", "min", "max")) width &lt;- grid::convertUnit(width, default.units)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">317</td>
-                    <td class="coverage">120<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              .df_row, x_stats, stat,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">318</td>
-                    <td class="coverage">120<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              imp_rule = imp_rule,</pre>
+                      <pre class="language-r">  if (length(gp) &gt; 0) { # account for effect of gp on text width -&gt; it was bugging when text was empty</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">319</td>
-                    <td class="coverage">120<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              post = grepl("Predose", tail(.spl_context$value, 1)) || timept &gt; 0,</pre>
+                      <pre class="language-r">    horizontal_npc_width_no_gp &lt;- grid::convertWidth(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">320</td>
-                    <td class="coverage">120<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              avalcat_var = avalcat_var</pre>
+                      <pre class="language-r">      grid::grobWidth(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            )</pre>
+                      <pre class="language-r">        grid::textGrob(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">322</td>
-                    <td class="coverage">120<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            res &lt;- res_imp[["val"]]</pre>
+                      <pre class="language-r">          paste0(text, collapse = "\n")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">323</td>
-                    <td class="coverage">120<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            na_str &lt;- res_imp[["na_str"]]</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">324</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">      ), "npc",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">325</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      valueOnly = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">326</td>
-                    <td class="coverage">468<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (is.list(res)) {</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">327</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (length(res) &gt; 1) {</pre>
+                      <pre class="language-r">    horizontal_npc_width_with_gp &lt;- grid::convertWidth(grid::grobWidth(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">328</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              stop("The analyzed column produced more than one category of results.")</pre>
+                      <pre class="language-r">      grid::textGrob(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">329</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            } else {</pre>
+                      <pre class="language-r">        paste0(text, collapse = "\n"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">330</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              res &lt;- unlist(res)</pre>
+                      <pre class="language-r">        gp = gp</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">331</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">332</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">    ), "npc", valueOnly = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -129612,1186 +128592,1292 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">334</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # Label from context</pre>
+                      <pre class="language-r">    # Adapting width to the input gpar (it is normalized so does not matter what is text)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">335</td>
-                    <td class="coverage">467<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label_from_context &lt;- .spl_context$value[nrow(.spl_context)]</pre>
+                      <pre class="language-r">    width &lt;- width * horizontal_npc_width_no_gp / horizontal_npc_width_with_gp</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">336</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">337</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # Label switcher</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">338</td>
-                    <td class="coverage">467<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          if (is.null(row_labels)) {</pre>
+                      <pre class="language-r">  ## if it is a fixed unit then we do not need to recalculate when viewport resized</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">339</td>
-                    <td class="coverage">387<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            lbl &lt;- label_from_context</pre>
+                      <pre class="language-r">  if (!inherits(width, "unit.arithmetic") &amp;&amp; !is.null(attr(width, "unit")) &amp;&amp;</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">340</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          } else {</pre>
+                      <pre class="language-r">    attr(width, "unit") %in% c("cm", "inches", "mm", "points", "picas", "bigpts", "dida", "cicero", "scaledpts")) { # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">341</td>
-                    <td class="coverage">80<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            if (length(row_labels) &gt; 1) {</pre>
+                      <pre class="language-r">    attr(text, "fixed_text") &lt;- paste(vapply(text, split_string, character(1), width = width), collapse = "\n")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">342</td>
-                    <td class="coverage">68<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              if (!(label_from_context %in% names(row_labels))) {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">343</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                stop(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">344</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  "Replacing the labels in do_summarize_row_groups needs a named vector",</pre>
+                      <pre class="language-r">  # Fix for split_string in case of residual \n (otherwise is counted as character)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">345</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  "that contains the split values. In the current split variable ",</pre>
+                      <pre class="language-r">  text2 &lt;- unlist(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">346</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  .spl_context$split[nrow(.spl_context)],</pre>
+                      <pre class="language-r">    strsplit(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">347</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  " the split value ", label_from_context, " is not in",</pre>
+                      <pre class="language-r">      paste0(text, collapse = "\n"), # for "" cases</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">348</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  " row_labels names: ", names(row_labels)</pre>
+                      <pre class="language-r">      "\n"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">349</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">350</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              }</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">351</td>
-                    <td class="coverage">66<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              lbl &lt;- unlist(row_labels[label_from_context])</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">352</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            } else {</pre>
+                      <pre class="language-r">  # Final grid text with cat-friendly split_string</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">353</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">              lbl &lt;- row_labels</pre>
+                      <pre class="language-r">  grid::grid.text(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">354</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            }</pre>
+                      <pre class="language-r">    label = split_string(text2, width),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">355</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          }</pre>
+                      <pre class="language-r">    x = x, y = y,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">356</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    just = just,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">357</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          # Cell creation</pre>
+                      <pre class="language-r">    hjust = hjust,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">358</td>
-                    <td class="coverage">465<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          rcell(res,</pre>
+                      <pre class="language-r">    vjust = vjust,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">359</td>
-                    <td class="coverage">465<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            label = lbl,</pre>
+                      <pre class="language-r">    rot = 0,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">360</td>
-                    <td class="coverage">465<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            format = formats_v[names(formats_v) == stat][[1]],</pre>
+                      <pre class="language-r">    check.overlap = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">361</td>
-                    <td class="coverage">465<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            format_na_str = na_str,</pre>
+                      <pre class="language-r">    name = name,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">362</td>
-                    <td class="coverage">465<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            indent_mod = ifelse(is.null(.indent_mods), 0L, .indent_mods),</pre>
+                      <pre class="language-r">    gp = gp,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">363</td>
-                    <td class="coverage">465<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            align = .aligns</pre>
+                      <pre class="language-r">    vp = vp,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">364</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    draw = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">365</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">366</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      },</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">367</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stat = .stats,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">368</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      use_cache = cache,</pre>
+                      <pre class="language-r">#' @importFrom grid validDetails</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">369</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cache_env = replicate(length(.stats), env)</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">370</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">validDetails.dynamicSplitText &lt;- function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">371</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  checkmate::assert_character(x$text)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">372</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Main call to rtables</pre>
+                      <pre class="language-r">  checkmate::assert_true(grid::is.unit(x$width))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">373</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    analyze_colvars(lyt,</pre>
+                      <pre class="language-r">  checkmate::assert_vector(x$width, len = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">374</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      afun = afun_list,</pre>
+                      <pre class="language-r">  x</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">375</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      na_str = na_str,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">376</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nested = nested,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">377</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      extra_args = extra_args</pre>
+                      <pre class="language-r">#' @importFrom grid heightDetails</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">378</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">379</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">heightDetails.dynamicSplitText &lt;- function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">380</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  txt &lt;- if (!is.null(attr(x$text, "fixed_text"))) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">381</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    attr(x$text, "fixed_text")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">382</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># Helper function</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">383</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_last_col_split &lt;- function(lyt) {</pre>
+                      <pre class="language-r">    paste(vapply(x$text, split_string, character(1), width = x$width), collapse = "\n")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">384</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tail(tail(clayout(lyt), 1)[[1]], 1)[[1]]</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">385</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  grid::stringHeight(txt)</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/fit_survival_step.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">386</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Subgroup treatment effect pattern (STEP) fit for survival outcome</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">387</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">388</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' @importFrom grid widthDetails</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">389</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">390</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This fits the subgroup treatment effect pattern (STEP) models for a survival outcome. The treatment arm</pre>
+                      <pre class="language-r">widthDetails.dynamicSplitText &lt;- function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">391</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' variable must have exactly 2 levels, where the first one is taken as reference and the estimated</pre>
+                      <pre class="language-r">  x$width</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">392</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' hazard ratios are for the comparison of the second level vs. the first one.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">393</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">394</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The model which is fit is:</pre>
+                      <pre class="language-r">#' @importFrom grid drawDetails</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">395</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @noRd</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">396</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `Surv(time, event) ~ arm * poly(biomarker, degree) + covariates + strata(strata)`</pre>
+                      <pre class="language-r">drawDetails.dynamicSplitText &lt;- function(x, recording) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">397</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  txt &lt;- if (!is.null(attr(x$text, "fixed_text"))) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">398</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' where `degree` is specified by `control_step()`.</pre>
+                      <pre class="language-r">    attr(x$text, "fixed_text")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">399</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">400</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">    paste(vapply(x$text, split_string, character(1), width = x$width), collapse = "\n")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">401</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param variables (named `list` of `character`)\cr list of analysis variables: needs `time`, `event`,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">402</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `arm`, `biomarker`, and optional `covariates` and `strata`.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">403</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param control (named `list`)\cr combined control list from [control_step()] and [control_coxph()].</pre>
+                      <pre class="language-r">  x$width &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">404</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  x$label &lt;- txt</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">405</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A matrix of class `step`. The first part of the columns describe the subgroup intervals used</pre>
+                      <pre class="language-r">  x$text &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">406</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   for the biomarker variable, including where the center of the intervals are and their bounds. The</pre>
+                      <pre class="language-r">  class(x) &lt;- c("text", class(x)[-1])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">407</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   second part of the columns contain the estimates for the treatment arm comparison.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">408</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  grid::grid.draw(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">409</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note For the default degree 0 the `biomarker` variable is not included in the model.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">410</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"># nocov end</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">411</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [control_step()] and [control_coxph()] for the available customization options.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">412</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"># Adapted from Paul Murell R Graphics 2nd Edition</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">413</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r"># https://www.stat.auckland.ac.nz/~paul/RG2e/interactgrid-splittext.R</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">414</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Testing dataset with just two treatment arms.</pre>
+                      <pre class="language-r">split_string &lt;- function(text, width) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">415</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">  strings &lt;- strsplit(text, " ")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">416</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  out_string &lt;- NA</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">417</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  for (string_i in seq_along(strings)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">418</td>
+                    <td class="coverage">48<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    newline_str &lt;- strings[[string_i]]</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">419</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    if (length(newline_str) == 0) newline_str &lt;- ""</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">420</td>
+                    <td class="coverage">48<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    if (is.na(out_string[string_i])) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">421</td>
+                    <td class="coverage">48<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      out_string[string_i] &lt;- newline_str[[1]][[1]]</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">422</td>
+                    <td class="coverage">48<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      linewidth &lt;- grid::stringWidth(out_string[string_i])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">423</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adtte_f &lt;- tern_ex_adtte %&gt;%</pre>
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">424</td>
+                    <td class="coverage">48<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    gapwidth &lt;- grid::stringWidth(" ")</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">425</td>
+                    <td class="coverage">48<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    availwidth &lt;- as.numeric(width)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">426</td>
+                    <td class="coverage">48<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    if (length(newline_str) &gt; 1) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">427</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      for (i in seq(2, length(newline_str))) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">428</td>
+                    <td class="coverage">184<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        width_i &lt;- grid::stringWidth(newline_str[i])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">429</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(</pre>
+                      <pre class="language-r">        # Main conversion of allowed text width -&gt; npc units are 0&lt;npc&lt;1. External viewport is used for conversion</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">430</td>
+                    <td class="coverage">184<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        if (grid::convertWidth(linewidth + gapwidth + width_i, grid::unitType(width), valueOnly = TRUE) &lt; availwidth) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">431</td>
+                    <td class="coverage">177<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          sep &lt;- " "</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">432</td>
+                    <td class="coverage">177<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          linewidth &lt;- linewidth + gapwidth + width_i</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">433</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     PARAMCD == "OS",</pre>
+                      <pre class="language-r">        } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">434</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          sep &lt;- "\n"</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">435</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          linewidth &lt;- width_i</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">436</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ARM %in% c("B: Placebo", "A: Drug X")</pre>
+                      <pre class="language-r">        }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">437</td>
+                    <td class="coverage">184<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        out_string[string_i] &lt;- paste(out_string[string_i], newline_str[i], sep = sep)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">438</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">439</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mutate(</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">440</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     # Reorder levels of ARM to display reference arm before treatment arm.</pre>
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">441</td>
+                    <td class="coverage">26<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  paste(out_string, collapse = "\n")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">442</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ARM = droplevels(forcats::fct_relevel(ARM, "B: Placebo")),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">443</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     is_event = CNSR == 0</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">444</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#' Update page number</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">445</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' labels &lt;- c("ARM" = "Treatment Arm", "is_event" = "Event Flag")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">446</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' formatters::var_labels(adtte_f)[names(labels)] &lt;- labels</pre>
+                      <pre class="language-r">#' Automatically updates page number.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">447</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">448</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' variables &lt;- list(</pre>
+                      <pre class="language-r">#' @param npages (`numeric(1)`)\cr total number of pages.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">449</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   arm = "ARM",</pre>
+                      <pre class="language-r">#' @param ... arguments passed on to [decorate_grob()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">450</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   biomarker = "BMRKR1",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">451</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   covariates = c("AGE", "BMRKR2"),</pre>
+                      <pre class="language-r">#' @return Closure that increments the page number.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">452</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   event = "is_event",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">453</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   time = "AVAL"</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">454</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">decorate_grob_factory &lt;- function(npages, ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">455</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  current_page &lt;- 0</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">456</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Fit default STEP models: Here a constant treatment effect is estimated in each subgroup.</pre>
+                      <pre class="language-r">  function(grob) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">54</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">457</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' step_matrix &lt;- fit_survival_step(</pre>
+                      <pre class="language-r">    current_page &lt;&lt;- current_page + 1</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">55</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">458</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = variables,</pre>
+                      <pre class="language-r">    if (current_page &gt; npages) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">459</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adtte_f</pre>
+                      <pre class="language-r">      stop(paste("current page is", current_page, "but max.", npages, "specified."))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">460</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">461</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dim(step_matrix)</pre>
+                      <pre class="language-r">    decorate_grob(grob = grob, page = paste("Page", current_page, "of", npages), ...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">462</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' head(step_matrix)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">463</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">464</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Specify different polynomial degree for the biomarker interaction to use more flexible local</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">465</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # models. Or specify different Cox regression options.</pre>
+                      <pre class="language-r">#' Decorate set of `grob`s and add page numbering</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">466</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' step_matrix2 &lt;- fit_survival_step(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">467</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = variables,</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">468</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adtte_f,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">469</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   control = c(control_coxph(conf_level = 0.9), control_step(degree = 2))</pre>
+                      <pre class="language-r">#' Note that this uses the [decorate_grob_factory()] function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">470</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">471</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param grobs (`list` of `grob`)\cr a list of grid grobs.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">472</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Use a global model with cubic interaction and only 5 points.</pre>
+                      <pre class="language-r">#' @param ... arguments passed on to [decorate_grob()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">473</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' step_matrix3 &lt;- fit_survival_step(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">474</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = variables,</pre>
+                      <pre class="language-r">#' @return A decorated grob.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">475</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adtte_f,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">476</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   control = c(control_coxph(), control_step(bandwidth = NULL, degree = 3, num_points = 5L))</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">477</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' library(ggplot2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">478</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' library(grid)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">479</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' g &lt;- with(data = iris, {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">480</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">fit_survival_step &lt;- function(variables,</pre>
+                      <pre class="language-r">#'   list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">481</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              data,</pre>
+                      <pre class="language-r">#'     ggplot2::ggplotGrob(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">482</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              control = c(control_step(), control_coxph())) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(control)</pre>
+                      <pre class="language-r">#'       ggplot2::ggplot(mapping = aes(Sepal.Length, Sepal.Width, col = Species)) +</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">483</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(data, variables)</pre>
+                      <pre class="language-r">#'         ggplot2::geom_point()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">82</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">484</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data &lt;- data[!is.na(data[[variables$biomarker]]), ]</pre>
+                      <pre class="language-r">#'     ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">83</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">485</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  window_sel &lt;- h_step_window(x = data[[variables$biomarker]], control = control)</pre>
+                      <pre class="language-r">#'     ggplot2::ggplotGrob(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">486</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  interval_center &lt;- window_sel$interval[, "Interval Center"]</pre>
+                      <pre class="language-r">#'       ggplot2::ggplot(mapping = aes(Sepal.Length, Petal.Length, col = Species)) +</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">85</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">487</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  form &lt;- h_step_survival_formula(variables = variables, control = control)</pre>
+                      <pre class="language-r">#'         ggplot2::geom_point()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">488</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  estimates &lt;- if (is.null(control$bandwidth)) {</pre>
+                      <pre class="language-r">#'     ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">489</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    h_step_survival_est(</pre>
+                      <pre class="language-r">#'     ggplot2::ggplotGrob(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">88</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">490</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      formula = form,</pre>
+                      <pre class="language-r">#'       ggplot2::ggplot(mapping = aes(Sepal.Length, Petal.Width, col = Species)) +</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">89</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">491</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data = data,</pre>
+                      <pre class="language-r">#'         ggplot2::geom_point()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">492</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      variables = variables,</pre>
+                      <pre class="language-r">#'     ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">91</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">493</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = interval_center,</pre>
+                      <pre class="language-r">#'     ggplot2::ggplotGrob(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">494</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      control = control</pre>
+                      <pre class="language-r">#'       ggplot2::ggplot(mapping = aes(Sepal.Width, Petal.Length, col = Species)) +</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">495</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'         ggplot2::geom_point()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">496</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#'     ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">497</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tmp &lt;- mapply(</pre>
+                      <pre class="language-r">#'     ggplot2::ggplotGrob(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">96</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">498</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      FUN = h_step_survival_est,</pre>
+                      <pre class="language-r">#'       ggplot2::ggplot(mapping = aes(Sepal.Width, Petal.Width, col = Species)) +</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">97</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">499</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = interval_center,</pre>
+                      <pre class="language-r">#'         ggplot2::geom_point()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">98</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">500</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      subset = as.list(as.data.frame(window_sel$sel)),</pre>
+                      <pre class="language-r">#'     ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">99</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">501</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      MoreArgs = list(</pre>
+                      <pre class="language-r">#'     ggplot2::ggplotGrob(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">100</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">502</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        formula = form,</pre>
+                      <pre class="language-r">#'       ggplot2::ggplot(mapping = aes(Petal.Length, Petal.Width, col = Species)) +</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">503</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data = data,</pre>
+                      <pre class="language-r">#'         ggplot2::geom_point()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">504</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        variables = variables,</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">505</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        control = control</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">506</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">507</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' lg &lt;- decorate_grob_set(grobs = g, titles = "Hello\nOne\nTwo\nThree", footnotes = "")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">508</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Maybe we find a more elegant solution than this.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">509</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rownames(tmp) &lt;- c("n", "events", "loghr", "se", "ci_lower", "ci_upper")</pre>
+                      <pre class="language-r">#' draw_grob(lg[[1]])</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">510</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    t(tmp)</pre>
+                      <pre class="language-r">#' draw_grob(lg[[2]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">511</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' draw_grob(lg[[6]])</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">512</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result &lt;- cbind(window_sel$interval, estimates)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">513</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  structure(</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">514</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result,</pre>
+                      <pre class="language-r">decorate_grob_set &lt;- function(grobs, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">515</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    class = c("step", "matrix"),</pre>
+                      <pre class="language-r">  n &lt;- length(grobs)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">114</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">516</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    variables = variables,</pre>
+                      <pre class="language-r">  lgf &lt;- decorate_grob_factory(npages = n, ...)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    control = control</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">116</td>
-                    <td class="coverage"></td>
+                    <td class="num">517</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  lapply(grobs, lgf)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">518</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -130800,14 +129886,14 @@ <h2>tern coverage - 95.64%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/h_map_for_count_abnormal.R" class="hidden">
+            <div id="R/survival_timepoint.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function to create a map data frame for `trim_levels_to_map()`</pre>
+                      <pre class="language-r">#' Survival time point analysis</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -130835,532 +129921,532 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function to create a map data frame from the input dataset, which can be used as an argument in the</pre>
+                      <pre class="language-r">#' The analyze function [surv_timepoint()] creates a layout element to analyze patient survival rates and difference</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `trim_levels_to_map` split function. Based on different method, the map is constructed differently.</pre>
+                      <pre class="language-r">#' of survival rates between groups at a given time point. The primary analysis variable `vars` is the time variable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Other required inputs are `time_point`, the numeric time point of interest, and `is_event`, a variable that</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' indicates whether or not an event has occurred. The `method` argument is used to specify whether you want to analyze</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param abnormal (named `list`)\cr identifying the abnormal range level(s) in `df`. Based on the levels of</pre>
+                      <pre class="language-r">#' survival estimations (`"surv"`), difference in survival with the control (`"surv_diff"`), or both of these</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   abnormality of the input dataset, it can be something like `list(Low = "LOW LOW", High = "HIGH HIGH")` or</pre>
+                      <pre class="language-r">#' (`"both"`).</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `abnormal = list(Low = "LOW", High = "HIGH"))`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param method (`string`)\cr indicates how the returned map will be constructed. Can be `"default"` or `"range"`.</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @inheritParams s_surv_time</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A map `data.frame`.</pre>
+                      <pre class="language-r">#' @param time_point (`numeric(1)`)\cr survival time point of interest.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param control (`list`)\cr parameters for comparison details, specified by using the helper function</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note If method is `"default"`, the returned map will only have the abnormal directions that are observed in the</pre>
+                      <pre class="language-r">#'   [control_surv_timepoint()]. Some possible parameter options are:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `df`, and records with all normal values will be excluded to avoid error in creating layout. If method is</pre>
+                      <pre class="language-r">#'   * `conf_level` (`proportion`)\cr confidence level of the interval for survival rate.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `"range"`, the returned map will be based on the rule that at least one observation with low range &gt; 0</pre>
+                      <pre class="language-r">#'   * `conf_type` (`string`)\cr confidence interval type. Options are "plain" (default), "log", "log-log",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   for low direction and at least one observation with high range is not missing for high direction.</pre>
+                      <pre class="language-r">#'     see more in [survival::survfit()]. Note option "none" is no longer supported.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param method (`string`)\cr `"surv"` (survival estimations), `"surv_diff"` (difference in survival with the</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   control), or `"both"`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adlb &lt;- df_explicit_na(tern_ex_adlb)</pre>
+                      <pre class="language-r">#' @param table_names_suffix (`string`)\cr optional suffix for the `table_names` used for the `rtables` to</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   avoid warnings from duplicate table names.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_map_for_count_abnormal(</pre>
+                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("surv_timepoint")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   df = adlb,</pre>
+                      <pre class="language-r">#'   to see available statistics for this function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(anl = "ANRIND", split_rows = c("LBCAT", "PARAM")),</pre>
+                      <pre class="language-r">#' @param .indent_mods (named `integer`)\cr indent modifiers for the labels. Each element of the vector</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   abnormal = list(low = c("LOW"), high = c("HIGH")),</pre>
+                      <pre class="language-r">#'   should be a name-value pair with name corresponding to a statistic specified in `.stats` and value the indentation</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   method = "default",</pre>
+                      <pre class="language-r">#'   for that statistic's row label.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   na_str = "&lt;Missing&gt;"</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' @name survival_timepoint</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @order 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- data.frame(</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   USUBJID = c(rep("1", 4), rep("2", 4), rep("3", 4)),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   AVISIT = c(</pre>
+                      <pre class="language-r">#' @describeIn survival_timepoint Statistics function which analyzes survival rate.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     rep("WEEK 1", 2),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     rep("WEEK 2", 2),</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     rep("WEEK 1", 2),</pre>
+                      <pre class="language-r">#' * `s_surv_timepoint()` returns the statistics:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     rep("WEEK 2", 2),</pre>
+                      <pre class="language-r">#'   * `pt_at_risk`: Patients remaining at risk.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     rep("WEEK 1", 2),</pre>
+                      <pre class="language-r">#'   * `event_free_rate`: Event-free rate (%).</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     rep("WEEK 2", 2)</pre>
+                      <pre class="language-r">#'   * `rate_se`: Standard error of event free rate.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#'   * `rate_ci`: Confidence interval for event free rate.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   PARAM = rep(c("ALT", "CPR"), 6),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ANRIND = c(</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "NORMAL", "NORMAL", "LOW",</pre>
+                      <pre class="language-r">s_surv_timepoint &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "HIGH", "LOW", "LOW", "HIGH", "HIGH", rep("NORMAL", 4)</pre>
+                      <pre class="language-r">                             .var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">                             time_point,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ANRLO = rep(5, 12),</pre>
+                      <pre class="language-r">                             is_event,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ANRHI = rep(20, 12)</pre>
+                      <pre class="language-r">                             control = control_surv_timepoint()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">49</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  checkmate::assert_string(.var)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">50</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df$ANRIND &lt;- factor(df$ANRIND, levels = c("LOW", "HIGH", "NORMAL"))</pre>
+                      <pre class="language-r">  assert_df_with_variables(df, list(tte = .var, is_event = is_event))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">51</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_map_for_count_abnormal(</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(df[[.var]], min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">52</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   df = df,</pre>
+                      <pre class="language-r">  checkmate::assert_number(time_point)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">53</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">  checkmate::assert_logical(df[[is_event]], min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     anl = "ANRIND",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">55</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     split_rows = c("PARAM"),</pre>
+                      <pre class="language-r">  conf_type &lt;- control$conf_type</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">56</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     range_low = "ANRLO",</pre>
+                      <pre class="language-r">  conf_level &lt;- control$conf_level</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     range_high = "ANRHI"</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">58</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">  formula &lt;- stats::as.formula(paste0("survival::Surv(", .var, ", ", is_event, ") ~ 1"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">59</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   abnormal = list(low = c("LOW"), high = c("HIGH")),</pre>
+                      <pre class="language-r">  srv_fit &lt;- survival::survfit(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">60</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   method = "range",</pre>
+                      <pre class="language-r">    formula = formula,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">61</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   na_str = "&lt;Missing&gt;"</pre>
+                      <pre class="language-r">    data = df,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">62</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    conf.int = conf_level,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">63</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    conf.type = conf_type</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">65</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_map_for_count_abnormal &lt;- function(df,</pre>
+                      <pre class="language-r">  s_srv_fit &lt;- summary(srv_fit, times = time_point, extend = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">66</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     variables = list(</pre>
+                      <pre class="language-r">  df_srv_fit &lt;- as.data.frame(s_srv_fit[c("time", "n.risk", "surv", "lower", "upper", "std.err")])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">67</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       anl = "ANRIND",</pre>
+                      <pre class="language-r">  if (df_srv_fit[["n.risk"]] == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">68</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       split_rows = c("PARAM"),</pre>
+                      <pre class="language-r">    pt_at_risk &lt;- event_free_rate &lt;- rate_se &lt;- NA_real_</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">69</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       range_low = "ANRLO",</pre>
+                      <pre class="language-r">    rate_ci &lt;- c(NA_real_, NA_real_)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       range_high = "ANRHI"</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">71</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     ),</pre>
+                      <pre class="language-r">    pt_at_risk &lt;- df_srv_fit$n.risk</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">72</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     abnormal = list(low = c("LOW", "LOW LOW"), high = c("HIGH", "HIGH HIGH")),</pre>
+                      <pre class="language-r">    event_free_rate &lt;- df_srv_fit$surv</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">73</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     method = c("default", "range"),</pre>
+                      <pre class="language-r">    rate_se &lt;- df_srv_fit$std.err</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">74</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     na_str = "&lt;Missing&gt;") {</pre>
+                      <pre class="language-r">    rate_ci &lt;- c(df_srv_fit$lower, df_srv_fit$upper)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">75</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  method &lt;- match.arg(method)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">76</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(c("anl", "split_rows"), names(variables))</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">77</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_false(anyNA(df[variables$split_rows]))</pre>
+                      <pre class="language-r">    pt_at_risk = formatters::with_label(pt_at_risk, "Patients remaining at risk"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">78</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(df,</pre>
+                      <pre class="language-r">    event_free_rate = formatters::with_label(event_free_rate * 100, "Event Free Rate (%)"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">79</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    variables = list(anl = variables$anl, split_rows = variables$split_rows),</pre>
+                      <pre class="language-r">    rate_se = formatters::with_label(rate_se * 100, "Standard Error of Event Free Rate"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">80</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_level = na_str</pre>
+                      <pre class="language-r">    rate_ci = formatters::with_label(rate_ci * 100, f_conf_level(conf_level))</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -131370,389 +130456,389 @@ <h2>tern coverage - 95.64%</h2>
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">82</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_factors(df, list(val = variables$anl))</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">83</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_valid_factor(df[[variables$anl]], any.missing = FALSE)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">84</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_list_of_variables(variables)</pre>
+                      <pre class="language-r">#' @describeIn survival_timepoint Formatted analysis function which is used as `afun` in `surv_timepoint()`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">85</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(abnormal, types = "character", len = 2)</pre>
+                      <pre class="language-r">#'   when `method = "surv"`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Drop usued levels from df as they are not supposed to be in the final map</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">88</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df &lt;- droplevels(df)</pre>
+                      <pre class="language-r">#' * `a_surv_timepoint()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">90</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  normal_value &lt;- setdiff(levels(df[[variables$anl]]), unlist(abnormal))</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">a_surv_timepoint &lt;- make_afun(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Based on the understanding of clinical data, there should only be one level of normal which is "NORMAL"</pre>
+                      <pre class="language-r">  s_surv_timepoint,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">93</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_vector(normal_value, len = 1)</pre>
+                      <pre class="language-r">  .indent_mods = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    pt_at_risk = 0L,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Default method will only have what is observed in the df, and records with all normal values will be excluded to</pre>
+                      <pre class="language-r">    event_free_rate = 0L,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # avoid error in layout building.</pre>
+                      <pre class="language-r">    rate_se = 1L,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">97</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (method == "default") {</pre>
+                      <pre class="language-r">    rate_ci = 1L</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">98</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_abnormal &lt;- subset(df, df[[variables$anl]] %in% unlist(abnormal))</pre>
+                      <pre class="language-r">  ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">99</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    map &lt;- unique(df_abnormal[c(variables$split_rows, variables$anl)])</pre>
+                      <pre class="language-r">  .formats = c(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">100</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    map_normal &lt;- unique(subset(map, select = variables$split_rows))</pre>
+                      <pre class="language-r">    pt_at_risk = "xx",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">101</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    map_normal[[variables$anl]] &lt;- normal_value</pre>
+                      <pre class="language-r">    event_free_rate = "xx.xx",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">102</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    map &lt;- rbind(map, map_normal)</pre>
+                      <pre class="language-r">    rate_se = "xx.xx",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">103</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (method == "range") {</pre>
+                      <pre class="language-r">    rate_ci = "(xx.xx, xx.xx)"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # range method follows the rule that at least one observation with ANRLO &gt; 0 for low</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # direction and at least one observation with ANRHI is not missing for high direction.</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">106</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_subset(c("range_low", "range_high"), names(variables))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">107</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_subset(c("LOW", "HIGH"), toupper(names(abnormal)))</pre>
+                      <pre class="language-r">#' @describeIn survival_timepoint Statistics function which analyzes difference between two survival rates.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">109</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    assert_df_with_variables(df,</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">110</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      variables = list(</pre>
+                      <pre class="language-r">#' * `s_surv_timepoint_diff()` returns the statistics:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">111</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        range_low = variables$range_low,</pre>
+                      <pre class="language-r">#'   * `rate_diff`: Event-free rate difference between two groups.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">112</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        range_high = variables$range_high</pre>
+                      <pre class="language-r">#'   * `rate_diff_ci`: Confidence interval for the difference.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'   * `ztest_pval`: p-value to test the difference is 0.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Define low direction of map</pre>
+                      <pre class="language-r">s_surv_timepoint_diff &lt;- function(df,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">117</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_low &lt;- subset(df, df[[variables$range_low]] &gt; 0)</pre>
+                      <pre class="language-r">                                  .var,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">118</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    map_low &lt;- unique(df_low[variables$split_rows])</pre>
+                      <pre class="language-r">                                  .ref_group,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">119</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    low_levels &lt;- unname(unlist(abnormal[toupper(names(abnormal)) == "LOW"]))</pre>
+                      <pre class="language-r">                                  .in_ref_col,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">120</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    low_levels_df &lt;- as.data.frame(low_levels)</pre>
+                      <pre class="language-r">                                  time_point,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">121</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    colnames(low_levels_df) &lt;- variables$anl</pre>
+                      <pre class="language-r">                                  control = control_surv_timepoint(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">122</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    low_levels_df &lt;- do.call("rbind", replicate(nrow(map_low), low_levels_df, simplify = FALSE))</pre>
+                      <pre class="language-r">                                  ...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">123</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rownames(map_low) &lt;- NULL # Just to avoid strange row index in case upstream functions changed</pre>
+                      <pre class="language-r">  if (.in_ref_col) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">124</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    map_low &lt;- map_low[rep(seq_len(nrow(map_low)), each = length(low_levels)), , drop = FALSE]</pre>
+                      <pre class="language-r">    return(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">125</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    map_low &lt;- cbind(map_low, low_levels_df)</pre>
+                      <pre class="language-r">      list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">126</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        rate_diff = formatters::with_label("", "Difference in Event Free Rate"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">127</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Define high direction of map</pre>
+                      <pre class="language-r">        rate_diff_ci = formatters::with_label("", f_conf_level(control$conf_level)),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">128</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df_high &lt;- subset(df, df[[variables$range_high]] != na_str | !is.na(df[[variables$range_high]]))</pre>
+                      <pre class="language-r">        ztest_pval = formatters::with_label("", "p-value (Z-test)")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">129</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    map_high &lt;- unique(df_high[variables$split_rows])</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">130</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    high_levels &lt;- unname(unlist(abnormal[toupper(names(abnormal)) == "HIGH"]))</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">131</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    high_levels_df &lt;- as.data.frame(high_levels)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">132</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    colnames(high_levels_df) &lt;- variables$anl</pre>
+                      <pre class="language-r">  data &lt;- rbind(.ref_group, df)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">133</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    high_levels_df &lt;- do.call("rbind", replicate(nrow(map_high), high_levels_df, simplify = FALSE))</pre>
+                      <pre class="language-r">  group &lt;- factor(rep(c("ref", "x"), c(nrow(.ref_group), nrow(df))), levels = c("ref", "x"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">134</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rownames(map_high) &lt;- NULL</pre>
+                      <pre class="language-r">  res_per_group &lt;- lapply(split(data, group), function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">135</td>
                     <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    map_high &lt;- map_high[rep(seq_len(nrow(map_high)), each = length(high_levels)), , drop = FALSE]</pre>
+                      <pre class="language-r">    s_surv_timepoint(df = x, .var = .var, time_point = time_point, control = control, ...)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">136</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    map_high &lt;- cbind(map_high, high_levels_df)</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -131762,7634 +130848,7698 @@ <h2>tern coverage - 95.64%</h2>
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">138</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Define normal of map</pre>
+                      <pre class="language-r">  res_x &lt;- res_per_group[[2]]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">139</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    map_normal &lt;- unique(rbind(map_low, map_high)[variables$split_rows])</pre>
+                      <pre class="language-r">  res_ref &lt;- res_per_group[[1]]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">140</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    map_normal[variables$anl] &lt;- normal_value</pre>
+                      <pre class="language-r">  rate_diff &lt;- res_x$event_free_rate - res_ref$event_free_rate</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">141</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  se_diff &lt;- sqrt(res_x$rate_se^2 + res_ref$rate_se^2)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">142</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    map &lt;- rbind(map_low, map_high, map_normal)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">143</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  qs &lt;- c(-1, 1) * stats::qnorm(1 - (1 - control$conf_level) / 2)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">144</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  rate_diff_ci &lt;- rate_diff + qs * se_diff</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">145</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # map should be all characters</pre>
+                      <pre class="language-r">  ztest_pval &lt;- if (is.na(rate_diff)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">146</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  map &lt;- data.frame(lapply(map, as.character), stringsAsFactors = FALSE)</pre>
+                      <pre class="language-r">    NA</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">148</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # sort the map final output by split_rows variables</pre>
+                      <pre class="language-r">    2 * (1 - stats::pnorm(abs(rate_diff) / se_diff))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">149</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  for (i in rev(seq_len(length(variables$split_rows)))) {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">150</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    map &lt;- map[order(map[[i]]), ]</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">151</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    rate_diff = formatters::with_label(rate_diff, "Difference in Event Free Rate"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">152</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  map</pre>
+                      <pre class="language-r">    rate_diff_ci = formatters::with_label(rate_diff_ci, f_conf_level(control$conf_level)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">153</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    ztest_pval = formatters::with_label(ztest_pval, "p-value (Z-test)")</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/fit_rsp_step.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Subgroup treatment effect pattern (STEP) fit for binary (response) outcome</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @describeIn survival_timepoint Formatted analysis function which is used as `afun` in `surv_timepoint()`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This fits the Subgroup Treatment Effect Pattern logistic regression models for a binary</pre>
+                      <pre class="language-r">#'   when `method = "surv_diff"`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' (response) outcome. The treatment arm variable must have exactly 2 levels,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' where the first one is taken as reference and the estimated odds ratios are</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' for the comparison of the second level vs. the first one.</pre>
+                      <pre class="language-r">#' * `a_surv_timepoint_diff()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The (conditional) logistic regression model which is fit is:</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">a_surv_timepoint_diff &lt;- make_afun(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `response ~ arm * poly(biomarker, degree) + covariates + strata(strata)`</pre>
+                      <pre class="language-r">  s_surv_timepoint_diff,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  .formats = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' where `degree` is specified by `control_step()`.</pre>
+                      <pre class="language-r">    rate_diff = "xx.xx",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    rate_diff_ci = "(xx.xx, xx.xx)",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">    ztest_pval = "x.xxxx | (&lt;0.0001)"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param variables (named `list` of `character`)\cr list of analysis variables:</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   needs `response`, `arm`, `biomarker`, and optional `covariates` and `strata`.</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param control (named `list`)\cr combined control list from [control_step()]</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and [control_logistic()].</pre>
+                      <pre class="language-r">#' @describeIn survival_timepoint Layout-creating function which can take statistics function arguments</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A matrix of class `step`. The first part of the columns describe the</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   subgroup intervals used for the biomarker variable, including where the</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   center of the intervals are and their bounds. The second part of the</pre>
+                      <pre class="language-r">#' * `surv_timepoint()` returns a layout object suitable for passing to further layouting functions,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   columns contain the estimates for the treatment arm comparison.</pre>
+                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   the statistics from `s_surv_timepoint()` and/or `s_surv_timepoint_diff()` to the table layout depending on</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note For the default degree 0 the `biomarker` variable is not included in the model.</pre>
+                      <pre class="language-r">#'   the value of `method`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [control_step()] and [control_logistic()] for the available</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   customization options.</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Testing dataset with just two treatment arms.</pre>
+                      <pre class="language-r">#' adtte_f &lt;- tern_ex_adtte %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(survival)</pre>
+                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">#'   mutate(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     AVAL = day2month(AVAL),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adrs_f &lt;- tern_ex_adrs %&gt;%</pre>
+                      <pre class="language-r">#'     is_event = CNSR == 0</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     PARAMCD == "BESRSPI",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ARM %in% c("B: Placebo", "A: Drug X")</pre>
+                      <pre class="language-r">#' # Survival at given time points.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mutate(</pre>
+                      <pre class="language-r">#'   split_cols_by(var = "ARMCD", ref_group = "ARM A") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     # Reorder levels of ARM to have Placebo as reference arm for Odds Ratio calculations.</pre>
+                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ARM = droplevels(forcats::fct_relevel(ARM, "B: Placebo")),</pre>
+                      <pre class="language-r">#'   surv_timepoint(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     RSP = case_when(AVALC %in% c("PR", "CR") ~ 1, TRUE ~ 0),</pre>
+                      <pre class="language-r">#'     vars = "AVAL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     SEX = factor(SEX)</pre>
+                      <pre class="language-r">#'     var_labels = "Months",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#'     is_event = "is_event",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     time_point = 7</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' variables &lt;- list(</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   arm = "ARM",</pre>
+                      <pre class="language-r">#'   build_table(df = adtte_f)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   biomarker = "BMRKR1",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   covariates = "AGE",</pre>
+                      <pre class="language-r">#' # Difference in survival at given time points.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">205</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   response = "RSP"</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   split_cols_by(var = "ARMCD", ref_group = "ARM A") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Fit default STEP models: Here a constant treatment effect is estimated in each subgroup.</pre>
+                      <pre class="language-r">#'   surv_timepoint(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # We use a large enough bandwidth to avoid too small subgroups and linear separation in those.</pre>
+                      <pre class="language-r">#'     vars = "AVAL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' step_matrix &lt;- fit_rsp_step(</pre>
+                      <pre class="language-r">#'     var_labels = "Months",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = variables,</pre>
+                      <pre class="language-r">#'     is_event = "is_event",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adrs_f,</pre>
+                      <pre class="language-r">#'     time_point = 9,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   control = c(control_logistic(), control_step(bandwidth = 0.9))</pre>
+                      <pre class="language-r">#'     method = "surv_diff",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'     .indent_mods = c("rate_diff" = 0L, "rate_diff_ci" = 2L, "ztest_pval" = 2L)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dim(step_matrix)</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' head(step_matrix)</pre>
+                      <pre class="language-r">#'   build_table(df = adtte_f)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Specify different polynomial degree for the biomarker interaction to use more flexible local</pre>
+                      <pre class="language-r">#' # Survival and difference in survival at given time points.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # models. Or specify different logistic regression options, including confidence level.</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' step_matrix2 &lt;- fit_rsp_step(</pre>
+                      <pre class="language-r">#'   split_cols_by(var = "ARMCD", ref_group = "ARM A") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = variables,</pre>
+                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adrs_f,</pre>
+                      <pre class="language-r">#'   surv_timepoint(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   control = c(control_logistic(conf_level = 0.9), control_step(bandwidth = NULL, degree = 1))</pre>
+                      <pre class="language-r">#'     vars = "AVAL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'     var_labels = "Months",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     is_event = "is_event",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Use a global constant model. This is helpful as a reference for the subgroup models.</pre>
+                      <pre class="language-r">#'     time_point = 9,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' step_matrix3 &lt;- fit_rsp_step(</pre>
+                      <pre class="language-r">#'     method = "both"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = variables,</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adrs_f,</pre>
+                      <pre class="language-r">#'   build_table(df = adtte_f)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   control = c(control_logistic(), control_step(bandwidth = NULL, num_points = 2L))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @order 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # It is also possible to use strata, i.e. use conditional logistic regression models.</pre>
+                      <pre class="language-r">surv_timepoint &lt;- function(lyt,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' variables2 &lt;- list(</pre>
+                      <pre class="language-r">                           vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   arm = "ARM",</pre>
+                      <pre class="language-r">                           time_point,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   biomarker = "BMRKR1",</pre>
+                      <pre class="language-r">                           is_event,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   covariates = "AGE",</pre>
+                      <pre class="language-r">                           control = control_surv_timepoint(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">238</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   response = "RSP",</pre>
+                      <pre class="language-r">                           method = c("surv", "surv_diff", "both"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   strata = c("STRATA1", "STRATA2")</pre>
+                      <pre class="language-r">                           na_str = default_na_str(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">                           nested = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                           ...,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' step_matrix4 &lt;- fit_rsp_step(</pre>
+                      <pre class="language-r">                           table_names_suffix = "",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = variables2,</pre>
+                      <pre class="language-r">                           var_labels = "Time",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adrs_f,</pre>
+                      <pre class="language-r">                           show_labels = "visible",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   control = c(control_logistic(), control_step(bandwidth = NULL))</pre>
+                      <pre class="language-r">                           .stats = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">                             "pt_at_risk", "event_free_rate", "rate_ci",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                             "rate_diff", "rate_diff_ci", "ztest_pval"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                           ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">fit_rsp_step &lt;- function(variables,</pre>
+                      <pre class="language-r">                           .formats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         data,</pre>
+                      <pre class="language-r">                           .labels = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         control = c(control_step(), control_logistic())) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">100</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(data, variables)</pre>
+                      <pre class="language-r">                           .indent_mods = if (method == "both") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">252</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(control, names = "named")</pre>
+                      <pre class="language-r">                             c(rate_diff = 1L, rate_diff_ci = 2L, ztest_pval = 2L)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">253</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data &lt;- data[!is.na(data[[variables$biomarker]]), ]</pre>
+                      <pre class="language-r">                           } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">254</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  window_sel &lt;- h_step_window(x = data[[variables$biomarker]], control = control)</pre>
+                      <pre class="language-r">                             c(rate_diff_ci = 1L, ztest_pval = 1L)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">104</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">255</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  interval_center &lt;- window_sel$interval[, "Interval Center"]</pre>
+                      <pre class="language-r">                           }) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">256</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  form &lt;- h_step_rsp_formula(variables = variables, control = control)</pre>
+                      <pre class="language-r">  method &lt;- match.arg(method)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">257</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  estimates &lt;- if (is.null(control$bandwidth)) {</pre>
+                      <pre class="language-r">  checkmate::assert_string(table_names_suffix)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">258</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    h_step_rsp_est(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">259</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      formula = form,</pre>
+                      <pre class="language-r">  extra_args &lt;- list(time_point = time_point, is_event = is_event, control = control, ...)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">260</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data = data,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">261</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      variables = variables,</pre>
+                      <pre class="language-r">  f &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">262</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = interval_center,</pre>
+                      <pre class="language-r">    surv = c("pt_at_risk", "event_free_rate", "rate_se", "rate_ci"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      control = control</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">113</td>
-                    <td class="coverage"></td>
+                    <td class="num">263</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    surv_diff = c("rate_diff", "rate_diff_ci", "ztest_pval")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">265</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tmp &lt;- mapply(</pre>
+                      <pre class="language-r">  .stats &lt;- h_split_param(.stats, .stats, f = f)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">266</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      FUN = h_step_rsp_est,</pre>
+                      <pre class="language-r">  .formats &lt;- h_split_param(.formats, names(.formats), f = f)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">267</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = interval_center,</pre>
+                      <pre class="language-r">  .labels &lt;- h_split_param(.labels, names(.labels), f = f)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">118</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">268</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      subset = as.list(as.data.frame(window_sel$sel)),</pre>
+                      <pre class="language-r">  .indent_mods &lt;- h_split_param(.indent_mods, names(.indent_mods), f = f)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">269</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      MoreArgs = list(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">120</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">270</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        formula = form,</pre>
+                      <pre class="language-r">  afun_surv &lt;- make_afun(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">121</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">271</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data = data,</pre>
+                      <pre class="language-r">    a_surv_timepoint,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">122</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">272</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        variables = variables,</pre>
+                      <pre class="language-r">    .stats = .stats$surv,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">273</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        control = control</pre>
+                      <pre class="language-r">    .formats = .formats$surv,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">124</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">274</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    .labels = .labels$surv,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">125</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">275</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    .indent_mods = .indent_mods$surv</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">276</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Maybe we find a more elegant solution than this.</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    rownames(tmp) &lt;- c("n", "logor", "se", "ci_lower", "ci_upper")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    t(tmp)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">277</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">278</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result &lt;- cbind(window_sel$interval, estimates)</pre>
+                      <pre class="language-r">  afun_surv_diff &lt;- make_afun(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">279</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  structure(</pre>
+                      <pre class="language-r">    a_surv_timepoint_diff,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">280</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result,</pre>
+                      <pre class="language-r">    .stats = .stats$surv_diff,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">281</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    class = c("step", "matrix"),</pre>
+                      <pre class="language-r">    .formats = .formats$surv_diff,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">282</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    variables = variables,</pre>
+                      <pre class="language-r">    .labels = .labels$surv_diff,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">135</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">283</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    control = control</pre>
+                      <pre class="language-r">    .indent_mods = .indent_mods$surv_diff</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
-                    </td>
-                  </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/h_survival_biomarkers_subgroups.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' Helper functions for tabulating biomarker effects on survival by subgroup</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' Helper functions which are documented here separately to not confuse the user</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' when reading about the user-facing functions.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">8</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams survival_biomarkers_subgroups</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams fit_coxreg_multivar</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' library(forcats)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' adtte &lt;- tern_ex_adtte</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' # Save variable labels before data processing steps.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' adtte_labels &lt;- formatters::var_labels(adtte, fill = FALSE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' adtte_f &lt;- adtte %&gt;%</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   mutate(</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'     AVALU = as.character(AVALU),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'     is_event = CNSR == 0</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' labels &lt;- c("AVALU" = adtte_labels[["AVALU"]], "is_event" = "Event Flag")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' formatters::var_labels(adtte_f)[names(labels)] &lt;- labels</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @name h_survival_biomarkers_subgroups</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_survival_biomarkers_subgroups Helps with converting the "survival" function variable list</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   to the "Cox regression" variable list. The reason is that currently there is an inconsistency between the variable</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   names accepted by `extract_survival_subgroups()` and `fit_coxreg_multivar()`.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">286</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param biomarker (`string`)\cr the name of the biomarker variable.</pre>
+                      <pre class="language-r">  time_point &lt;- extra_args$time_point</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">288</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">  for (i in seq_along(time_point)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">289</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_surv_to_coxreg_variables()` returns a named `list` of elements `time`, `event`, `arm`,</pre>
+                      <pre class="language-r">    extra_args[["time_point"]] &lt;- time_point[i]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `covariates`, and `strata`.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">291</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    if (method %in% c("surv", "both")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">292</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">      lyt &lt;- analyze(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">293</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # This is how the variable list is converted internally.</pre>
+                      <pre class="language-r">        lyt,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">294</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_surv_to_coxreg_variables(</pre>
+                      <pre class="language-r">        vars,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">295</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">        var_labels = paste(time_point[i], var_labels),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">296</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tte = "AVAL",</pre>
+                      <pre class="language-r">        table_names = paste0("surv_", time_point[i], table_names_suffix),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">48</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">297</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     is_event = "EVNT",</pre>
+                      <pre class="language-r">        show_labels = show_labels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">298</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     covariates = c("A", "B"),</pre>
+                      <pre class="language-r">        afun = afun_surv,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">299</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     strata = "D"</pre>
+                      <pre class="language-r">        na_str = na_str,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">300</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">        nested = nested,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">301</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   biomarker = "AGE"</pre>
+                      <pre class="language-r">        extra_args = extra_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">302</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">305</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_surv_to_coxreg_variables &lt;- function(variables, biomarker) {</pre>
+                      <pre class="language-r">    if (method %in% c("surv_diff", "both")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">65<em>x</em></td>
+                    <td class="num">306</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(variables)</pre>
+                      <pre class="language-r">      lyt &lt;- analyze(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">65<em>x</em></td>
+                    <td class="num">307</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(variables$tte)</pre>
+                      <pre class="language-r">        lyt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">65<em>x</em></td>
+                    <td class="num">308</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(variables$is_event)</pre>
+                      <pre class="language-r">        vars,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">65<em>x</em></td>
+                    <td class="num">309</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(biomarker)</pre>
+                      <pre class="language-r">        var_labels = paste(time_point[i], var_labels),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">65<em>x</em></td>
+                    <td class="num">310</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">        table_names = paste0("surv_diff_", time_point[i], table_names_suffix),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">65<em>x</em></td>
+                    <td class="num">311</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    time = variables$tte,</pre>
+                      <pre class="language-r">        show_labels = ifelse(method == "both", "hidden", show_labels),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">65<em>x</em></td>
+                    <td class="num">312</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    event = variables$is_event,</pre>
+                      <pre class="language-r">        afun = afun_surv_diff,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">64</td>
-                    <td class="coverage">65<em>x</em></td>
+                    <td class="num">313</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    arm = biomarker,</pre>
+                      <pre class="language-r">        na_str = na_str,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">65<em>x</em></td>
+                    <td class="num">314</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    covariates = variables$covariates,</pre>
+                      <pre class="language-r">        nested = nested,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">65<em>x</em></td>
+                    <td class="num">315</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    strata = variables$strata</pre>
+                      <pre class="language-r">        extra_args = extra_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">316</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">317</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">318</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">70</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">319</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_survival_biomarkers_subgroups Prepares estimates for number of events, patients and median survival</pre>
+                      <pre class="language-r">  lyt</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   times, as well as hazard ratio estimates, confidence intervals and p-values, for multiple biomarkers</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/response_subgroups.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   in a given single data set.</pre>
+                      <pre class="language-r">#' Tabulate binary response by subgroup</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `variables` corresponds to names of variables found in `data`, passed as a named list and requires elements</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `tte`, `is_event`, `biomarkers` (vector of continuous biomarker variables) and optionally `subgroups` and `strata`.</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' The [tabulate_rsp_subgroups()] function creates a layout element to tabulate binary response by subgroup, returning</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_coxreg_mult_cont_df()` returns a `data.frame` containing estimates and statistics for the selected biomarkers.</pre>
+                      <pre class="language-r">#' statistics including response rate and odds ratio for each population subgroup. The table is created from `df`, a</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' list of data frames returned by [extract_rsp_subgroups()], with the statistics to include specified via the `vars`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' parameter.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # For a single population, estimate separately the effects</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # of two biomarkers.</pre>
+                      <pre class="language-r">#' A forest plot can be created from the resulting table using the [g_forest()] function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- h_coxreg_mult_cont_df(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">#' @inheritParams extract_rsp_subgroups</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tte = "AVAL",</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     is_event = "is_event",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     biomarkers = c("BMRKR1", "AGE"),</pre>
+                      <pre class="language-r">#' @details These functions create a layout starting from a data frame which contains</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     covariates = "SEX",</pre>
+                      <pre class="language-r">#'   the required statistics. Tables typically used as part of forest plot.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     strata = c("STRATA1", "STRATA2")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#' @seealso [extract_rsp_subgroups()]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adtte_f</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' library(forcats)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # If the data set is empty, still the corresponding rows with missings are returned.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_coxreg_mult_cont_df(</pre>
+                      <pre class="language-r">#' adrs &lt;- tern_ex_adrs</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">#' adrs_labels &lt;- formatters::var_labels(adrs)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     tte = "AVAL",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     is_event = "is_event",</pre>
+                      <pre class="language-r">#' adrs_f &lt;- adrs %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     biomarkers = c("BMRKR1", "AGE"),</pre>
+                      <pre class="language-r">#'   filter(PARAMCD == "BESRSPI") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     covariates = "REGION1",</pre>
+                      <pre class="language-r">#'   filter(ARM %in% c("A: Drug X", "B: Placebo")) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     strata = c("STRATA1", "STRATA2")</pre>
+                      <pre class="language-r">#'   droplevels() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#'   mutate(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adtte_f[NULL, ]</pre>
+                      <pre class="language-r">#'     # Reorder levels of factor to make the placebo group the reference arm.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'     ARM = fct_relevel(ARM, "B: Placebo"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     rsp = AVALC == "CR"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_coxreg_mult_cont_df &lt;- function(variables,</pre>
+                      <pre class="language-r">#' formatters::var_labels(adrs_f) &lt;- c(adrs_labels, "Response")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  data,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  control = control_coxreg()) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">33<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if ("strat" %in% names(variables)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">111</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    warning(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">112</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      "Warning: the `strat` element name of the `variables` list argument to `h_coxreg_mult_cont_df() ",</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">113</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      "was deprecated in tern 0.9.4.\n  ",</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">114</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      "Please use the name `strata` instead of `strat` in the `variables` argument."</pre>
+                      <pre class="language-r">#' # Unstratified analysis.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">116</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    variables[["strata"]] &lt;- variables[["strat"]]</pre>
+                      <pre class="language-r">#' df &lt;- extract_rsp_subgroups(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   variables = list(rsp = "rsp", arm = "ARM", subgroups = c("SEX", "BMRKR2")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">33<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(data, variables)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">120</td>
-                    <td class="coverage">33<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(control, names = "named")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">121</td>
-                    <td class="coverage">33<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(variables$biomarkers, min.len = 1, any.missing = FALSE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">122</td>
-                    <td class="coverage">33<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  conf_level &lt;- control[["conf_level"]]</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">33<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  pval_label &lt;- paste0(</pre>
+                      <pre class="language-r">#'   data = adrs_f</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # the regex capitalizes the first letter of the string / senetence.</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">33<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    "p-value (", gsub("(^[a-z])", "\\U\\1", trimws(control[["pval_method"]]), perl = TRUE), ")"</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' df</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # If there is any data, run model, otherwise return empty results.</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">33<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (nrow(data) &gt; 0) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">32<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    bm_cols &lt;- match(variables$biomarkers, names(data))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">32<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    l_result &lt;- lapply(variables$biomarkers, function(bm) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">64<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      coxreg_list &lt;- fit_coxreg_multivar(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">64<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        variables = h_surv_to_coxreg_variables(variables, bm),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">64<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        data = data,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">64<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        control = control</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">136</td>
-                    <td class="coverage">64<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      result &lt;- do.call(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">64<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        h_coxreg_multivar_extract,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">64<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        c(list(var = bm), coxreg_list[c("mod", "data", "control")])</pre>
+                      <pre class="language-r">#' # Stratified analysis.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">64<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      data_fit &lt;- as.data.frame(as.matrix(coxreg_list$mod$y))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">64<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      data_fit$status &lt;- as.logical(data_fit$status)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">64<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      median &lt;- s_surv_time(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">64<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        df = data_fit,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">64<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        .var = "time",</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">145</td>
-                    <td class="coverage">64<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        is_event = "status"</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">64<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      )$median</pre>
+                      <pre class="language-r">#' df_strat &lt;- extract_rsp_subgroups(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">64<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">47</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data.frame(</pre>
+                      <pre class="language-r">#'   variables = list(rsp = "rsp", arm = "ARM", subgroups = c("SEX", "BMRKR2"), strata = "STRATA1"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # Dummy column needed downstream to create a nested header.</pre>
+                      <pre class="language-r">#'   data = adrs_f</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">149</td>
-                    <td class="coverage">64<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">49</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        biomarker = bm,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">150</td>
-                    <td class="coverage">64<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">50</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        biomarker_label = formatters::var_labels(data[bm], fill = TRUE),</pre>
+                      <pre class="language-r">#' df_strat</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">64<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">51</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n_tot = coxreg_list$mod$n,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">64<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">52</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n_tot_events = coxreg_list$mod$nevent,</pre>
+                      <pre class="language-r">#' # Grouping of the BMRKR2 levels.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">153</td>
-                    <td class="coverage">64<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">53</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        median = as.numeric(median),</pre>
+                      <pre class="language-r">#' df_grouped &lt;- extract_rsp_subgroups(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">154</td>
-                    <td class="coverage">64<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">54</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        result[1L, c("hr", "lcl", "ucl")],</pre>
+                      <pre class="language-r">#'   variables = list(rsp = "rsp", arm = "ARM", subgroups = c("SEX", "BMRKR2")),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">64<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">55</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        conf_level = conf_level,</pre>
+                      <pre class="language-r">#'   data = adrs_f,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">64<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">56</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        pval = result[1L, "pval"],</pre>
+                      <pre class="language-r">#'   groups_lists = list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">64<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">57</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        pval_label = pval_label,</pre>
+                      <pre class="language-r">#'     BMRKR2 = list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">64<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">58</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">#'       "low" = "LOW",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#'       "low/medium" = c("LOW", "MEDIUM"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#'       "low/medium/high" = c("LOW", "MEDIUM", "HIGH")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">32<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">61</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    do.call(rbind, args = c(l_result, make.row.names = FALSE))</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">63</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data.frame(</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">64</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      biomarker = variables$biomarkers,</pre>
+                      <pre class="language-r">#' df_grouped</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">65</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      biomarker_label = formatters::var_labels(data[variables$biomarkers], fill = TRUE),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">66</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n_tot = 0L,</pre>
+                      <pre class="language-r">#' @name response_subgroups</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">67</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n_tot_events = 0L,</pre>
+                      <pre class="language-r">#' @order 1</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">68</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      median = NA,</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">69</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      hr = NA,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lcl = NA,</pre>
+                      <pre class="language-r">#' Prepare response data for population subgroups in data frames</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">71</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ucl = NA,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">72</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      conf_level = conf_level,</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">73</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pval = NA,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">74</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pval_label = pval_label,</pre>
+                      <pre class="language-r">#' Prepares response rates and odds ratios for population subgroups in data frames. Simple wrapper</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">75</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      row.names = seq_along(variables$biomarkers),</pre>
+                      <pre class="language-r">#' for [h_odds_ratio_subgroups_df()] and [h_proportion_subgroups_df()]. Result is a list of two</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">76</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">#' `data.frames`: `prop` and `or`. `variables` corresponds to the names of variables found in `data`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' passed as a named `list` and requires elements `rsp`, `arm` and optionally `subgroups` and `strata`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' `groups_lists` optionally specifies groupings for `subgroups` variables.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_survival_biomarkers_subgroups Prepares a single sub-table given a `df_sub` containing</pre>
+                      <pre class="language-r">#' @inheritParams response_subgroups</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the results for a single biomarker.</pre>
+                      <pre class="language-r">#' @param label_all (`string`)\cr label for the total population analysis.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param df (`data.frame`)\cr results for a single biomarker, as part of what is</pre>
+                      <pre class="language-r">#' @return A named list of two elements:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   returned by [extract_survival_biomarkers()] (it needs a couple of columns which are</pre>
+                      <pre class="language-r">#'   * `prop`: A `data.frame` containing columns `arm`, `n`, `n_rsp`, `prop`, `subgroup`, `var`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   added by that high-level function relative to what is returned by [h_coxreg_mult_cont_df()],</pre>
+                      <pre class="language-r">#'     `var_label`, and `row_type`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   see the example).</pre>
+                      <pre class="language-r">#'   * `or`: A `data.frame` containing columns `arm`, `n_tot`, `or`, `lcl`, `ucl`, `conf_level`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     `subgroup`, `var`, `var_label`, and `row_type`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_tab_surv_one_biomarker()` returns an `rtables` table object with the given statistics arranged in columns.</pre>
+                      <pre class="language-r">#' @seealso [response_subgroups]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Starting from above `df`, zoom in on one biomarker and add required columns.</pre>
+                      <pre class="language-r">extract_rsp_subgroups &lt;- function(variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df1 &lt;- df[1, ]</pre>
+                      <pre class="language-r">                                  data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df1$subgroup &lt;- "All patients"</pre>
+                      <pre class="language-r">                                  groups_lists = list(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df1$row_type &lt;- "content"</pre>
+                      <pre class="language-r">                                  conf_level = 0.95,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df1$var &lt;- "ALL"</pre>
+                      <pre class="language-r">                                  method = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df1$var_label &lt;- "All patients"</pre>
+                      <pre class="language-r">                                  label_all = "All Patients") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">199</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">99</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_tab_surv_one_biomarker(</pre>
+                      <pre class="language-r">  if ("strat" %in% names(variables)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">200</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">100</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   df1,</pre>
+                      <pre class="language-r">    warning(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">201</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">101</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   vars = c("n_tot", "n_tot_events", "median", "hr", "ci", "pval"),</pre>
+                      <pre class="language-r">      "Warning: the `strat` element name of the `variables` list argument to `extract_rsp_subgroups() ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">202</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">102</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   time_unit = "days"</pre>
+                      <pre class="language-r">      "was deprecated in tern 0.9.4.\n  ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">203</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">103</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">      "Please use the name `strata` instead of `strat` in the `variables` argument."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">205</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">105</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    variables[["strata"]] &lt;- variables[["strat"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_tab_surv_one_biomarker &lt;- function(df,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     vars,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">208</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">108</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     time_unit,</pre>
+                      <pre class="language-r">  df_prop &lt;- h_proportion_subgroups_df(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">209</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">109</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     na_str = default_na_str(),</pre>
+                      <pre class="language-r">    variables,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">210</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">110</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     .indent_mods = 0L,</pre>
+                      <pre class="language-r">    data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">211</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">111</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     ...) {</pre>
+                      <pre class="language-r">    groups_lists = groups_lists,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">212</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">112</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  afuns &lt;- a_survival_subgroups(na_str = na_str)[vars]</pre>
+                      <pre class="language-r">    label_all = label_all</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">113</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  colvars &lt;- d_survival_subgroups_colvars(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">214</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">114</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars,</pre>
+                      <pre class="language-r">  df_or &lt;- h_odds_ratio_subgroups_df(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">115</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    conf_level = df$conf_level[1],</pre>
+                      <pre class="language-r">    variables,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">216</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">116</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    method = df$pval_label[1],</pre>
+                      <pre class="language-r">    data,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">217</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">117</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    time_unit = time_unit</pre>
+                      <pre class="language-r">    groups_lists = groups_lists,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">218</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">118</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    conf_level = conf_level,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">119</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  h_tab_one_biomarker(</pre>
+                      <pre class="language-r">    method = method,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">120</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df = df,</pre>
+                      <pre class="language-r">    label_all = label_all</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">221</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">121</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    afuns = afuns,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">122</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    colvars = colvars,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">123</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">  list(prop = df_prop, or = df_or)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">124</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .indent_mods = .indent_mods,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ...</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @describeIn response_subgroups Formatted analysis function which is used as `afun` in `tabulate_rsp_subgroups()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/utils_checkmate.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Additional assertions to use with `checkmate`</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">129</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' * `a_response_subgroups()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Additional assertion functions which can be used together with the `checkmate` package.</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">a_response_subgroups &lt;- function(.formats = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams checkmate::assert_factor</pre>
+                      <pre class="language-r">                                   n = "xx", # nolint start</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`any`)\cr object to test.</pre>
+                      <pre class="language-r">                                   n_rsp = "xx",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param df (`data.frame`)\cr data set to test.</pre>
+                      <pre class="language-r">                                   prop = "xx.x%",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param variables (named `list` of `character`)\cr list of variables to test.</pre>
+                      <pre class="language-r">                                   n_tot = "xx",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param include_boundaries (`flag`)\cr whether to include boundaries when testing</pre>
+                      <pre class="language-r">                                   or = list(format_extreme_values(2L)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   for proportions.</pre>
+                      <pre class="language-r">                                   ci = list(format_extreme_values_ci(2L)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param na_level (`string`)\cr the string you have been using to represent NA or</pre>
+                      <pre class="language-r">                                   pval = "x.xxxx | (&lt;0.0001)",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   missing data. For `NA` values please consider using directly [is.na()] or</pre>
+                      <pre class="language-r">                                   riskdiff = "xx.x (xx.x - xx.x)" # nolint end</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   similar approaches.</pre>
+                      <pre class="language-r">                                 ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                 na_str = default_na_str()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">143</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Nothing if assertion passes, otherwise prints the error message.</pre>
+                      <pre class="language-r">  checkmate::assert_list(.formats)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">144</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_subset(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">145</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name assertions</pre>
+                      <pre class="language-r">    names(.formats),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">146</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">    c("n", "n_rsp", "prop", "n_tot", "or", "ci", "pval", "riskdiff")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">check_list_of_variables &lt;- function(x) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">149</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # drop NULL elements in list</pre>
+                      <pre class="language-r">  afun_lst &lt;- Map(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">22</td>
-                    <td class="coverage">2927<em>x</em></td>
+                    <td class="num">150</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x &lt;- Filter(Negate(is.null), x)</pre>
+                      <pre class="language-r">    function(stat, fmt, na_str) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">151</td>
+                    <td class="coverage">157<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      function(df, labelstr = "", ...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">24</td>
-                    <td class="coverage">2927<em>x</em></td>
+                    <td class="num">152</td>
+                    <td class="coverage">349<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  res &lt;- checkmate::check_list(x,</pre>
+                      <pre class="language-r">        in_rows(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">25</td>
-                    <td class="coverage">2927<em>x</em></td>
+                    <td class="num">153</td>
+                    <td class="coverage">349<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    names = "named",</pre>
+                      <pre class="language-r">          .list = as.list(df[[stat]]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">26</td>
-                    <td class="coverage">2927<em>x</em></td>
+                    <td class="num">154</td>
+                    <td class="coverage">349<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    min.len = 1,</pre>
+                      <pre class="language-r">          .labels = as.character(df$subgroup),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">27</td>
-                    <td class="coverage">2927<em>x</em></td>
+                    <td class="num">155</td>
+                    <td class="coverage">349<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    any.missing = FALSE,</pre>
+                      <pre class="language-r">          .formats = fmt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">28</td>
-                    <td class="coverage">2927<em>x</em></td>
+                    <td class="num">156</td>
+                    <td class="coverage">349<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    types = "character"</pre>
+                      <pre class="language-r">          .format_na_strs = na_str</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # no empty strings allowed</pre>
+                      <pre class="language-r">      }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">159</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">31</td>
-                    <td class="coverage">2927<em>x</em></td>
+                    <td class="num">160</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (isTRUE(res)) {</pre>
+                      <pre class="language-r">    stat = names(.formats),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">32</td>
-                    <td class="coverage">2922<em>x</em></td>
+                    <td class="num">161</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    res &lt;- checkmate::check_character(unlist(x), min.chars = 1)</pre>
+                      <pre class="language-r">    fmt = .formats,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">162</td>
+                    <td class="coverage">22<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    na_str = na_str</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">164</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">34</td>
-                    <td class="coverage">2927<em>x</em></td>
+                    <td class="num">165</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(res)</pre>
+                      <pre class="language-r">  afun_lst</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn assertions Checks whether `x` is a valid list of variable names.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `NULL` elements of the list `x` are dropped with `Filter(Negate(is.null), x)`.</pre>
+                      <pre class="language-r">#' @describeIn response_subgroups Table-creating function which creates a table</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">169</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   summarizing binary response by subgroup. This function is a wrapper for [rtables::analyze_colvars()]</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">170</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   and [rtables::summarize_row_groups()].</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' @param df (`list`)\cr a list of data frames containing all analysis variables. List should be</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">assert_list_of_variables &lt;- checkmate::makeAssertionFunction(check_list_of_variables)</pre>
+                      <pre class="language-r">#'   created using [extract_rsp_subgroups()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param vars (`character`)\cr the names of statistics to be reported among:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">check_df_with_variables &lt;- function(df, variables, na_level = NULL) {</pre>
+                      <pre class="language-r">#'   * `n`: Total number of observations per group.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">43</td>
-                    <td class="coverage">2610<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">176</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(df)</pre>
+                      <pre class="language-r">#'   * `n_rsp`: Number of responders per group.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">44</td>
-                    <td class="coverage">2608<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">177</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_list_of_variables(variables)</pre>
+                      <pre class="language-r">#'   * `prop`: Proportion of responders.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   * `n_tot`: Total number of observations.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # flag for equal variables and column names</pre>
+                      <pre class="language-r">#'   * `or`: Odds ratio.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">47</td>
-                    <td class="coverage">2606<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">180</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  err_flag &lt;- all(unlist(variables) %in% colnames(df))</pre>
+                      <pre class="language-r">#'   * `ci` : Confidence interval of odds ratio.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">48</td>
-                    <td class="coverage">2606<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">181</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(err_flag)</pre>
+                      <pre class="language-r">#'   * `pval`: p-value of the effect.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   Note, the statistics `n_tot`, `or`, and `ci` are required.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">50</td>
-                    <td class="coverage">2606<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">183</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (isFALSE(err_flag)) {</pre>
+                      <pre class="language-r">#' @param riskdiff (`list`)\cr if a risk (proportion) difference column should be added, a list of settings to apply</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">51</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">184</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars &lt;- setdiff(unlist(variables), colnames(df))</pre>
+                      <pre class="language-r">#'   within the column. See [control_riskdiff()] for details. If `NULL`, no risk difference column will be added. If</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">52</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">185</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(paste(</pre>
+                      <pre class="language-r">#'   `riskdiff$arm_x` and `riskdiff$arm_y` are `NULL`, the first level of `df$prop$arm` will be used as `arm_x` and</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">53</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">186</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      deparse(substitute(df)),</pre>
+                      <pre class="language-r">#'   the second level as `arm_y`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">54</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">187</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "does not contain all specified variables as column names. Missing from data frame:",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">55</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">188</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      paste(vars, collapse = ", ")</pre>
+                      <pre class="language-r">#' @return An `rtables` table summarizing binary response by subgroup.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # checking if na_level is present and in which column</pre>
+                      <pre class="language-r">#' # Table with default columns</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">2601<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">192</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(na_level)) {</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">193</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_string(na_level)</pre>
+                      <pre class="language-r">#'   tabulate_rsp_subgroups(df)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">194</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    res &lt;- unlist(lapply(as.list(df)[unlist(variables)], function(x) any(x == na_level)))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">195</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (any(res)) {</pre>
+                      <pre class="language-r">#' # Table with selected columns</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">196</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      return(paste0(</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">64</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">197</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        deparse(substitute(df)), " contains explicit na_level (", na_level,</pre>
+                      <pre class="language-r">#'   tabulate_rsp_subgroups(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">198</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ") in the following columns: ", paste0(unlist(variables)[res],</pre>
+                      <pre class="language-r">#'     df = df,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">199</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          collapse = ", "</pre>
+                      <pre class="language-r">#'     vars = c("n_tot", "n", "n_rsp", "prop", "or", "ci")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' # Table with risk difference column added</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">71</td>
-                    <td class="coverage">2600<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">204</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(TRUE)</pre>
+                      <pre class="language-r">#'   tabulate_rsp_subgroups(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">205</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'     df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn assertions Check whether `df` is a data frame with the analysis `variables`.</pre>
+                      <pre class="language-r">#'     riskdiff = control_riskdiff(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Please notice how this produces an error when not all variables are present in the</pre>
+                      <pre class="language-r">#'       arm_x = levels(df$prop$arm)[1],</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data.frame while the opposite is not required.</pre>
+                      <pre class="language-r">#'       arm_y = levels(df$prop$arm)[2]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">209</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'     )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">210</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">assert_df_with_variables &lt;- checkmate::makeAssertionFunction(check_df_with_variables)</pre>
+                      <pre class="language-r">#' @order 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">tabulate_rsp_subgroups &lt;- function(lyt,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">check_valid_factor &lt;- function(x,</pre>
+                      <pre class="language-r">                                   df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               min.levels = 1, # nolint</pre>
+                      <pre class="language-r">                                   vars = c("n_tot", "n", "prop", "or", "ci"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               max.levels = NULL, # nolint</pre>
+                      <pre class="language-r">                                   groups_lists = list(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               null.ok = TRUE, # nolint</pre>
+                      <pre class="language-r">                                   label_all = "All Patients",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               any.missing = TRUE, # nolint</pre>
+                      <pre class="language-r">                                   riskdiff = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               n.levels = NULL, # nolint</pre>
+                      <pre class="language-r">                                   na_str = default_na_str(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               len = NULL) {</pre>
+                      <pre class="language-r">                                   .formats = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # checks on levels insertion</pre>
+                      <pre class="language-r">                                     n = "xx", n_rsp = "xx", prop = "xx.x%", n_tot = "xx",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">88</td>
-                    <td class="coverage">1081<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">223</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_int(min.levels, lower = 1)</pre>
+                      <pre class="language-r">                                     or = list(format_extreme_values(2L)), ci = list(format_extreme_values_ci(2L)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                     pval = "x.xxxx | (&lt;0.0001)"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # main factor check</pre>
+                      <pre class="language-r">                                   )) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">91</td>
-                    <td class="coverage">1081<em>x</em></td>
+                    <td class="num">226</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  res &lt;- checkmate::check_factor(x,</pre>
+                      <pre class="language-r">  checkmate::assert_list(riskdiff, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">1081<em>x</em></td>
+                    <td class="num">227</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    min.levels = min.levels,</pre>
+                      <pre class="language-r">  checkmate::assert_true(all(c("n_tot", "or", "ci") %in% vars))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">93</td>
-                    <td class="coverage">1081<em>x</em></td>
+                    <td class="num">228</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    null.ok = null.ok,</pre>
+                      <pre class="language-r">  if ("pval" %in% vars &amp;&amp; !"pval" %in% names(df$or)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">94</td>
-                    <td class="coverage">1081<em>x</em></td>
+                    <td class="num">229</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    max.levels = max.levels,</pre>
+                      <pre class="language-r">    warning(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">1081<em>x</em></td>
+                    <td class="num">230</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    any.missing = any.missing,</pre>
+                      <pre class="language-r">      'The "pval" statistic has been selected but is not present in "df" so it will not be included in the output ',</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">96</td>
-                    <td class="coverage">1081<em>x</em></td>
+                    <td class="num">231</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n.levels = n.levels</pre>
+                      <pre class="language-r">      'table. To include the "pval" statistic, please specify a p-value test when generating "df" via ',</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">232</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      'the "method" argument to `extract_rsp_subgroups()`. If method = "cmh", strata must also be specified via the ',</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">233</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      '"variables" argument to `extract_rsp_subgroups()`.'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # no empty strings allowed</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">100</td>
-                    <td class="coverage">1081<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">237</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (isTRUE(res)) {</pre>
+                      <pre class="language-r">  # Create "ci" column from "lcl" and "ucl"</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">1067<em>x</em></td>
+                    <td class="num">238</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    res &lt;- checkmate::check_character(levels(x), min.chars = 1)</pre>
+                      <pre class="language-r">  df$or$ci &lt;- combine_vectors(df$or$lcl, df$or$ucl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  # Fill in missing formats with defaults</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">104</td>
-                    <td class="coverage">1081<em>x</em></td>
+                    <td class="num">241</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(res)</pre>
+                      <pre class="language-r">  default_fmts &lt;- eval(formals(tabulate_rsp_subgroups)$.formats)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">105</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">242</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  .formats &lt;- c(.formats, default_fmts[vars[!vars %in% names(.formats)]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn assertions Check whether `x` is a valid factor (i.e. has levels and no empty</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   string levels). Note that `NULL` and `NA` elements are allowed.</pre>
+                      <pre class="language-r">  # Extract additional parameters from df</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">108</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">245</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  conf_level &lt;- df$or$conf_level[1]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">109</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">246</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">  method &lt;- if ("pval_label" %in% names(df$or)) df$or$pval_label[1] else NULL</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">110</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">247</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">assert_valid_factor &lt;- checkmate::makeAssertionFunction(check_valid_factor)</pre>
+                      <pre class="language-r">  colvars &lt;- d_rsp_subgroups_colvars(vars, conf_level = conf_level, method = method)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">248</td>
+                    <td class="coverage">13<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  prop_vars &lt;- intersect(colvars$vars, c("n", "prop", "n_rsp"))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">249</td>
+                    <td class="coverage">13<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  or_vars &lt;- intersect(names(colvars$labels), c("n_tot", "or", "ci", "pval"))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">250</td>
+                    <td class="coverage">13<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  colvars_prop &lt;- list(vars = prop_vars, labels = colvars$labels[prop_vars])</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">251</td>
+                    <td class="coverage">13<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  colvars_or &lt;- list(vars = or_vars, labels = colvars$labels[or_vars])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">112</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">253</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">check_df_with_factors &lt;- function(df,</pre>
+                      <pre class="language-r">  extra_args &lt;- list(groups_lists = groups_lists, conf_level = conf_level, method = method, label_all = label_all)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  variables,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  min.levels = 1, # nolint</pre>
+                      <pre class="language-r">  # Get analysis function for each statistic</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">115</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">256</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  max.levels = NULL, # nolint</pre>
+                      <pre class="language-r">  afun_lst &lt;- a_response_subgroups(.formats = c(.formats, riskdiff = riskdiff$format), na_str = na_str)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  any.missing = TRUE, # nolint</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">258</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  na_level = NULL) {</pre>
+                      <pre class="language-r">  # Add risk difference column</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">118</td>
-                    <td class="coverage">254<em>x</em></td>
+                    <td class="num">259</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  res &lt;- check_df_with_variables(df, variables, na_level)</pre>
+                      <pre class="language-r">  if (!is.null(riskdiff)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">119</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">260</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # checking if all the columns specified by variables are valid factors</pre>
+                      <pre class="language-r">    if (is.null(riskdiff$arm_x)) riskdiff$arm_x &lt;- levels(df$prop$arm)[1]</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">261</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    if (is.null(riskdiff$arm_y)) riskdiff$arm_y &lt;- levels(df$prop$arm)[2]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">120</td>
-                    <td class="coverage">253<em>x</em></td>
+                    <td class="num">262</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (isTRUE(res)) {</pre>
+                      <pre class="language-r">    colvars_or$vars &lt;- c(colvars_or$vars, "riskdiff")</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">263</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    colvars_or$labels &lt;- c(colvars_or$labels, riskdiff = riskdiff$col_label)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">264</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    arm_cols &lt;- paste(rep(c("n_rsp", "n_rsp", "n", "n")), c(riskdiff$arm_x, riskdiff$arm_y), sep = "_")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">265</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # searching the data.frame with selected columns (variables) as a list</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">122</td>
-                    <td class="coverage">251<em>x</em></td>
+                    <td class="num">266</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    res &lt;- lapply(</pre>
+                      <pre class="language-r">    df_prop_diff &lt;- df$prop %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">251<em>x</em></td>
+                    <td class="num">267</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      X = as.list(df)[unlist(variables)],</pre>
+                      <pre class="language-r">      dplyr::select(-"prop") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">251<em>x</em></td>
+                    <td class="num">268</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      FUN = check_valid_factor,</pre>
+                      <pre class="language-r">      tidyr::pivot_wider(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">251<em>x</em></td>
+                    <td class="num">269</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      min.levels = min.levels,</pre>
+                      <pre class="language-r">        id_cols = c("subgroup", "var", "var_label", "row_type"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">251<em>x</em></td>
+                    <td class="num">270</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      max.levels = max.levels,</pre>
+                      <pre class="language-r">        names_from = "arm",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">251<em>x</em></td>
+                    <td class="num">271</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      any.missing = any.missing</pre>
+                      <pre class="language-r">        values_from = c("n", "n_rsp")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">272</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">251<em>x</em></td>
+                    <td class="num">273</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    res_lo &lt;- unlist(vapply(res, Negate(isTRUE), logical(1)))</pre>
+                      <pre class="language-r">      dplyr::rowwise() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">130</td>
-                    <td class="coverage">251<em>x</em></td>
+                    <td class="num">274</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (any(res_lo)) {</pre>
+                      <pre class="language-r">      dplyr::mutate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">275</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      return(paste0(</pre>
+                      <pre class="language-r">        riskdiff = stat_propdiff_ci(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">276</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        deparse(substitute(df)), " does not contain only factor variables among:",</pre>
+                      <pre class="language-r">          x = as.list(.data[[arm_cols[1]]]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">277</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "\n* Column `", paste0(unlist(variables)[res_lo],</pre>
+                      <pre class="language-r">          y = as.list(.data[[arm_cols[2]]]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">278</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "` of the data.frame -&gt; ", res[res_lo],</pre>
+                      <pre class="language-r">          N_x = .data[[arm_cols[3]]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">135</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">279</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          collapse = "\n* "</pre>
+                      <pre class="language-r">          N_y = .data[[arm_cols[4]]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">280</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">281</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ))</pre>
+                      <pre class="language-r">      ) %&gt;%</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">282</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      dplyr::select(-dplyr::all_of(arm_cols))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">283</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">245<em>x</em></td>
+                    <td class="num">284</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      res &lt;- TRUE</pre>
+                      <pre class="language-r">    df$or &lt;- df$or %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">140</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">285</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">      dplyr::left_join(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">141</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">286</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        df_prop_diff,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">247<em>x</em></td>
+                    <td class="num">287</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(res)</pre>
+                      <pre class="language-r">        by = c("subgroup", "var", "var_label", "row_type")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">288</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">289</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn assertions Check whether `df` is a data frame where the analysis `variables`</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   are all factors. Note that the creation of `NA` by direct call of `factor()` will</pre>
+                      <pre class="language-r">  # Add columns from table_prop (optional)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">147</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">292</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   trim `NA` levels out of the vector list itself.</pre>
+                      <pre class="language-r">  if (length(colvars_prop$vars) &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">148</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">293</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    lyt_prop &lt;- split_cols_by(lyt = lyt, var = "arm")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">149</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">294</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    lyt_prop &lt;- split_cols_by_multivar(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">150</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">295</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">assert_df_with_factors &lt;- checkmate::makeAssertionFunction(check_df_with_factors)</pre>
+                      <pre class="language-r">      lyt = lyt_prop,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">151</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">296</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      vars = colvars_prop$vars,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">152</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">297</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn assertions Check whether `x` is a proportion: number between 0 and 1.</pre>
+                      <pre class="language-r">      varlabels = colvars_prop$labels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">298</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">300</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">assert_proportion_value &lt;- function(x, include_boundaries = FALSE) {</pre>
+                      <pre class="language-r">    # Add "All Patients" row</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">13912<em>x</em></td>
+                    <td class="num">301</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(x, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">    lyt_prop &lt;- split_rows_by(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">13900<em>x</em></td>
+                    <td class="num">302</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(include_boundaries)</pre>
+                      <pre class="language-r">      lyt = lyt_prop,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">13900<em>x</em></td>
+                    <td class="num">303</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (isFALSE(include_boundaries)) {</pre>
+                      <pre class="language-r">      var = "row_type",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">8381<em>x</em></td>
+                    <td class="num">304</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_true(x &gt; 0)</pre>
+                      <pre class="language-r">      split_fun = keep_split_levels("content"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">160</td>
-                    <td class="coverage">8379<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_true(x &lt; 1)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">161</td>
-                    <td class="coverage"></td>
+                    <td class="num">305</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      nested = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">162</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">306</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      child_labels = "hidden"</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/utils_default_stats_formats_labels.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Get default statistical methods and their associated formats, labels, and indent modifiers</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">308</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    lyt_prop &lt;- analyze_colvars(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">309</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">      lyt = lyt_prop,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">310</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      afun = afun_lst[names(colvars_prop$labels)],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">311</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Utility functions to get valid statistic methods for different method groups</pre>
+                      <pre class="language-r">      na_str = na_str,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">312</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' (`.stats`) and their associated formats (`.formats`), labels (`.labels`), and indent modifiers</pre>
+                      <pre class="language-r">      extra_args = extra_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' (`.indent_mods`). This utility is used across `tern`, but some of its working principles can be</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' seen in [analyze_vars()]. See notes to understand why this is experimental.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">315</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    # Add analysis rows</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">316</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param stats (`character`)\cr statistical methods to get defaults for.</pre>
+                      <pre class="language-r">    if ("analysis" %in% df$prop$row_type) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">317</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      lyt_prop &lt;- split_rows_by(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">318</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details</pre>
+                      <pre class="language-r">        lyt = lyt_prop,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">319</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Current choices for `type` are `counts` and `numeric` for [analyze_vars()] and affect `get_stats()`.</pre>
+                      <pre class="language-r">        var = "row_type",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">320</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        split_fun = keep_split_levels("analysis"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">321</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note</pre>
+                      <pre class="language-r">        nested = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">322</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' These defaults are experimental because we use the names of functions to retrieve the default</pre>
+                      <pre class="language-r">        child_labels = "hidden"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">323</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' statistics. This should be generalized in groups of methods according to more reasonable groupings.</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">324</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      lyt_prop &lt;- split_rows_by(lyt = lyt_prop, var = "var_label", nested = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">325</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name default_stats_formats_labels</pre>
+                      <pre class="language-r">      lyt_prop &lt;- analyze_colvars(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">326</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">        lyt = lyt_prop,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">327</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        afun = afun_lst[names(colvars_prop$labels)],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">328</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn default_stats_formats_labels Get statistics available for a given method</pre>
+                      <pre class="language-r">        na_str = na_str,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">329</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   group (analyze function). To check available defaults see `tern::tern_default_stats` list.</pre>
+                      <pre class="language-r">        inclNAs = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">330</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        extra_args = extra_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">331</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param method_groups (`character`)\cr indicates the statistical method group (`tern` analyze function)</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">332</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to retrieve default statistics for. A character vector can be used to specify more than one statistical</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">333</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   method group.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">334</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param stats_in (`character`)\cr statistics to retrieve for the selected method group.</pre>
+                      <pre class="language-r">    table_prop &lt;- build_table(lyt_prop, df = df$prop)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">335</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param add_pval (`flag`)\cr should `"pval"` (or `"pval_counts"` if `method_groups` contains</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">336</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `"analyze_vars_counts"`) be added to the statistical methods?</pre>
+                      <pre class="language-r">    table_prop &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">337</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">338</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">339</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `get_stats()` returns a `character` vector of statistical methods.</pre>
+                      <pre class="language-r">  # Add columns from table_or ("n_tot", "or", and "ci" required)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">340</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  lyt_or &lt;- split_cols_by(lyt = lyt, var = "arm")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">341</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  lyt_or &lt;- split_cols_by_multivar(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">342</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # analyze_vars is numeric</pre>
+                      <pre class="language-r">    lyt = lyt_or,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">343</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' num_stats &lt;- get_stats("analyze_vars_numeric") # also the default</pre>
+                      <pre class="language-r">    vars = colvars_or$vars,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">344</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    varlabels = colvars_or$labels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">345</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Other type</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">346</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' cnt_stats &lt;- get_stats("analyze_vars_counts")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">347</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  # Add "All Patients" row</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">348</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Weirdly taking the pval from count_occurrences</pre>
+                      <pre class="language-r">  lyt_or &lt;- split_rows_by(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">349</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' only_pval &lt;- get_stats("count_occurrences", add_pval = TRUE, stats_in = "pval")</pre>
+                      <pre class="language-r">    lyt = lyt_or,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">350</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    var = "row_type",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">45</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">351</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # All count_occurrences</pre>
+                      <pre class="language-r">    split_fun = keep_split_levels("content"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">352</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' all_cnt_occ &lt;- get_stats("count_occurrences")</pre>
+                      <pre class="language-r">    nested = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">353</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    child_labels = "hidden"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">354</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Multiple</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">49</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">355</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' get_stats(c("count_occurrences", "analyze_vars_counts"))</pre>
+                      <pre class="language-r">  lyt_or &lt;- analyze_colvars(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">50</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">356</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    lyt = lyt_or,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">51</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">357</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    afun = afun_lst[names(colvars_or$labels)],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">52</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">358</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_stats &lt;- function(method_groups = "analyze_vars_numeric", stats_in = NULL, add_pval = FALSE) {</pre>
+                      <pre class="language-r">    na_str = na_str,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">53</td>
-                    <td class="coverage">505<em>x</em></td>
+                    <td class="num">359</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(method_groups)</pre>
+                      <pre class="language-r">    extra_args = extra_args</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">54</td>
-                    <td class="coverage">505<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">360</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(stats_in, null.ok = TRUE)</pre>
+                      <pre class="language-r">  ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">55</td>
-                    <td class="coverage">505<em>x</em></td>
+                    <td class="num">361</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(add_pval)</pre>
+                      <pre class="language-r">    append_topleft("Baseline Risk Factors")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">362</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">363</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Default is still numeric</pre>
+                      <pre class="language-r">  # Add analysis rows</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">505<em>x</em></td>
+                    <td class="num">364</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any(method_groups == "analyze_vars")) {</pre>
+                      <pre class="language-r">  if ("analysis" %in% df$or$row_type) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">365</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    method_groups[method_groups == "analyze_vars"] &lt;- "analyze_vars_numeric"</pre>
+                      <pre class="language-r">    lyt_or &lt;- split_rows_by(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">366</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      lyt = lyt_or,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">367</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      var = "row_type",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">505<em>x</em></td>
+                    <td class="num">368</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  type_tmp &lt;- ifelse(any(grepl("counts", method_groups)), "counts", "numeric") # for pval checks</pre>
+                      <pre class="language-r">      split_fun = keep_split_levels("analysis"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">369</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      nested = FALSE,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">370</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      child_labels = "hidden"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">371</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Defaults for loop</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">505<em>x</em></td>
+                    <td class="num">372</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  out &lt;- NULL</pre>
+                      <pre class="language-r">    lyt_or &lt;- split_rows_by(lyt = lyt_or, var = "var_label", nested = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">66</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">373</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    lyt_or &lt;- analyze_colvars(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">67</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">374</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Loop for multiple method groups</pre>
+                      <pre class="language-r">      lyt = lyt_or,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">505<em>x</em></td>
+                    <td class="num">375</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  for (mgi in method_groups) {</pre>
+                      <pre class="language-r">      afun = afun_lst[names(colvars_or$labels)],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">69</td>
-                    <td class="coverage">532<em>x</em></td>
+                    <td class="num">376</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    out_tmp &lt;- if (mgi %in% names(tern_default_stats)) {</pre>
+                      <pre class="language-r">      na_str = na_str,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">70</td>
-                    <td class="coverage">531<em>x</em></td>
+                    <td class="num">377</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      tern_default_stats[[mgi]]</pre>
+                      <pre class="language-r">      inclNAs = TRUE,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">378</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      extra_args = extra_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">379</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">380</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stop("The selected method group (", mgi, ") has no default statistical method.")</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">381</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">531<em>x</em></td>
+                    <td class="num">382</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    out &lt;- unique(c(out, out_tmp))</pre>
+                      <pre class="language-r">  table_or &lt;- build_table(lyt_or, df = df$or)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">383</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">384</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  # Join tables, add forest plot attributes</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">77</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">385</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # If you added pval to the stats_in you certainly want it</pre>
+                      <pre class="language-r">  n_tot_id &lt;- match("n_tot", colvars_or$vars)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">504<em>x</em></td>
+                    <td class="num">386</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(stats_in) &amp;&amp; any(grepl("^pval", stats_in))) {</pre>
+                      <pre class="language-r">  if (is.null(table_prop)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">387</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stats_in_pval_value &lt;- stats_in[grepl("^pval", stats_in)]</pre>
+                      <pre class="language-r">    result &lt;- table_or</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">80</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">388</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    or_id &lt;- match("or", colvars_or$vars)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">389</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ci_id &lt;- match("ci", colvars_or$vars)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">390</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Must be only one value between choices</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">82</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">391</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_choice(stats_in_pval_value, c("pval", "pval_counts"))</pre>
+                      <pre class="language-r">    result &lt;- cbind_rtables(table_or[, n_tot_id], table_prop, table_or[, -n_tot_id])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">83</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">392</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    or_id &lt;- 1L + ncol(table_prop) + match("or", colvars_or$vars[-n_tot_id])</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">393</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ci_id &lt;- 1L + ncol(table_prop) + match("ci", colvars_or$vars[-n_tot_id])</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">394</td>
+                    <td class="coverage">12<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    n_tot_id &lt;- 1L</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">395</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Mismatch with counts and numeric</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">85</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">396</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (any(grepl("counts", method_groups)) &amp;&amp; stats_in_pval_value != "pval_counts" ||</pre>
+                      <pre class="language-r">  structure(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">21<em>x</em></td>
+                    <td class="num">397</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      any(grepl("numeric", method_groups)) &amp;&amp; stats_in_pval_value != "pval") { # nolint</pre>
+                      <pre class="language-r">    result,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">398</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stop(</pre>
+                      <pre class="language-r">    forest_header = paste0(levels(df$prop$arm), "\nBetter"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">88</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">399</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Inserted p-value (", stats_in_pval_value, ") is not valid for type ",</pre>
+                      <pre class="language-r">    col_x = or_id,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">89</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">400</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        type_tmp, ". Use ", paste(ifelse(stats_in_pval_value == "pval", "pval_counts", "pval")),</pre>
+                      <pre class="language-r">    col_ci = ci_id,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">401</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        " instead."</pre>
+                      <pre class="language-r">    col_symbol_size = n_tot_id</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">402</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">403</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">404</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">405</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Lets add it even if present (thanks to unique)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">19<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    add_pval &lt;- TRUE</pre>
+                      <pre class="language-r">#' Labels for column variables in binary response by subgroup table</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">406</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">407</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">408</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Mainly used in "analyze_vars" but it could be necessary elsewhere</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">99</td>
-                    <td class="coverage">501<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (isTRUE(add_pval)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">100</td>
-                    <td class="coverage">29<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    if (any(grepl("counts", method_groups))) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">16<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      out &lt;- unique(c(out, "pval_counts"))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">409</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">#' Internal function to check variables included in [tabulate_rsp_subgroups()] and create column labels.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">410</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      out &lt;- unique(c(out, "pval"))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">411</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">412</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @inheritParams tabulate_rsp_subgroups</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">413</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">414</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Filtering for stats_in (character vector)</pre>
+                      <pre class="language-r">#' @return A `list` of variables to tabulate and their labels.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">501<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">415</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(stats_in)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">452<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">416</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    out &lt;- intersect(stats_in, out) # It orders them too</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">417</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">d_rsp_subgroups_colvars &lt;- function(vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">418</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                    conf_level = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">419</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # If intersect did not find matches (and no pval?) -&gt; error</pre>
+                      <pre class="language-r">                                    method = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">501<em>x</em></td>
+                    <td class="num">420</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(out) == 0) {</pre>
+                      <pre class="language-r">  checkmate::assert_character(vars)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">114</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">421</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stop(</pre>
+                      <pre class="language-r">  checkmate::assert_subset(c("n_tot", "or", "ci"), vars)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">422</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "The selected method group(s) (", paste0(method_groups, collapse = ", "), ")",</pre>
+                      <pre class="language-r">  checkmate::assert_subset(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">423</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      " do not have the required default statistical methods:\n",</pre>
+                      <pre class="language-r">    vars,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      paste0(stats_in, collapse = " ")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">118</td>
-                    <td class="coverage"></td>
+                    <td class="num">424</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    c("n", "n_rsp", "prop", "n_tot", "or", "ci", "pval")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">425</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">426</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">121</td>
-                    <td class="coverage">499<em>x</em></td>
+                    <td class="num">427</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  out</pre>
+                      <pre class="language-r">  varlabels &lt;- c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">122</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">428</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    n = "n",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">123</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">429</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    n_rsp = "Responders",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">124</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">430</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn default_stats_formats_labels Get formats corresponding to a list of statistics.</pre>
+                      <pre class="language-r">    prop = "Response (%)",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">125</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">431</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   To check available defaults see `tern::tern_default_formats` list.</pre>
+                      <pre class="language-r">    n_tot = "Total n",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">126</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">432</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    or = "Odds Ratio"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">433</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param formats_in (named `vector`)\cr inserted formats to replace defaults. It can be a</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">128</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">434</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   character vector from [formatters::list_valid_format_labels()] or a custom format function.</pre>
+                      <pre class="language-r">  colvars &lt;- vars</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">435</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">130</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">436</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">  if ("ci" %in% colvars) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">131</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">437</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `get_formats_from_stats()` returns a named vector of formats (if present in either</pre>
+                      <pre class="language-r">    checkmate::assert_false(is.null(conf_level))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">438</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `tern_default_formats` or `formats_in`, otherwise `NULL`). Values can be taken from</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">133</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">439</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   [formatters::list_valid_format_labels()] or a custom function (e.g. [formatting_functions]).</pre>
+                      <pre class="language-r">    varlabels &lt;- c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">134</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">440</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      varlabels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">135</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">441</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note Formats in `tern` and `rtables` can be functions that take in the table cell value and</pre>
+                      <pre class="language-r">      ci = paste0(100 * conf_level, "% CI")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">442</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   return a string. This is well documented in `vignette("custom_appearance", package = "rtables")`.</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">443</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">444</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    # The `lcl`` variable is just a placeholder available in the analysis data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">445</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Defaults formats</pre>
+                      <pre class="language-r">    # it is not acutally used in the tabulation.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">446</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' get_formats_from_stats(num_stats)</pre>
+                      <pre class="language-r">    # Variables used in the tabulation are lcl and ucl, see `a_response_subgroups` for details.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">141</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">447</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' get_formats_from_stats(cnt_stats)</pre>
+                      <pre class="language-r">    colvars[colvars == "ci"] &lt;- "lcl"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">448</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' get_formats_from_stats(only_pval)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">449</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' get_formats_from_stats(all_cnt_occ)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">144</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">450</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if ("pval" %in% colvars) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">145</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">451</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Addition of customs</pre>
+                      <pre class="language-r">    varlabels &lt;- c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">146</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">452</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' get_formats_from_stats(all_cnt_occ, formats_in = c("fraction" = c("xx")))</pre>
+                      <pre class="language-r">      varlabels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">147</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">453</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' get_formats_from_stats(all_cnt_occ, formats_in = list("fraction" = c("xx.xx", "xx")))</pre>
+                      <pre class="language-r">      pval = method</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">454</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">455</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [formatting_functions]</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">456</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">151</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">457</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">152</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">458</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_formats_from_stats &lt;- function(stats, formats_in = NULL) {</pre>
+                      <pre class="language-r">    vars = colvars,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">153</td>
-                    <td class="coverage">494<em>x</em></td>
+                    <td class="num">459</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(stats, min.len = 1)</pre>
+                      <pre class="language-r">    labels = varlabels[vars]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">460</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # It may be a list if there is a function in the formats</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">494<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">461</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (checkmate::test_list(formats_in, null.ok = TRUE)) {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">432<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/summarize_num_patients.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
+                  <tr class="never">
+                    <td class="num">1</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_list(formats_in, null.ok = TRUE)</pre>
+                      <pre class="language-r">#' Count number of patients</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Or it may be a vector of characters</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">62<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_character(formats_in, null.ok = TRUE)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' The analyze function [analyze_num_patients()] creates a layout element to count total numbers of unique or</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' non-unique patients. The primary analysis variable `vars` is used to uniquely identify patients.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Extract global defaults</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">494<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  which_fmt &lt;- match(stats, names(tern_default_formats))</pre>
+                      <pre class="language-r">#' The `count_by` variable can be used to identify non-unique patients such that the number of patients with a unique</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' combination of values in `vars` and `count_by` will be returned instead as the `nonunique` statistic. The `required`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Select only needed formats from stats</pre>
+                      <pre class="language-r">#' variable can be used to specify a variable required to be non-missing for the record to be included in the counts.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">494<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ret &lt;- vector("list", length = length(stats)) # Returning a list is simpler</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">494<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ret[!is.na(which_fmt)] &lt;- tern_default_formats[which_fmt[!is.na(which_fmt)]]</pre>
+                      <pre class="language-r">#' The summarize function [summarize_num_patients()] performs the same function as [analyze_num_patients()] except it</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' creates content rows, not data rows, to summarize the current table row/column context and operates on the level of</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">494<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">14</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  out &lt;- setNames(ret, stats)</pre>
+                      <pre class="language-r">#' the latest row split or the root of the table if no row splits have occurred.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Modify some with custom formats</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">494<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(formats_in)) {</pre>
+                      <pre class="language-r">#' @param required (`character` or `NULL`)\cr name of a variable that is required to be non-missing.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Stats is the main</pre>
+                      <pre class="language-r">#' @param count_by (`character` or `NULL`)\cr name of a variable to be combined with `vars` when counting</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">64<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    common_names &lt;- intersect(names(out), names(formats_in))</pre>
+                      <pre class="language-r">#'   `nonunique` records.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">64<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">20</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    out[common_names] &lt;- formats_in[common_names]</pre>
+                      <pre class="language-r">#' @param unique_count_suffix (`flag`)\cr whether the `"(n)"` suffix should be added to `unique_count` labels.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   Defaults to `TRUE`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("summarize_num_patients")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">494<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">23</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  out</pre>
+                      <pre class="language-r">#'   to see available statistics for this function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @name summarize_num_patients</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn default_stats_formats_labels Get labels corresponding to a list of statistics.</pre>
+                      <pre class="language-r">#' @order 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   To check for available defaults see `tern::tern_default_labels` list. If not available there,</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the statistics name will be used as label.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @describeIn summarize_num_patients Statistics function which counts the number of</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param labels_in (named `character`)\cr inserted labels to replace defaults.</pre>
+                      <pre class="language-r">#'   unique patients, the corresponding percentage taken with respect to the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param row_nms (`character`)\cr row names. Levels of a `factor` or `character` variable, each</pre>
+                      <pre class="language-r">#'   total number of patients, and the number of non-unique patients.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   of which the statistics in `.stats` will be calculated for. If this parameter is set, these</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variable levels will be used as the defaults, and the names of the given custom values should</pre>
+                      <pre class="language-r">#' @param x (`character` or `factor`)\cr vector of patient IDs.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   correspond to levels (or have format `statistic.level`) instead of statistics. Can also be</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variable names if rows correspond to different variables instead of levels. Defaults to `NULL`.</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' * `s_num_patients()` returns a named `list` of 3 statistics:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'   * `unique`: Vector of counts and percentages.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `get_labels_from_stats()` returns a named `character` vector of labels (if present in either</pre>
+                      <pre class="language-r">#'   * `nonunique`: Vector of counts.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `tern_default_labels` or `labels_in`, otherwise `NULL`).</pre>
+                      <pre class="language-r">#'   * `unique_count`: Counts.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Defaults labels</pre>
+                      <pre class="language-r">#' # Use the statistics function to count number of unique and nonunique patients.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' get_labels_from_stats(num_stats)</pre>
+                      <pre class="language-r">#' s_num_patients(x = as.character(c(1, 1, 1, 2, 4, NA)), labelstr = "", .N_col = 6L)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' get_labels_from_stats(cnt_stats)</pre>
+                      <pre class="language-r">#' s_num_patients(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' get_labels_from_stats(only_pval)</pre>
+                      <pre class="language-r">#'   x = as.character(c(1, 1, 1, 2, 4, NA)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' get_labels_from_stats(all_cnt_occ)</pre>
+                      <pre class="language-r">#'   labelstr = "",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   .N_col = 6L,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Addition of customs</pre>
+                      <pre class="language-r">#'   count_by = c(1, 1, 2, 1, 1, 1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' get_labels_from_stats(all_cnt_occ, labels_in = c("fraction" = "Fraction"))</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">205</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' get_labels_from_stats(all_cnt_occ, labels_in = list("fraction" = c("Some more fractions")))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">s_num_patients &lt;- function(x, labelstr, .N_col, count_by = NULL, unique_count_suffix = TRUE) { # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_labels_from_stats &lt;- function(stats, labels_in = NULL, row_nms = NULL) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">209</td>
-                    <td class="coverage">483<em>x</em></td>
+                    <td class="num">54</td>
+                    <td class="coverage">146<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(stats, min.len = 1)</pre>
+                      <pre class="language-r">  checkmate::assert_string(labelstr)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">483<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(row_nms, null.ok = TRUE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">211</td>
-                    <td class="coverage"></td>
+                    <td class="num">55</td>
+                    <td class="coverage">146<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # It may be a list</pre>
+                      <pre class="language-r">  checkmate::assert_count(.N_col)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">212</td>
-                    <td class="coverage">483<em>x</em></td>
+                    <td class="num">56</td>
+                    <td class="coverage">146<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (checkmate::test_list(labels_in, null.ok = TRUE)) {</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(x, classes = c("factor", "character"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">392<em>x</em></td>
+                    <td class="num">57</td>
+                    <td class="coverage">146<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_list(labels_in, null.ok = TRUE)</pre>
+                      <pre class="language-r">  checkmate::assert_flag(unique_count_suffix)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Or it may be a vector of characters</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">215</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">59</td>
+                    <td class="coverage">146<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">  count1 &lt;- n_available(unique(x))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">216</td>
-                    <td class="coverage">91<em>x</em></td>
+                    <td class="num">60</td>
+                    <td class="coverage">146<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_character(labels_in, null.ok = TRUE)</pre>
+                      <pre class="language-r">  count2 &lt;- n_available(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">218</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">62</td>
+                    <td class="coverage">146<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if (!is.null(count_by)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">483<em>x</em></td>
+                    <td class="num">63</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(row_nms)) {</pre>
+                      <pre class="language-r">    checkmate::assert_vector(count_by, len = length(x))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">83<em>x</em></td>
+                    <td class="num">64</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ret &lt;- rep(row_nms, length(stats))</pre>
+                      <pre class="language-r">    count2 &lt;- n_available(unique(interaction(x, count_by)))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">221</td>
-                    <td class="coverage">83<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">65</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    out &lt;- setNames(ret, paste(rep(stats, each = length(row_nms)), ret, sep = "."))</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">83<em>x</em></td>
+                    <td class="num">67</td>
+                    <td class="coverage">146<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.null(labels_in)) {</pre>
+                      <pre class="language-r">  out &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">68</td>
+                    <td class="coverage">146<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lvl_lbls &lt;- intersect(names(labels_in), row_nms)</pre>
+                      <pre class="language-r">    unique = formatters::with_label(c(count1, ifelse(count1 == 0 &amp;&amp; .N_col == 0, 0, count1 / .N_col)), labelstr),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">225</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">69</td>
+                    <td class="coverage">146<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      for (i in lvl_lbls) out[paste(stats, i, sep = ".")] &lt;- labels_in[[i]]</pre>
+                      <pre class="language-r">    nonunique = formatters::with_label(count2, labelstr),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">226</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">70</td>
+                    <td class="coverage">146<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    unique_count = formatters::with_label(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">71</td>
+                    <td class="coverage">146<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      count1, ifelse(unique_count_suffix, paste0(labelstr, if (nzchar(labelstr)) " ", "(n)"), labelstr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">400<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">73</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    which_lbl &lt;- match(stats, names(tern_default_labels))</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">400<em>x</em></td>
+                    <td class="num">75</td>
+                    <td class="coverage">146<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ret &lt;- stats # The default</pre>
+                      <pre class="language-r">  out</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">231</td>
-                    <td class="coverage">400<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">76</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ret[!is.na(which_lbl)] &lt;- tern_default_labels[which_lbl[!is.na(which_lbl)]]</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">233</td>
-                    <td class="coverage">400<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">78</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    out &lt;- setNames(ret, stats)</pre>
+                      <pre class="language-r">#' @describeIn summarize_num_patients Statistics function which counts the number of unique patients</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">234</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   in a column (variable), the corresponding percentage taken with respect to the total number of</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   patients, and the number of non-unique patients in the column.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Modify some with custom labels</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">237</td>
-                    <td class="coverage">483<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">82</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(labels_in)) {</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">238</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Stats is the main</pre>
+                      <pre class="language-r">#' * `s_num_patients_content()` returns the same values as `s_num_patients()`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">239</td>
-                    <td class="coverage">93<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">84</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    common_names &lt;- intersect(names(out), names(labels_in))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">240</td>
-                    <td class="coverage">93<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">85</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    out[common_names] &lt;- labels_in[common_names]</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">241</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' # Count number of unique and non-unique patients.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">242</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">243</td>
-                    <td class="coverage">483<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">88</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  out</pre>
+                      <pre class="language-r">#' df &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   USUBJID = as.character(c(1, 2, 1, 4, NA)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   EVENT = as.character(c(10, 15, 10, 17, 8))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn default_stats_formats_labels Format indent modifiers for a given vector/list of statistics.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">247</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   It defaults to 0L for all values.</pre>
+                      <pre class="language-r">#' s_num_patients_content(df, .N_col = 5, .var = "USUBJID")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">249</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param indents_in (named `vector`)\cr inserted indent modifiers to replace defaults (default is `0L`).</pre>
+                      <pre class="language-r">#' df_by_event &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">250</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   USUBJID = as.character(c(1, 2, 1, 4, NA)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'   EVENT = c(10, 15, 10, 17, 8)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `get_indents_from_stats()` returns a single indent modifier value to apply to all rows</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">253</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or a named numeric vector of indent modifiers (if present, otherwise `NULL`).</pre>
+                      <pre class="language-r">#' s_num_patients_content(df_by_event, .N_col = 5, .var = "USUBJID", count_by = "EVENT")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">255</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">256</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' get_indents_from_stats(all_cnt_occ, indents_in = 3L)</pre>
+                      <pre class="language-r">s_num_patients_content &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' get_indents_from_stats(all_cnt_occ, indents_in = list(count = 2L, count_fraction = 5L))</pre>
+                      <pre class="language-r">                                   labelstr = "",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' get_indents_from_stats(</pre>
+                      <pre class="language-r">                                   .N_col, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">259</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   all_cnt_occ,</pre>
+                      <pre class="language-r">                                   .var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">260</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   indents_in = list(a = 2L, count.a = 1L, count.b = 5L), row_nms = c("a", "b")</pre>
+                      <pre class="language-r">                                   required = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">261</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">                                   count_by = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                   unique_count_suffix = TRUE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">263</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">108</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  checkmate::assert_string(.var)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">264</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">109</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">get_indents_from_stats &lt;- function(stats, indents_in = NULL, row_nms = NULL) {</pre>
+                      <pre class="language-r">  checkmate::assert_data_frame(df)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">265</td>
-                    <td class="coverage">444<em>x</em></td>
+                    <td class="num">110</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(stats, min.len = 1)</pre>
+                      <pre class="language-r">  if (is.null(count_by)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">266</td>
-                    <td class="coverage">444<em>x</em></td>
+                    <td class="num">111</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(row_nms, null.ok = TRUE)</pre>
+                      <pre class="language-r">    assert_df_with_variables(df, list(id = .var))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # It may be a list</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">268</td>
-                    <td class="coverage">444<em>x</em></td>
+                    <td class="num">113</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (checkmate::test_list(indents_in, null.ok = TRUE)) {</pre>
+                      <pre class="language-r">    assert_df_with_variables(df, list(id = .var, count_by = count_by))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">114</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">269</td>
-                    <td class="coverage">402<em>x</em></td>
+                    <td class="num">115</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_list(indents_in, null.ok = TRUE)</pre>
+                      <pre class="language-r">  if (!is.null(required)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">270</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">116</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Or it may be a vector of integers</pre>
+                      <pre class="language-r">    checkmate::assert_string(required)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">271</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">117</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">    assert_df_with_variables(df, list(required = required))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">272</td>
-                    <td class="coverage">42<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">118</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_integerish(indents_in, null.ok = TRUE)</pre>
+                      <pre class="language-r">    df &lt;- df[!is.na(df[[required]]), , drop = FALSE]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">273</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">274</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">275</td>
-                    <td class="coverage">444<em>x</em></td>
+                    <td class="num">121</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(names(indents_in)) &amp;&amp; length(indents_in) == 1) {</pre>
+                      <pre class="language-r">  x &lt;- df[[.var]]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">276</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">122</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    out &lt;- rep(indents_in, length(stats) * if (!is.null(row_nms)) length(row_nms) else 1)</pre>
+                      <pre class="language-r">  y &lt;- if (is.null(count_by)) NULL else df[[count_by]]</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">123</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">277</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">124</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(out)</pre>
+                      <pre class="language-r">  s_num_patients(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">278</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">125</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    x = x,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">279</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">126</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    labelstr = labelstr,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">280</td>
-                    <td class="coverage">435<em>x</em></td>
+                    <td class="num">127</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(row_nms)) {</pre>
+                      <pre class="language-r">    .N_col = .N_col,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">281</td>
-                    <td class="coverage">77<em>x</em></td>
+                    <td class="num">128</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ret &lt;- rep(0L, length(stats) * length(row_nms))</pre>
+                      <pre class="language-r">    count_by = y,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">282</td>
-                    <td class="coverage">77<em>x</em></td>
+                    <td class="num">129</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    out &lt;- setNames(ret, paste(rep(stats, each = length(row_nms)), rep(row_nms, length(stats)), sep = "."))</pre>
+                      <pre class="language-r">    unique_count_suffix = unique_count_suffix</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">283</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">284</td>
-                    <td class="coverage">77<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">131</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.null(indents_in)) {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">285</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">132</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lvl_lbls &lt;- intersect(names(indents_in), row_nms)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">286</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">133</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      for (i in lvl_lbls) out[paste(stats, i, sep = ".")] &lt;- indents_in[[i]]</pre>
+                      <pre class="language-r">c_num_patients &lt;- make_afun(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  s_num_patients_content,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">  .stats = c("unique", "nonunique", "unique_count"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">289</td>
-                    <td class="coverage">358<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">136</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ret &lt;- rep(0L, length(stats))</pre>
+                      <pre class="language-r">  .formats = c(unique = format_count_fraction_fixed_dp, nonunique = "xx", unique_count = "xx")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">290</td>
-                    <td class="coverage">358<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">137</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    out &lt;- setNames(ret, stats)</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">291</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">292</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @describeIn summarize_num_patients Layout-creating function which can take statistics function arguments</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">293</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Modify some with custom labels</pre>
+                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::summarize_row_groups()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">294</td>
-                    <td class="coverage">435<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">141</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(indents_in)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">295</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Stats is the main</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">296</td>
-                    <td class="coverage">34<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">143</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    common_names &lt;- intersect(names(out), names(indents_in))</pre>
+                      <pre class="language-r">#' * `summarize_num_patients()` returns a layout object suitable for passing to further layouting functions,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">297</td>
-                    <td class="coverage">34<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">144</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    out[common_names] &lt;- indents_in[common_names]</pre>
+                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">298</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   the statistics from `s_num_patients_content()` to the table layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">299</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">300</td>
-                    <td class="coverage">435<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">147</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  out</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">301</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' # summarize_num_patients</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">302</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' tbl &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">303</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Update labels according to control specifications</pre>
+                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">304</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   split_rows_by("SEX") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">305</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#'   summarize_num_patients("USUBJID", .stats = "unique_count") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">306</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   build_table(df)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">307</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Given a list of statistic labels and and a list of control parameters, updates labels with a relevant</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">308</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' control specification. For example, if control has element `conf_level` set to `0.9`, the default</pre>
+                      <pre class="language-r">#' tbl</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">309</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' label for statistic `mean_ci` will be updated to `"Mean 90% CI"`. Any labels that are supplied</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">310</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' via `labels_custom` will not be updated regardless of `control`.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">311</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @order 3</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">312</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param labels_default (named `character`)\cr a named vector of statistic labels to modify</pre>
+                      <pre class="language-r">summarize_num_patients &lt;- function(lyt,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">313</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   according to the control specifications. Labels that are explicitly defined in `labels_custom` will</pre>
+                      <pre class="language-r">                                   var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">314</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   not be affected.</pre>
+                      <pre class="language-r">                                   required = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">315</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param labels_custom (named `character`)\cr named vector of labels that are customized by</pre>
+                      <pre class="language-r">                                   count_by = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">316</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the user and should not be affected by `control`.</pre>
+                      <pre class="language-r">                                   unique_count_suffix = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">317</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param control (named `list`)\cr list of control parameters to apply to adjust default labels.</pre>
+                      <pre class="language-r">                                   na_str = default_na_str(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">318</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                   .stats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">319</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A named character vector of labels with control specifications applied to relevant labels.</pre>
+                      <pre class="language-r">                                   .formats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">320</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                   .labels = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">321</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">                                     unique = "Number of patients with at least one event",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">322</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' control &lt;- list(conf_level = 0.80, quantiles = c(0.1, 0.83), test_mean = 0.57)</pre>
+                      <pre class="language-r">                                     nonunique = "Number of events"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">323</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' get_labels_from_stats(c("mean_ci", "quantiles", "mean_pval")) %&gt;%</pre>
+                      <pre class="language-r">                                   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">324</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   labels_use_control(control = control)</pre>
+                      <pre class="language-r">                                   .indent_mods = 0L,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">325</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                   riskdiff = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">326</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                                   ...) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">174</td>
+                    <td class="coverage">16<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_flag(riskdiff)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">327</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">labels_use_control &lt;- function(labels_default, control, labels_custom = NULL) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">328</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="num">176</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if ("conf_level" %in% names(control)) {</pre>
+                      <pre class="language-r">  if (is.null(.stats)) .stats &lt;- c("unique", "nonunique", "unique_count")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">329</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="num">177</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    labels_default &lt;- sapply(</pre>
+                      <pre class="language-r">  if (length(.labels) &gt; length(.stats)) .labels &lt;- .labels[names(.labels) %in% .stats]</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">178</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">330</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="num">179</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      names(labels_default),</pre>
+                      <pre class="language-r">  s_args &lt;- list(required = required, count_by = count_by, unique_count_suffix = unique_count_suffix, ...)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">180</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">331</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="num">181</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      function(x) {</pre>
+                      <pre class="language-r">  cfun &lt;- make_afun(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">332</td>
-                    <td class="coverage">91<em>x</em></td>
+                    <td class="num">182</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!x %in% names(labels_custom)) {</pre>
+                      <pre class="language-r">    c_num_patients,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">333</td>
-                    <td class="coverage">88<em>x</em></td>
+                    <td class="num">183</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          gsub(labels_default[[x]], pattern = "[0-9]+% CI", replacement = f_conf_level(control[["conf_level"]]))</pre>
+                      <pre class="language-r">    .stats = .stats,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">334</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">184</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">    .formats = .formats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">335</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">185</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          labels_default[[x]]</pre>
+                      <pre class="language-r">    .labels = .labels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">336</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">337</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">338</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">188</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  extra_args &lt;- if (isFALSE(riskdiff)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">189</td>
+                    <td class="coverage">14<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    s_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">339</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">340</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="num">191</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if ("quantiles" %in% names(control) &amp;&amp; "quantiles" %in% names(labels_default) &amp;&amp;</pre>
+                      <pre class="language-r">    list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">341</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="num">192</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    !"quantiles" %in% names(labels_custom)) { # nolint</pre>
+                      <pre class="language-r">      afun = list("s_num_patients_content" = cfun),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">342</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="num">193</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    labels_default["quantiles"] &lt;- gsub(</pre>
+                      <pre class="language-r">      .stats = .stats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">343</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="num">194</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "[0-9]+% and [0-9]+", paste0(control[["quantiles"]][1] * 100, "% and ", control[["quantiles"]][2] * 100, ""),</pre>
+                      <pre class="language-r">      .indent_mods = .indent_mods,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">344</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="num">195</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      labels_default["quantiles"]</pre>
+                      <pre class="language-r">      s_args = s_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">345</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">346</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
+                  <tr class="never">
+                    <td class="num">198</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
                   <tr class="covered">
-                    <td class="num">347</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="num">199</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if ("test_mean" %in% names(control) &amp;&amp; "mean_pval" %in% names(labels_default) &amp;&amp;</pre>
+                      <pre class="language-r">  summarize_row_groups(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">348</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="num">200</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    !"mean_pval" %in% names(labels_custom)) { # nolint</pre>
+                      <pre class="language-r">    lyt = lyt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">349</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">201</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    labels_default["mean_pval"] &lt;- gsub(</pre>
+                      <pre class="language-r">    var = var,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">350</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">202</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "p-value \\(H0: mean = [0-9\\.]+\\)", f_pval(control[["test_mean"]]), labels_default["mean_pval"]</pre>
+                      <pre class="language-r">    cfun = ifelse(isFALSE(riskdiff), cfun, afun_riskdiff),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">203</td>
+                    <td class="coverage">16<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    na_str = na_str,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">204</td>
+                    <td class="coverage">16<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    extra_args = extra_args,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">205</td>
+                    <td class="coverage">16<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    indent_mod = .indent_mods</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">351</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">352</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">353</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">354</td>
-                    <td class="coverage">20<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  labels_default</pre>
-                    </td>
-                  </tr>
                   <tr class="never">
-                    <td class="num">355</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @describeIn summarize_num_patients Layout-creating function which can take statistics function arguments</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">356</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">357</td>
+                    <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn default_stats_formats_labels Named list of available statistics by method group for `tern`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">358</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">359</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @format</pre>
+                      <pre class="language-r">#' * `analyze_num_patients()` returns a layout object suitable for passing to further layouting functions,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">360</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `tern_default_stats` is a named list of available statistics, with each element</pre>
+                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">361</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   named for their corresponding statistical method group.</pre>
+                      <pre class="language-r">#'   the statistics from `s_num_patients_content()` to the table layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">362</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">363</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @details In general, functions that starts with `analyze*` are expected to</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">364</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">tern_default_stats &lt;- list(</pre>
+                      <pre class="language-r">#'   work like [rtables::analyze()], while functions that starts with `summarize*`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">365</td>
+                    <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  abnormal = c("fraction"),</pre>
+                      <pre class="language-r">#'   are based upon [rtables::summarize_row_groups()]. The latter provides a</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">366</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  abnormal_by_baseline = c("fraction"),</pre>
+                      <pre class="language-r">#'   value for each dividing split in the row and column space, but, being it</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">367</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  abnormal_by_marked = c("count_fraction", "count_fraction_fixed_dp"),</pre>
+                      <pre class="language-r">#'   bound to the fundamental splits, it is repeated by design in every page</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">368</td>
+                    <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  abnormal_by_worst_grade = c("count_fraction", "count_fraction_fixed_dp"),</pre>
+                      <pre class="language-r">#'   when pagination is involved.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">369</td>
+                    <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  abnormal_by_worst_grade_worsen = c("fraction"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">370</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  analyze_patients_exposure_in_cols = c("n_patients", "sum_exposure"),</pre>
+                      <pre class="language-r">#' @note As opposed to [summarize_num_patients()], this function does not repeat the produced rows.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">371</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  analyze_vars_counts = c("n", "count", "count_fraction", "count_fraction_fixed_dp", "fraction", "n_blq"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">372</td>
+                    <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  analyze_vars_numeric = c(</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">373</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "n", "sum", "mean", "sd", "se", "mean_sd", "mean_se", "mean_ci", "mean_sei", "mean_sdi", "mean_pval",</pre>
+                      <pre class="language-r">#' df &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">374</td>
+                    <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "median", "mad", "median_ci", "quantiles", "iqr", "range", "min", "max", "median_range", "cv",</pre>
+                      <pre class="language-r">#'   USUBJID = as.character(c(1, 2, 1, 4, NA, 6, 6, 8, 9)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">375</td>
+                    <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "geom_mean", "geom_mean_ci", "geom_cv"</pre>
+                      <pre class="language-r">#'   ARM = c("A", "A", "A", "A", "A", "B", "B", "B", "B"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">376</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ),</pre>
+                      <pre class="language-r">#'   AGE = c(10, 15, 10, 17, 8, 11, 11, 19, 17),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">377</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  count_cumulative = c("count_fraction", "count_fraction_fixed_dp"),</pre>
+                      <pre class="language-r">#'   SEX = c("M", "M", "M", "F", "F", "F", "M", "F", "M")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">378</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  count_missed_doses = c("n", "count_fraction", "count_fraction_fixed_dp"),</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">379</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  count_occurrences = c("count", "count_fraction", "count_fraction_fixed_dp", "fraction"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">380</td>
+                    <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  count_occurrences_by_grade = c("count_fraction", "count_fraction_fixed_dp"),</pre>
+                      <pre class="language-r">#' # analyze_num_patients</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">381</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  count_patients_with_event = c("n", "count", "count_fraction", "count_fraction_fixed_dp", "n_blq"),</pre>
+                      <pre class="language-r">#' tbl &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">382</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  count_patients_with_flags = c("n", "count", "count_fraction", "count_fraction_fixed_dp", "n_blq"),</pre>
+                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">383</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  count_values = c("n", "count", "count_fraction", "count_fraction_fixed_dp", "n_blq"),</pre>
+                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">384</td>
+                    <td class="num">238</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  coxph_pairwise = c("pvalue", "hr", "hr_ci", "n_tot", "n_tot_events"),</pre>
+                      <pre class="language-r">#'   analyze_num_patients("USUBJID", .stats = c("unique")) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">385</td>
+                    <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  estimate_incidence_rate = c("person_years", "n_events", "rate", "rate_ci", "n_unique", "n_rate"),</pre>
+                      <pre class="language-r">#'   build_table(df)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">386</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  estimate_multinomial_response = c("n_prop", "prop_ci"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">387</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  estimate_odds_ratio = c("or_ci", "n_tot"),</pre>
+                      <pre class="language-r">#' tbl</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">388</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  estimate_proportion = c("n_prop", "prop_ci"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">389</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  estimate_proportion_diff = c("diff", "diff_ci"),</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">390</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  summarize_ancova = c("n", "lsmean", "lsmean_diff", "lsmean_diff_ci", "pval"),</pre>
+                      <pre class="language-r">#' @order 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">391</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  summarize_coxreg = c("n", "hr", "ci", "pval", "pval_inter"),</pre>
+                      <pre class="language-r">analyze_num_patients &lt;- function(lyt,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">392</td>
+                    <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  summarize_glm_count = c("n", "rate", "rate_ci", "rate_ratio", "rate_ratio_ci", "pval"),</pre>
+                      <pre class="language-r">                                 vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">393</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  summarize_num_patients = c("unique", "nonunique", "unique_count"),</pre>
+                      <pre class="language-r">                                 required = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">394</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  summarize_patients_events_in_cols = c("unique", "all"),</pre>
+                      <pre class="language-r">                                 count_by = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">395</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  surv_time = c("median", "median_ci", "quantiles", "range_censor", "range_event", "range"),</pre>
+                      <pre class="language-r">                                 unique_count_suffix = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">396</td>
+                    <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  surv_timepoint = c("pt_at_risk", "event_free_rate", "rate_se", "rate_ci", "rate_diff", "rate_diff_ci", "ztest_pval"),</pre>
+                      <pre class="language-r">                                 na_str = default_na_str(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">397</td>
+                    <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tabulate_rsp_biomarkers = c("n_tot", "n_rsp", "prop", "or", "ci", "pval"),</pre>
+                      <pre class="language-r">                                 nested = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">398</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tabulate_rsp_subgroups = c("n", "n_rsp", "prop", "n_tot", "or", "ci", "pval"),</pre>
+                      <pre class="language-r">                                 .stats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">399</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tabulate_survival_biomarkers = c("n_tot", "n_tot_events", "median", "hr", "ci", "pval"),</pre>
+                      <pre class="language-r">                                 .formats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">400</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tabulate_survival_subgroups = c("n_tot_events", "n_events", "n_tot", "n", "median", "hr", "ci", "pval"),</pre>
+                      <pre class="language-r">                                 .labels = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">401</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  test_proportion_diff = c("pval")</pre>
+                      <pre class="language-r">                                   unique = "Number of patients with at least one event",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">402</td>
+                    <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">                                   nonunique = "Number of events"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">403</td>
+                    <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                 ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">404</td>
+                    <td class="num">258</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn default_stats_formats_labels Named vector of default formats for `tern`.</pre>
+                      <pre class="language-r">                                 show_labels = c("default", "visible", "hidden"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">405</td>
+                    <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                 .indent_mods = 0L,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">406</td>
+                    <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @format</pre>
+                      <pre class="language-r">                                 riskdiff = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">407</td>
+                    <td class="num">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `tern_default_formats` is a named vector of available default formats, with each element</pre>
+                      <pre class="language-r">                                 ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">408</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">262</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   named for their corresponding statistic.</pre>
+                      <pre class="language-r">  checkmate::assert_flag(riskdiff)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">409</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">410</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">264</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  if (is.null(.stats)) .stats &lt;- c("unique", "nonunique", "unique_count")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">411</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">265</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">tern_default_formats &lt;- c(</pre>
+                      <pre class="language-r">  if (length(.labels) &gt; length(.stats)) .labels &lt;- .labels[names(.labels) %in% .stats]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">412</td>
+                    <td class="num">266</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  fraction = format_fraction_fixed_dp,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">413</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">267</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  unique = format_count_fraction_fixed_dp,</pre>
+                      <pre class="language-r">  s_args &lt;- list(required = required, count_by = count_by, unique_count_suffix = unique_count_suffix, ...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">414</td>
+                    <td class="num">268</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nonunique = "xx",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">415</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">269</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  unique_count = "xx",</pre>
+                      <pre class="language-r">  afun &lt;- make_afun(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">416</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">270</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n = "xx.",</pre>
+                      <pre class="language-r">    c_num_patients,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">417</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">271</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  count = "xx.",</pre>
+                      <pre class="language-r">    .stats = .stats,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">418</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">272</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  count_fraction = format_count_fraction,</pre>
+                      <pre class="language-r">    .formats = .formats,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">419</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">273</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  count_fraction_fixed_dp = format_count_fraction_fixed_dp,</pre>
+                      <pre class="language-r">    .labels = .labels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">420</td>
+                    <td class="num">274</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n_blq = "xx.",</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">421</td>
+                    <td class="num">275</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  sum = "xx.x",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">422</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">276</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mean = "xx.x",</pre>
+                      <pre class="language-r">  extra_args &lt;- if (isFALSE(riskdiff)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">423</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">277</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  sd = "xx.x",</pre>
+                      <pre class="language-r">    s_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">424</td>
+                    <td class="num">278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  se = "xx.x",</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">425</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">279</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mean_sd = "xx.x (xx.x)",</pre>
+                      <pre class="language-r">    list(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">280</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      afun = list("s_num_patients_content" = afun),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">281</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      .stats = .stats,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">282</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      .indent_mods = .indent_mods,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">283</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      s_args = s_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">426</td>
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mean_se = "xx.x (xx.x)",</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">427</td>
+                    <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mean_ci = "(xx.xx, xx.xx)",</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">428</td>
+                    <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mean_sei = "(xx.xx, xx.xx)",</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">287</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  analyze(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">288</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    afun = ifelse(isFALSE(riskdiff), afun, afun_riskdiff),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">289</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    lyt = lyt,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">290</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    vars = vars,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">291</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    na_str = na_str,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">292</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    nested = nested,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">293</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    extra_args = extra_args,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">294</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    show_labels = show_labels,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">295</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    indent_mod = .indent_mods</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">429</td>
+                    <td class="num">296</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mean_sdi = "(xx.xx, xx.xx)",</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">430</td>
+                    <td class="num">297</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mean_pval = "x.xxxx | (&lt;0.0001)",</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/bland_altman.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">431</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  median = "xx.x",</pre>
+                      <pre class="language-r">#' Bland-Altman analysis</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">432</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mad = "xx.x",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">433</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  median_ci = "(xx.xx, xx.xx)",</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">434</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  quantiles = "xx.x - xx.x",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">435</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  iqr = "xx.x",</pre>
+                      <pre class="language-r">#' Statistics function that uses the Bland-Altman method to assess the agreement between two numerical vectors</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">436</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  range = "xx.x - xx.x",</pre>
+                      <pre class="language-r">#' and calculates a variety of statistics.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">437</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  min = "xx.x",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">438</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  max = "xx.x",</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">439</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  median_range = "xx.x (xx.x - xx.x)",</pre>
+                      <pre class="language-r">#' @param y (`numeric`)\cr vector of numbers we want to analyze, to be compared with `x`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">440</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  cv = "xx.x",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">441</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  geom_mean = "xx.x",</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">442</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  geom_mean_ci = "(xx.xx, xx.xx)",</pre>
+                      <pre class="language-r">#' A named list of the following elements:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">443</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  geom_cv = "xx.x",</pre>
+                      <pre class="language-r">#'   * `df`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">444</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  pval = "x.xxxx | (&lt;0.0001)",</pre>
+                      <pre class="language-r">#'   * `difference_mean`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">445</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  pval_counts = "x.xxxx | (&lt;0.0001)",</pre>
+                      <pre class="language-r">#'   * `ci_mean`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">446</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  range_censor = "xx.x to xx.x",</pre>
+                      <pre class="language-r">#'   * `difference_sd`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">447</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  range_event = "xx.x to xx.x",</pre>
+                      <pre class="language-r">#'   * `difference_se`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">448</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  rate = "xx.xxxx",</pre>
+                      <pre class="language-r">#'   * `upper_agreement_limit`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">449</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  rate_ci = "(xx.xxxx, xx.xxxx)",</pre>
+                      <pre class="language-r">#'   * `lower_agreement_limit`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">450</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  rate_ratio = "xx.xxxx",</pre>
+                      <pre class="language-r">#'   * `agreement_limit_se`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">451</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  rate_ratio_ci = "(xx.xxxx, xx.xxxx)"</pre>
+                      <pre class="language-r">#'   * `upper_agreement_limit_ci`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">452</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">#'   * `lower_agreement_limit_ci`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">453</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   * `t_value`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">454</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn default_stats_formats_labels Named `character` vector of default labels for `tern`.</pre>
+                      <pre class="language-r">#'   * `n`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">455</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">456</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @format</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">457</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `tern_default_labels` is a named `character` vector of available default labels, with each element</pre>
+                      <pre class="language-r">#' x &lt;- seq(1, 60, 5)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">458</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   named for their corresponding statistic.</pre>
+                      <pre class="language-r">#' y &lt;- seq(5, 50, 4)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">459</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">460</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' s_bland_altman(x, y, conf_level = 0.9)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">461</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">tern_default_labels &lt;- c(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">462</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  fraction = "fraction",</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">463</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  unique = "Number of patients with at least one event",</pre>
+                      <pre class="language-r">s_bland_altman &lt;- function(x, y, conf_level = 0.95) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">464</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">34</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nonunique = "Number of events",</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(x, min.len = 1, any.missing = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">465</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">35</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n = "n",</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(y, len = length(x), any.missing = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">466</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">36</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  count = "count",</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(conf_level, lower = 0, upper = 1, any.missing = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">467</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  count_fraction = "count_fraction",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">468</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">38</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  count_fraction_fixed_dp = "count_fraction",</pre>
+                      <pre class="language-r">  alpha &lt;- 1 - conf_level</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">469</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n_blq = "n_blq",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">470</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">40</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  sum = "Sum",</pre>
+                      <pre class="language-r">  ind &lt;- complete.cases(x, y) # use only pairwise complete observations, and check if x and y have the same length</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">471</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">41</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mean = "Mean",</pre>
+                      <pre class="language-r">  x &lt;- x[ind]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">472</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">42</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  sd = "SD",</pre>
+                      <pre class="language-r">  y &lt;- y[ind]</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">43</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  n &lt;- sum(ind) # number of 'observations'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">473</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  se = "SE",</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">45</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (n == 0) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">46</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    stop("there is no valid paired data")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">474</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mean_sd = "Mean (SD)",</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">475</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mean_se = "Mean (SE)",</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">49</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  difference &lt;- x - y # vector of differences</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">50</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  average &lt;- (x + y) / 2 # vector of means</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">51</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  difference_mean &lt;- mean(difference) # mean difference</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">52</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  difference_sd &lt;- sd(difference) # SD of differences</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">53</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  al &lt;- qnorm(1 - alpha / 2) * difference_sd</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">54</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  upper_agreement_limit &lt;- difference_mean + al # agreement limits</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">55</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  lower_agreement_limit &lt;- difference_mean - al</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">476</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mean_ci = "Mean 95% CI",</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">57</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  difference_se &lt;- difference_sd / sqrt(n) # standard error of the mean</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">58</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  al_se &lt;- difference_sd * sqrt(3) / sqrt(n) # standard error of the agreement limit</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">59</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  tvalue &lt;- qt(1 - alpha / 2, n - 1) # t value for 95% CI calculation</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">60</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  difference_mean_ci &lt;- difference_se * tvalue</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">61</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  al_ci &lt;- al_se * tvalue</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">62</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  upper_agreement_limit_ci &lt;- c(upper_agreement_limit - al_ci, upper_agreement_limit + al_ci)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">63</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  lower_agreement_limit_ci &lt;- c(lower_agreement_limit - al_ci, lower_agreement_limit + al_ci)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">477</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mean_sei = "Mean -/+ 1xSE",</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">65</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  list(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">66</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    df = data.frame(average, difference),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">67</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    difference_mean = difference_mean,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">68</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ci_mean = difference_mean + c(-1, 1) * difference_mean_ci,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">69</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    difference_sd = difference_sd,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">70</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    difference_se = difference_se,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">71</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    upper_agreement_limit = upper_agreement_limit,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">72</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    lower_agreement_limit = lower_agreement_limit,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">73</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    agreement_limit_se = al_se,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">74</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    upper_agreement_limit_ci = upper_agreement_limit_ci,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">75</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    lower_agreement_limit_ci = lower_agreement_limit_ci,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">76</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    t_value = tvalue,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">77</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    n = n</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">478</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mean_sdi = "Mean -/+ 1xSD",</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">479</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mean_pval = "Mean p-value (H0: mean = 0)",</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">480</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  median = "Median",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">481</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mad = "Median Absolute Deviation",</pre>
+                      <pre class="language-r">#' Bland-Altman plot</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">482</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  median_ci = "Median 95% CI",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">483</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  quantiles = "25% and 75%-ile",</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">484</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  iqr = "IQR",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">485</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  range = "Min - Max",</pre>
+                      <pre class="language-r">#' Graphing function that produces a Bland-Altman plot.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">486</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  min = "Minimum",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">487</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  max = "Maximum",</pre>
+                      <pre class="language-r">#' @inheritParams s_bland_altman</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">488</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  median_range = "Median (Min - Max)",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">489</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  cv = "CV (%)",</pre>
+                      <pre class="language-r">#' @return A `ggplot` Bland-Altman plot.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">490</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  geom_mean = "Geometric Mean",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">491</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  geom_mean_ci = "Geometric Mean 95% CI",</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">492</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  geom_cv = "CV % Geometric Mean",</pre>
+                      <pre class="language-r">#' x &lt;- seq(1, 60, 5)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">493</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  pval = "p-value (t-test)", # Default for numeric</pre>
+                      <pre class="language-r">#' y &lt;- seq(5, 50, 4)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">494</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  pval_counts = "p-value (chi-squared test)", # Default for counts</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">495</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  rate = "Adjusted Rate",</pre>
+                      <pre class="language-r">#' g_bland_altman(x = x, y = y, conf_level = 0.9)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">496</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  rate_ratio = "Adjusted Rate Ratio"</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">497</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">498</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @aliases bland_altman</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">499</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"># To deprecate ---------</pre>
+                      <pre class="language-r">g_bland_altman &lt;- function(x, y, conf_level = 0.95) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">100</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  result_tem &lt;- s_bland_altman(x, y, conf_level = conf_level)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">101</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  xpos &lt;- max(result_tem$df$average) * 0.9 + min(result_tem$df$average) * 0.1</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">102</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  yrange &lt;- diff(range(result_tem$df$difference))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">500</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">501</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">104</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn default_stats_formats_labels `r lifecycle::badge("deprecated")`</pre>
+                      <pre class="language-r">  p &lt;- ggplot(result_tem$df) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">502</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">105</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Quick function to retrieve default formats for summary statistics:</pre>
+                      <pre class="language-r">    geom_point(aes(x = average, y = difference), color = "blue") +</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">106</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    geom_hline(yintercept = result_tem$difference_mean, color = "blue", linetype = 1) +</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">107</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    geom_hline(yintercept = 0, color = "blue", linetype = 2) +</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">108</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    geom_hline(yintercept = result_tem$lower_agreement_limit, color = "red", linetype = 2) +</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">109</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    geom_hline(yintercept = result_tem$upper_agreement_limit, color = "red", linetype = 2) +</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">110</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    annotate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">503</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">111</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   [analyze_vars()] and [analyze_vars_in_cols()] principally.</pre>
+                      <pre class="language-r">      "text",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">504</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">112</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      x = xpos,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">505</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">113</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param type (`string`)\cr `"numeric"` or `"counts"`.</pre>
+                      <pre class="language-r">      y = result_tem$lower_agreement_limit + 0.03 * yrange,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">506</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">114</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      label = "lower limits of agreement",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">507</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">115</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">      color = "red"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">508</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `summary_formats()` returns a named `vector` of default statistic formats for the given data type.</pre>
+                      <pre class="language-r">    ) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">509</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">117</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    annotate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">510</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">118</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">      "text",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">511</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">119</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' summary_formats()</pre>
+                      <pre class="language-r">      x = xpos,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">512</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">120</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' summary_formats(type = "counts", include_pval = TRUE)</pre>
+                      <pre class="language-r">      y = result_tem$upper_agreement_limit + 0.03 * yrange,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">513</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">121</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      label = "upper limits of agreement",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">514</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">122</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">      color = "red"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">515</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">summary_formats &lt;- function(type = "numeric", include_pval = FALSE) {</pre>
+                      <pre class="language-r">    ) +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">516</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">124</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
+                      <pre class="language-r">    annotate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">517</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">125</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "0.9.6", "summary_formats()",</pre>
+                      <pre class="language-r">      "text",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">518</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">126</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    details = 'Use get_formats_from_stats(get_stats("analyze_vars_numeric", add_pval = include_pval)) instead'</pre>
+                      <pre class="language-r">      x = xpos,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">519</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">127</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      y = result_tem$difference_mean + 0.03 * yrange,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">520</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">128</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  met_grp &lt;- paste0(c("analyze_vars", type), collapse = "_")</pre>
+                      <pre class="language-r">      label = "mean of difference between two measures",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">521</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">129</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  get_formats_from_stats(get_stats(met_grp, add_pval = include_pval))</pre>
+                      <pre class="language-r">      color = "blue"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">522</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    ) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">523</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">131</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    annotate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">524</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">132</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn default_stats_formats_labels `r lifecycle::badge("deprecated")`</pre>
+                      <pre class="language-r">      "text",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">525</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">133</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Quick function to retrieve default labels for summary statistics.</pre>
+                      <pre class="language-r">      x = xpos,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">526</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">134</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Returns labels of descriptive statistics which are understood by `rtables`. Similar to `summary_formats`.</pre>
+                      <pre class="language-r">      y = result_tem$lower_agreement_limit - 0.03 * yrange,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">527</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">135</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      label = sprintf("%.2f", result_tem$lower_agreement_limit),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">528</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">136</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param include_pval (`flag`)\cr same as the `add_pval` argument in [get_stats()].</pre>
+                      <pre class="language-r">      color = "red"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">529</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    ) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">530</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">138</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">    annotate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">531</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">139</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `summary_labels` returns a named `vector` of default statistic labels for the given data type.</pre>
+                      <pre class="language-r">      "text",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">532</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">140</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      x = xpos,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">533</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">141</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">      y = result_tem$upper_agreement_limit - 0.03 * yrange,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">534</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">142</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' summary_labels()</pre>
+                      <pre class="language-r">      label = sprintf("%.2f", result_tem$upper_agreement_limit),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">535</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">143</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' summary_labels(type = "counts", include_pval = TRUE)</pre>
+                      <pre class="language-r">      color = "red"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">536</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    ) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">537</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">145</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    annotate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">538</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">146</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">summary_labels &lt;- function(type = "numeric", include_pval = FALSE) {</pre>
+                      <pre class="language-r">      "text",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">539</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">147</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lifecycle::deprecate_warn(</pre>
+                      <pre class="language-r">      x = xpos,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">540</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">148</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "0.9.6", "summary_formats()",</pre>
+                      <pre class="language-r">      y = result_tem$difference_mean - 0.03 * yrange,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">541</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">149</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    details = 'Use get_labels_from_stats(get_stats("analyze_vars_numeric", add_pval = include_pval)) instead'</pre>
+                      <pre class="language-r">      label = sprintf("%.2f", result_tem$difference_meanm),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">150</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      color = "blue"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">542</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    ) +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">543</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">152</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  met_grp &lt;- paste0(c("analyze_vars", type), collapse = "_")</pre>
+                      <pre class="language-r">    xlab("Average of two measures") +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">544</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">153</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  get_labels_from_stats(get_stats(met_grp, add_pval = include_pval))</pre>
+                      <pre class="language-r">    ylab("Difference between two measures")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">545</td>
+                    <td class="num">154</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">155</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  return(p)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -139398,14 +138548,14 @@ <h2>tern coverage - 95.64%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/utils_ggplot.R" class="hidden">
+            <div id="R/utils_factor.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Convert `rtable` objects to `ggplot` objects</pre>
+                      <pre class="language-r">#' Combine factor levels</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -139419,7 +138569,7 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -139433,77 +138583,77 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Given a [rtables::rtable()] object, performs basic conversion to a [ggplot2::ggplot()] object built using</pre>
+                      <pre class="language-r">#' Combine specified old factor Levels in a single new level.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' functions from the `ggplot2` package. Any table titles and/or footnotes are ignored.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param x (`factor`)\cr factor variable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param tbl (`VTableTree`)\cr `rtables` table object.</pre>
+                      <pre class="language-r">#' @param levels (`character`)\cr level names to be combined.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param fontsize (`numeric(1)`)\cr font size.</pre>
+                      <pre class="language-r">#' @param new_level (`string`)\cr name of new level.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param colwidths (`numeric` or `NULL`)\cr a vector of column widths. Each element's position in</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `colwidths` corresponds to the column of `tbl` in the same position. If `NULL`, column widths</pre>
+                      <pre class="language-r">#' @return A `factor` with the new levels.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   are calculated according to maximum number of characters per column.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param lbl_col_padding (`numeric`)\cr additional padding to use when calculating spacing between</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the first (label) column and the second column of `tbl`. If `colwidths` is specified,</pre>
+                      <pre class="language-r">#' x &lt;- factor(letters[1:5], levels = letters[5:1])</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the width of the first column becomes `colwidths[1] + lbl_col_padding`. Defaults to 0.</pre>
+                      <pre class="language-r">#' combine_levels(x, levels = c("a", "b"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -139517,7 +138667,7 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `ggplot` object.</pre>
+                      <pre class="language-r">#' combine_levels(x, c("e", "b"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -139531,105 +138681,105 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dta &lt;- data.frame(</pre>
+                      <pre class="language-r">combine_levels &lt;- function(x, levels, new_level = paste(levels, collapse = "/")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">21</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ARM     = rep(LETTERS[1:3], rep(6, 3)),</pre>
+                      <pre class="language-r">  checkmate::assert_factor(x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">22</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   AVISIT  = rep(paste0("V", 1:3), 6),</pre>
+                      <pre class="language-r">  checkmate::assert_subset(levels, levels(x))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   AVAL    = c(9:1, rep(NA, 9))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">24</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  lvls &lt;- levels(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">26</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">  lvls[lvls %in% levels] &lt;- new_level</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by(var = "ARM") %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">28</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by(var = "AVISIT") %&gt;%</pre>
+                      <pre class="language-r">  levels(x) &lt;- lvls</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze_vars(vars = "AVAL")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">30</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  x</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tbl &lt;- build_table(lyt, df = dta)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' rtable2gg(tbl)</pre>
+                      <pre class="language-r">#' Conversion of a vector to a factor</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -139643,805 +138793,805 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' rtable2gg(tbl, fontsize = 15, colwidths = c(2, 1, 1, 1))</pre>
+                      <pre class="language-r">#' Converts `x` to a factor and keeps its attributes. Warns appropriately such that the user</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' can decide whether they prefer converting to factor manually (e.g. for full control of</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' factor levels).</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">rtable2gg &lt;- function(tbl, fontsize = 12, colwidths = NULL, lbl_col_padding = 0) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">39</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mat &lt;- rtables::matrix_form(tbl, indent_rownames = TRUE)</pre>
+                      <pre class="language-r">#' @param x (`vector`)\cr object to convert.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">40</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mat_strings &lt;- formatters::mf_strings(mat)</pre>
+                      <pre class="language-r">#' @param x_name (`string`)\cr name of `x`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">41</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mat_aligns &lt;- formatters::mf_aligns(mat)</pre>
+                      <pre class="language-r">#' @param na_level (`string`)\cr the explicit missing level which should be used when converting a character vector.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">42</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mat_indent &lt;- formatters::mf_rinfo(mat)$indent</pre>
+                      <pre class="language-r">#' @param verbose (`flag`)\cr defaults to `TRUE`. It prints out warnings and messages.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">43</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mat_display &lt;- formatters::mf_display(mat)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">44</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nlines_hdr &lt;- formatters::mf_nlheader(mat)</pre>
+                      <pre class="language-r">#' @return A `factor` with same attributes (except class) as `x`. Does not modify `x` if already a `factor`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">45</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  shared_hdr_rows &lt;- which(apply(mat_display, 1, function(x) (any(!x))))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">47</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tbl_df &lt;- data.frame(mat_strings)</pre>
+                      <pre class="language-r">as_factor_keep_attributes &lt;- function(x,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">48</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  body_rows &lt;- seq(nlines_hdr + 1, nrow(tbl_df))</pre>
+                      <pre class="language-r">                                      x_name = deparse(substitute(x)),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">49</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mat_aligns &lt;- apply(mat_aligns, 1:2, function(x) if (x == "left") 0 else if (x == "right") 1 else 0.5)</pre>
+                      <pre class="language-r">                                      na_level = "&lt;Missing&gt;",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                      verbose = TRUE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">51</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">205<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Apply indentation in first column</pre>
+                      <pre class="language-r">  checkmate::assert_atomic(x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">52</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">205<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tbl_df[body_rows, 1] &lt;- sapply(body_rows, function(i) {</pre>
+                      <pre class="language-r">  checkmate::assert_string(x_name)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">53</td>
-                    <td class="coverage">42<em>x</em></td>
+                    <td class="coverage">205<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ind_i &lt;- mat_indent[i - nlines_hdr] * 4</pre>
+                      <pre class="language-r">  checkmate::assert_string(na_level)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">54</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage">205<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (ind_i &gt; 0) paste0(paste(rep(" ", ind_i), collapse = ""), tbl_df[i, 1]) else tbl_df[i, 1]</pre>
+                      <pre class="language-r">  checkmate::assert_flag(verbose)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">55</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">205<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">  if (is.factor(x)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">56</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">186<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    return(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Get column widths</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">58</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(colwidths)) {</pre>
+                      <pre class="language-r">  x_class &lt;- class(x)[1]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">59</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    colwidths &lt;- apply(tbl_df, 2, function(x) max(nchar(x))) + 1</pre>
+                      <pre class="language-r">  if (verbose) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">60</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    warning(paste(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">61</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tot_width &lt;- sum(colwidths) + lbl_col_padding</pre>
+                      <pre class="language-r">      "automatically converting", x_class, "variable", x_name,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">62</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      "to factor, better manually convert to factor to avoid failures"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">63</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(shared_hdr_rows) &gt; 0) {</pre>
+                      <pre class="language-r">    ))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">64</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tbl_df &lt;- tbl_df[-shared_hdr_rows, ]</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">65</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mat_aligns &lt;- mat_aligns[-shared_hdr_rows, ]</pre>
+                      <pre class="language-r">  if (identical(length(x), 0L)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">66</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    warning(paste(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">67</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      x_name, "has length 0, this can lead to tabulation failures, better convert to factor"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">68</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  res &lt;- ggplot(data = tbl_df) +</pre>
+                      <pre class="language-r">    ))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">69</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    theme_void() +</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">70</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    scale_x_continuous(limits = c(0, tot_width)) +</pre>
+                      <pre class="language-r">  if (is.character(x)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">71</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    scale_y_continuous(limits = c(0, nrow(mat_strings))) +</pre>
+                      <pre class="language-r">    x_no_na &lt;- explicit_na(sas_na(x), label = na_level)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">72</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    annotate(</pre>
+                      <pre class="language-r">    if (any(na_level %in% x_no_na)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">73</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "segment",</pre>
+                      <pre class="language-r">      do.call(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">74</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = 0, xend = tot_width,</pre>
+                      <pre class="language-r">        structure,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">75</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y = nrow(mat_strings) - nlines_hdr + 0.5, yend = nrow(mat_strings) - nlines_hdr + 0.5</pre>
+                      <pre class="language-r">        c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">76</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">          list(.Data = forcats::fct_relevel(x_no_na, na_level, after = Inf)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">77</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          attributes(x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # If header content spans multiple columns, center over these columns</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">79</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(shared_hdr_rows) &gt; 0) {</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">80</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mat_strings[shared_hdr_rows, ] &lt;- trimws(mat_strings[shared_hdr_rows, ])</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">81</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    for (hr in shared_hdr_rows) {</pre>
+                      <pre class="language-r">      do.call(structure, c(list(.Data = as.factor(x)), attributes(x)))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">82</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      hdr_lbls &lt;- mat_strings[1:hr, mat_display[hr, -1]]</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">83</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      hdr_lbls &lt;- matrix(hdr_lbls[nzchar(hdr_lbls)], nrow = hr)</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">84</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      for (idx_hl in seq_len(ncol(hdr_lbls))) {</pre>
+                      <pre class="language-r">    do.call(structure, c(list(.Data = as.factor(x)), attributes(x)))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">85</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        cur_lbl &lt;- tail(hdr_lbls[, idx_hl], 1)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">86</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        which_cols &lt;- if (hr == 1) {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">87</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          which(mat_strings[hr, ] == hdr_lbls[idx_hl])</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">88</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else { # for &gt;2 col splits, only print labels for each unique combo of nested columns</pre>
+                      <pre class="language-r">#' Labels for bins in percent</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">89</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          which(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">90</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            apply(mat_strings[1:hr, ], 2, function(x) all(x == hdr_lbls[1:hr, idx_hl]))</pre>
+                      <pre class="language-r">#' This creates labels for quantile based bins in percent. This assumes the right-closed</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#' intervals as produced by [cut_quantile_bins()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">93</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        line_pos &lt;- c(</pre>
+                      <pre class="language-r">#' @param probs (`numeric`)\cr the probabilities identifying the quantiles.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">94</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          sum(colwidths[1:(which_cols[1] - 1)]) + 1 + lbl_col_padding,</pre>
+                      <pre class="language-r">#'   This is a sorted vector of unique `proportion` values, i.e. between 0 and 1, where</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">95</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          sum(colwidths[1:max(which_cols)]) - 1 + lbl_col_padding</pre>
+                      <pre class="language-r">#'   the boundaries 0 and 1 must not be included.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' @param digits (`integer(1)`)\cr number of decimal places to round the percent numbers.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">98</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        res &lt;- res +</pre>
+                      <pre class="language-r">#' @return A `character` vector with labels in the format `[0%,20%]`, `(20%,50%]`, etc.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">99</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          annotate(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">100</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "text",</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">101</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            x = mean(line_pos),</pre>
+                      <pre class="language-r">bins_percent_labels &lt;- function(probs,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">102</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            y = nrow(mat_strings) + 1 - hr,</pre>
+                      <pre class="language-r">                                digits = 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">103</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            label = cur_lbl,</pre>
+                      <pre class="language-r">  if (isFALSE(0 %in% probs)) probs &lt;- c(0, probs)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">104</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            size = fontsize / .pt</pre>
+                      <pre class="language-r">  if (isFALSE(1 %in% probs)) probs &lt;- c(probs, 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">105</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ) +</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(probs, lower = 0, upper = 1, unique = TRUE, sorted = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">106</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          annotate(</pre>
+                      <pre class="language-r">  percent &lt;- round(probs * 100, digits = digits)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">107</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "segment",</pre>
+                      <pre class="language-r">  left &lt;- paste0(utils::head(percent, -1), "%")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">108</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            x = line_pos[1],</pre>
+                      <pre class="language-r">  right &lt;- paste0(utils::tail(percent, -1), "%")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">109</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            xend = line_pos[2],</pre>
+                      <pre class="language-r">  without_left_bracket &lt;- paste0(left, ",", right, "]")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">110</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            y = nrow(mat_strings) - hr + 0.5,</pre>
+                      <pre class="language-r">  with_left_bracket &lt;- paste0("[", utils::head(without_left_bracket, 1))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">111</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            yend = nrow(mat_strings) - hr + 0.5</pre>
+                      <pre class="language-r">  if (length(without_left_bracket) &gt; 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">112</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">    with_left_bracket &lt;- c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">113</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      with_left_bracket,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">114</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">      paste0("(", utils::tail(without_left_bracket, -1))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">117</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Add table columns</pre>
+                      <pre class="language-r">  with_left_bracket</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">118</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  for (i in seq_len(ncol(tbl_df))) {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">119</td>
-                    <td class="coverage">40<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    res &lt;- res + annotate(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">120</td>
-                    <td class="coverage">40<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "text",</pre>
+                      <pre class="language-r">#' Cut numeric vector into empirical quantile bins</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">121</td>
-                    <td class="coverage">40<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = if (i == 1) 0 else sum(colwidths[1:i]) - 0.5 * colwidths[i] + lbl_col_padding,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">122</td>
-                    <td class="coverage">40<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y = rev(seq_len(nrow(tbl_df))),</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">123</td>
-                    <td class="coverage">40<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      label = tbl_df[, i],</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">124</td>
-                    <td class="coverage">40<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      hjust = mat_aligns[, i],</pre>
+                      <pre class="language-r">#' This cuts a numeric vector into sample quantile bins.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">125</td>
-                    <td class="coverage">40<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      size = fontsize / .pt</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' @inheritParams bins_percent_labels</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @param x (`numeric`)\cr the continuous variable values which should be cut into</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   quantile bins. This may contain `NA` values, which are then</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">129</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  res</pre>
+                      <pre class="language-r">#'   not used for the quantile calculations, but included in the return vector.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @param labels (`character`)\cr the unique labels for the quantile bins. When there are `n`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   probabilities in `probs`, then this must be `n + 1` long.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Convert `data.frame` object to `ggplot` object</pre>
+                      <pre class="language-r">#' @param type (`integer(1)`)\cr type of quantiles to use, see [stats::quantile()] for details.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param ordered (`flag`)\cr should the result be an ordered factor.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return A `factor` variable with appropriately-labeled bins as levels.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Given a `data.frame` object, performs basic conversion to a [ggplot2::ggplot()] object built using</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' functions from the `ggplot2` package.</pre>
+                      <pre class="language-r">#' @note Intervals are closed on the right side. That is, the first bin is the interval</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   `[-Inf, q1]` where `q1` is the first quantile, the second bin is then `(q1, q2]`, etc.,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param df (`data.frame`)\cr a data frame.</pre>
+                      <pre class="language-r">#'   and the last bin is `(qn, +Inf]` where `qn` is the last quantile.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param colwidths (`numeric` or `NULL`)\cr a vector of column widths. Each element's position in</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `colwidths` corresponds to the column of `df` in the same position. If `NULL`, column widths</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   are calculated according to maximum number of characters per column.</pre>
+                      <pre class="language-r">#' # Default is to cut into quartile bins.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param font_size (`numeric(1)`)\cr font size.</pre>
+                      <pre class="language-r">#' cut_quantile_bins(cars$speed)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param col_labels (`flag`)\cr whether the column names (labels) of `df` should be used as the first row</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   of the output table.</pre>
+                      <pre class="language-r">#' # Use custom quantiles.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param col_lab_fontface (`string`)\cr font face to apply to the first row (of column labels</pre>
+                      <pre class="language-r">#' cut_quantile_bins(cars$speed, probs = c(0.1, 0.2, 0.6, 0.88))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   if `col_labels = TRUE`). Defaults to `"bold"`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param hline (`flag`)\cr whether a horizontal line should be printed below the first row of the table.</pre>
+                      <pre class="language-r">#' # Use custom labels.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param bg_fill (`string`)\cr table background fill color.</pre>
+                      <pre class="language-r">#' cut_quantile_bins(cars$speed, labels = paste0("Q", 1:4))</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -140455,35 +139605,35 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `ggplot` object.</pre>
+                      <pre class="language-r">#' # NAs are preserved in result factor.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' ozone_binned &lt;- cut_quantile_bins(airquality$Ozone)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' which(is.na(ozone_binned))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' \dontrun{</pre>
+                      <pre class="language-r">#' # So you might want to make these explicit.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df2gg(head(iris, 5))</pre>
+                      <pre class="language-r">#' explicit_na(ozone_binned)</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -140497,6484 +139647,6301 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df2gg(head(iris, 5), font_size = 15, colwidths = c(1, 1, 1, 1, 1))</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">cut_quantile_bins &lt;- function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">                              probs = c(0.25, 0.5, 0.75),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">df2gg &lt;- function(df,</pre>
+                      <pre class="language-r">                              labels = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  colwidths = NULL,</pre>
+                      <pre class="language-r">                              type = 7,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  font_size = 10,</pre>
+                      <pre class="language-r">                              ordered = TRUE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">163</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  col_labels = TRUE,</pre>
+                      <pre class="language-r">  checkmate::assert_flag(ordered)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">164</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  col_lab_fontface = "bold",</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">165</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  hline = TRUE,</pre>
+                      <pre class="language-r">  if (isFALSE(0 %in% probs)) probs &lt;- c(0, probs)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">166</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                  bg_fill = NULL) {</pre>
+                      <pre class="language-r">  if (isFALSE(1 %in% probs)) probs &lt;- c(probs, 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">167</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # convert to text</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(probs, lower = 0, upper = 1, unique = TRUE, sorted = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">168</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df &lt;- as.data.frame(apply(df, 1:2, function(x) if (is.na(x)) "NA" else as.character(x)))</pre>
+                      <pre class="language-r">  if (is.null(labels)) labels &lt;- bins_percent_labels(probs)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">169</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  checkmate::assert_character(labels, len = length(probs) - 1, any.missing = FALSE, unique = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">170</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (col_labels) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">171</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df &lt;- as.matrix(df)</pre>
+                      <pre class="language-r">  if (all(is.na(x))) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">172</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df &lt;- rbind(colnames(df), df)</pre>
+                      <pre class="language-r">    # Early return if there are only NAs in input.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">173</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    return(factor(x, ordered = ordered, levels = labels))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Get column widths</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">176</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(colwidths)) {</pre>
+                      <pre class="language-r">  quantiles &lt;- stats::quantile(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">177</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    colwidths &lt;- apply(df, 2, function(x) max(nchar(x), na.rm = TRUE))</pre>
+                      <pre class="language-r">    x,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">178</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    probs = probs,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">179</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tot_width &lt;- sum(colwidths)</pre>
+                      <pre class="language-r">    type = type,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">180</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    na.rm = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">181</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  res &lt;- ggplot(data = df) +</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">182</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    theme_void() +</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">183</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    scale_x_continuous(limits = c(0, tot_width)) +</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(quantiles, unique = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">184</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    scale_y_continuous(limits = c(1, nrow(df)))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">185</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  cut(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">186</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(bg_fill)) res &lt;- res + theme(plot.background = element_rect(fill = bg_fill))</pre>
+                      <pre class="language-r">    x,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">187</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    breaks = quantiles,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">188</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (hline) {</pre>
+                      <pre class="language-r">    labels = labels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">189</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    res &lt;- res +</pre>
+                      <pre class="language-r">    ordered_result = ordered,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">190</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      annotate(</pre>
+                      <pre class="language-r">    include.lowest = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">191</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "segment",</pre>
+                      <pre class="language-r">    right = TRUE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">192</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = 0 + 0.2 * colwidths[2], xend = tot_width - 0.1 * tail(colwidths, 1),</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">193</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        y = nrow(df) - 0.5, yend = nrow(df) - 0.5</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' Discard specified levels of a factor</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">197</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  for (i in seq_len(ncol(df))) {</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">198</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    line_pos &lt;- c(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">199</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (i == 1) 0 else sum(colwidths[1:(i - 1)]),</pre>
+                      <pre class="language-r">#' This discards the observations as well as the levels specified from a factor.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">200</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sum(colwidths[1:i])</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' @param x (`factor`)\cr the original factor.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">202</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    res &lt;- res +</pre>
+                      <pre class="language-r">#' @param discard (`character`)\cr levels to discard.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">203</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      annotate(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">204</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "text",</pre>
+                      <pre class="language-r">#' @return A modified `factor` with observations as well as levels from `discard` dropped.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">205</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = mean(line_pos),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">206</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        y = rev(seq_len(nrow(df))),</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">207</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        label = df[, i],</pre>
+                      <pre class="language-r">#' fct_discard(factor(c("a", "b", "c")), "c")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">208</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        size = font_size / .pt,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">209</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        fontface = if (col_labels) {</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">210</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          c(col_lab_fontface, rep("plain", nrow(df) - 1))</pre>
+                      <pre class="language-r">fct_discard &lt;- function(x, discard) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">211</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">319<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">  checkmate::assert_factor(x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">212</td>
-                    <td class="coverage">54<em>x</em></td>
+                    <td class="coverage">319<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          rep("plain", nrow(df))</pre>
+                      <pre class="language-r">  checkmate::assert_character(discard, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">213</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">319<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">  new_obs &lt;- x[!(x %in% discard)]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">214</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">319<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  new_levels &lt;- setdiff(levels(x), discard)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">215</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">319<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  factor(new_obs, levels = new_levels)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">217</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  res</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' Insertion of explicit missing values in a factor</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/survival_time.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Survival time analysis</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">220</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' This inserts explicit missing values in a factor based on a condition. Additionally,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' existing `NA` values will be explicitly converted to given `na_level`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The analyze function [surv_time()] creates a layout element to analyze survival time by calculating survival time</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' median, median confidence interval, quantiles, and range (for all, censored, or event patients). The primary</pre>
+                      <pre class="language-r">#' @param x (`factor`)\cr the original factor.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' analysis variable `vars` is the time variable and the secondary analysis variable `is_event` indicates whether or</pre>
+                      <pre class="language-r">#' @param condition (`logical`)\cr positions at which to insert missing values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' not an event has occurred.</pre>
+                      <pre class="language-r">#' @param na_level (`string`)\cr which level to use for missing values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' @return A modified `factor` with inserted and existing `NA` converted to `na_level`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param control (`list`)\cr parameters for comparison details, specified by using the helper function</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   [control_surv_time()]. Some possible parameter options are:</pre>
+                      <pre class="language-r">#' @seealso [forcats::fct_na_value_to_level()] which is used internally.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `conf_level` (`proportion`)\cr confidence level of the interval for survival time.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `conf_type` (`string`)\cr confidence interval type. Options are "plain" (default), "log", or "log-log",</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     see more in [survival::survfit()]. Note option "none" is not supported.</pre>
+                      <pre class="language-r">#' fct_explicit_na_if(factor(c("a", "b", NA)), c(TRUE, FALSE, FALSE))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `quantiles` (`numeric`)\cr vector of length two to specify the quantiles of survival time.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ref_fn_censor (`flag`)\cr whether referential footnotes indicating censored observations should be printed</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   when the `range` statistic is included.</pre>
+                      <pre class="language-r">fct_explicit_na_if &lt;- function(x, condition, na_level = "&lt;Missing&gt;") {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">238</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_factor(x, len = length(condition))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">239</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_logical(condition)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">240</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  x[condition] &lt;- NA</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">241</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  x &lt;- forcats::fct_na_value_to_level(x, level = na_level)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">242</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  forcats::fct_drop(x, only = na_level)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("surv_time")`</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to see available statistics for this function.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .indent_mods (named `integer`)\cr indent modifiers for the labels. Each element of the vector</pre>
+                      <pre class="language-r">#' Collapse factor levels and keep only those new group levels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   should be a name-value pair with name corresponding to a statistic specified in `.stats` and value the indentation</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   for that statistic's row label.</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' This collapses levels and only keeps those new group levels, in the order provided.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">#' The returned factor has levels in the order given, with the possible missing level last (this will</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">251</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' only be included if there are missing values).</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adtte_f &lt;- tern_ex_adtte %&gt;%</pre>
+                      <pre class="language-r">#' @param .f (`factor` or `character`)\cr original vector.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
+                      <pre class="language-r">#' @param ... (named `character`)\cr levels in each vector provided will be collapsed into</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mutate(</pre>
+                      <pre class="language-r">#'   the new level given by the respective name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     AVAL = day2month(AVAL),</pre>
+                      <pre class="language-r">#' @param .na_level (`string`)\cr which level to use for other levels, which should be missing in the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     is_event = CNSR == 0</pre>
+                      <pre class="language-r">#'   new factor. Note that this level must not be contained in the new levels specified in `...`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">258</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- adtte_f %&gt;% filter(ARMCD == "ARM A")</pre>
+                      <pre class="language-r">#' @return A modified `factor` with collapsed levels. Values and levels which are not included</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   in the given `character` vector input will be set to the missing level `.na_level`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name survival_time</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">262</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 1</pre>
+                      <pre class="language-r">#' @note Any existing `NA`s in the input vector will not be replaced by the missing level. If needed,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#'   [explicit_na()] can be called separately on the result.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">265</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn survival_time Statistics function which analyzes survival times.</pre>
+                      <pre class="language-r">#' @seealso [forcats::fct_collapse()], [forcats::fct_relevel()] which are used internally.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">266</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">267</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">268</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_surv_time()` returns the statistics:</pre>
+                      <pre class="language-r">#' fct_collapse_only(factor(c("a", "b", "c", "d")), TRT = "b", CTRL = c("c", "d"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `median`: Median survival time.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">270</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `median_ci`: Confidence interval for median time.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">271</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `quantiles`: Survival time for two specified quantiles.</pre>
+                      <pre class="language-r">fct_collapse_only &lt;- function(.f, ..., .na_level = "&lt;Missing&gt;") {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">272</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  new_lvls &lt;- names(list(...))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">273</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (checkmate::test_subset(.na_level, new_lvls)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">274</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    stop(paste0(".na_level currently set to '", .na_level, "' must not be contained in the new levels"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">275</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `range_censor`: Survival time range for censored observations.</pre>
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">276</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  x &lt;- forcats::fct_collapse(.f, ..., other_level = .na_level)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">277</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  do.call(forcats::fct_relevel, args = c(list(.f = x), as.list(new_lvls)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">278</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `range_event`: Survival time range for observations with events.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">279</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `range`: Survival time range for all observations.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">280</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Ungroup non-numeric statistics</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">281</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">282</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_surv_time &lt;- function(df,</pre>
+                      <pre class="language-r">#' Ungroups grouped non-numeric statistics within input vectors `.formats`, `.labels`, and `.indent_mods`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">283</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        .var,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        is_event,</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        control = control_surv_time()) {</pre>
+                      <pre class="language-r">#' @param x  (named `list` of `numeric`)\cr list of numeric statistics containing the statistics to ungroup.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">56</td>
-                    <td class="coverage">232<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">286</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(.var)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">232<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">287</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(df, list(tte = .var, is_event = is_event))</pre>
+                      <pre class="language-r">#' @return A `list` with modified elements `x`, `.formats`, `.labels`, and `.indent_mods`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">232<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">288</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(df[[.var]], min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">232<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">289</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_logical(df[[is_event]], min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">#' @seealso [a_summary()] which uses this function internally.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">232<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">291</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  conf_type &lt;- control$conf_type</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">232<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">292</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  conf_level &lt;- control$conf_level</pre>
+                      <pre class="language-r">ungroup_stats &lt;- function(x,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">232<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">293</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  quantiles &lt;- control$quantiles</pre>
+                      <pre class="language-r">                          .formats,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                          .labels,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">232<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">295</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  formula &lt;- stats::as.formula(paste0("survival::Surv(", .var, ", ", is_event, ") ~ 1"))</pre>
+                      <pre class="language-r">                          .indent_mods) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">232<em>x</em></td>
+                    <td class="num">296</td>
+                    <td class="coverage">316<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  srv_fit &lt;- survival::survfit(</pre>
+                      <pre class="language-r">  checkmate::assert_list(x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">67</td>
-                    <td class="coverage">232<em>x</em></td>
+                    <td class="num">297</td>
+                    <td class="coverage">316<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    formula = formula,</pre>
+                      <pre class="language-r">  empty_pval &lt;- "pval" %in% names(x) &amp;&amp; length(x[["pval"]]) == 0</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">232<em>x</em></td>
+                    <td class="num">298</td>
+                    <td class="coverage">316<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data = df,</pre>
+                      <pre class="language-r">  empty_pval_counts &lt;- "pval_counts" %in% names(x) &amp;&amp; length(x[["pval_counts"]]) == 0</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">69</td>
-                    <td class="coverage">232<em>x</em></td>
+                    <td class="num">299</td>
+                    <td class="coverage">316<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    conf.int = conf_level,</pre>
+                      <pre class="language-r">  x &lt;- unlist(x, recursive = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">70</td>
-                    <td class="coverage">232<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">300</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    conf.type = conf_type</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">301</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  # If p-value is empty it is removed by unlist and needs to be re-added</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">232<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">302</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  srv_tab &lt;- summary(srv_fit, extend = TRUE)$table</pre>
+                      <pre class="language-r">  if (empty_pval) x[["pval"]] &lt;- character()</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">73</td>
-                    <td class="coverage">232<em>x</em></td>
+                    <td class="num">303</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  srv_qt_tab &lt;- stats::quantile(srv_fit, probs = quantiles)$quantile</pre>
+                      <pre class="language-r">  if (empty_pval_counts) x[["pval_counts"]] &lt;- character()</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">232<em>x</em></td>
+                    <td class="num">304</td>
+                    <td class="coverage">316<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  range_censor &lt;- range_noinf(df[[.var]][!df[[is_event]]], na.rm = TRUE)</pre>
+                      <pre class="language-r">  .stats &lt;- names(x)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">232<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">305</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  range_event &lt;- range_noinf(df[[.var]][df[[is_event]]], na.rm = TRUE)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">232<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">306</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  range &lt;- range_noinf(df[[.var]], na.rm = TRUE)</pre>
+                      <pre class="language-r">  # Ungroup stats</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">232<em>x</em></td>
+                    <td class="num">307</td>
+                    <td class="coverage">316<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">  .formats &lt;- lapply(.stats, function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">232<em>x</em></td>
+                    <td class="num">308</td>
+                    <td class="coverage">2644<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    median = formatters::with_label(unname(srv_tab["median"]), "Median"),</pre>
+                      <pre class="language-r">    .formats[[if (!grepl("\\.", x)) x else regmatches(x, regexpr("\\.", x), invert = TRUE)[[1]][1]]]</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">309</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">232<em>x</em></td>
+                    <td class="num">310</td>
+                    <td class="coverage">316<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    median_ci = formatters::with_label(</pre>
+                      <pre class="language-r">  .indent_mods &lt;- sapply(.stats, function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">232<em>x</em></td>
+                    <td class="num">311</td>
+                    <td class="coverage">2644<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      unname(srv_tab[paste0(srv_fit$conf.int, c("LCL", "UCL"))]), f_conf_level(conf_level)</pre>
+                      <pre class="language-r">    .indent_mods[[if (!grepl("\\.", x)) x else regmatches(x, regexpr("\\.", x), invert = TRUE)[[1]][1]]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">312</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">82</td>
-                    <td class="coverage">232<em>x</em></td>
+                    <td class="num">313</td>
+                    <td class="coverage">316<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    quantiles = formatters::with_label(</pre>
+                      <pre class="language-r">  .labels &lt;- sapply(.stats, function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">83</td>
-                    <td class="coverage">232<em>x</em></td>
+                    <td class="num">314</td>
+                    <td class="coverage">2575<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      unname(srv_qt_tab), paste0(quantiles[1] * 100, "% and ", quantiles[2] * 100, "%-ile")</pre>
+                      <pre class="language-r">    if (!grepl("\\.", x)) .labels[[x]] else regmatches(x, regexpr("\\.", x), invert = TRUE)[[1]][2]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">315</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ),</pre>
+                      <pre class="language-r">  })</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">316</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">85</td>
-                    <td class="coverage">232<em>x</em></td>
+                    <td class="num">317</td>
+                    <td class="coverage">316<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    range_censor = formatters::with_label(range_censor, "Range (censored)"),</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">232<em>x</em></td>
+                    <td class="num">318</td>
+                    <td class="coverage">316<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    range_event = formatters::with_label(range_event, "Range (event)"),</pre>
+                      <pre class="language-r">    x = x,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">232<em>x</em></td>
+                    <td class="num">319</td>
+                    <td class="coverage">316<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    range = formatters::with_label(range, "Range")</pre>
+                      <pre class="language-r">    .formats = .formats,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">88</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">320</td>
+                    <td class="coverage">316<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    .labels = .labels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">89</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">321</td>
+                    <td class="coverage">316<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    .indent_mods = .indent_mods</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">322</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">323</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn survival_time Formatted analysis function which is used as `afun` in `surv_time()`.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/utils_ggplot.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Convert `rtable` objects to `ggplot` objects</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `a_surv_time()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' Given a [rtables::rtable()] object, performs basic conversion to a [ggplot2::ggplot()] object built using</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' a_surv_time(</pre>
+                      <pre class="language-r">#' functions from the `ggplot2` package. Any table titles and/or footnotes are ignored.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   df,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .df_row = df,</pre>
+                      <pre class="language-r">#' @param tbl (`VTableTree`)\cr `rtables` table object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .var = "AVAL",</pre>
+                      <pre class="language-r">#' @param fontsize (`numeric(1)`)\cr font size.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   is_event = "is_event"</pre>
+                      <pre class="language-r">#' @param colwidths (`numeric` or `NULL`)\cr a vector of column widths. Each element's position in</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   `colwidths` corresponds to the column of `tbl` in the same position. If `NULL`, column widths</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   are calculated according to maximum number of characters per column.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @param lbl_col_padding (`numeric`)\cr additional padding to use when calculating spacing between</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">a_surv_time &lt;- function(df,</pre>
+                      <pre class="language-r">#'   the first (label) column and the second column of `tbl`. If `colwidths` is specified,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        labelstr = "",</pre>
+                      <pre class="language-r">#'   the width of the first column becomes `colwidths[1] + lbl_col_padding`. Defaults to 0.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        .var = NULL,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        .df_row = NULL,</pre>
+                      <pre class="language-r">#' @return A `ggplot` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        is_event,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        control = control_surv_time(),</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        ref_fn_censor = TRUE,</pre>
+                      <pre class="language-r">#' dta &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        .stats = NULL,</pre>
+                      <pre class="language-r">#'   ARM     = rep(LETTERS[1:3], rep(6, 3)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        .formats = NULL,</pre>
+                      <pre class="language-r">#'   AVISIT  = rep(paste0("V", 1:3), 6),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        .labels = NULL,</pre>
+                      <pre class="language-r">#'   AVAL    = c(9:1, rep(NA, 9))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        .indent_mods = NULL,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        na_str = default_na_str()) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  x_stats &lt;- s_surv_time(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">118</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    df = df, .var = .var, is_event = is_event, control = control</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">120</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  rng_censor_lwr &lt;- x_stats[["range_censor"]][1]</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">121</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  rng_censor_upr &lt;- x_stats[["range_censor"]][2]</pre>
+                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   split_cols_by(var = "ARM") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Use method-specific defaults</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  fmts &lt;- c(median_ci = "(xx.x, xx.x)", quantiles = "xx.x, xx.x", range = "xx.x to xx.x")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  lbls &lt;- c(median_ci = "95% CI", range = "Range", range_censor = "Range (censored)", range_event = "Range (event)")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  lbls_custom &lt;- .labels</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  .formats &lt;- c(.formats, fmts[setdiff(names(fmts), names(.formats))])</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  .labels &lt;- c(.labels, lbls[setdiff(names(lbls), names(lbls_custom))])</pre>
+                      <pre class="language-r">#'   split_rows_by(var = "AVISIT") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   analyze_vars(vars = "AVAL")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Fill in with formatting defaults if needed</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  .stats &lt;- get_stats("surv_time", stats_in = .stats)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  .formats &lt;- get_formats_from_stats(.stats, .formats)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  .labels &lt;- get_labels_from_stats(.stats, .labels) %&gt;% labels_use_control(control, lbls_custom)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  .indent_mods &lt;- get_indents_from_stats(.stats, .indent_mods)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' tbl &lt;- build_table(lyt, df = dta)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">136</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">32</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats &lt;- x_stats[.stats]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' rtable2gg(tbl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Auto format handling</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">35</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats &lt;- apply_auto_formatting(.formats, x_stats, .df_row, .var)</pre>
+                      <pre class="language-r">#' rtable2gg(tbl, fontsize = 15, colwidths = c(2, 1, 1, 1))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">37</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  cell_fns &lt;- setNames(vector("list", length = length(x_stats)), .labels)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">38</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if ("range" %in% names(x_stats) &amp;&amp; ref_fn_censor) {</pre>
+                      <pre class="language-r">rtable2gg &lt;- function(tbl, fontsize = 12, colwidths = NULL, lbl_col_padding = 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">39</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (identical(x_stats[["range"]][1], rng_censor_lwr) &amp;&amp; identical(x_stats[["range"]][2], rng_censor_upr)) {</pre>
+                      <pre class="language-r">  mat &lt;- rtables::matrix_form(tbl, indent_rownames = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">40</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cell_fns[[.labels[["range"]]]] &lt;- "Censored observations: range minimum &amp; maximum"</pre>
+                      <pre class="language-r">  mat_strings &lt;- formatters::mf_strings(mat)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">145</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">41</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else if (identical(x_stats[["range"]][1], rng_censor_lwr)) {</pre>
+                      <pre class="language-r">  mat_aligns &lt;- formatters::mf_aligns(mat)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">42</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cell_fns[[.labels[["range"]]]] &lt;- "Censored observation: range minimum"</pre>
+                      <pre class="language-r">  mat_indent &lt;- formatters::mf_rinfo(mat)$indent</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">43</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else if (identical(x_stats[["range"]][2], rng_censor_upr)) {</pre>
+                      <pre class="language-r">  mat_display &lt;- formatters::mf_display(mat)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      cell_fns[[.labels[["range"]]]] &lt;- "Censored observation: range maximum"</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">149</td>
-                    <td class="coverage"></td>
+                    <td class="num">44</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  nlines_hdr &lt;- formatters::mf_nlheader(mat)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">150</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">45</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  shared_hdr_rows &lt;- which(apply(mat_display, 1, function(x) (any(!x))))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">47</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  in_rows(</pre>
+                      <pre class="language-r">  tbl_df &lt;- data.frame(mat_strings)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">153</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">48</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .list = x_stats,</pre>
+                      <pre class="language-r">  body_rows &lt;- seq(nlines_hdr + 1, nrow(tbl_df))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">154</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">49</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .formats = .formats,</pre>
+                      <pre class="language-r">  mat_aligns &lt;- apply(mat_aligns, 1:2, function(x) if (x == "left") 0 else if (x == "right") 1 else 0.5)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">50</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .names = .labels,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">51</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .labels = .labels,</pre>
+                      <pre class="language-r">  # Apply indentation in first column</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">52</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .indent_mods = .indent_mods,</pre>
+                      <pre class="language-r">  tbl_df[body_rows, 1] &lt;- sapply(body_rows, function(i) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">53</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .format_na_strs = na_str,</pre>
+                      <pre class="language-r">    ind_i &lt;- mat_indent[i - nlines_hdr] * 4</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    .cell_footnotes = cell_fns</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">160</td>
-                    <td class="coverage"></td>
+                    <td class="num">54</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    if (ind_i &gt; 0) paste0(paste(rep(" ", ind_i), collapse = ""), tbl_df[i, 1]) else tbl_df[i, 1]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn survival_time Layout-creating function which can take statistics function arguments</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
+                      <pre class="language-r">  # Get column widths</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">165</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">58</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if (is.null(colwidths)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">166</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">59</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">    colwidths &lt;- apply(tbl_df, 2, function(x) max(nchar(x))) + 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `surv_time()` returns a layout object suitable for passing to further layouting functions,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">168</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">61</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
+                      <pre class="language-r">  tot_width &lt;- sum(colwidths) + lbl_col_padding</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the statistics from `s_surv_time()` to the table layout.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">170</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">63</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if (length(shared_hdr_rows) &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">171</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">64</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    tbl_df &lt;- tbl_df[-shared_hdr_rows, ]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">172</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">65</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">    mat_aligns &lt;- mat_aligns[-shared_hdr_rows, ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by(var = "ARMCD") %&gt;%</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">175</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">68</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   surv_time(</pre>
+                      <pre class="language-r">  res &lt;- ggplot(data = tbl_df) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">176</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">69</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     vars = "AVAL",</pre>
+                      <pre class="language-r">    theme_void() +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">177</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">70</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     var_labels = "Survival Time (Months)",</pre>
+                      <pre class="language-r">    scale_x_continuous(limits = c(0, tot_width)) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">178</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">71</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     is_event = "is_event",</pre>
+                      <pre class="language-r">    scale_y_continuous(limits = c(0, nrow(mat_strings))) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">179</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">72</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     control = control_surv_time(conf_level = 0.9, conf_type = "log-log")</pre>
+                      <pre class="language-r">    annotate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">180</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">73</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">      "segment",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">181</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">74</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(df = adtte_f)</pre>
+                      <pre class="language-r">      x = 0, xend = tot_width,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">182</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">75</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      y = nrow(mat_strings) - nlines_hdr + 0.5, yend = nrow(mat_strings) - nlines_hdr + 0.5</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 2</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">surv_time &lt;- function(lyt,</pre>
+                      <pre class="language-r">  # If header content spans multiple columns, center over these columns</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">186</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">79</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      vars,</pre>
+                      <pre class="language-r">  if (length(shared_hdr_rows) &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">187</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">80</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      is_event,</pre>
+                      <pre class="language-r">    mat_strings[shared_hdr_rows, ] &lt;- trimws(mat_strings[shared_hdr_rows, ])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">188</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">81</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      control = control_surv_time(),</pre>
+                      <pre class="language-r">    for (hr in shared_hdr_rows) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">189</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">82</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      ref_fn_censor = TRUE,</pre>
+                      <pre class="language-r">      hdr_lbls &lt;- mat_strings[1:hr, mat_display[hr, -1]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">190</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">83</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      na_str = default_na_str(),</pre>
+                      <pre class="language-r">      hdr_lbls &lt;- matrix(hdr_lbls[nzchar(hdr_lbls)], nrow = hr)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">191</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">84</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      nested = TRUE,</pre>
+                      <pre class="language-r">      for (idx_hl in seq_len(ncol(hdr_lbls))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">192</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">85</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      ...,</pre>
+                      <pre class="language-r">        cur_lbl &lt;- tail(hdr_lbls[, idx_hl], 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">193</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">86</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      var_labels = "Time to Event",</pre>
+                      <pre class="language-r">        which_cols &lt;- if (hr == 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">194</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">87</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      show_labels = "visible",</pre>
+                      <pre class="language-r">          which(mat_strings[hr, ] == hdr_lbls[idx_hl])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">195</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">88</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      table_names = vars,</pre>
+                      <pre class="language-r">        } else { # for &gt;2 col splits, only print labels for each unique combo of nested columns</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">196</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">89</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      .stats = c("median", "median_ci", "quantiles", "range"),</pre>
+                      <pre class="language-r">          which(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">197</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">90</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      .formats = NULL,</pre>
+                      <pre class="language-r">            apply(mat_strings[1:hr, ], 2, function(x) all(x == hdr_lbls[1:hr, idx_hl]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      .labels = NULL,</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      .indent_mods = c(median_ci = 1L)) {</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">200</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">93</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(</pre>
+                      <pre class="language-r">        line_pos &lt;- c(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">201</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">94</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .stats = .stats, .formats = .formats, .labels = .labels, .indent_mods = .indent_mods, na_str = na_str,</pre>
+                      <pre class="language-r">          sum(colwidths[1:(which_cols[1] - 1)]) + 1 + lbl_col_padding,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">95</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is_event = is_event, control = control, ref_fn_censor = ref_fn_censor, ...</pre>
+                      <pre class="language-r">          sum(colwidths[1:max(which_cols)]) - 1 + lbl_col_padding</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">98</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  analyze(</pre>
+                      <pre class="language-r">        res &lt;- res +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">99</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt = lyt,</pre>
+                      <pre class="language-r">          annotate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">100</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars = vars,</pre>
+                      <pre class="language-r">            "text",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">101</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    afun = a_surv_time,</pre>
+                      <pre class="language-r">            x = mean(line_pos),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">209</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">102</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_labels = var_labels,</pre>
+                      <pre class="language-r">            y = nrow(mat_strings) + 1 - hr,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">103</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    show_labels = show_labels,</pre>
+                      <pre class="language-r">            label = cur_lbl,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">104</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table_names = table_names,</pre>
+                      <pre class="language-r">            size = fontsize / .pt</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">212</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">105</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">          ) +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">106</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nested = nested,</pre>
+                      <pre class="language-r">          annotate(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">214</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">107</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args = extra_args</pre>
+                      <pre class="language-r">            "segment",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">215</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">108</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">            x = line_pos[1],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">216</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">109</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">            xend = line_pos[2],</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/analyze_variables.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">110</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Control function for descriptive statistics</pre>
+                      <pre class="language-r">            y = nrow(mat_strings) - hr + 0.5,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">111</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            yend = nrow(mat_strings) - hr + 0.5</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Sets a list of parameters for summaries of descriptive statistics. Typically used internally to specify</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' details for [s_summary()]. This function family is mainly used by [analyze_vars()].</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">  # Add table columns</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">118</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param quantiles (`numeric(2)`)\cr vector of length two to specify the quantiles to calculate.</pre>
+                      <pre class="language-r">  for (i in seq_len(ncol(tbl_df))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">119</td>
+                    <td class="coverage">40<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param quantile_type (`numeric(1)`)\cr number between 1 and 9 selecting quantile algorithms to be used.</pre>
+                      <pre class="language-r">    res &lt;- res + annotate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">120</td>
+                    <td class="coverage">40<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Default is set to 2 as this matches the default quantile algorithm in SAS `proc univariate` set by `QNTLDEF=5`.</pre>
+                      <pre class="language-r">      "text",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">121</td>
+                    <td class="coverage">40<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   This differs from R's default. See more about `type` in [stats::quantile()].</pre>
+                      <pre class="language-r">      x = if (i == 1) 0 else sum(colwidths[1:i]) - 0.5 * colwidths[i] + lbl_col_padding,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">122</td>
+                    <td class="coverage">40<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param test_mean (`numeric(1)`)\cr number to test against the mean under the null hypothesis when calculating</pre>
+                      <pre class="language-r">      y = rev(seq_len(nrow(tbl_df))),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">123</td>
+                    <td class="coverage">40<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   p-value.</pre>
+                      <pre class="language-r">      label = tbl_df[, i],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">124</td>
+                    <td class="coverage">40<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      hjust = mat_aligns[, i],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">125</td>
+                    <td class="coverage">40<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A list of components with the same names as the arguments.</pre>
+                      <pre class="language-r">      size = fontsize / .pt</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">control_analyze_vars &lt;- function(conf_level = 0.95,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">129</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 quantiles = c(0.25, 0.75),</pre>
+                      <pre class="language-r">  res</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 quantile_type = 2,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 test_mean = 0) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">23</td>
-                    <td class="coverage">1055<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_vector(quantiles, len = 2)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">24</td>
-                    <td class="coverage">1055<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_int(quantile_type, lower = 1, upper = 9)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">25</td>
-                    <td class="coverage">1055<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(test_mean)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">26</td>
-                    <td class="coverage">1055<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">132</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lapply(quantiles, assert_proportion_value)</pre>
+                      <pre class="language-r">#' Convert `data.frame` object to `ggplot` object</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">27</td>
-                    <td class="coverage">1054<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">133</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_proportion_value(conf_level)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">28</td>
-                    <td class="coverage">1053<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">134</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(conf_level = conf_level, quantiles = quantiles, quantile_type = quantile_type, test_mean = test_mean)</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Given a `data.frame` object, performs basic conversion to a [ggplot2::ggplot()] object built using</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Analyze variables</pre>
+                      <pre class="language-r">#' functions from the `ggplot2` package.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' @param df (`data.frame`)\cr a data frame.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param colwidths (`numeric` or `NULL`)\cr a vector of column widths. Each element's position in</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The analyze function [analyze_vars()] creates a layout element to summarize one or more variables, using the S3</pre>
+                      <pre class="language-r">#'   `colwidths` corresponds to the column of `df` in the same position. If `NULL`, column widths</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' generic function [s_summary()] to calculate a list of summary statistics. A list of all available statistics for</pre>
+                      <pre class="language-r">#'   are calculated according to maximum number of characters per column.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' numeric variables can be viewed by running `get_stats("analyze_vars_numeric")` and for non-numeric variables by</pre>
+                      <pre class="language-r">#' @param font_size (`numeric(1)`)\cr font size.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' running `get_stats("analyze_vars_counts")`. Use the `.stats` parameter to specify the statistics to include in your</pre>
+                      <pre class="language-r">#' @param col_labels (`flag`)\cr whether the column names (labels) of `df` should be used as the first row</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' output summary table.</pre>
+                      <pre class="language-r">#'   of the output table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param col_lab_fontface (`string`)\cr font face to apply to the first row (of column labels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details</pre>
+                      <pre class="language-r">#'   if `col_labels = TRUE`). Defaults to `"bold"`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' **Automatic digit formatting:** The number of digits to display can be automatically determined from the analyzed</pre>
+                      <pre class="language-r">#' @param hline (`flag`)\cr whether a horizontal line should be printed below the first row of the table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' variable(s) (`vars`) for certain statistics by setting the statistic format to `"auto"` in `.formats`.</pre>
+                      <pre class="language-r">#' @param bg_fill (`string`)\cr table background fill color.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This utilizes the [format_auto()] formatting function. Note that only data for the current row &amp; variable (for all</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' columns) will be considered (`.df_row[[.var]]`, see [`rtables::additional_fun_params`]) and not the whole dataset.</pre>
+                      <pre class="language-r">#' @return A `ggplot` object.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("analyze_vars_numeric")` to see</pre>
+                      <pre class="language-r">#' \dontrun{</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   statistics available for numeric variables, and `get_stats("analyze_vars_counts")` for statistics available</pre>
+                      <pre class="language-r">#' df2gg(head(iris, 5))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   for non-numeric variables.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' df2gg(head(iris, 5), font_size = 15, colwidths = c(1, 1, 1, 1, 1))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name analyze_variables</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 1</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">df2gg &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                  colwidths = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn analyze_variables S3 generic function to produces a variable summary.</pre>
+                      <pre class="language-r">                  font_size = 10,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                  col_labels = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">                  col_lab_fontface = "bold",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_summary()` returns different statistics depending on the class of `x`.</pre>
+                      <pre class="language-r">                  hline = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                  bg_fill = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  # convert to text</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">168</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_summary &lt;- function(x,</pre>
+                      <pre class="language-r">  df &lt;- as.data.frame(apply(df, 1:2, function(x) if (is.na(x)) "NA" else as.character(x)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      na.rm = TRUE, # nolint</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">64</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">170</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      denom,</pre>
+                      <pre class="language-r">  if (col_labels) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">171</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      .N_row, # nolint</pre>
+                      <pre class="language-r">    df &lt;- as.matrix(df)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">172</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    df &lt;- rbind(colnames(df), df)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      .N_col, # nolint</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      .var,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      ...) {</pre>
+                      <pre class="language-r">  # Get column widths</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">69</td>
-                    <td class="coverage">1559<em>x</em></td>
+                    <td class="num">176</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(na.rm)</pre>
+                      <pre class="language-r">  if (is.null(colwidths)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">70</td>
-                    <td class="coverage">1559<em>x</em></td>
+                    <td class="num">177</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  UseMethod("s_summary", x)</pre>
+                      <pre class="language-r">    colwidths &lt;- apply(df, 2, function(x) max(nchar(x), na.rm = TRUE))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">179</td>
+                    <td class="coverage">19<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  tot_width &lt;- sum(colwidths)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">73</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">181</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn analyze_variables Method for `numeric` class.</pre>
+                      <pre class="language-r">  res &lt;- ggplot(data = df) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">182</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    theme_void() +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">75</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">183</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param control (`list`)\cr parameters for descriptive statistics details, specified by using</pre>
+                      <pre class="language-r">    scale_x_continuous(limits = c(0, tot_width)) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">76</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">184</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the helper function [control_analyze_vars()]. Some possible parameter options are:</pre>
+                      <pre class="language-r">    scale_y_continuous(limits = c(1, nrow(df)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `conf_level` (`proportion`)\cr confidence level of the interval for mean and median.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">78</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">186</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `quantiles` (`numeric(2)`)\cr vector of length two to specify the quantiles.</pre>
+                      <pre class="language-r">  if (!is.null(bg_fill)) res &lt;- res + theme(plot.background = element_rect(fill = bg_fill))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `quantile_type` (`numeric(1)`)\cr between 1 and 9 selecting quantile algorithms to be used.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">80</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">188</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     See more about `type` in [stats::quantile()].</pre>
+                      <pre class="language-r">  if (hline) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">81</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">189</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `test_mean` (`numeric(1)`)\cr value to test against the mean under the null hypothesis when calculating p-value.</pre>
+                      <pre class="language-r">    res &lt;- res +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">190</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      annotate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">83</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">191</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">        "segment",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">84</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">192</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * If `x` is of class `numeric`, returns a `list` with the following named `numeric` items:</pre>
+                      <pre class="language-r">        x = 0 + 0.2 * colwidths[2], xend = tot_width - 0.1 * tail(colwidths, 1),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">193</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `n`: The [length()] of `x`.</pre>
+                      <pre class="language-r">        y = nrow(df) - 0.5, yend = nrow(df) - 0.5</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `sum`: The [sum()] of `x`.</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `mean`: The [mean()] of `x`.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `sd`: The [stats::sd()] of `x`.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">89</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">197</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `se`: The standard error of `x` mean, i.e.: (`sd(x) / sqrt(length(x))`).</pre>
+                      <pre class="language-r">  for (i in seq_len(ncol(df))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">90</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">198</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `mean_sd`: The [mean()] and [stats::sd()] of `x`.</pre>
+                      <pre class="language-r">    line_pos &lt;- c(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">91</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">199</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `mean_se`: The [mean()] of `x` and its standard error (see above).</pre>
+                      <pre class="language-r">      if (i == 1) 0 else sum(colwidths[1:(i - 1)]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">92</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">200</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `mean_ci`: The CI for the mean of `x` (from [stat_mean_ci()]).</pre>
+                      <pre class="language-r">      sum(colwidths[1:i])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `mean_sei`: The SE interval for the mean of `x`, i.e.: ([mean()] -/+ [stats::sd()] / [sqrt()]).</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">94</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">202</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `mean_sdi`: The SD interval for the mean of `x`, i.e.: ([mean()] -/+ [stats::sd()]).</pre>
+                      <pre class="language-r">    res &lt;- res +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">95</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">203</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `mean_pval`: The two-sided p-value of the mean of `x` (from [stat_mean_pval()]).</pre>
+                      <pre class="language-r">      annotate(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">96</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">204</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `median`: The [stats::median()] of `x`.</pre>
+                      <pre class="language-r">        "text",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">97</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">205</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `mad`: The median absolute deviation of `x`, i.e.: ([stats::median()] of `xc`,</pre>
+                      <pre class="language-r">        x = mean(line_pos),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">98</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">206</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       where `xc` = `x` - [stats::median()]).</pre>
+                      <pre class="language-r">        y = rev(seq_len(nrow(df))),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">99</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">207</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `median_ci`: The CI for the median of `x` (from [stat_median_ci()]).</pre>
+                      <pre class="language-r">        label = df[, i],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">100</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">208</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `quantiles`: Two sample quantiles of `x` (from [stats::quantile()]).</pre>
+                      <pre class="language-r">        size = font_size / .pt,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">101</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">209</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `iqr`: The [stats::IQR()] of `x`.</pre>
+                      <pre class="language-r">        fontface = if (col_labels) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">102</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">210</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `range`: The [range_noinf()] of `x`.</pre>
+                      <pre class="language-r">          c(col_lab_fontface, rep("plain", nrow(df) - 1))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `min`: The [max()] of `x`.</pre>
+                      <pre class="language-r">        } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">104</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">212</td>
+                    <td class="coverage">54<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `max`: The [min()] of `x`.</pre>
+                      <pre class="language-r">          rep("plain", nrow(df))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `median_range`: The [median()] and [range_noinf()] of `x`.</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `cv`: The coefficient of variation of `x`, i.e.: ([stats::sd()] / [mean()] * 100).</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `geom_mean`: The geometric mean of `x`, i.e.: (`exp(mean(log(x)))`).</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `geom_cv`: The geometric coefficient of variation of `x`, i.e.: (`sqrt(exp(sd(log(x)) ^ 2) - 1) * 100`).</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">109</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">217</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  res</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/analyze_vars_in_cols.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * If `x` is an empty vector, `NA` is returned. This is the expected feature so as to return `rcell` content in</pre>
+                      <pre class="language-r">#' Analyze numeric variables in columns</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `rtables` when the intersection of a column and a row delimits an empty data selection.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * When the `mean` function is applied to an empty vector, `NA` will be returned instead of `NaN`, the latter</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("experimental")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   being standard behavior in R.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' The layout-creating function [analyze_vars_in_cols()] creates a layout element to generate a column-wise</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @method s_summary numeric</pre>
+                      <pre class="language-r">#' analysis table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' This function sets the analysis methods as column labels and is a wrapper for [rtables::analyze_colvars()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `s_summary.numeric`</pre>
+                      <pre class="language-r">#' It was designed principally for PK tables.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Basic usage: empty numeric returns NA-filled items.</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_summary(numeric())</pre>
+                      <pre class="language-r">#' @inheritParams rtables::analyze_colvars</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param imp_rule (`string` or `NULL`)\cr imputation rule setting. Defaults to `NULL` for no imputation rule. Can</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Management of NA values.</pre>
+                      <pre class="language-r">#'   also be `"1/3"` to implement 1/3 imputation rule or `"1/2"` to implement 1/2 imputation rule. In order</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x &lt;- c(NA_real_, 1)</pre>
+                      <pre class="language-r">#'   to use an imputation rule, the `avalcat_var` argument must be specified. See [imputation_rule()]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_summary(x, na.rm = TRUE)</pre>
+                      <pre class="language-r">#'   for more details on imputation.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_summary(x, na.rm = FALSE)</pre>
+                      <pre class="language-r">#' @param avalcat_var (`string`)\cr if `imp_rule` is not `NULL`, name of variable that indicates whether a</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   row in the data corresponds to an analysis value in category `"BLQ"`, `"LTR"`, `"&lt;PCLLOQ"`, or none of</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x &lt;- c(NA_real_, 1, 2)</pre>
+                      <pre class="language-r">#'   the above (defaults to `"AVALCAT1"`). Variable must be present in the data and should match the variable</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_summary(x, stats = NULL)</pre>
+                      <pre class="language-r">#'   used to calculate the `n_blq` statistic (if included in `.stats`).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param cache (`flag`)\cr whether to store computed values in a temporary caching environment. This will</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Benefits in `rtables` contructions:</pre>
+                      <pre class="language-r">#'   speed up calculations in large tables, but should be set to `FALSE` if the same `rtable` layout is</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dta_test &lt;- data.frame(</pre>
+                      <pre class="language-r">#'   used for multiple tables with different data. Defaults to `FALSE`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Group = rep(LETTERS[1:3], each = 2),</pre>
+                      <pre class="language-r">#' @param row_labels (`character`)\cr as this function works in columns space, usually `.labels`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   sub_group = rep(letters[1:2], each = 3),</pre>
+                      <pre class="language-r">#'   character vector applies on the column space. You can change the row labels by defining this</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   x = 1:6</pre>
+                      <pre class="language-r">#'   parameter to a named character vector with names corresponding to the split values. It defaults</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   to `NULL` and if it contains only one `string`, it will duplicate that as a row label.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param do_summarize_row_groups (`flag`)\cr defaults to `FALSE` and applies the analysis to the current</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## The summary obtained in with `rtables`:</pre>
+                      <pre class="language-r">#'   label rows. This is a wrapper of [rtables::summarize_row_groups()] and it can accept `labelstr`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">#'   to define row labels. This behavior is not supported as we never need to overload row labels.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by(var = "Group") %&gt;%</pre>
+                      <pre class="language-r">#' @param split_col_vars (`flag`)\cr defaults to `TRUE` and puts the analysis results onto the columns.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by(var = "sub_group") %&gt;%</pre>
+                      <pre class="language-r">#'   This option allows you to add multiple instances of this functions, also in a nested fashion,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze(vars = "x", afun = s_summary) %&gt;%</pre>
+                      <pre class="language-r">#'   without adding more splits. This split must happen only one time on a single layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(df = dta_test)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## By comparison with `lapply`:</pre>
+                      <pre class="language-r">#' A layout object suitable for passing to further layouting functions, or to [rtables::build_table()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' X &lt;- split(dta_test, f = with(dta_test, interaction(Group, sub_group)))</pre>
+                      <pre class="language-r">#' Adding this function to an `rtable` layout will summarize the given variables, arrange the output</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' lapply(X, function(x) s_summary(x$x))</pre>
+                      <pre class="language-r">#' in columns, and add it to the table layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @note</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_summary.numeric &lt;- function(x,</pre>
+                      <pre class="language-r">#' * This is an experimental implementation of [rtables::summarize_row_groups()] and [rtables::analyze_colvars()]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              na.rm = TRUE, # nolint</pre>
+                      <pre class="language-r">#'   that may be subjected to changes as `rtables` extends its support to more complex analysis pipelines in the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              denom,</pre>
+                      <pre class="language-r">#'   column space. We encourage users to read the examples carefully and file issues for different use cases.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              .N_row, # nolint</pre>
+                      <pre class="language-r">#' * In this function, `labelstr` behaves atypically. If `labelstr = NULL` (the default), row labels are assigned</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              .N_col, # nolint</pre>
+                      <pre class="language-r">#'   automatically as the split values if `do_summarize_row_groups = FALSE` (the default), and as the group label</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              .var,</pre>
+                      <pre class="language-r">#'   if `do_summarize_row_groups = TRUE`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              control = control_analyze_vars(),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              ...) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">1098<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(x)</pre>
+                      <pre class="language-r">#' @seealso [analyze_vars()], [rtables::analyze_colvars()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">1098<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (na.rm) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">1096<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    x &lt;- x[!is.na(x)]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">1098<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- list()</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">1098<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  y$n &lt;- c("n" = length(x))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">1098<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  y$sum &lt;- c("sum" = ifelse(length(x) == 0, NA_real_, sum(x, na.rm = FALSE)))</pre>
+                      <pre class="language-r">#' # Data preparation</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">1098<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  y$mean &lt;- c("mean" = ifelse(length(x) == 0, NA_real_, mean(x, na.rm = FALSE)))</pre>
+                      <pre class="language-r">#' adpp &lt;- tern_ex_adpp %&gt;% h_pkparam_sort()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">1098<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  y$sd &lt;- c("sd" = stats::sd(x, na.rm = FALSE))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">1098<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  y$se &lt;- c("se" = stats::sd(x, na.rm = FALSE) / sqrt(length(stats::na.omit(x))))</pre>
+                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">177</td>
-                    <td class="coverage">1098<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  y$mean_sd &lt;- c(y$mean, "sd" = stats::sd(x, na.rm = FALSE))</pre>
+                      <pre class="language-r">#'   split_rows_by(var = "STRATA1", label_pos = "topleft") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">1098<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  y$mean_se &lt;- c(y$mean, y$se)</pre>
+                      <pre class="language-r">#'   split_rows_by(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">181</td>
-                    <td class="coverage">1098<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  mean_ci &lt;- stat_mean_ci(x, conf_level = control$conf_level, na.rm = FALSE, gg_helper = FALSE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">182</td>
-                    <td class="coverage">1098<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  y$mean_ci &lt;- formatters::with_label(mean_ci, paste("Mean", f_conf_level(control$conf_level)))</pre>
+                      <pre class="language-r">#'     var = "SEX",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">1098<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  mean_sei &lt;- y$mean[[1]] + c(-1, 1) * stats::sd(x, na.rm = FALSE) / sqrt(y$n)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">1098<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  names(mean_sei) &lt;- c("mean_sei_lwr", "mean_sei_upr")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">1098<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  y$mean_sei &lt;- formatters::with_label(mean_sei, "Mean -/+ 1xSE")</pre>
+                      <pre class="language-r">#'     label_pos = "topleft",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">1098<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  mean_sdi &lt;- y$mean[[1]] + c(-1, 1) * stats::sd(x, na.rm = FALSE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">1098<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  names(mean_sdi) &lt;- c("mean_sdi_lwr", "mean_sdi_upr")</pre>
+                      <pre class="language-r">#'     child_labels = "hidden"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">1098<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">62</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y$mean_sdi &lt;- formatters::with_label(mean_sdi, "Mean -/+ 1xSD")</pre>
+                      <pre class="language-r">#'   ) %&gt;% # Removes duplicated labels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   analyze_vars_in_cols(vars = "AGE")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">1098<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">64</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mean_pval &lt;- stat_mean_pval(x, test_mean = control$test_mean, na.rm = FALSE, n_min = 2)</pre>
+                      <pre class="language-r">#' result &lt;- build_table(lyt = lyt, df = adpp)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">193</td>
-                    <td class="coverage">1098<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">65</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y$mean_pval &lt;- formatters::with_label(mean_pval, paste("Mean", f_pval(control$test_mean)))</pre>
+                      <pre class="language-r">#' result</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">1098<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">67</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y$median &lt;- c("median" = stats::median(x, na.rm = FALSE))</pre>
+                      <pre class="language-r">#' # By selecting just some statistics and ad-hoc labels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">197</td>
-                    <td class="coverage">1098<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">69</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y$mad &lt;- c("mad" = stats::median(x - y$median, na.rm = FALSE))</pre>
+                      <pre class="language-r">#'   split_rows_by(var = "ARM", label_pos = "topleft") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   split_rows_by(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">1098<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">71</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  median_ci &lt;- stat_median_ci(x, conf_level = control$conf_level, na.rm = FALSE, gg_helper = FALSE)</pre>
+                      <pre class="language-r">#'     var = "SEX",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">200</td>
-                    <td class="coverage">1098<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">72</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y$median_ci &lt;- formatters::with_label(median_ci, paste("Median", f_conf_level(control$conf_level)))</pre>
+                      <pre class="language-r">#'     label_pos = "topleft",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     child_labels = "hidden",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">1098<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">74</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  q &lt;- control$quantiles</pre>
+                      <pre class="language-r">#'     split_fun = drop_split_levels</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">203</td>
-                    <td class="coverage">1098<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">75</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (any(is.na(x))) {</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">204</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">76</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    qnts &lt;- rep(NA_real_, length(q))</pre>
+                      <pre class="language-r">#'   analyze_vars_in_cols(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">205</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#'     vars = "AGE",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">1096<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">78</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    qnts &lt;- stats::quantile(x, probs = q, type = control$quantile_type, na.rm = FALSE)</pre>
+                      <pre class="language-r">#'     .stats = c("n", "cv", "geom_mean"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'     .labels = c(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">1098<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">80</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  names(qnts) &lt;- paste("quantile", q, sep = "_")</pre>
+                      <pre class="language-r">#'       n = "aN",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">209</td>
-                    <td class="coverage">1098<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">81</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y$quantiles &lt;- formatters::with_label(qnts, paste0(paste(paste0(q * 100, "%"), collapse = " and "), "-ile"))</pre>
+                      <pre class="language-r">#'       cv = "aCV",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       geom_mean = "aGeomMean"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">1098<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">83</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y$iqr &lt;- c("iqr" = ifelse(</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">212</td>
-                    <td class="coverage">1098<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">84</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    any(is.na(x)),</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">1098<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">85</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    NA_real_,</pre>
+                      <pre class="language-r">#' result &lt;- build_table(lyt = lyt, df = adpp)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">214</td>
-                    <td class="coverage">1098<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">86</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stats::IQR(x, na.rm = FALSE, type = control$quantile_type)</pre>
+                      <pre class="language-r">#' result</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' # Changing row labels</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">217</td>
-                    <td class="coverage">1098<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">89</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y$range &lt;- stats::setNames(range_noinf(x, na.rm = FALSE), c("min", "max"))</pre>
+                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">218</td>
-                    <td class="coverage">1098<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">90</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y$min &lt;- y$range[1]</pre>
+                      <pre class="language-r">#'   analyze_vars_in_cols(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">1098<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">91</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y$max &lt;- y$range[2]</pre>
+                      <pre class="language-r">#'     vars = "AGE",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     row_labels = "some custom label"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">221</td>
-                    <td class="coverage">1098<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">93</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y$median_range &lt;- formatters::with_label(c(y$median, y$range), "Median (Min - Max)")</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' result &lt;- build_table(lyt, df = adpp)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">1098<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">95</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y$cv &lt;- c("cv" = unname(y$sd) / unname(y$mean) * 100)</pre>
+                      <pre class="language-r">#' result</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Convert negative values to NA for log calculation.</pre>
+                      <pre class="language-r">#' # Pharmacokinetic parameters</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">1098<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">98</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_no_negative_vals &lt;- x</pre>
+                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">1098<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">99</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_no_negative_vals[x_no_negative_vals &lt;= 0] &lt;- NA</pre>
+                      <pre class="language-r">#'   split_rows_by(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">1098<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">100</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y$geom_mean &lt;- c("geom_mean" = exp(mean(log(x_no_negative_vals), na.rm = FALSE)))</pre>
+                      <pre class="language-r">#'     var = "TLG_DISPLAY",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">229</td>
-                    <td class="coverage">1098<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">101</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  geom_mean_ci &lt;- stat_mean_ci(x, conf_level = control$conf_level, na.rm = FALSE, gg_helper = FALSE, geom_mean = TRUE)</pre>
+                      <pre class="language-r">#'     split_label = "PK Parameter",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">1098<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">102</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y$geom_mean_ci &lt;- formatters::with_label(geom_mean_ci, paste("Geometric Mean", f_conf_level(control$conf_level)))</pre>
+                      <pre class="language-r">#'     label_pos = "topleft",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">231</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     child_labels = "hidden"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">1098<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">104</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y$geom_cv &lt;- c("geom_cv" = sqrt(exp(stats::sd(log(x_no_negative_vals), na.rm = FALSE) ^ 2) - 1) * 100) # styler: off</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   analyze_vars_in_cols(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">1098<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">106</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y</pre>
+                      <pre class="language-r">#'     vars = "AVAL"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' result &lt;- build_table(lyt, df = adpp)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">237</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn analyze_variables Method for `factor` class.</pre>
+                      <pre class="language-r">#' result</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">238</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param denom (`string`)\cr choice of denominator for factor proportions. Options are:</pre>
+                      <pre class="language-r">#' # Multiple calls (summarize label and analyze underneath)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `n`: number of values in this row and column intersection.</pre>
+                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">241</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `N_row`: total number of values in this row across columns.</pre>
+                      <pre class="language-r">#'   split_rows_by(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">242</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `N_col`: total number of values in this column across rows.</pre>
+                      <pre class="language-r">#'     var = "TLG_DISPLAY",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     split_label = "PK Parameter",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'     label_pos = "topleft"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * If `x` is of class `factor` or converted from `character`, returns a `list` with named `numeric` items:</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `n`: The [length()] of `x`.</pre>
+                      <pre class="language-r">#'   analyze_vars_in_cols(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">247</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `count`: A list with the number of cases for each level of the factor `x`.</pre>
+                      <pre class="language-r">#'     vars = "AVAL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `count_fraction`: Similar to `count` but also includes the proportion of cases for each level of the</pre>
+                      <pre class="language-r">#'     do_summarize_row_groups = TRUE # does a summarize level</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">249</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       factor `x` relative to the denominator, or `NA` if the denominator is zero.</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">250</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   split_rows_by("SEX",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note</pre>
+                      <pre class="language-r">#'     child_labels = "hidden",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * If `x` is an empty `factor`, a list is still returned for `counts` with one element</pre>
+                      <pre class="language-r">#'     label_pos = "topleft"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">253</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   per factor level. If there are no levels in `x`, the function fails.</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * If factor variables contain `NA`, these `NA` values are excluded by default. To include `NA` values</pre>
+                      <pre class="language-r">#'   analyze_vars_in_cols(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">255</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   set `na.rm = FALSE` and missing values will be displayed as an `NA` level. Alternatively, an explicit</pre>
+                      <pre class="language-r">#'     vars = "AVAL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">256</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   factor level can be defined for `NA` values during pre-processing via [df_explicit_na()] - the</pre>
+                      <pre class="language-r">#'     split_col_vars = FALSE # avoids re-splitting the columns</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   default `na_level` (`"&lt;Missing&gt;"`) will also be excluded when `na.rm` is set to `TRUE`.</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' result &lt;- build_table(lyt, df = adpp)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">259</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @method s_summary factor</pre>
+                      <pre class="language-r">#' result</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">260</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">261</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `s_summary.factor`</pre>
+                      <pre class="language-r">analyze_vars_in_cols &lt;- function(lyt,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">263</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                 vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">264</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Basic usage:</pre>
+                      <pre class="language-r">                                 ...,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_summary(factor(c("a", "a", "b", "c", "a")))</pre>
+                      <pre class="language-r">                                 .stats = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">266</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                   "n",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Empty factor returns zero-filled items.</pre>
+                      <pre class="language-r">                                   "mean",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_summary(factor(levels = c("a", "b", "c")))</pre>
+                      <pre class="language-r">                                   "sd",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                   "se",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Management of NA values.</pre>
+                      <pre class="language-r">                                   "cv",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">271</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x &lt;- factor(c(NA, "Female"))</pre>
+                      <pre class="language-r">                                   "geom_cv"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x &lt;- explicit_na(x)</pre>
+                      <pre class="language-r">                                 ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">273</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_summary(x, na.rm = TRUE)</pre>
+                      <pre class="language-r">                                 .labels = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">274</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_summary(x, na.rm = FALSE)</pre>
+                      <pre class="language-r">                                   n = "n",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                   mean = "Mean",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">276</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Different denominators.</pre>
+                      <pre class="language-r">                                   sd = "SD",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">277</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x &lt;- factor(c("a", "a", "b", "c", "a"))</pre>
+                      <pre class="language-r">                                   se = "SE",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_summary(x, denom = "N_row", .N_row = 10L)</pre>
+                      <pre class="language-r">                                   cv = "CV (%)",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_summary(x, denom = "N_col", .N_col = 20L)</pre>
+                      <pre class="language-r">                                   geom_cv = "CV % Geometric Mean"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                 ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">281</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                                 row_labels = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">282</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_summary.factor &lt;- function(x,</pre>
+                      <pre class="language-r">                                 do_summarize_row_groups = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">283</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             na.rm = TRUE, # nolint</pre>
+                      <pre class="language-r">                                 split_col_vars = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">284</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             denom = c("n", "N_row", "N_col"),</pre>
+                      <pre class="language-r">                                 imp_rule = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">285</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             .N_row, # nolint</pre>
+                      <pre class="language-r">                                 avalcat_var = "AVALCAT1",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             .N_col, # nolint</pre>
+                      <pre class="language-r">                                 cache = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             ...) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">288</td>
-                    <td class="coverage">302<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  assert_valid_factor(x)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">289</td>
-                    <td class="coverage">299<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  denom &lt;- match.arg(denom)</pre>
+                      <pre class="language-r">                                 .indent_mods = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">291</td>
-                    <td class="coverage">299<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (na.rm) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">292</td>
-                    <td class="coverage">290<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    x &lt;- x[!is.na(x)] %&gt;% fct_discard("&lt;Missing&gt;")</pre>
+                      <pre class="language-r">                                 na_str = default_na_str(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">293</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">294</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    x &lt;- x %&gt;% explicit_na(label = "NA")</pre>
+                      <pre class="language-r">                                 nested = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">295</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                                 .formats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                 .aligns = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">297</td>
-                    <td class="coverage">299<em>x</em></td>
+                    <td class="num">164</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- list()</pre>
+                      <pre class="language-r">  extra_args &lt;- list(...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">298</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">299</td>
-                    <td class="coverage">299<em>x</em></td>
+                    <td class="num">166</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y$n &lt;- length(x)</pre>
+                      <pre class="language-r">  checkmate::assert_string(na_str, na.ok = TRUE, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">300</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">167</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  checkmate::assert_character(row_labels, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">301</td>
-                    <td class="coverage">299<em>x</em></td>
+                    <td class="num">168</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y$count &lt;- as.list(table(x, useNA = "ifany"))</pre>
+                      <pre class="language-r">  checkmate::assert_int(.indent_mods, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">302</td>
-                    <td class="coverage">299<em>x</em></td>
+                    <td class="num">169</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  dn &lt;- switch(denom,</pre>
+                      <pre class="language-r">  checkmate::assert_flag(nested)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">303</td>
-                    <td class="coverage">299<em>x</em></td>
+                    <td class="num">170</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n = length(x),</pre>
+                      <pre class="language-r">  checkmate::assert_flag(split_col_vars)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">304</td>
-                    <td class="coverage">299<em>x</em></td>
+                    <td class="num">171</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    N_row = .N_row,</pre>
+                      <pre class="language-r">  checkmate::assert_flag(do_summarize_row_groups)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">305</td>
-                    <td class="coverage">299<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">172</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    N_col = .N_col</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">306</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  # Filtering</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">307</td>
-                    <td class="coverage">299<em>x</em></td>
+                    <td class="num">174</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y$count_fraction &lt;- lapply(</pre>
+                      <pre class="language-r">  met_grps &lt;- paste0("analyze_vars", c("_numeric", "_counts"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">308</td>
-                    <td class="coverage">299<em>x</em></td>
+                    <td class="num">175</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y$count,</pre>
+                      <pre class="language-r">  .stats &lt;- get_stats(met_grps, stats_in = .stats)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">309</td>
-                    <td class="coverage">299<em>x</em></td>
+                    <td class="num">176</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    function(x) {</pre>
+                      <pre class="language-r">  formats_v &lt;- get_formats_from_stats(stats = .stats, formats_in = .formats)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">310</td>
-                    <td class="coverage">2172<em>x</em></td>
+                    <td class="num">177</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      c(x, ifelse(dn &gt; 0, x / dn, 0))</pre>
+                      <pre class="language-r">  labels_v &lt;- get_labels_from_stats(stats = .stats, labels_in = .labels)</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">178</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if ("control" %in% names(extra_args)) labels_v &lt;- labels_v %&gt;% labels_use_control(extra_args[["control"]], .labels)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">311</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">312</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  # Check for vars in the case that one or more are used</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">313</td>
-                    <td class="coverage">299<em>x</em></td>
+                    <td class="num">181</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y$fraction &lt;- lapply(</pre>
+                      <pre class="language-r">  if (length(vars) == 1) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">314</td>
-                    <td class="coverage">299<em>x</em></td>
+                    <td class="num">182</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y$count,</pre>
+                      <pre class="language-r">    vars &lt;- rep(vars, length(.stats))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">315</td>
-                    <td class="coverage">299<em>x</em></td>
+                    <td class="num">183</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    function(count) c("num" = count, "denom" = dn)</pre>
+                      <pre class="language-r">  } else if (length(vars) != length(.stats)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">316</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">184</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    stop(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">317</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">185</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      "Analyzed variables (vars) does not have the same ",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">318</td>
-                    <td class="coverage">299<em>x</em></td>
+                    <td class="num">186</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y$n_blq &lt;- sum(grepl("BLQ|LTR|&lt;[1-9]|&lt;PCLLOQ", x))</pre>
+                      <pre class="language-r">      "number of elements of specified statistics (.stats)."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">319</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">320</td>
-                    <td class="coverage">299<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  y</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">321</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">322</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">323</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">190</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn analyze_variables Method for `character` class. This makes an automatic</pre>
+                      <pre class="language-r">  if (split_col_vars) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">324</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   conversion to factor (with a warning) and then forwards to the method for factors.</pre>
+                      <pre class="language-r">    # Checking there is not a previous identical column split</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">325</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">192</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    clyt &lt;- tail(clayout(lyt), 1)[[1]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">326</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param verbose (`flag`)\cr defaults to `TRUE`, which prints out warnings and messages. It is mainly used</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">327</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">194</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to print out information about factor casting.</pre>
+                      <pre class="language-r">    dummy_lyt &lt;- split_cols_by_multivar(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">328</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">195</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      lyt = basic_table(),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">329</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">196</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note</pre>
+                      <pre class="language-r">      vars = vars,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">330</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">197</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * Automatic conversion of character to factor does not guarantee that the table</pre>
+                      <pre class="language-r">      varlabels = labels_v</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">331</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   can be generated correctly. In particular for sparse tables this very likely can fail.</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">332</td>
+                    <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   It is therefore better to always pre-process the dataset such that factors are manually</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">333</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">200</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   created from character variables before passing the dataset to [rtables::build_table()].</pre>
+                      <pre class="language-r">    if (any(sapply(clyt, identical, y = get_last_col_split(dummy_lyt)))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">334</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">201</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      stop(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">335</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">202</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @method s_summary character</pre>
+                      <pre class="language-r">        "Column split called again with the same values. ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">336</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">203</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        "This can create many unwanted columns. Please consider adding ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">337</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">204</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">        "split_col_vars = FALSE to the last call of ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">338</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">205</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `s_summary.character`</pre>
+                      <pre class="language-r">        deparse(sys.calls()[[sys.nframe() - 1]]), "."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">339</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">340</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Basic usage:</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">341</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_summary(c("a", "a", "b", "c", "a"), .var = "x", verbose = FALSE)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">342</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_summary(c("a", "a", "b", "c", "a", ""), .var = "x", na.rm = FALSE, verbose = FALSE)</pre>
+                      <pre class="language-r">    # Main col split</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">343</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">210</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    lyt &lt;- split_cols_by_multivar(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">344</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">211</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">      lyt = lyt,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">345</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">212</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_summary.character &lt;- function(x,</pre>
+                      <pre class="language-r">      vars = vars,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">346</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">213</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                na.rm = TRUE, # nolint</pre>
+                      <pre class="language-r">      varlabels = labels_v</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">347</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                denom = c("n", "N_row", "N_col"),</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">348</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                .N_row, # nolint</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">349</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                .N_col, # nolint</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">350</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">217</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                .var,</pre>
+                      <pre class="language-r">  env &lt;- new.env() # create caching environment</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">351</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                verbose = TRUE,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">352</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">219</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                ...) {</pre>
+                      <pre class="language-r">  if (do_summarize_row_groups) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">353</td>
+                    <td class="num">220</td>
                     <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (na.rm) {</pre>
+                      <pre class="language-r">    if (length(unique(vars)) &gt; 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">354</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">221</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y &lt;- as_factor_keep_attributes(x, verbose = verbose)</pre>
+                      <pre class="language-r">      stop("When using do_summarize_row_groups only one label level var should be inserted.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">355</td>
+                    <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">356</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    y &lt;- as_factor_keep_attributes(x, verbose = verbose, na_level = "NA")</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">357</td>
+                    <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">358</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    # Function list for do_summarize_row_groups. Slightly different handling of labels</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">359</td>
+                    <td class="num">225</td>
                     <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_summary(</pre>
+                      <pre class="language-r">    cfun_list &lt;- Map(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">360</td>
+                    <td class="num">226</td>
                     <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = y,</pre>
+                      <pre class="language-r">      function(stat, use_cache, cache_env) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">361</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">227</td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na.rm = na.rm,</pre>
+                      <pre class="language-r">        function(u, .spl_context, labelstr, .df_row, ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">362</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">228</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    denom = denom,</pre>
+                      <pre class="language-r">          # Statistic</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">363</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">229</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .N_row = .N_row,</pre>
+                      <pre class="language-r">          var_row_val &lt;- paste(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">364</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">230</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .N_col = .N_col,</pre>
+                      <pre class="language-r">            gsub("\\._\\[\\[[0-9]+\\]\\]_\\.", "", paste(tail(.spl_context$cur_col_split_val, 1)[[1]], collapse = "_")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">365</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">231</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ...</pre>
+                      <pre class="language-r">            paste(.spl_context$value, collapse = "_"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">366</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">232</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">            sep = "_"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">367</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">368</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">234</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          if (use_cache) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">369</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">235</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn analyze_variables Method for `logical` class.</pre>
+                      <pre class="language-r">            if (is.null(cache_env[[var_row_val]])) cache_env[[var_row_val]] &lt;- s_summary(u, ...)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">370</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">236</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            x_stats &lt;- cache_env[[var_row_val]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">371</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param denom (`string`)\cr choice of denominator for proportion. Options are:</pre>
+                      <pre class="language-r">          } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">372</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">238</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `n`: number of values in this row and column intersection.</pre>
+                      <pre class="language-r">            x_stats &lt;- s_summary(u, ...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">373</td>
+                    <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `N_row`: total number of values in this row across columns.</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">374</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `N_col`: total number of values in this column across rows.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">375</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">241</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          if (is.null(imp_rule) || !stat %in% c("mean", "sd", "cv", "geom_mean", "geom_cv", "median", "min", "max")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">376</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">242</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">            res &lt;- x_stats[[stat]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">377</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * If `x` is of class `logical`, returns a `list` with named `numeric` items:</pre>
+                      <pre class="language-r">          } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">378</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">244</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `n`: The [length()] of `x` (possibly after removing `NA`s).</pre>
+                      <pre class="language-r">            timept &lt;- as.numeric(gsub(".*?([0-9\\.]+).*", "\\1", tail(.spl_context$value, 1)))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">379</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">245</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `count`: Count of `TRUE` in `x`.</pre>
+                      <pre class="language-r">            res_imp &lt;- imputation_rule(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">380</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">246</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     * `count_fraction`: Count and proportion of `TRUE` in `x` relative to the denominator, or `NA` if the</pre>
+                      <pre class="language-r">              .df_row, x_stats, stat,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">381</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">247</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       denominator is zero. Note that `NA`s in `x` are never counted or leading to `NA` here.</pre>
+                      <pre class="language-r">              imp_rule = imp_rule,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">382</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">248</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">              post = grepl("Predose", tail(.spl_context$value, 1)) || timept &gt; 0,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">383</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">249</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @method s_summary logical</pre>
+                      <pre class="language-r">              avalcat_var = avalcat_var</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">384</td>
+                    <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">385</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">251</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">            res &lt;- res_imp[["val"]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">386</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">252</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `s_summary.logical`</pre>
+                      <pre class="language-r">            na_str &lt;- res_imp[["na_str"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">387</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">388</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Basic usage:</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">389</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_summary(c(TRUE, FALSE, TRUE, TRUE))</pre>
+                      <pre class="language-r">          # Label check and replacement</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">390</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">256</td>
+                    <td class="coverage">152<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          if (length(row_labels) &gt; 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">391</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">257</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Empty factor returns zero-filled items.</pre>
+                      <pre class="language-r">            if (!(labelstr %in% names(row_labels))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">392</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">258</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_summary(as.logical(c()))</pre>
+                      <pre class="language-r">              stop(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">393</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">259</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                "Replacing the labels in do_summarize_row_groups needs a named vector",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">394</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">260</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Management of NA values.</pre>
+                      <pre class="language-r">                "that contains the split values. In the current split variable ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">395</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">261</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x &lt;- c(NA, TRUE, FALSE)</pre>
+                      <pre class="language-r">                .spl_context$split[nrow(.spl_context)],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">396</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">262</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_summary(x, na.rm = TRUE)</pre>
+                      <pre class="language-r">                " the labelstr value (split value by default) ", labelstr, " is not in",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">397</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">263</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_summary(x, na.rm = FALSE)</pre>
+                      <pre class="language-r">                " row_labels names: ", names(row_labels)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">398</td>
+                    <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">              )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">399</td>
+                    <td class="num">265</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Different denominators.</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">400</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">266</td>
+                    <td class="coverage">30<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x &lt;- c(TRUE, FALSE, TRUE, TRUE)</pre>
+                      <pre class="language-r">            lbl &lt;- unlist(row_labels[labelstr])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">401</td>
+                    <td class="num">267</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_summary(x, denom = "N_row", .N_row = 10L)</pre>
+                      <pre class="language-r">          } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">402</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">268</td>
+                    <td class="coverage">120<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_summary(x, denom = "N_col", .N_col = 20L)</pre>
+                      <pre class="language-r">            lbl &lt;- labelstr</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">403</td>
+                    <td class="num">269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">404</td>
+                    <td class="num">270</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">405</td>
+                    <td class="num">271</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_summary.logical &lt;- function(x,</pre>
+                      <pre class="language-r">          # Cell creation</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">406</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">272</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              na.rm = TRUE, # nolint</pre>
+                      <pre class="language-r">          rcell(res,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">407</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">273</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              denom = c("n", "N_row", "N_col"),</pre>
+                      <pre class="language-r">            label = lbl,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">408</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">274</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              .N_row, # nolint</pre>
+                      <pre class="language-r">            format = formats_v[names(formats_v) == stat][[1]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">409</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">275</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              .N_col, # nolint</pre>
+                      <pre class="language-r">            format_na_str = na_str,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">410</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">276</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              ...) {</pre>
+                      <pre class="language-r">            indent_mod = ifelse(is.null(.indent_mods), 0L, .indent_mods),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">411</td>
-                    <td class="coverage">184<em>x</em></td>
+                    <td class="num">277</td>
+                    <td class="coverage">150<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  denom &lt;- match.arg(denom)</pre>
+                      <pre class="language-r">            align = .aligns</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">412</td>
-                    <td class="coverage">182<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">278</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (na.rm) x &lt;- x[!is.na(x)]</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">413</td>
-                    <td class="coverage">184<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">279</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- list()</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">414</td>
-                    <td class="coverage">184<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">280</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y$n &lt;- length(x)</pre>
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">415</td>
-                    <td class="coverage">184<em>x</em></td>
+                    <td class="num">281</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  count &lt;- sum(x, na.rm = TRUE)</pre>
+                      <pre class="language-r">      stat = .stats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">416</td>
-                    <td class="coverage">184<em>x</em></td>
+                    <td class="num">282</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  dn &lt;- switch(denom,</pre>
+                      <pre class="language-r">      use_cache = cache,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">417</td>
-                    <td class="coverage">184<em>x</em></td>
+                    <td class="num">283</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n = length(x),</pre>
+                      <pre class="language-r">      cache_env = replicate(length(.stats), env)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">418</td>
-                    <td class="coverage">184<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">284</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    N_row = .N_row,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">419</td>
-                    <td class="coverage">184<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">285</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    N_col = .N_col</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">420</td>
+                    <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    # Main call to rtables</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">421</td>
-                    <td class="coverage">184<em>x</em></td>
+                    <td class="num">287</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y$count &lt;- count</pre>
+                      <pre class="language-r">    summarize_row_groups(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">422</td>
-                    <td class="coverage">184<em>x</em></td>
+                    <td class="num">288</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y$count_fraction &lt;- c(count, ifelse(dn &gt; 0, count / dn, 0))</pre>
+                      <pre class="language-r">      lyt = lyt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">423</td>
-                    <td class="coverage">184<em>x</em></td>
+                    <td class="num">289</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y$n_blq &lt;- 0L</pre>
+                      <pre class="language-r">      var = unique(vars),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">424</td>
-                    <td class="coverage">184<em>x</em></td>
+                    <td class="num">290</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y</pre>
+                      <pre class="language-r">      cfun = cfun_list,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">425</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">291</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      na_str = na_str,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">426</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">292</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      extra_args = extra_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">427</td>
+                    <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn analyze_variables Formatted analysis function which is used as `afun` in `analyze_vars()` and</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">428</td>
+                    <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `compare_vars()` and as `cfun` in `summarize_colvars()`.</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">429</td>
+                    <td class="num">295</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    # Function list for analyze_colvars</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">430</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">296</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param compare (`flag`)\cr whether comparison statistics should be analyzed instead of summary statistics</pre>
+                      <pre class="language-r">    afun_list &lt;- Map(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">431</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">297</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   (`compare = TRUE` adds `pval` statistic comparing against reference group).</pre>
+                      <pre class="language-r">      function(stat, use_cache, cache_env) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">432</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">298</td>
+                    <td class="coverage">76<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        function(u, .spl_context, .df_row, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">433</td>
+                    <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">          # Main statistics</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">434</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">300</td>
+                    <td class="coverage">468<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `a_summary()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
+                      <pre class="language-r">          var_row_val &lt;- paste(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">435</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">301</td>
+                    <td class="coverage">468<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            gsub("\\._\\[\\[[0-9]+\\]\\]_\\.", "", paste(tail(.spl_context$cur_col_split_val, 1)[[1]], collapse = "_")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">436</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">302</td>
+                    <td class="coverage">468<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note</pre>
+                      <pre class="language-r">            paste(.spl_context$value, collapse = "_"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">437</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">303</td>
+                    <td class="coverage">468<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * To use for comparison (with additional p-value statistic), parameter `compare` must be set to `TRUE`.</pre>
+                      <pre class="language-r">            sep = "_"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">438</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * Ensure that either all `NA` values are converted to an explicit `NA` level or all `NA` values are left as is.</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">439</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">305</td>
+                    <td class="coverage">468<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          if (use_cache) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">440</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">306</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">            if (is.null(cache_env[[var_row_val]])) cache_env[[var_row_val]] &lt;- s_summary(u, ...)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">441</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">307</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' a_summary(factor(c("a", "a", "b", "c", "a")), .N_row = 10, .N_col = 10)</pre>
+                      <pre class="language-r">            x_stats &lt;- cache_env[[var_row_val]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">442</td>
+                    <td class="num">308</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' a_summary(</pre>
+                      <pre class="language-r">          } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">443</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">309</td>
+                    <td class="coverage">412<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   factor(c("a", "a", "b", "c", "a")),</pre>
+                      <pre class="language-r">            x_stats &lt;- s_summary(u, ...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">444</td>
+                    <td class="num">310</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .ref_group = factor(c("a", "a", "b", "c")), compare = TRUE</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">445</td>
+                    <td class="num">311</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">446</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">312</td>
+                    <td class="coverage">468<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          if (is.null(imp_rule) || !stat %in% c("mean", "sd", "cv", "geom_mean", "geom_cv", "median", "min", "max")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">447</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">313</td>
+                    <td class="coverage">348<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' a_summary(c("A", "B", "A", "C"), .var = "x", .N_col = 10, .N_row = 10, verbose = FALSE)</pre>
+                      <pre class="language-r">            res &lt;- x_stats[[stat]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">448</td>
+                    <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' a_summary(</pre>
+                      <pre class="language-r">          } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">449</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">315</td>
+                    <td class="coverage">120<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   c("A", "B", "A", "C"),</pre>
+                      <pre class="language-r">            timept &lt;- as.numeric(gsub(".*?([0-9\\.]+).*", "\\1", tail(.spl_context$value, 1)))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">450</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">316</td>
+                    <td class="coverage">120<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .ref_group = c("B", "A", "C"), .var = "x", compare = TRUE, verbose = FALSE</pre>
+                      <pre class="language-r">            res_imp &lt;- imputation_rule(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">451</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">317</td>
+                    <td class="coverage">120<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">              .df_row, x_stats, stat,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">452</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">318</td>
+                    <td class="coverage">120<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">              imp_rule = imp_rule,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">453</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">319</td>
+                    <td class="coverage">120<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' a_summary(c(TRUE, FALSE, FALSE, TRUE, TRUE), .N_row = 10, .N_col = 10)</pre>
+                      <pre class="language-r">              post = grepl("Predose", tail(.spl_context$value, 1)) || timept &gt; 0,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">454</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">320</td>
+                    <td class="coverage">120<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' a_summary(</pre>
+                      <pre class="language-r">              avalcat_var = avalcat_var</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">455</td>
+                    <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   c(TRUE, FALSE, FALSE, TRUE, TRUE),</pre>
+                      <pre class="language-r">            )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">456</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">322</td>
+                    <td class="coverage">120<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .ref_group = c(TRUE, FALSE), .in_ref_col = TRUE, compare = TRUE</pre>
+                      <pre class="language-r">            res &lt;- res_imp[["val"]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">457</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">323</td>
+                    <td class="coverage">120<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">            na_str &lt;- res_imp[["na_str"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">458</td>
+                    <td class="num">324</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">459</td>
+                    <td class="num">325</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' a_summary(rnorm(10), .N_col = 10, .N_row = 20, .var = "bla")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">460</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">326</td>
+                    <td class="coverage">468<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' a_summary(rnorm(10, 5, 1), .ref_group = rnorm(20, -5, 1), .var = "bla", compare = TRUE)</pre>
+                      <pre class="language-r">          if (is.list(res)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">461</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">327</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">            if (length(res) &gt; 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">462</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">328</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">              stop("The analyzed column produced more than one category of results.")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">463</td>
+                    <td class="num">329</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">a_summary &lt;- function(x,</pre>
+                      <pre class="language-r">            } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">464</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">330</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      .N_col, # nolint</pre>
+                      <pre class="language-r">              res &lt;- unlist(res)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">465</td>
+                    <td class="num">331</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      .N_row, # nolint</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">466</td>
+                    <td class="num">332</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      .var = NULL,</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">467</td>
+                    <td class="num">333</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      .df_row = NULL,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">468</td>
+                    <td class="num">334</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      .ref_group = NULL,</pre>
+                      <pre class="language-r">          # Label from context</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">469</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">335</td>
+                    <td class="coverage">467<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      .in_ref_col = FALSE,</pre>
+                      <pre class="language-r">          label_from_context &lt;- .spl_context$value[nrow(.spl_context)]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">470</td>
+                    <td class="num">336</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      compare = FALSE,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">471</td>
+                    <td class="num">337</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      .stats = NULL,</pre>
+                      <pre class="language-r">          # Label switcher</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">472</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">338</td>
+                    <td class="coverage">467<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      .formats = NULL,</pre>
+                      <pre class="language-r">          if (is.null(row_labels)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">473</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">339</td>
+                    <td class="coverage">387<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      .labels = NULL,</pre>
+                      <pre class="language-r">            lbl &lt;- label_from_context</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">474</td>
+                    <td class="num">340</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      .indent_mods = NULL,</pre>
+                      <pre class="language-r">          } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">475</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">341</td>
+                    <td class="coverage">80<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      na.rm = TRUE, # nolint</pre>
+                      <pre class="language-r">            if (length(row_labels) &gt; 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">476</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">342</td>
+                    <td class="coverage">68<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      na_str = default_na_str(),</pre>
+                      <pre class="language-r">              if (!(label_from_context %in% names(row_labels))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">477</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">343</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      ...) {</pre>
+                      <pre class="language-r">                stop(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">478</td>
-                    <td class="coverage">324<em>x</em></td>
+                    <td class="num">344</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(...)</pre>
+                      <pre class="language-r">                  "Replacing the labels in do_summarize_row_groups needs a named vector",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">479</td>
-                    <td class="coverage">324<em>x</em></td>
+                    <td class="num">345</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.numeric(x)) {</pre>
+                      <pre class="language-r">                  "that contains the split values. In the current split variable ",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">480</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">346</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    type &lt;- "numeric"</pre>
+                      <pre class="language-r">                  .spl_context$split[nrow(.spl_context)],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">481</td>
-                    <td class="coverage">86<em>x</em></td>
+                    <td class="num">347</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.null(.stats) &amp;&amp; any(grepl("^pval", .stats))) {</pre>
+                      <pre class="language-r">                  " the split value ", label_from_context, " is not in",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">482</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">348</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      .stats[grepl("^pval", .stats)] &lt;- "pval" # tmp fix xxx</pre>
+                      <pre class="language-r">                  " row_labels names: ", names(row_labels)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">483</td>
+                    <td class="num">349</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">                )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">484</td>
+                    <td class="num">350</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">              }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">485</td>
-                    <td class="coverage">238<em>x</em></td>
+                    <td class="num">351</td>
+                    <td class="coverage">66<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    type &lt;- "counts"</pre>
+                      <pre class="language-r">              lbl &lt;- unlist(row_labels[label_from_context])</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">486</td>
-                    <td class="coverage">238<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">352</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.null(.stats) &amp;&amp; any(grepl("^pval", .stats))) {</pre>
+                      <pre class="language-r">            } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">487</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">353</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      .stats[grepl("^pval", .stats)] &lt;- "pval_counts" # tmp fix xxx</pre>
+                      <pre class="language-r">              lbl &lt;- row_labels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">488</td>
+                    <td class="num">354</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">            }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">489</td>
+                    <td class="num">355</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">          }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">490</td>
+                    <td class="num">356</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">491</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  # If one col has NA vals, must add NA row to other cols (using placeholder lvl `fill-na-level`)</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">492</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (any(is.na(.df_row[[.var]])) &amp;&amp; !any(is.na(x)) &amp;&amp; !na.rm) levels(x) &lt;- c(levels(x), "fill-na-level")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">493</td>
+                    <td class="num">357</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">          # Cell creation</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">494</td>
-                    <td class="coverage">324<em>x</em></td>
+                    <td class="num">358</td>
+                    <td class="coverage">465<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats &lt;- if (!compare) {</pre>
+                      <pre class="language-r">          rcell(res,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">495</td>
-                    <td class="coverage">300<em>x</em></td>
+                    <td class="num">359</td>
+                    <td class="coverage">465<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    s_summary(x = x, .N_col = .N_col, .N_row = .N_row, na.rm = na.rm, ...)</pre>
+                      <pre class="language-r">            label = lbl,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">496</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">360</td>
+                    <td class="coverage">465<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">            format = formats_v[names(formats_v) == stat][[1]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">497</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">361</td>
+                    <td class="coverage">465<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    s_compare(</pre>
+                      <pre class="language-r">            format_na_str = na_str,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">498</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">362</td>
+                    <td class="coverage">465<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = x, .N_col = .N_col, .N_row = .N_row, na.rm = na.rm, .ref_group = .ref_group, .in_ref_col = .in_ref_col, ...</pre>
+                      <pre class="language-r">            indent_mod = ifelse(is.null(.indent_mods), 0L, .indent_mods),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">499</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">363</td>
+                    <td class="coverage">465<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">            align = .aligns</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">500</td>
+                    <td class="num">364</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">          )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">501</td>
+                    <td class="num">365</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">502</td>
+                    <td class="num">366</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Fill in with formatting defaults if needed</pre>
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">503</td>
-                    <td class="coverage">324<em>x</em></td>
+                    <td class="num">367</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  met_grp &lt;- paste0(c("analyze_vars", type), collapse = "_")</pre>
+                      <pre class="language-r">      stat = .stats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">504</td>
-                    <td class="coverage">324<em>x</em></td>
+                    <td class="num">368</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .stats &lt;- get_stats(met_grp, stats_in = .stats, add_pval = compare)</pre>
+                      <pre class="language-r">      use_cache = cache,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">505</td>
-                    <td class="coverage">324<em>x</em></td>
+                    <td class="num">369</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats &lt;- get_formats_from_stats(.stats, .formats)</pre>
+                      <pre class="language-r">      cache_env = replicate(length(.stats), env)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">506</td>
-                    <td class="coverage">324<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">370</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .indent_mods &lt;- get_indents_from_stats(.stats, .indent_mods)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">507</td>
+                    <td class="num">371</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">508</td>
-                    <td class="coverage">324<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  lbls &lt;- get_labels_from_stats(.stats, .labels)</pre>
-                    </td>
-                  </tr>
                   <tr class="never">
-                    <td class="num">509</td>
+                    <td class="num">372</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Check for custom labels from control_analyze_vars</pre>
+                      <pre class="language-r">    # Main call to rtables</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">510</td>
-                    <td class="coverage">324<em>x</em></td>
+                    <td class="num">373</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .labels &lt;- if ("control" %in% names(extra_args)) {</pre>
+                      <pre class="language-r">    analyze_colvars(lyt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">511</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">374</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lbls %&gt;% labels_use_control(extra_args[["control"]], .labels)</pre>
+                      <pre class="language-r">      afun = afun_list,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">512</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">375</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">      na_str = na_str,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">513</td>
-                    <td class="coverage">323<em>x</em></td>
+                    <td class="num">376</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lbls</pre>
+                      <pre class="language-r">      nested = nested,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">514</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">377</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      extra_args = extra_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">515</td>
+                    <td class="num">378</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">516</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">379</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if ("count_fraction_fixed_dp" %in% .stats) x_stats[["count_fraction_fixed_dp"]] &lt;- x_stats[["count_fraction"]]</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">517</td>
-                    <td class="coverage">324<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">380</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_stats &lt;- x_stats[.stats]</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">518</td>
+                    <td class="num">381</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">519</td>
-                    <td class="coverage">324<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (is.factor(x) || is.character(x)) {</pre>
-                    </td>
-                  </tr>
                   <tr class="never">
-                    <td class="num">520</td>
+                    <td class="num">382</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Ungroup statistics with values for each level of x</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">521</td>
-                    <td class="coverage">234<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    x_ungrp &lt;- ungroup_stats(x_stats, .formats, .labels, .indent_mods)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">522</td>
-                    <td class="coverage">234<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    x_stats &lt;- x_ungrp[["x"]]</pre>
+                      <pre class="language-r"># Helper function</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">523</td>
-                    <td class="coverage">234<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">383</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .formats &lt;- x_ungrp[[".formats"]]</pre>
+                      <pre class="language-r">get_last_col_split &lt;- function(lyt) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">524</td>
-                    <td class="coverage">234<em>x</em></td>
+                    <td class="num">384</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .labels &lt;- gsub("fill-na-level", "NA", x_ungrp[[".labels"]])</pre>
+                      <pre class="language-r">  tail(tail(clayout(lyt), 1)[[1]], 1)[[1]]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">525</td>
-                    <td class="coverage">234<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">385</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .indent_mods &lt;- x_ungrp[[".indent_mods"]]</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/df_explicit_na.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">526</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' Encode categorical missing values in a data frame</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">527</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">528</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Auto format handling</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">529</td>
-                    <td class="coverage">324<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats &lt;- apply_auto_formatting(.formats, x_stats, .df_row, .var)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">530</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' This is a helper function to encode missing entries across groups of categorical</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">531</td>
-                    <td class="coverage">324<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  in_rows(</pre>
+                      <pre class="language-r">#' variables in a data frame.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">532</td>
-                    <td class="coverage">324<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">7</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .list = x_stats,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">533</td>
-                    <td class="coverage">324<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .formats = .formats,</pre>
+                      <pre class="language-r">#' @details Missing entries are those with `NA` or empty strings and will</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">534</td>
-                    <td class="coverage">324<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .names = names(.labels),</pre>
+                      <pre class="language-r">#'   be replaced with a specified value. If factor variables include missing</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">535</td>
-                    <td class="coverage">324<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .labels = .labels,</pre>
+                      <pre class="language-r">#'   values, the missing value will be inserted as the last level.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">536</td>
-                    <td class="coverage">324<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .indent_mods = .indent_mods,</pre>
+                      <pre class="language-r">#'   Similarly, in case character or logical variables should be converted to factors</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">537</td>
-                    <td class="coverage">324<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .format_na_strs = na_str</pre>
+                      <pre class="language-r">#'   with the `char_as_factor` or `logical_as_factor` options, the missing values will</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">538</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'   be set as the last level.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">539</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">540</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param data (`data.frame`)\cr data set.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">541</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn analyze_variables Layout-creating function which can take statistics function arguments</pre>
+                      <pre class="language-r">#' @param omit_columns (`character`)\cr names of variables from `data` that should</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">542</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
+                      <pre class="language-r">#'   not be modified by this function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">543</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param char_as_factor (`flag`)\cr whether to convert character variables</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">544</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... arguments passed to `s_summary()`.</pre>
+                      <pre class="language-r">#'   in `data` to factors.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">545</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .indent_mods (named `integer`)\cr indent modifiers for the labels. Each element of the vector</pre>
+                      <pre class="language-r">#' @param logical_as_factor (`flag`)\cr whether to convert logical variables</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">546</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   should be a name-value pair with name corresponding to a statistic specified in `.stats` and value the indentation</pre>
+                      <pre class="language-r">#'   in `data` to factors.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">547</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   for that statistic's row label.</pre>
+                      <pre class="language-r">#' @param na_level (`string`)\cr string used to replace all `NA` or empty</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">548</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   values inside non-`omit_columns` columns.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">549</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">550</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `analyze_vars()` returns a layout object suitable for passing to further layouting functions,</pre>
+                      <pre class="language-r">#' @return A `data.frame` with the chosen modifications applied.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">551</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">552</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the statistics from `s_summary()` to the table layout.</pre>
+                      <pre class="language-r">#' @seealso [sas_na()] and [explicit_na()] for other missing data helper functions.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">553</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">554</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">555</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Fabricated dataset.</pre>
+                      <pre class="language-r">#' my_data &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">556</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dta_test &lt;- data.frame(</pre>
+                      <pre class="language-r">#'   u = c(TRUE, FALSE, NA, TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">557</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   USUBJID = rep(1:6, each = 3),</pre>
+                      <pre class="language-r">#'   v = factor(c("A", NA, NA, NA), levels = c("Z", "A")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">558</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   PARAMCD = rep("lab", 6 * 3),</pre>
+                      <pre class="language-r">#'   w = c("A", "B", NA, "C"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">559</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   AVISIT  = rep(paste0("V", 1:3), 6),</pre>
+                      <pre class="language-r">#'   x = c("D", "E", "F", NA),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">560</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ARM     = rep(LETTERS[1:3], rep(6, 3)),</pre>
+                      <pre class="language-r">#'   y = c("G", "H", "I", ""),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">561</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   AVAL    = c(9:1, rep(NA, 9))</pre>
+                      <pre class="language-r">#'   z = c(1, 2, 3, 4),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">562</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">563</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">564</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `analyze_vars()` in `rtables` pipelines</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">565</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Default output within a `rtables` pipeline.</pre>
+                      <pre class="language-r">#' # Example 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">566</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' l &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">#' # Encode missing values in all character or factor columns.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">567</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by(var = "ARM") %&gt;%</pre>
+                      <pre class="language-r">#' df_explicit_na(my_data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">568</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by(var = "AVISIT") %&gt;%</pre>
+                      <pre class="language-r">#' # Also convert logical columns to factor columns.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">569</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze_vars(vars = "AVAL")</pre>
+                      <pre class="language-r">#' df_explicit_na(my_data, logical_as_factor = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">570</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' # Encode missing values in a subset of columns.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">571</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' build_table(l, df = dta_test)</pre>
+                      <pre class="language-r">#' df_explicit_na(my_data, omit_columns = c("x", "y"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">572</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">573</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Select and format statistics output.</pre>
+                      <pre class="language-r">#' # Example 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">574</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' l &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">#' # Here we purposefully convert all `M` values to `NA` in the `SEX` variable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">575</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by(var = "ARM") %&gt;%</pre>
+                      <pre class="language-r">#' # After running `df_explicit_na` the `NA` values are encoded as `&lt;Missing&gt;` but they are not</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">576</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by(var = "AVISIT") %&gt;%</pre>
+                      <pre class="language-r">#' # included when generating `rtables`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">577</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze_vars(</pre>
+                      <pre class="language-r">#' adsl &lt;- tern_ex_adsl</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">578</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     vars = "AVAL",</pre>
+                      <pre class="language-r">#' adsl$SEX[adsl$SEX == "M"] &lt;- NA</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">579</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .stats = c("n", "mean_sd", "quantiles"),</pre>
+                      <pre class="language-r">#' adsl &lt;- df_explicit_na(adsl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">580</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .formats = c("mean_sd" = "xx.x, xx.x"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">581</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .labels = c(n = "n", mean_sd = "Mean, SD", quantiles = c("Q1 - Q3"))</pre>
+                      <pre class="language-r">#' # If you want the `Na` values to be displayed in the table use the `na_level` argument.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">582</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#' adsl &lt;- tern_ex_adsl</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">583</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' adsl$SEX[adsl$SEX == "M"] &lt;- NA</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">584</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' build_table(l, df = dta_test)</pre>
+                      <pre class="language-r">#' adsl &lt;- df_explicit_na(adsl, na_level = "Missing Values")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">585</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">586</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Use arguments interpreted by `s_summary`.</pre>
+                      <pre class="language-r">#' # Example 3</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">587</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' l &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">#' # Numeric variables that have missing values are not altered. This means that any `NA` value in</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">588</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by(var = "ARM") %&gt;%</pre>
+                      <pre class="language-r">#' # a numeric variable will not be included in the summary statistics, nor will they be included</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">589</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by(var = "AVISIT") %&gt;%</pre>
+                      <pre class="language-r">#' # in the denominator value for calculating the percent values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">590</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze_vars(vars = "AVAL", na.rm = FALSE)</pre>
+                      <pre class="language-r">#' adsl &lt;- tern_ex_adsl</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">591</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' adsl$AGE[adsl$AGE &lt; 30] &lt;- NA</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">592</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' build_table(l, df = dta_test)</pre>
+                      <pre class="language-r">#' adsl &lt;- df_explicit_na(adsl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">593</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">594</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Handle `NA` levels first when summarizing factors.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">595</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dta_test$AVISIT &lt;- NA_character_</pre>
+                      <pre class="language-r">df_explicit_na &lt;- function(data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">596</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dta_test &lt;- df_explicit_na(dta_test)</pre>
+                      <pre class="language-r">                           omit_columns = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">597</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' l &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">                           char_as_factor = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">598</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by(var = "ARM") %&gt;%</pre>
+                      <pre class="language-r">                           logical_as_factor = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">599</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze_vars(vars = "AVISIT", na.rm = FALSE)</pre>
+                      <pre class="language-r">                           na_level = "&lt;Missing&gt;") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">600</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">75</td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_character(omit_columns, null.ok = TRUE, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">601</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">76</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' build_table(l, df = dta_test)</pre>
+                      <pre class="language-r">  checkmate::assert_data_frame(data)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">602</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">77</td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_flag(char_as_factor)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">603</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">78</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # auto format</pre>
+                      <pre class="language-r">  checkmate::assert_flag(logical_as_factor)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">604</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">79</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dt &lt;- data.frame("VAR" = c(0.001, 0.2, 0.0011000, 3, 4))</pre>
+                      <pre class="language-r">  checkmate::assert_string(na_level)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">605</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">606</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">81</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze_vars(</pre>
+                      <pre class="language-r">  target_vars &lt;- if (is.null(omit_columns)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">607</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">82</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     vars = "VAR",</pre>
+                      <pre class="language-r">    names(data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">608</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .stats = c("n", "mean", "mean_sd", "range"),</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">609</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">84</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .formats = c("mean_sd" = "auto", "range" = "auto")</pre>
+                      <pre class="language-r">    setdiff(names(data), omit_columns) # May have duplicates.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">610</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">611</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">86</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(dt)</pre>
+                      <pre class="language-r">  if (length(target_vars) == 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">612</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">87</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    return(data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">613</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">614</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 2</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">615</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">90</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">analyze_vars &lt;- function(lyt,</pre>
+                      <pre class="language-r">  l_target_vars &lt;- split(target_vars, target_vars)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">616</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         vars,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">617</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         var_labels = vars,</pre>
+                      <pre class="language-r">  # Makes sure target_vars exist in data and names are not duplicated.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">618</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">93</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         na_str = default_na_str(),</pre>
+                      <pre class="language-r">  assert_df_with_variables(data, l_target_vars)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">619</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         nested = TRUE,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">620</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">95</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         ...,</pre>
+                      <pre class="language-r">  for (x in target_vars) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">621</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">96</td>
+                    <td class="coverage">306<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         na.rm = TRUE, # nolint</pre>
+                      <pre class="language-r">    xi &lt;- data[[x]]</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">97</td>
+                    <td class="coverage">306<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    xi_label &lt;- obj_label(xi)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">622</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         show_labels = "default",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">623</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         table_names = vars,</pre>
+                      <pre class="language-r">    # Determine whether to convert character or logical input.</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">100</td>
+                    <td class="coverage">306<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    do_char_conversion &lt;- is.character(xi) &amp;&amp; char_as_factor</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">101</td>
+                    <td class="coverage">306<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    do_logical_conversion &lt;- is.logical(xi) &amp;&amp; logical_as_factor</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">624</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         section_div = NA_character_,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">625</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         .stats = c("n", "mean_sd", "median", "range", "count_fraction"),</pre>
+                      <pre class="language-r">    # Pre-convert logical to character to deal correctly with replacing NA</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">626</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         .formats = NULL,</pre>
+                      <pre class="language-r">    # values below.</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">105</td>
+                    <td class="coverage">306<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    if (do_logical_conversion) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">106</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      xi &lt;- as.character(xi)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">627</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         .labels = NULL,</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">628</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         .indent_mods = NULL) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">629</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">109</td>
+                    <td class="coverage">306<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(.stats = .stats, na.rm = na.rm, na_str = na_str, ...)</pre>
+                      <pre class="language-r">    if (is.factor(xi) || is.character(xi)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">630</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">110</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(.formats)) extra_args[[".formats"]] &lt;- .formats</pre>
+                      <pre class="language-r">      # Handle empty strings and NA values.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">631</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">111</td>
+                    <td class="coverage">219<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(.labels)) extra_args[[".labels"]] &lt;- .labels</pre>
+                      <pre class="language-r">      xi &lt;- explicit_na(sas_na(xi), label = na_level)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">632</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">112</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(.indent_mods)) extra_args[[".indent_mods"]] &lt;- .indent_mods</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">633</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      # Convert to factors if requested for the original type,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">634</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">114</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  analyze(</pre>
+                      <pre class="language-r">      # set na_level as the last value.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">635</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">115</td>
+                    <td class="coverage">219<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt = lyt,</pre>
+                      <pre class="language-r">      if (do_char_conversion || do_logical_conversion) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">636</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">116</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars = vars,</pre>
+                      <pre class="language-r">        levels_xi &lt;- setdiff(sort(unique(xi)), na_level)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">637</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">117</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_labels = var_labels,</pre>
+                      <pre class="language-r">        if (na_level %in% unique(xi)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">638</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">118</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    afun = a_summary,</pre>
+                      <pre class="language-r">          levels_xi &lt;- c(levels_xi, na_level)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">639</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">119</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">        }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">640</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">120</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nested = nested,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">641</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">121</td>
+                    <td class="coverage">78<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args = extra_args,</pre>
+                      <pre class="language-r">        xi &lt;- factor(xi, levels = levels_xi)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">642</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">122</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    inclNAs = TRUE,</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">643</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">123</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    show_labels = show_labels,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">644</td>
-                    <td class="coverage">30<em>x</em></td>
+                    <td class="num">124</td>
+                    <td class="coverage">219<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table_names = table_names,</pre>
+                      <pre class="language-r">      data[, x] &lt;- formatters::with_label(xi, label = xi_label)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">645</td>
-                    <td class="coverage">30<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">125</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    section_div = section_div</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">646</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">127</td>
+                    <td class="coverage">18<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  return(data)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">647</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -146983,14 +145950,14 @@ <h2>tern coverage - 95.64%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/g_km.R" class="hidden">
+            <div id="R/compare_variables.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Kaplan-Meier plot</pre>
+                      <pre class="language-r">#' Compare variables between groups</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -147018,10662 +145985,10291 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' From a survival model, a graphic is rendered along with tabulated annotation</pre>
+                      <pre class="language-r">#' The analyze function [compare_vars()] creates a layout element to summarize and compare one or more variables, using</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' including the number of patient at risk at given time and the median survival</pre>
+                      <pre class="language-r">#' the S3 generic function [s_summary()] to calculate a list of summary statistics. A list of all available statistics</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' per group.</pre>
+                      <pre class="language-r">#' for numeric variables can be viewed by running `get_stats("analyze_vars_numeric", add_pval = TRUE)` and for</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' non-numeric variables by running `get_stats("analyze_vars_counts", add_pval = TRUE)`. Use the `.stats` parameter to</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' specify the statistics to include in your output summary table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param variables (named `list`)\cr variable names. Details are:</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `tte` (`numeric`)\cr variable indicating time-to-event duration values.</pre>
+                      <pre class="language-r">#' Prior to using this function in your table layout you must use [rtables::split_cols_by()] to create a column</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `is_event` (`logical`)\cr event variable. `TRUE` if event, `FALSE` if time to event is censored.</pre>
+                      <pre class="language-r">#' split on the variable to be used in comparisons, and specify a reference group via the `ref_group` parameter.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `arm` (`factor`)\cr the treatment group variable.</pre>
+                      <pre class="language-r">#' Comparisons can be performed for each group (column) against the specified reference group by including the p-value</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `strata` (`character` or `NULL`)\cr variable names indicating stratification factors.</pre>
+                      <pre class="language-r">#' statistic.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param control_surv (`list`)\cr parameters for comparison details, specified by using</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the helper function [control_surv_timepoint()]. Some possible parameter options are:</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `conf_level` (`proportion`)\cr confidence level of the interval for survival rate.</pre>
+                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `conf_type` (`string`)\cr `"plain"` (default), `"log"`, `"log-log"` for confidence interval type,</pre>
+                      <pre class="language-r">#'   `get_stats("analyze_vars_numeric", add_pval = TRUE)` to see statistics available for numeric variables, and</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     see more in [survival::survfit()]. Note that the option "none" is no longer supported.</pre>
+                      <pre class="language-r">#'   `get_stats("analyze_vars_counts", add_pval = TRUE)` for statistics available for non-numeric variables.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param col (`character`)\cr lines colors. Length of a vector should be equal</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to number of strata from [survival::survfit()].</pre>
+                      <pre class="language-r">#' @note</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param lty (`numeric`)\cr line type. If a vector is given, its length should be equal to the number of strata from</pre>
+                      <pre class="language-r">#' * For factor variables, `denom` for factor proportions can only be `n` since the purpose is to compare proportions</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   [survival::survfit()].</pre>
+                      <pre class="language-r">#'   between columns, therefore a row-based proportion would not make sense. Proportion based on `N_col` would</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param lwd (`numeric`)\cr line width. If a vector is given, its length should be equal to the number of strata from</pre>
+                      <pre class="language-r">#'   be difficult since we use counts for the chi-squared test statistic, therefore missing values should be accounted</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   [survival::survfit()].</pre>
+                      <pre class="language-r">#'   for as explicit factor levels.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param censor_show (`flag`)\cr whether to show censored observations.</pre>
+                      <pre class="language-r">#' * If factor variables contain `NA`, these `NA` values are excluded by default. To include `NA` values</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param pch (`string`)\cr name of symbol or character to use as point symbol to indicate censored cases.</pre>
+                      <pre class="language-r">#'   set `na.rm = FALSE` and missing values will be displayed as an `NA` level. Alternatively, an explicit</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param size (`numeric(1)`)\cr size of censored point symbols.</pre>
+                      <pre class="language-r">#'   factor level can be defined for `NA` values during pre-processing via [df_explicit_na()] - the</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param max_time (`numeric(1)`)\cr maximum value to show on x-axis. Only data values less than or up to</pre>
+                      <pre class="language-r">#'   default `na_level` (`"&lt;Missing&gt;"`) will also be excluded when `na.rm` is set to `TRUE`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   this threshold value will be plotted (defaults to `NULL`).</pre>
+                      <pre class="language-r">#' * For character variables, automatic conversion to factor does not guarantee that the table</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param xticks (`numeric` or `NULL`)\cr numeric vector of tick positions or a single number with spacing</pre>
+                      <pre class="language-r">#'   will be generated correctly. In particular for sparse tables this very likely can fail.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   between ticks on the x-axis. If `NULL` (default), [labeling::extended()] is used to determine</pre>
+                      <pre class="language-r">#'   Therefore it is always better to manually convert character variables to factors during pre-processing.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   optimal tick positions on the x-axis.</pre>
+                      <pre class="language-r">#' * For `compare_vars()`, the column split must define a reference group via `ref_group` so that the comparison</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param xlab (`string`)\cr x-axis label.</pre>
+                      <pre class="language-r">#'   is well defined.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param yval (`string`)\cr type of plot, to be plotted on the y-axis. Options are `Survival` (default) and `Failure`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   probability.</pre>
+                      <pre class="language-r">#' @seealso [s_summary()] which is used internally to compute a summary within `s_compare()`, and [a_summary()]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ylab (`string`)\cr y-axis label.</pre>
+                      <pre class="language-r">#'   which is used (with `compare = TRUE`) as the analysis function for `compare_vars()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param title (`string`)\cr plot title.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param footnotes (`string`)\cr plot footnotes.</pre>
+                      <pre class="language-r">#' @name compare_variables</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param font_size (`numeric(1)`)\cr font size to use for all text.</pre>
+                      <pre class="language-r">#' @include analyze_variables.R</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ci_ribbon (`flag`)\cr whether the confidence interval should be drawn around the Kaplan-Meier curve.</pre>
+                      <pre class="language-r">#' @order 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param annot_at_risk (`flag`)\cr compute and add the annotation table reporting the number of patient at risk</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   matching the main grid of the Kaplan-Meier curve.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param annot_at_risk_title (`flag`)\cr whether the "Patients at Risk" title should be added above the `annot_at_risk`</pre>
+                      <pre class="language-r">#' @describeIn compare_variables S3 generic function to produce a comparison summary.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   table. Has no effect if `annot_at_risk` is `FALSE`. Defaults to `TRUE`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param annot_surv_med (`flag`)\cr compute and add the annotation table on the Kaplan-Meier curve estimating the</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   median survival time per group.</pre>
+                      <pre class="language-r">#' * `s_compare()` returns output of [s_summary()] and comparisons versus the reference group in the form of p-values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param annot_coxph (`flag`)\cr whether to add the annotation table from a [survival::coxph()] model.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param annot_stats (`string` or `NULL`)\cr statistics annotations to add to the plot. Options are</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `median` (median survival follow-up time) and `min` (minimum survival follow-up time).</pre>
+                      <pre class="language-r">s_compare &lt;- function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param annot_stats_vlines (`flag`)\cr add vertical lines corresponding to each of the statistics</pre>
+                      <pre class="language-r">                      .ref_group,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   specified by `annot_stats`. If `annot_stats` is `NULL` no lines will be added.</pre>
+                      <pre class="language-r">                      .in_ref_col,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param control_coxph_pw (`list`)\cr parameters for comparison details, specified using the helper function</pre>
+                      <pre class="language-r">                      ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">54</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">35<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   [control_coxph()]. Some possible parameter options are:</pre>
+                      <pre class="language-r">  UseMethod("s_compare", x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `pval_method` (`string`)\cr p-value method for testing hazard ratio = 1.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     Default method is `"log-rank"`, can also be set to `"wald"` or `"likelihood"`.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `ties` (`string`)\cr method for tie handling. Default is `"efron"`,</pre>
+                      <pre class="language-r">#' @describeIn compare_variables Method for `numeric` class. This uses the standard t-test</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     can also be set to `"breslow"` or `"exact"`. See more in [survival::coxph()]</pre>
+                      <pre class="language-r">#'   to calculate the p-value.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `conf_level` (`proportion`)\cr confidence level of the interval for HR.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ref_group_coxph (`string` or `NULL`)\cr level of arm variable to use as reference group in calculations for</pre>
+                      <pre class="language-r">#' @method s_compare numeric</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `annot_coxph` table. If `NULL` (default), uses the first level of the arm variable.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param control_annot_surv_med (`list`)\cr parameters to control the position and size of the annotation table added</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to the plot when `annot_surv_med = TRUE`, specified using the [control_surv_med_annot()] function. Parameter</pre>
+                      <pre class="language-r">#' # `s_compare.numeric`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   options are: `x`, `y`, `w`, `h`, and `fill`. See [control_surv_med_annot()] for details.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param control_annot_coxph (`list`)\cr parameters to control the position and size of the annotation table added</pre>
+                      <pre class="language-r">#' ## Usual case where both this and the reference group vector have more than 1 value.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to the plot when `annot_coxph = TRUE`, specified using the [control_coxph_annot()] function. Parameter</pre>
+                      <pre class="language-r">#' s_compare(rnorm(10, 5, 1), .ref_group = rnorm(5, -5, 1), .in_ref_col = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   options are: `x`, `y`, `w`, `h`, `fill`, and `ref_lbls`. See [control_coxph_annot()] for details.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param legend_pos (`numeric(2)` or `NULL`)\cr vector containing x- and y-coordinates, respectively, for the legend</pre>
+                      <pre class="language-r">#' ## If one group has not more than 1 value, then p-value is not calculated.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   position relative to the KM plot area. If `NULL` (default), the legend is positioned in the bottom right corner of</pre>
+                      <pre class="language-r">#' s_compare(rnorm(10, 5, 1), .ref_group = 1, .in_ref_col = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the plot, or the middle right of the plot if needed to prevent overlapping.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param rel_height_plot (`proportion`)\cr proportion of total figure height to allocate to the Kaplan-Meier plot.</pre>
+                      <pre class="language-r">#' ## Empty numeric does not fail, it returns NA-filled items and no p-value.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Relative height of patients at risk table is then `1 - rel_height_plot`. If `annot_at_risk = FALSE` or</pre>
+                      <pre class="language-r">#' s_compare(numeric(), .ref_group = numeric(), .in_ref_col = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `as_list = TRUE`, this parameter is ignored.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ggtheme (`theme`)\cr a graphical theme as provided by `ggplot2` to format the Kaplan-Meier plot.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param as_list (`flag`)\cr whether the two `ggplot` objects should be returned as a list when `annot_at_risk = TRUE`.</pre>
+                      <pre class="language-r">s_compare.numeric &lt;- function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   If `TRUE`, a named list with two elements, `plot` and `table`, will be returned. If `FALSE` (default) the patients</pre>
+                      <pre class="language-r">                              .ref_group,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   at risk table is printed below the plot via [cowplot::plot_grid()].</pre>
+                      <pre class="language-r">                              .in_ref_col,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param draw `r lifecycle::badge("deprecated")` This function no longer generates `grob` objects.</pre>
+                      <pre class="language-r">                              ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">79</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param newpage `r lifecycle::badge("deprecated")` This function no longer generates `grob` objects.</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">80</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param gp `r lifecycle::badge("deprecated")` This function no longer generates `grob` objects.</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(.ref_group)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">81</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param vp `r lifecycle::badge("deprecated")` This function no longer generates `grob` objects.</pre>
+                      <pre class="language-r">  checkmate::assert_flag(.in_ref_col)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param name `r lifecycle::badge("deprecated")` This function no longer generates `grob` objects.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">83</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param annot_coxph_ref_lbls `r lifecycle::badge("deprecated")` Please use the `ref_lbls` element of</pre>
+                      <pre class="language-r">  y &lt;- s_summary.numeric(x = x, ...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `control_annot_coxph` instead.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">85</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param position_coxph `r lifecycle::badge("deprecated")`  Please use the `x` and `y` elements of</pre>
+                      <pre class="language-r">  y$pval &lt;- if (!.in_ref_col &amp;&amp; n_available(x) &gt; 1 &amp;&amp; n_available(.ref_group) &gt; 1) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">86</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `control_annot_coxph` instead.</pre>
+                      <pre class="language-r">    stats::t.test(x, .ref_group)$p.value</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param position_surv_med `r lifecycle::badge("deprecated")` Please use the `x` and `y` elements of</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">88</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `control_annot_surv_med` instead.</pre>
+                      <pre class="language-r">    character()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param width_annots `r lifecycle::badge("deprecated")` Please use the `w` element of `control_annot_surv_med`</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   (for `surv_med`) and `control_annot_coxph` (for `coxph`)."</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">91</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  y</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `ggplot` Kaplan-Meier plot and (optionally) summary table.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @describeIn compare_variables Method for `factor` class. This uses the chi-squared test</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">#'   to calculate the p-value.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(nestcolor)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param denom (`string`)\cr choice of denominator for factor proportions,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- tern_ex_adtte %&gt;%</pre>
+                      <pre class="language-r">#'   can only be `n` (number of values in this row and column intersection).</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mutate(is_event = CNSR == 0)</pre>
+                      <pre class="language-r">#' @method s_compare factor</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' variables &lt;- list(tte = "AVAL", is_event = "is_event", arm = "ARMCD")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Basic examples</pre>
+                      <pre class="language-r">#' # `s_compare.factor`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_km(df = df, variables = variables)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_km(df = df, variables = variables, yval = "Failure")</pre>
+                      <pre class="language-r">#' ## Basic usage:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' x &lt;- factor(c("a", "a", "b", "c", "a"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Examples with customization parameters applied</pre>
+                      <pre class="language-r">#' y &lt;- factor(c("a", "b", "c"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_km(</pre>
+                      <pre class="language-r">#' s_compare(x = x, .ref_group = y, .in_ref_col = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   df = df,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = variables,</pre>
+                      <pre class="language-r">#' ## Management of NA values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   control_surv = control_surv_timepoint(conf_level = 0.9),</pre>
+                      <pre class="language-r">#' x &lt;- explicit_na(factor(c("a", "a", "b", "c", "a", NA, NA)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   col = c("grey25", "grey50", "grey75"),</pre>
+                      <pre class="language-r">#' y &lt;- explicit_na(factor(c("a", "b", "c", NA)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   annot_at_risk_title = FALSE,</pre>
+                      <pre class="language-r">#' s_compare(x = x, .ref_group = y, .in_ref_col = FALSE, na.rm = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   lty = 1:3,</pre>
+                      <pre class="language-r">#' s_compare(x = x, .ref_group = y, .in_ref_col = FALSE, na.rm = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   font_size = 8</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_km(</pre>
+                      <pre class="language-r">s_compare.factor &lt;- function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   df = df,</pre>
+                      <pre class="language-r">                             .ref_group,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = variables,</pre>
+                      <pre class="language-r">                             .in_ref_col,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   annot_stats = c("min", "median"),</pre>
+                      <pre class="language-r">                             denom = "n",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   annot_stats_vlines = TRUE,</pre>
+                      <pre class="language-r">                             na.rm = TRUE, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   max_time = 3000,</pre>
+                      <pre class="language-r">                             ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">123</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ggtheme = ggplot2::theme_minimal()</pre>
+                      <pre class="language-r">  checkmate::assert_flag(.in_ref_col)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">124</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  assert_valid_factor(x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">125</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  assert_valid_factor(.ref_group)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">126</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Example with pairwise Cox-PH analysis annotation table, adjusted annotation tables</pre>
+                      <pre class="language-r">  denom &lt;- match.arg(denom)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_km(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">128</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   df = df, variables = variables,</pre>
+                      <pre class="language-r">  y &lt;- s_summary.factor(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">129</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   annot_coxph = TRUE,</pre>
+                      <pre class="language-r">    x = x,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">130</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   control_coxph = control_coxph(pval_method = "wald", ties = "exact", conf_level = 0.99),</pre>
+                      <pre class="language-r">    denom = denom,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">131</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   control_annot_coxph = control_coxph_annot(x = 0.26, w = 0.35),</pre>
+                      <pre class="language-r">    na.rm = na.rm,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   control_annot_surv_med = control_surv_med_annot(x = 0.8, y = 0.9, w = 0.35)</pre>
+                      <pre class="language-r">    ...</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">135</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @aliases kaplan_meier</pre>
+                      <pre class="language-r">  if (na.rm) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">136</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    x &lt;- x[!is.na(x)] %&gt;% fct_discard("&lt;Missing&gt;")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">137</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">g_km &lt;- function(df,</pre>
+                      <pre class="language-r">    .ref_group &lt;- .ref_group[!is.na(.ref_group)] %&gt;% fct_discard("&lt;Missing&gt;")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 variables,</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">139</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 control_surv = control_surv_timepoint(),</pre>
+                      <pre class="language-r">    x &lt;- x %&gt;% explicit_na(label = "NA")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">140</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 col = NULL,</pre>
+                      <pre class="language-r">    .ref_group &lt;- .ref_group %&gt;% explicit_na(label = "NA")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 lty = NULL,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 lwd = 0.5,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">143</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 censor_show = TRUE,</pre>
+                      <pre class="language-r">  if ("NA" %in% levels(x)) levels(.ref_group) &lt;- c(levels(.ref_group), "NA")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">144</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 pch = 3,</pre>
+                      <pre class="language-r">  checkmate::assert_factor(x, levels = levels(.ref_group), min.levels = 2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 size = 2,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">146</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 max_time = NULL,</pre>
+                      <pre class="language-r">  y$pval_counts &lt;- if (!.in_ref_col &amp;&amp; length(x) &gt; 0 &amp;&amp; length(.ref_group) &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">147</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 xticks = NULL,</pre>
+                      <pre class="language-r">    tab &lt;- rbind(table(x), table(.ref_group))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">148</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 xlab = "Days",</pre>
+                      <pre class="language-r">    res &lt;- suppressWarnings(stats::chisq.test(tab))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">149</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 yval = c("Survival", "Failure"),</pre>
+                      <pre class="language-r">    res$p.value</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 ylab = paste(yval, "Probability"),</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">151</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 ylim = NULL,</pre>
+                      <pre class="language-r">    character()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 title = NULL,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 footnotes = NULL,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">154</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 font_size = 10,</pre>
+                      <pre class="language-r">  y</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 ci_ribbon = FALSE,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 annot_at_risk = TRUE,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 annot_at_risk_title = TRUE,</pre>
+                      <pre class="language-r">#' @describeIn compare_variables Method for `character` class. This makes an automatic</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 annot_surv_med = TRUE,</pre>
+                      <pre class="language-r">#'   conversion to `factor` (with a warning) and then forwards to the method for factors.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 annot_coxph = FALSE,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 annot_stats = NULL,</pre>
+                      <pre class="language-r">#' @param verbose (`flag`)\cr whether warnings and messages should be printed. Mainly used</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 annot_stats_vlines = FALSE,</pre>
+                      <pre class="language-r">#'   to print out information about factor casting. Defaults to `TRUE`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 control_coxph_pw = control_coxph(),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 ref_group_coxph = NULL,</pre>
+                      <pre class="language-r">#' @method s_compare character</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 control_annot_surv_med = control_surv_med_annot(),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 control_annot_coxph = control_coxph_annot(),</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 legend_pos = NULL,</pre>
+                      <pre class="language-r">#' # `s_compare.character`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 rel_height_plot = 0.75,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 ggtheme = NULL,</pre>
+                      <pre class="language-r">#' ## Basic usage:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 as_list = FALSE,</pre>
+                      <pre class="language-r">#' x &lt;- c("a", "a", "b", "c", "a")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 draw = lifecycle::deprecated(),</pre>
+                      <pre class="language-r">#' y &lt;- c("a", "b", "c")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 newpage = lifecycle::deprecated(),</pre>
+                      <pre class="language-r">#' s_compare(x, .ref_group = y, .in_ref_col = FALSE, .var = "x", verbose = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 gp = lifecycle::deprecated(),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 vp = lifecycle::deprecated(),</pre>
+                      <pre class="language-r">#' ## Note that missing values handling can make a large difference:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 name = lifecycle::deprecated(),</pre>
+                      <pre class="language-r">#' x &lt;- c("a", "a", "b", "c", "a", NA)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 annot_coxph_ref_lbls = lifecycle::deprecated(),</pre>
+                      <pre class="language-r">#' y &lt;- c("a", "b", "c", rep(NA, 20))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 position_coxph = lifecycle::deprecated(),</pre>
+                      <pre class="language-r">#' s_compare(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 position_surv_med = lifecycle::deprecated(),</pre>
+                      <pre class="language-r">#'   .ref_group = y, .in_ref_col = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                 width_annots = lifecycle::deprecated()) {</pre>
+                      <pre class="language-r">#'   .var = "x", verbose = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Deprecated argument warnings</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">180</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (lifecycle::is_present(draw)) {</pre>
+                      <pre class="language-r">#' s_compare(x,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">181</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
+                      <pre class="language-r">#'   .ref_group = y, .in_ref_col = FALSE, .var = "x",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">182</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "0.9.4", "g_km(draw)",</pre>
+                      <pre class="language-r">#'   na.rm = FALSE, verbose = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">183</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      details = "This argument is no longer used since the plot is now generated as a `ggplot2` object."</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">186</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (lifecycle::is_present(newpage)) {</pre>
+                      <pre class="language-r">s_compare.character &lt;- function(x,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">187</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
+                      <pre class="language-r">                                .ref_group,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">188</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "0.9.4", "g_km(newpage)",</pre>
+                      <pre class="language-r">                                .in_ref_col,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">189</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      details = "This argument is no longer used since the plot is now generated as a `ggplot2` object."</pre>
+                      <pre class="language-r">                                denom = "n",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">                                na.rm = TRUE, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                                .var,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">192</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (lifecycle::is_present(gp)) {</pre>
+                      <pre class="language-r">                                verbose = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">193</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
+                      <pre class="language-r">                                ...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">194</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "0.9.4", "g_km(gp)",</pre>
+                      <pre class="language-r">  x &lt;- as_factor_keep_attributes(x, verbose = verbose)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">195</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      details = "This argument is no longer used since the plot is now generated as a `ggplot2` object."</pre>
+                      <pre class="language-r">  .ref_group &lt;- as_factor_keep_attributes(.ref_group, verbose = verbose)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">196</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  s_compare(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">197</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    x = x,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">198</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (lifecycle::is_present(vp)) {</pre>
+                      <pre class="language-r">    .ref_group = .ref_group,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">199</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
+                      <pre class="language-r">    .in_ref_col = .in_ref_col,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">200</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "0.9.4", "g_km(vp)",</pre>
+                      <pre class="language-r">    denom = denom,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">201</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      details = "This argument is no longer used since the plot is now generated as a `ggplot2` object."</pre>
+                      <pre class="language-r">    na.rm = na.rm,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    ...</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">204</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (lifecycle::is_present(name)) {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">205</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">206</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "0.9.4", "g_km(name)",</pre>
+                      <pre class="language-r">#' @describeIn compare_variables Method for `logical` class. A chi-squared test</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">207</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      details = "This argument is no longer used since the plot is now generated as a `ggplot2` object."</pre>
+                      <pre class="language-r">#'   is used. If missing values are not removed, then they are counted as `FALSE`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @method s_compare logical</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">210</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (lifecycle::is_present(annot_coxph_ref_lbls)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">211</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">212</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "0.9.4", "g_km(annot_coxph_ref_lbls)",</pre>
+                      <pre class="language-r">#' # `s_compare.logical`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">213</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      details = "Please specify this setting using the 'ref_lbls' element of control_annot_coxph."</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' ## Basic usage:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">215</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    control_annot_coxph[["ref_lbls"]] &lt;- annot_coxph_ref_lbls</pre>
+                      <pre class="language-r">#' x &lt;- c(TRUE, FALSE, TRUE, TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' y &lt;- c(FALSE, FALSE, TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">217</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (lifecycle::is_present(position_coxph)) {</pre>
+                      <pre class="language-r">#' s_compare(x, .ref_group = y, .in_ref_col = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">218</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">219</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "0.9.4", "g_km(position_coxph)",</pre>
+                      <pre class="language-r">#' ## Management of NA values.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">220</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      details = "Please specify this setting using the 'x' and 'y' elements of control_annot_coxph."</pre>
+                      <pre class="language-r">#' x &lt;- c(NA, TRUE, FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' y &lt;- c(NA, NA, NA, NA, FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">222</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    control_annot_coxph[["x"]] &lt;- position_coxph[1]</pre>
+                      <pre class="language-r">#' s_compare(x, .ref_group = y, .in_ref_col = FALSE, na.rm = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">223</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    control_annot_coxph[["y"]] &lt;- position_coxph[2]</pre>
+                      <pre class="language-r">#' s_compare(x, .ref_group = y, .in_ref_col = FALSE, na.rm = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">225</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (lifecycle::is_present(position_surv_med)) {</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">226</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
+                      <pre class="language-r">s_compare.logical &lt;- function(x,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">227</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "0.9.4", "g_km(position_surv_med)",</pre>
+                      <pre class="language-r">                              .ref_group,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">228</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      details = "Please specify this setting using the 'x' and 'y' elements of control_annot_surv_med."</pre>
+                      <pre class="language-r">                              .in_ref_col,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">                              na.rm = TRUE, # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">230</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    control_annot_surv_med[["x"]] &lt;- position_surv_med[1]</pre>
+                      <pre class="language-r">                              denom = "n",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">231</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    control_annot_surv_med[["y"]] &lt;- position_surv_med[2]</pre>
+                      <pre class="language-r">                              ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">232</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  denom &lt;- match.arg(denom)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">233</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (lifecycle::is_present(width_annots)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">234</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
+                      <pre class="language-r">  y &lt;- s_summary.logical(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">235</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "0.9.4", "g_km(width_annots)",</pre>
+                      <pre class="language-r">    x = x,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">236</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      details = paste(</pre>
+                      <pre class="language-r">    na.rm = na.rm,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">237</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Please specify widths of annotation tables relative to the plot area using the 'w' element of",</pre>
+                      <pre class="language-r">    denom = denom,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">238</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "control_annot_surv_med (for surv_med) and control_annot_coxph (for coxph)."</pre>
+                      <pre class="language-r">    ...</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">241</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    control_annot_surv_med[["w"]] &lt;- as.numeric(width_annots[["surv_med"]])</pre>
+                      <pre class="language-r">  if (na.rm) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">242</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    control_annot_coxph[["w"]] &lt;- as.numeric(width_annots[["coxph"]])</pre>
+                      <pre class="language-r">    x &lt;- stats::na.omit(x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">243</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    .ref_group &lt;- stats::na.omit(.ref_group)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">245</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(variables)</pre>
+                      <pre class="language-r">    x[is.na(x)] &lt;- FALSE</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">246</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(c("tte", "arm", "is_event"), names(variables))</pre>
+                      <pre class="language-r">    .ref_group[is.na(.ref_group)] &lt;- FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">247</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_logical(censor_show, len = 1)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">248</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(size, len = 1)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">249</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(max_time, len = 1, null.ok = TRUE)</pre>
+                      <pre class="language-r">  y$pval_counts &lt;- if (!.in_ref_col &amp;&amp; length(x) &gt; 0 &amp;&amp; length(.ref_group) &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">250</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(xticks, null.ok = TRUE)</pre>
+                      <pre class="language-r">    x &lt;- factor(x, levels = c(TRUE, FALSE))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">251</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(xlab, len = 1, null.ok = TRUE)</pre>
+                      <pre class="language-r">    .ref_group &lt;- factor(.ref_group, levels = c(TRUE, FALSE))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">252</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(yval)</pre>
+                      <pre class="language-r">    tbl &lt;- rbind(table(x), table(.ref_group))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">253</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(ylab, null.ok = TRUE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">254</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(ylim, finite = TRUE, any.missing = FALSE, len = 2, sorted = TRUE, null.ok = TRUE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">255</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(title, len = 1, null.ok = TRUE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">256</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(footnotes, len = 1, null.ok = TRUE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">257</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(font_size, len = 1)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">258</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_logical(ci_ribbon, len = 1)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">259</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_logical(annot_at_risk, len = 1)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">260</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_logical(annot_at_risk_title, len = 1)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">261</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_logical(annot_surv_med, len = 1)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">262</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_logical(annot_coxph, len = 1)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">263</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(annot_stats, c("median", "min"))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">264</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_logical(annot_stats_vlines)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">265</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(control_coxph_pw)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">266</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(ref_group_coxph, len = 1, null.ok = TRUE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">267</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(control_annot_surv_med)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">268</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(control_annot_coxph)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">269</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(legend_pos, finite = TRUE, any.missing = FALSE, len = 2, null.ok = TRUE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">270</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  assert_proportion_value(rel_height_plot)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">271</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_logical(as_list)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">272</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">273</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  tte &lt;- variables$tte</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">274</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  is_event &lt;- variables$is_event</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">275</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  arm &lt;- variables$arm</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">276</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  assert_valid_factor(df[[arm]])</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">277</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  armval &lt;- as.character(unique(df[[arm]]))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">278</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(df, list(tte = tte, is_event = is_event, arm = arm))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">279</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_logical(df[[is_event]], min.len = 1)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">280</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(df[[tte]], min.len = 1)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">281</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_vector(col, len = length(armval), null.ok = TRUE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">282</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_vector(lty, null.ok = TRUE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">283</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(lwd, len = 1, null.ok = TRUE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">284</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">285</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (annot_coxph &amp;&amp; length(armval) &lt; 2) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">286</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    stop(paste(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">287</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      "When `annot_coxph` = TRUE, `df` must contain at least 2 levels of `variables$arm`",</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">288</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      "in order to calculate the hazard ratio."</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">289</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    ))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">290</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">291</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">292</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  # process model</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">293</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  yval &lt;- match.arg(yval)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">294</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  formula &lt;- stats::as.formula(paste0("survival::Surv(", tte, ", ", is_event, ") ~ ", arm))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">295</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  fit_km &lt;- survival::survfit(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">296</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    formula = formula,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">297</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    data = df,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">298</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    conf.int = control_surv$conf_level,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">299</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    conf.type = control_surv$conf_type</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">300</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">301</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  data &lt;- h_data_plot(fit_km, armval = armval, max_time = max_time)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">302</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">303</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  # calculate x-ticks</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">304</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  xticks &lt;- h_xticks(data = data, xticks = xticks, max_time = max_time)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">305</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    suppressWarnings(prop_chisq(tbl))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">306</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # change estimates of survival to estimates of failure (1 - survival)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">307</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (yval == "Failure") {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">308</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    data[c("estimate", "conf.low", "conf.high", "censor")] &lt;- list(</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">309</td>
+                    <td class="num">255</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      1 - data$estimate, 1 - data$conf.low, 1 - data$conf.high, 1 - data$censor</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">310</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    character()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">311</td>
+                    <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">312</td>
+                    <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">313</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  # derive y-axis limits</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">314</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(ylim)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">315</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.null(max_time)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">316</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      y_lwr &lt;- min(data[data$time &lt; max_time, ][["estimate"]])</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">317</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      y_upr &lt;- max(data[data$time &lt; max_time, ][["estimate"]])</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">318</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">319</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      y_lwr &lt;- min(data[["estimate"]])</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">320</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      y_upr &lt;- max(data[["estimate"]])</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">321</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
-                    </td>
-                  </tr>
                   <tr class="covered">
-                    <td class="num">322</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">258</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ylim &lt;- c(y_lwr, y_upr)</pre>
+                      <pre class="language-r">  y</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">323</td>
+                    <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">324</td>
+                    <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">325</td>
+                    <td class="num">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # initialize ggplot</pre>
+                      <pre class="language-r">#' @describeIn compare_variables Layout-creating function which can take statistics function arguments</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">326</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">262</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  gg_plt &lt;- ggplot(</pre>
+                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">327</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">263</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data = data,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">328</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">264</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mapping = aes(</pre>
+                      <pre class="language-r">#' @param ... arguments passed to `s_compare()`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">329</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">265</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x = .data[["time"]],</pre>
+                      <pre class="language-r">#' @param .indent_mods (named `integer`)\cr indent modifiers for the labels. Each element of the vector</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">330</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">266</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y = .data[["estimate"]],</pre>
+                      <pre class="language-r">#'   should be a name-value pair with name corresponding to a statistic specified in `.stats` and value the indentation</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">331</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">267</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ymin = .data[["conf.low"]],</pre>
+                      <pre class="language-r">#'   for that statistic's row label.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">332</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">268</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ymax = .data[["conf.high"]],</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">333</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">269</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      color = .data[["strata"]],</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">334</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">270</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      fill = .data[["strata"]]</pre>
+                      <pre class="language-r">#' * `compare_vars()` returns a layout object suitable for passing to further layouting functions,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">335</td>
+                    <td class="num">271</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">336</td>
+                    <td class="num">272</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ) +</pre>
+                      <pre class="language-r">#'   the statistics from `s_compare()` to the table layout.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">337</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">273</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    theme_bw(base_size = font_size) +</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">338</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">274</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    scale_y_continuous(limits = ylim, expand = c(0.025, 0)) +</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">339</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">275</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    labs(title = title, x = xlab, y = ylab, caption = footnotes) +</pre>
+                      <pre class="language-r">#' # `compare_vars()` in `rtables` pipelines</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">340</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">276</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    theme(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">341</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">277</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      axis.text = element_text(size = font_size),</pre>
+                      <pre class="language-r">#' ## Default output within a `rtables` pipeline.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">342</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">278</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      axis.title = element_text(size = font_size),</pre>
+                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">343</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">279</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      legend.title = element_blank(),</pre>
+                      <pre class="language-r">#'   split_cols_by("ARMCD", ref_group = "ARM B") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">344</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">280</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      legend.text = element_text(size = font_size),</pre>
+                      <pre class="language-r">#'   compare_vars(c("AGE", "SEX"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">345</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">281</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      legend.box.background = element_rect(fill = "white", linewidth = 0.5),</pre>
+                      <pre class="language-r">#' build_table(lyt, tern_ex_adsl)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">346</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">282</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      legend.background = element_blank(),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">347</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">283</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      legend.position = "inside",</pre>
+                      <pre class="language-r">#' ## Select and format statistics output.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">348</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">284</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      legend.spacing.y = unit(-0.02, "npc"),</pre>
+                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">349</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">285</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      panel.grid.major = element_blank(),</pre>
+                      <pre class="language-r">#'   split_cols_by("ARMCD", ref_group = "ARM C") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">350</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">286</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      panel.grid.minor = element_blank()</pre>
+                      <pre class="language-r">#'   compare_vars(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">351</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'     vars = "AGE",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">352</td>
+                    <td class="num">288</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     .stats = c("mean_sd", "pval"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">353</td>
+                    <td class="num">289</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # derive x-axis limits</pre>
+                      <pre class="language-r">#'     .formats = c(mean_sd = "xx.x, xx.x"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">354</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">290</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(max_time) &amp;&amp; !is.null(xticks)) {</pre>
+                      <pre class="language-r">#'     .labels = c(mean_sd = "Mean, SD")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">355</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">291</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gg_plt &lt;- gg_plt + scale_x_continuous(</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">356</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">292</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      breaks = xticks, limits = c(min(0, xticks), max(c(xticks, max_time))), expand = c(0.025, 0)</pre>
+                      <pre class="language-r">#' build_table(lyt, df = tern_ex_adsl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">357</td>
+                    <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">358</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">294</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (!is.null(xticks)) {</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">359</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">295</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (max(data$time) &lt;= max(xticks)) {</pre>
+                      <pre class="language-r">#' @order 2</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">360</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">296</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      gg_plt &lt;- gg_plt + scale_x_continuous(</pre>
+                      <pre class="language-r">compare_vars &lt;- function(lyt,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">361</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">297</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        breaks = xticks, limits = c(min(0, min(xticks)), max(xticks)), expand = c(0.025, 0)</pre>
+                      <pre class="language-r">                         vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">362</td>
+                    <td class="num">298</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">                         var_labels = vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">363</td>
+                    <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">                         na_str = default_na_str(),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">364</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">300</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      gg_plt &lt;- gg_plt + scale_x_continuous(breaks = xticks, expand = c(0.025, 0))</pre>
+                      <pre class="language-r">                         nested = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">365</td>
+                    <td class="num">301</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">                         ...,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">366</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">302</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (!is.null(max_time)) {</pre>
+                      <pre class="language-r">                         na.rm = TRUE, # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">367</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">303</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gg_plt &lt;- gg_plt + scale_x_continuous(limits = c(0, max_time), expand = c(0.025, 0))</pre>
+                      <pre class="language-r">                         show_labels = "default",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">368</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                         table_names = vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">369</td>
+                    <td class="num">305</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                         section_div = NA_character_,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">370</td>
+                    <td class="num">306</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # set legend position</pre>
+                      <pre class="language-r">                         .stats = c("n", "mean_sd", "count_fraction", "pval"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">371</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">307</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(legend_pos)) {</pre>
+                      <pre class="language-r">                         .formats = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">372</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">308</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gg_plt &lt;- gg_plt + theme(legend.position.inside = legend_pos)</pre>
+                      <pre class="language-r">                         .labels = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">373</td>
+                    <td class="num">309</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">                         .indent_mods = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">374</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">310</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    max_time2 &lt;- sort(</pre>
+                      <pre class="language-r">  extra_args &lt;- list(.stats = .stats, na.rm = na.rm, na_str = na_str, compare = TRUE, ...)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">375</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">311</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data$time,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">376</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">312</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      partial = nrow(data) - length(armval) - 1</pre>
+                      <pre class="language-r">  if (!is.null(.formats)) extra_args[[".formats"]] &lt;- .formats</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">377</td>
-                    <td class="coverage">8<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    )[nrow(data) - length(armval) - 1]</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">378</td>
-                    <td class="coverage"></td>
+                    <td class="num">313</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if (!is.null(.labels)) extra_args[[".labels"]] &lt;- .labels</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">379</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">314</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y_rng &lt;- ylim[2] - ylim[1]</pre>
+                      <pre class="language-r">  if (!is.null(.indent_mods)) extra_args[[".indent_mods"]] &lt;- .indent_mods</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">380</td>
+                    <td class="num">315</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">381</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">316</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (yval == "Survival" &amp;&amp; all(data$estimate[data$time == max_time2] &gt; ylim[1] + 0.09 * y_rng) &amp;&amp;</pre>
+                      <pre class="language-r">  analyze(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">382</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">317</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      all(data$estimate[data$time == max_time2] &lt; ylim[1] + 0.5 * y_rng)) { # nolint</pre>
+                      <pre class="language-r">    lyt = lyt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">383</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">318</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      gg_plt &lt;- gg_plt +</pre>
+                      <pre class="language-r">    vars = vars,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">384</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">319</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        theme(</pre>
+                      <pre class="language-r">    var_labels = var_labels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">385</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">320</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          legend.position.inside = c(1, 0.5),</pre>
+                      <pre class="language-r">    afun = a_summary,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">386</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">321</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          legend.justification = c(1.1, 0.6)</pre>
+                      <pre class="language-r">    na_str = na_str,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">387</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">322</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">    nested = nested,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">388</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">323</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">    extra_args = extra_args,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">389</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">324</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      gg_plt &lt;- gg_plt +</pre>
+                      <pre class="language-r">    inclNAs = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">390</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">325</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        theme(</pre>
+                      <pre class="language-r">    show_labels = show_labels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">391</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">326</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          legend.position.inside = c(1, 0),</pre>
+                      <pre class="language-r">    table_names = table_names,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">392</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">327</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          legend.justification = c(1.1, -0.4)</pre>
+                      <pre class="language-r">    section_div = section_div</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">393</td>
+                    <td class="num">328</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">394</td>
+                    <td class="num">329</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/summarize_patients_exposure_in_cols.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">395</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' Count number of patients and sum exposure across all patients in columns</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">396</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">397</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # add lines</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">398</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  gg_plt &lt;- if (is.null(lty)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">399</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gg_plt + geom_step(linewidth = lwd, na.rm = TRUE)</pre>
+                      <pre class="language-r">#' The analyze function [analyze_patients_exposure_in_cols()] creates a layout element to count total numbers of</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">400</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (length(lty) == 1) {</pre>
+                      <pre class="language-r">#' patients and sum an analysis value (i.e. exposure) across all patients in columns.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">401</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">7</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gg_plt + geom_step(linewidth = lwd, lty = lty, na.rm = TRUE)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">402</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' The primary analysis variable `ex_var` is the exposure variable used to calculate the `sum_exposure` statistic. The</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">403</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gg_plt +</pre>
+                      <pre class="language-r">#' `id` variable is used to uniquely identify patients in the data such that only unique patients are counted in the</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">404</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      geom_step(aes(lty = .data[["strata"]]), linewidth = lwd, na.rm = TRUE) +</pre>
+                      <pre class="language-r">#' `n_patients` statistic, and the `var` variable is used to create a row split if needed. The percentage returned as</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">405</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      scale_linetype_manual(values = lty)</pre>
+                      <pre class="language-r">#' part of the `n_patients` statistic is the proportion of all records that correspond to a unique patient.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">406</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">407</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' The summarize function [summarize_patients_exposure_in_cols()] performs the same function as</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">408</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # add censor marks</pre>
+                      <pre class="language-r">#' [analyze_patients_exposure_in_cols()] except it creates content rows, not data rows, to summarize the current table</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">409</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">15</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (censor_show) {</pre>
+                      <pre class="language-r">#' row/column context and operates on the level of the latest row split or the root of the table if no row splits have</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">410</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">16</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gg_plt &lt;- gg_plt + geom_point(</pre>
+                      <pre class="language-r">#' occurred.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">411</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data = data[data$n.censor != 0, ],</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">412</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      aes(x = .data[["time"]], y = .data[["censor"]], shape = "Censored"),</pre>
+                      <pre class="language-r">#' If a column split has not yet been performed in the table, `col_split` must be set to `TRUE` for the first call of</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">413</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      size = size,</pre>
+                      <pre class="language-r">#' [analyze_patients_exposure_in_cols()] or [summarize_patients_exposure_in_cols()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">414</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">20</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      na.rm = TRUE</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">415</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) +</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">416</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">22</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      scale_shape_manual(name = NULL, values = pch) +</pre>
+                      <pre class="language-r">#' @param ex_var (`string`)\cr name of the variable in `df` containing exposure values.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">417</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">23</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      guides(fill = guide_legend(override.aes = list(shape = NA)))</pre>
+                      <pre class="language-r">#' @param custom_label (`string` or `NULL`)\cr if provided and `labelstr` is empty, this will be used as label.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">418</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">419</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   `get_stats("analyze_patients_exposure_in_cols")` to see available statistics for this function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">420</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # add ci ribbon</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">421</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">27</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (ci_ribbon) gg_plt &lt;- gg_plt + geom_ribbon(alpha = 0.3, lty = 0, na.rm = TRUE)</pre>
+                      <pre class="language-r">#' @name summarize_patients_exposure_in_cols</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">422</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @order 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">423</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # control aesthetics</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">424</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">30</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(col)) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">425</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">31</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gg_plt &lt;- gg_plt +</pre>
+                      <pre class="language-r">#' @describeIn summarize_patients_exposure_in_cols Statistics function which counts numbers</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">426</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">32</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      scale_color_manual(values = col) +</pre>
+                      <pre class="language-r">#'   of patients and the sum of exposure across all patients.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">427</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">33</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      scale_fill_manual(values = col)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">428</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">429</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">35</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(ggtheme)) gg_plt &lt;- gg_plt + ggtheme</pre>
+                      <pre class="language-r">#' * `s_count_patients_sum_exposure()` returns a named `list` with the statistics:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">430</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   * `n_patients`: Number of unique patients in `df`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">431</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # annotate with stats (text/vlines)</pre>
+                      <pre class="language-r">#'   * `sum_exposure`: Sum of `ex_var` across all patients in `df`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">432</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">38</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(annot_stats)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">433</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">39</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if ("median" %in% annot_stats) {</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">434</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">40</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      fit_km_all &lt;- survival::survfit(</pre>
+                      <pre class="language-r">s_count_patients_sum_exposure &lt;- function(df,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">435</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">41</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        formula = stats::as.formula(paste0("survival::Surv(", tte, ", ", is_event, ") ~ ", 1)),</pre>
+                      <pre class="language-r">                                          ex_var = "AVAL",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">436</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">42</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data = df,</pre>
+                      <pre class="language-r">                                          id = "USUBJID",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">437</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">43</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        conf.int = control_surv$conf_level,</pre>
+                      <pre class="language-r">                                          labelstr = "",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">438</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">44</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        conf.type = control_surv$conf_type</pre>
+                      <pre class="language-r">                                          .stats = c("n_patients", "sum_exposure"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">439</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">                                          .N_col, # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">440</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">46</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      gg_plt &lt;- gg_plt +</pre>
+                      <pre class="language-r">                                          custom_label = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">441</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">47</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        annotate(</pre>
+                      <pre class="language-r">  assert_df_with_variables(df, list(ex_var = ex_var, id = id))</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">442</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">48</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "text",</pre>
+                      <pre class="language-r">  checkmate::assert_string(id)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">443</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">49</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          size = font_size / .pt, col = 1, lineheight = 0.95,</pre>
+                      <pre class="language-r">  checkmate::assert_string(labelstr)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">444</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">50</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = stats::median(fit_km_all) + 0.07 * max(data$time),</pre>
+                      <pre class="language-r">  checkmate::assert_string(custom_label, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">445</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">51</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          y = ifelse(yval == "Survival", 0.65, 0.35),</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(df[[ex_var]])</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">446</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">52</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = paste("Median F/U:\n", round(stats::median(fit_km_all), 1), tolower(df$AVALU[1]))</pre>
+                      <pre class="language-r">  checkmate::assert_true(all(.stats %in% c("n_patients", "sum_exposure")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">447</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">448</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">54</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (annot_stats_vlines) {</pre>
+                      <pre class="language-r">  row_label &lt;- if (labelstr != "") {</pre>
                     </td>
                   </tr>
                   <tr class="missed">
-                    <td class="num">449</td>
+                    <td class="num">55</td>
                     <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        gg_plt &lt;- gg_plt +</pre>
+                      <pre class="language-r">    labelstr</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">450</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">56</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          annotate(</pre>
+                      <pre class="language-r">  } else if (!is.null(custom_label)) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">451</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">57</td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "segment",</pre>
+                      <pre class="language-r">    custom_label</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">452</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">58</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            x = stats::median(fit_km_all), xend = stats::median(fit_km_all), y = -Inf, yend = Inf,</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">453</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">59</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            linetype = 2, col = "darkgray"</pre>
+                      <pre class="language-r">    "Total patients numbers/person time"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">454</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">455</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">62</td>
+                    <td class="coverage">56<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  y &lt;- list()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">456</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">457</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">64</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if ("min" %in% annot_stats) {</pre>
+                      <pre class="language-r">  if ("n_patients" %in% .stats) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">458</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">65</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      min_fu &lt;- min(df[[tte]])</pre>
+                      <pre class="language-r">    y$n_patients &lt;-</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">459</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">66</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      gg_plt &lt;- gg_plt +</pre>
+                      <pre class="language-r">      formatters::with_label(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">460</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">67</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        annotate(</pre>
+                      <pre class="language-r">        s_num_patients_content(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">461</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">68</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          "text",</pre>
+                      <pre class="language-r">          df = df,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">462</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">69</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          size = font_size / .pt, col = 1, lineheight = 0.95,</pre>
+                      <pre class="language-r">          .N_col = .N_col, # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">463</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">70</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = min_fu + max(data$time) * 0.07,</pre>
+                      <pre class="language-r">          .var = id,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">464</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">71</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          y = ifelse(yval == "Survival", 0.96, 0.05),</pre>
+                      <pre class="language-r">          labelstr = ""</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">465</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">72</td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          label = paste("Min. F/U:\n", round(min_fu, 1), tolower(df$AVALU[1]))</pre>
+                      <pre class="language-r">        )$unique,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">73</td>
+                    <td class="coverage">23<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        row_label</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">466</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">467</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">75</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (annot_stats_vlines) {</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">468</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">76</td>
+                    <td class="coverage">56<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        gg_plt &lt;- gg_plt +</pre>
+                      <pre class="language-r">  if ("sum_exposure" %in% .stats) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">469</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">77</td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          annotate(</pre>
+                      <pre class="language-r">    y$sum_exposure &lt;- formatters::with_label(sum(df[[ex_var]]), row_label)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">470</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">78</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            "segment",</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">471</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">79</td>
+                    <td class="coverage">56<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  y</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">80</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">}</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">81</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">82</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            linetype = 2, col = "darkgray",</pre>
+                      <pre class="language-r">#' @describeIn summarize_patients_exposure_in_cols Analysis function which is used as `afun` in</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">472</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">83</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">            x = min_fu, xend = min_fu, y = Inf, yend = -Inf</pre>
+                      <pre class="language-r">#'   [rtables::analyze_colvars()] within `analyze_patients_exposure_in_cols()` and as `cfun` in</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">473</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          )</pre>
+                      <pre class="language-r">#'   [rtables::summarize_row_groups()] within `summarize_patients_exposure_in_cols()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">474</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">475</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">476</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">87</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gg_plt &lt;- gg_plt + guides(fill = guide_legend(override.aes = list(shape = NA, label = "")))</pre>
+                      <pre class="language-r">#' * `a_count_patients_sum_exposure()` returns formatted [rtables::CellValue()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">477</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">478</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">479</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # add at risk annotation table</pre>
+                      <pre class="language-r">#' a_count_patients_sum_exposure(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">480</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">91</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (annot_at_risk) {</pre>
+                      <pre class="language-r">#'   df = df,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">481</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">92</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    annot_tbl &lt;- summary(fit_km, times = xticks, extend = TRUE)</pre>
+                      <pre class="language-r">#'   var = "SEX",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">482</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">93</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    annot_tbl &lt;- if (is.null(fit_km$strata)) {</pre>
+                      <pre class="language-r">#'   .N_col = nrow(df),</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">483</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">94</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data.frame(</pre>
+                      <pre class="language-r">#'   .stats = "n_patients"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">484</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">95</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n.risk = annot_tbl$n.risk,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">485</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">96</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        time = annot_tbl$time,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">486</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">97</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        strata = armval</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">487</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">a_count_patients_sum_exposure &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">488</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">                                          var = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">489</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">100</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      strata_lst &lt;- strsplit(sub("=", "equals", levels(annot_tbl$strata)), "equals")</pre>
+                      <pre class="language-r">                                          ex_var = "AVAL",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">490</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">101</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      levels(annot_tbl$strata) &lt;- matrix(unlist(strata_lst), ncol = 2, byrow = TRUE)[, 2]</pre>
+                      <pre class="language-r">                                          id = "USUBJID",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">491</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">102</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data.frame(</pre>
+                      <pre class="language-r">                                          add_total_level = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">492</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">103</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n.risk = annot_tbl$n.risk,</pre>
+                      <pre class="language-r">                                          custom_label = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">493</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">104</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        time = annot_tbl$time,</pre>
+                      <pre class="language-r">                                          labelstr = "",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">494</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">105</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        strata = annot_tbl$strata</pre>
+                      <pre class="language-r">                                          .N_col, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">495</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">                                          .stats,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">496</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">                                          .formats = list(n_patients = "xx (xx.x%)", sum_exposure = "xx")) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">108</td>
+                    <td class="coverage">32<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_flag(add_total_level)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">497</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">498</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">110</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    at_risk_tbl &lt;- as.data.frame(tidyr::pivot_wider(annot_tbl, names_from = "time", values_from = "n.risk")[, -1])</pre>
+                      <pre class="language-r">  if (!is.null(var)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">499</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">111</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    at_risk_tbl[is.na(at_risk_tbl)] &lt;- 0</pre>
+                      <pre class="language-r">    assert_df_with_variables(df, list(var = var))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">500</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">112</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rownames(at_risk_tbl) &lt;- levels(annot_tbl$strata)</pre>
+                      <pre class="language-r">    df[[var]] &lt;- as.factor(df[[var]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">501</td>
+                    <td class="num">113</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">502</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">115</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gg_at_risk &lt;- df2gg(</pre>
+                      <pre class="language-r">  y &lt;- list()</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">503</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">116</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      at_risk_tbl,</pre>
+                      <pre class="language-r">  if (is.null(var)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">504</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">117</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      font_size = font_size, col_labels = FALSE, hline = FALSE,</pre>
+                      <pre class="language-r">    y[[.stats]] &lt;- list(Total = s_count_patients_sum_exposure(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">505</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">118</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      colwidths = rep(1, ncol(at_risk_tbl))</pre>
+                      <pre class="language-r">      df = df,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">506</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">119</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) +</pre>
+                      <pre class="language-r">      ex_var = ex_var,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">507</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">120</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      labs(title = if (annot_at_risk_title) "Patients at Risk:" else NULL, x = xlab) +</pre>
+                      <pre class="language-r">      id = id,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">508</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">121</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      theme_bw(base_size = font_size) +</pre>
+                      <pre class="language-r">      labelstr = labelstr,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">509</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">122</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      theme(</pre>
+                      <pre class="language-r">      .N_col = .N_col,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">510</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">123</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plot.title = element_text(size = font_size, vjust = 3, face = "bold"),</pre>
+                      <pre class="language-r">      .stats = .stats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">511</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">124</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        panel.border = element_blank(),</pre>
+                      <pre class="language-r">      custom_label = custom_label</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">512</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">125</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        panel.grid = element_blank(),</pre>
+                      <pre class="language-r">    )[[.stats]])</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">513</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">126</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        axis.title.y = element_blank(),</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">514</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">127</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        axis.ticks.y = element_blank(),</pre>
+                      <pre class="language-r">    for (lvl in levels(df[[var]])) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">515</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">128</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        axis.text.y = element_text(size = font_size, face = "italic", hjust = 1),</pre>
+                      <pre class="language-r">      y[[.stats]][[lvl]] &lt;- s_count_patients_sum_exposure(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">516</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">129</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        axis.text.x = element_text(size = font_size),</pre>
+                      <pre class="language-r">        df = subset(df, get(var) == lvl),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">517</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">130</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        axis.line.x = element_line()</pre>
+                      <pre class="language-r">        ex_var = ex_var,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">518</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">131</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ) +</pre>
+                      <pre class="language-r">        id = id,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">519</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">132</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      coord_cartesian(clip = "off", ylim = c(0.5, nrow(at_risk_tbl)))</pre>
+                      <pre class="language-r">        labelstr = labelstr,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">520</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">133</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gg_at_risk &lt;- suppressMessages(</pre>
+                      <pre class="language-r">        .N_col = .N_col,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">521</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">134</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      gg_at_risk +</pre>
+                      <pre class="language-r">        .stats = .stats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">522</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">135</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        scale_x_continuous(expand = c(0.025, 0), breaks = seq_along(at_risk_tbl) - 0.5, labels = xticks) +</pre>
+                      <pre class="language-r">        custom_label = lvl</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">523</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">136</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        scale_y_continuous(labels = rev(levels(annot_tbl$strata)), breaks = seq_len(nrow(at_risk_tbl)))</pre>
+                      <pre class="language-r">      )[[.stats]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">524</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">525</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">138</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    if (add_total_level) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">526</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">139</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!as_list) {</pre>
+                      <pre class="language-r">      y[[.stats]][["Total"]] &lt;- s_count_patients_sum_exposure(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">527</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">140</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      gg_plt &lt;- cowplot::plot_grid(</pre>
+                      <pre class="language-r">        df = df,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">528</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">141</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        gg_plt,</pre>
+                      <pre class="language-r">        ex_var = ex_var,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">529</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">142</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        gg_at_risk,</pre>
+                      <pre class="language-r">        id = id,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">530</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">143</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        align = "v",</pre>
+                      <pre class="language-r">        labelstr = labelstr,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">531</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">144</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        axis = "tblr",</pre>
+                      <pre class="language-r">        .N_col = .N_col,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">532</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">145</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ncol = 1,</pre>
+                      <pre class="language-r">        .stats = .stats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">533</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">146</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        rel_heights = c(rel_height_plot, 1 - rel_height_plot)</pre>
+                      <pre class="language-r">        custom_label = custom_label</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">534</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">147</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      )[[.stats]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">535</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">536</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">537</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">538</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  # add median survival time annotation table</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">539</td>
-                    <td class="coverage">10<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (annot_surv_med) {</pre>
-                    </td>
-                  </tr>
                   <tr class="covered">
-                    <td class="num">540</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">151</td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    surv_med_tbl &lt;- h_tbl_median_surv(fit_km = fit_km, armval = armval)</pre>
+                      <pre class="language-r">  in_rows(.list = y[[.stats]], .formats = .formats[[.stats]])</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">541</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">152</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    bg_fill &lt;- if (isTRUE(control_annot_surv_med[["fill"]])) "#00000020" else control_annot_surv_med[["fill"]]</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">542</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">543</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">154</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gg_surv_med &lt;- df2gg(surv_med_tbl, font_size = font_size, colwidths = c(1, 1, 2), bg_fill = bg_fill) +</pre>
+                      <pre class="language-r">#' @describeIn summarize_patients_exposure_in_cols Layout-creating function which can take statistics</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">544</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">155</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      theme(</pre>
+                      <pre class="language-r">#'   function arguments and additional format arguments. This function is a wrapper for</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">545</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">156</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        axis.text.y = element_text(size = font_size, face = "italic", hjust = 1),</pre>
+                      <pre class="language-r">#'   [rtables::split_cols_by_multivar()] and [rtables::summarize_row_groups()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">546</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">157</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plot.margin = margin(0, 2, 0, 5)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">547</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ) +</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">548</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">159</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      coord_cartesian(clip = "off", ylim = c(0.5, nrow(surv_med_tbl) + 1.5))</pre>
+                      <pre class="language-r">#' * `summarize_patients_exposure_in_cols()` returns a layout object suitable for passing to further</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">549</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">160</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gg_surv_med &lt;- suppressMessages(</pre>
+                      <pre class="language-r">#'   layouting functions, or to [rtables::build_table()]. Adding this function to an `rtable` layout will</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">550</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">161</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      gg_surv_med +</pre>
+                      <pre class="language-r">#'   add formatted content rows, with the statistics from `s_count_patients_sum_exposure()` arranged in</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">551</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">162</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        scale_x_continuous(expand = c(0.025, 0)) +</pre>
+                      <pre class="language-r">#'   columns, to the table layout.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">552</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">163</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        scale_y_continuous(labels = rev(rownames(surv_med_tbl)), breaks = seq_len(nrow(surv_med_tbl)))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">553</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">554</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' lyt5 &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">555</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">166</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gg_plt &lt;- cowplot::ggdraw(gg_plt) +</pre>
+                      <pre class="language-r">#'   summarize_patients_exposure_in_cols(var = "AVAL", col_split = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">556</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">167</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cowplot::draw_plot(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">557</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">168</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        gg_surv_med,</pre>
+                      <pre class="language-r">#' result5 &lt;- build_table(lyt5, df = df, alt_counts_df = adsl)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">558</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">169</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        control_annot_surv_med[["x"]],</pre>
+                      <pre class="language-r">#' result5</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">559</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">170</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        control_annot_surv_med[["y"]],</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">560</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">171</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        width = control_annot_surv_med[["w"]],</pre>
+                      <pre class="language-r">#' lyt6 &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">561</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">172</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        height = control_annot_surv_med[["h"]],</pre>
+                      <pre class="language-r">#'   summarize_patients_exposure_in_cols(var = "AVAL", col_split = TRUE, .stats = "sum_exposure")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">562</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">173</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        vjust = 0.5,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">563</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">174</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        hjust = 0.5</pre>
+                      <pre class="language-r">#' result6 &lt;- build_table(lyt6, df = df, alt_counts_df = adsl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">564</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' result6</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">565</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">566</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">567</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # add coxph annotation table</pre>
+                      <pre class="language-r">#' @order 3</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">568</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">179</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (annot_coxph) {</pre>
+                      <pre class="language-r">summarize_patients_exposure_in_cols &lt;- function(lyt, # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">569</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">180</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    coxph_tbl &lt;- h_tbl_coxph_pairwise(</pre>
+                      <pre class="language-r">                                                var,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">570</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">181</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df = df,</pre>
+                      <pre class="language-r">                                                ex_var = "AVAL",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">571</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">182</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      variables = variables,</pre>
+                      <pre class="language-r">                                                id = "USUBJID",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">572</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">183</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ref_group_coxph = ref_group_coxph,</pre>
+                      <pre class="language-r">                                                add_total_level = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">573</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">184</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      control_coxph_pw = control_coxph_pw,</pre>
+                      <pre class="language-r">                                                custom_label = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">574</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">185</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      annot_coxph_ref_lbls = control_annot_coxph[["ref_lbls"]]</pre>
+                      <pre class="language-r">                                                col_split = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">575</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">                                                na_str = default_na_str(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">576</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">187</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    bg_fill &lt;- if (isTRUE(control_annot_coxph[["fill"]])) "#00000020" else control_annot_coxph[["fill"]]</pre>
+                      <pre class="language-r">                                                ...,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">577</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                                .stats = c("n_patients", "sum_exposure"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">578</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">189</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gg_coxph &lt;- df2gg(coxph_tbl, font_size = font_size, colwidths = c(1.1, 1, 3), bg_fill = bg_fill) +</pre>
+                      <pre class="language-r">                                                .labels = c(n_patients = "Patients", sum_exposure = "Person time"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">579</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">190</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      theme(</pre>
+                      <pre class="language-r">                                                .indent_mods = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">580</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">191</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        axis.text.y = element_text(size = font_size, face = "italic", hjust = 1),</pre>
+                      <pre class="language-r">  extra_args &lt;- list(ex_var = ex_var, id = id, add_total_level = add_total_level, custom_label = custom_label, ...)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">581</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">192</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        plot.margin = margin(0, 2, 0, 5)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">582</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">193</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ) +</pre>
+                      <pre class="language-r">  if (col_split) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">583</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">194</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      coord_cartesian(clip = "off", ylim = c(0.5, nrow(coxph_tbl) + 1.5))</pre>
+                      <pre class="language-r">    lyt &lt;- split_cols_by_multivar(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">584</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">195</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gg_coxph &lt;- suppressMessages(</pre>
+                      <pre class="language-r">      lyt = lyt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">585</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">196</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      gg_coxph +</pre>
+                      <pre class="language-r">      vars = rep(var, length(.stats)),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">586</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">197</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        scale_x_continuous(expand = c(0.025, 0)) +</pre>
+                      <pre class="language-r">      varlabels = .labels[.stats],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">587</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">198</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        scale_y_continuous(labels = rev(rownames(coxph_tbl)), breaks = seq_len(nrow(coxph_tbl)))</pre>
+                      <pre class="language-r">      extra_args = list(.stats = .stats)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">588</td>
+                    <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">589</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">590</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    gg_plt &lt;- cowplot::ggdraw(gg_plt) +</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">591</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      cowplot::draw_plot(</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">592</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">201</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        gg_coxph,</pre>
+                      <pre class="language-r">  summarize_row_groups(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">593</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">202</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        control_annot_coxph[["x"]],</pre>
+                      <pre class="language-r">    lyt = lyt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">594</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">203</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        control_annot_coxph[["y"]],</pre>
+                      <pre class="language-r">    var = var,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">595</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">204</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        width = control_annot_coxph[["w"]],</pre>
+                      <pre class="language-r">    cfun = a_count_patients_sum_exposure,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">596</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">205</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        height = control_annot_coxph[["h"]],</pre>
+                      <pre class="language-r">    na_str = na_str,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">597</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">206</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        vjust = 0.5,</pre>
+                      <pre class="language-r">    extra_args = extra_args</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">598</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">207</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        hjust = 0.5</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">599</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">600</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">601</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @describeIn summarize_patients_exposure_in_cols Layout-creating function which can take statistics</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">602</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">211</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (as_list) {</pre>
+                      <pre class="language-r">#'   function arguments and additional format arguments. This function is a wrapper for</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">603</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">212</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list(plot = gg_plt, table = gg_at_risk)</pre>
+                      <pre class="language-r">#'   [rtables::split_cols_by_multivar()] and [rtables::analyze_colvars()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">604</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">605</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">214</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    gg_plt</pre>
+                      <pre class="language-r">#' @param col_split (`flag`)\cr whether the columns should be split. Set to `FALSE` when the required</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">606</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   column split has been done already earlier in the layout pipe.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">607</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/survival_coxph_pairwise.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Analyze a pairwise Cox-PH model</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' * `analyze_patients_exposure_in_cols()` returns a layout object suitable for passing to further</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#'   layouting functions, or to [rtables::build_table()]. Adding this function to an `rtable` layout will</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   add formatted data rows, with the statistics from `s_count_patients_sum_exposure()` arranged in</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The analyze function [coxph_pairwise()] creates a layout element to analyze a pairwise Cox-PH model.</pre>
+                      <pre class="language-r">#'   columns, to the table layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function can return statistics including p-value, hazard ratio (HR), and HR confidence intervals from both</pre>
+                      <pre class="language-r">#' @note As opposed to [summarize_patients_exposure_in_cols()] which generates content rows,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">224</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' stratified and unstratified Cox-PH models. The variable(s) to be analyzed is specified via the `vars` argument and</pre>
+                      <pre class="language-r">#'   `analyze_patients_exposure_in_cols()` generates data rows which will _not_ be repeated on multiple</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">225</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' any stratification factors via the `strata` argument.</pre>
+                      <pre class="language-r">#'   pages when pagination is used.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams s_surv_time</pre>
+                      <pre class="language-r">#' set.seed(1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">229</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param strata (`character` or `NULL`)\cr variable names indicating stratification factors.</pre>
+                      <pre class="language-r">#' df &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param strat `r lifecycle::badge("deprecated")` Please use the `strata` argument instead.</pre>
+                      <pre class="language-r">#'   USUBJID = c(paste("id", seq(1, 12), sep = "")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">231</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param control (`list`)\cr parameters for comparison details, specified by using the helper function</pre>
+                      <pre class="language-r">#'   ARMCD = c(rep("ARM A", 6), rep("ARM B", 6)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">232</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   [control_coxph()]. Some possible parameter options are:</pre>
+                      <pre class="language-r">#'   SEX = c(rep("Female", 6), rep("Male", 6)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `pval_method` (`string`)\cr p-value method for testing the null hypothesis that hazard ratio = 1. Default</pre>
+                      <pre class="language-r">#'   AVAL = as.numeric(sample(seq(1, 20), 12)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     method is `"log-rank"` which comes from [survival::survdiff()], can also be set to `"wald"` or `"likelihood"`</pre>
+                      <pre class="language-r">#'   stringsAsFactors = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     (from [survival::coxph()]).</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `ties` (`string`)\cr specifying the method for tie handling. Default is `"efron"`,</pre>
+                      <pre class="language-r">#' adsl &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     can also be set to `"breslow"` or `"exact"`. See more in [survival::coxph()].</pre>
+                      <pre class="language-r">#'   USUBJID = c(paste("id", seq(1, 12), sep = "")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">238</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `conf_level` (`proportion`)\cr confidence level of the interval for HR.</pre>
+                      <pre class="language-r">#'   ARMCD = c(rep("ARM A", 2), rep("ARM B", 2)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("coxph_pairwise")`</pre>
+                      <pre class="language-r">#'   SEX = c(rep("Female", 2), rep("Male", 2)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to see available statistics for this function.</pre>
+                      <pre class="language-r">#'   stringsAsFactors = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name survival_coxph_pairwise</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 1</pre>
+                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#'   split_cols_by("ARMCD", split_fun = add_overall_level("Total", first = FALSE)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   summarize_patients_exposure_in_cols(var = "AVAL", col_split = TRUE) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn survival_coxph_pairwise Statistics function which analyzes HR, CIs of HR, and p-value of a Cox-PH model.</pre>
+                      <pre class="language-r">#'   analyze_patients_exposure_in_cols(var = "SEX", col_split = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' result &lt;- build_table(lyt, df = df, alt_counts_df = adsl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' result</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_coxph_pairwise()` returns the statistics:</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `pvalue`: p-value to test the null hypothesis that hazard ratio = 1.</pre>
+                      <pre class="language-r">#' lyt2 &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `hr`: Hazard ratio.</pre>
+                      <pre class="language-r">#'   split_cols_by("ARMCD", split_fun = add_overall_level("Total", first = FALSE)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `hr_ci`: Confidence interval for hazard ratio.</pre>
+                      <pre class="language-r">#'   summarize_patients_exposure_in_cols(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `n_tot`: Total number of observations.</pre>
+                      <pre class="language-r">#'     var = "AVAL", col_split = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `n_tot_events`: Total number of events.</pre>
+                      <pre class="language-r">#'     .stats = "n_patients", custom_label = "some custom label"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'   analyze_patients_exposure_in_cols(var = "SEX", col_split = FALSE, ex_var = "AVAL")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_coxph_pairwise &lt;- function(df,</pre>
+                      <pre class="language-r">#' result2 &lt;- build_table(lyt2, df = df, alt_counts_df = adsl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">258</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             .ref_group,</pre>
+                      <pre class="language-r">#' result2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             .in_ref_col,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             .var,</pre>
+                      <pre class="language-r">#' lyt3 &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             is_event,</pre>
+                      <pre class="language-r">#'   analyze_patients_exposure_in_cols(var = "SEX", col_split = TRUE, ex_var = "AVAL")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">262</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             strata = NULL,</pre>
+                      <pre class="language-r">#' result3 &lt;- build_table(lyt3, df = df, alt_counts_df = adsl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             strat = lifecycle::deprecated(),</pre>
+                      <pre class="language-r">#' result3</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             control = control_coxph()) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">92<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">265</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (lifecycle::is_present(strat)) {</pre>
+                      <pre class="language-r">#' # Adding total levels and custom label</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">50</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">266</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lifecycle::deprecate_warn("0.9.4", "s_coxph_pairwise(strat)", "s_coxph_pairwise(strata)")</pre>
+                      <pre class="language-r">#' lyt4 &lt;- basic_table(</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">51</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">267</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    strata &lt;- strat</pre>
+                      <pre class="language-r">#'   show_colcounts = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">268</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   analyze_patients_exposure_in_cols(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">54</td>
-                    <td class="coverage">92<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">270</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(.var)</pre>
+                      <pre class="language-r">#'     var = "ARMCD",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">55</td>
-                    <td class="coverage">92<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">271</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(df[[.var]])</pre>
+                      <pre class="language-r">#'     col_split = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">56</td>
-                    <td class="coverage">92<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">272</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_logical(df[[is_event]])</pre>
+                      <pre class="language-r">#'     add_total_level = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">92<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">273</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(df, list(tte = .var, is_event = is_event))</pre>
+                      <pre class="language-r">#'     custom_label = "TOTAL"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">92<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">274</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  pval_method &lt;- control$pval_method</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">92<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">275</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ties &lt;- control$ties</pre>
+                      <pre class="language-r">#'   append_topleft(c("", "Sex"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">92<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">276</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  conf_level &lt;- control$conf_level</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">277</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' result4 &lt;- build_table(lyt4, df = df, alt_counts_df = adsl)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">92<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">278</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (.in_ref_col) {</pre>
+                      <pre class="language-r">#' result4</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">63</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">279</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">64</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">280</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      list(</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">65</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">281</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        pvalue = formatters::with_label("", paste0("p-value (", pval_method, ")")),</pre>
+                      <pre class="language-r">#' @order 2</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">66</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">282</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        hr = formatters::with_label("", "Hazard Ratio"),</pre>
+                      <pre class="language-r">analyze_patients_exposure_in_cols &lt;- function(lyt, # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">67</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">283</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        hr_ci = formatters::with_label("", f_conf_level(conf_level)),</pre>
+                      <pre class="language-r">                                              var = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">68</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">284</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n_tot = formatters::with_label("", "Total n"),</pre>
+                      <pre class="language-r">                                              ex_var = "AVAL",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">69</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">285</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n_tot_events = formatters::with_label("", "Total events")</pre>
+                      <pre class="language-r">                                              id = "USUBJID",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">                                              add_total_level = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">                                              custom_label = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">288</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                                              col_split = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">73</td>
-                    <td class="coverage">92<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">289</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data &lt;- rbind(.ref_group, df)</pre>
+                      <pre class="language-r">                                              na_str = default_na_str(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">92<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">290</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  group &lt;- factor(rep(c("ref", "x"), c(nrow(.ref_group), nrow(df))), levels = c("ref", "x"))</pre>
+                      <pre class="language-r">                                              .stats = c("n_patients", "sum_exposure"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                              .labels = c(n_patients = "Patients", sum_exposure = "Person time"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">92<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">292</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df_cox &lt;- data.frame(</pre>
+                      <pre class="language-r">                                              .indent_mods = 0L,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">92<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">293</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tte = data[[.var]],</pre>
+                      <pre class="language-r">                                              ...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">92<em>x</em></td>
+                    <td class="num">294</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    is_event = data[[is_event]],</pre>
+                      <pre class="language-r">  extra_args &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">92<em>x</em></td>
+                    <td class="num">295</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    arm = group</pre>
+                      <pre class="language-r">    var = var, ex_var = ex_var, id = id, add_total_level = add_total_level, custom_label = custom_label, ...</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">296</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">92<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(strata)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">82</td>
-                    <td class="coverage">83<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    formula_cox &lt;- survival::Surv(tte, is_event) ~ arm</pre>
-                    </td>
-                  </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">297</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">298</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    formula_cox &lt;- stats::as.formula(</pre>
+                      <pre class="language-r">  if (col_split) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">85</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">299</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      paste0(</pre>
+                      <pre class="language-r">    lyt &lt;- split_cols_by_multivar(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">300</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "survival::Surv(tte, is_event) ~ arm + strata(",</pre>
+                      <pre class="language-r">      lyt = lyt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">301</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        paste(strata, collapse = ","),</pre>
+                      <pre class="language-r">      vars = rep(ex_var, length(.stats)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">88</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">302</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ")"</pre>
+                      <pre class="language-r">      varlabels = .labels[.stats],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">89</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">303</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      extra_args = list(.stats = .stats)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">91</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    df_cox &lt;- cbind(df_cox, data[strata])</pre>
-                    </td>
-                  </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">305</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">93</td>
-                    <td class="coverage">92<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  cox_fit &lt;- survival::coxph(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">94</td>
-                    <td class="coverage">92<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    formula = formula_cox,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">92<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    data = df_cox,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">96</td>
-                    <td class="coverage">92<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    ties = ties</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">97</td>
-                    <td class="coverage"></td>
+                    <td class="num">306</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  lyt &lt;- lyt %&gt;% analyze_colvars(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">98</td>
-                    <td class="coverage">92<em>x</em></td>
+                    <td class="num">307</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  sum_cox &lt;- summary(cox_fit, conf.int = conf_level, extend = TRUE)</pre>
+                      <pre class="language-r">    afun = a_count_patients_sum_exposure,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">99</td>
-                    <td class="coverage">92<em>x</em></td>
+                    <td class="num">308</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  orginal_survdiff &lt;- survival::survdiff(</pre>
+                      <pre class="language-r">    indent_mod = .indent_mods,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">100</td>
-                    <td class="coverage">92<em>x</em></td>
+                    <td class="num">309</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    formula_cox,</pre>
+                      <pre class="language-r">    na_str = na_str,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">92<em>x</em></td>
+                    <td class="num">310</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data = df_cox</pre>
+                      <pre class="language-r">    extra_args = extra_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">311</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">92<em>x</em></td>
+                    <td class="num">312</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  log_rank_pvalue &lt;- 1 - pchisq(orginal_survdiff$chisq, length(orginal_survdiff$n) - 1)</pre>
+                      <pre class="language-r">  lyt</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">92<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/odds_ratio.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
+                  <tr class="never">
+                    <td class="num">1</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  pval &lt;- switch(pval_method,</pre>
+                      <pre class="language-r">#' Odds ratio estimation</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">92<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">2</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "wald" = sum_cox$waldtest["pvalue"],</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">92<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">3</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "log-rank" = log_rank_pvalue, # pvalue from original log-rank test survival::survdiff()</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">92<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "likelihood" = sum_cox$logtest["pvalue"]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' The analyze function [estimate_odds_ratio()] creates a layout element to compare bivariate responses between</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">92<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">#' two groups by estimating an odds ratio and its confidence interval.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">92<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">7</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pvalue = formatters::with_label(unname(pval), paste0("p-value (", pval_method, ")")),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">92<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    hr = formatters::with_label(sum_cox$conf.int[1, 1], "Hazard Ratio"),</pre>
+                      <pre class="language-r">#' The primary analysis variable specified by `vars` is the group variable. Additional variables can be included in the</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">92<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    hr_ci = formatters::with_label(unname(sum_cox$conf.int[1, 3:4]), f_conf_level(conf_level)),</pre>
+                      <pre class="language-r">#' analysis via the `variables` argument, which accepts `arm`, an arm variable, and `strata`, a stratification variable.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">114</td>
-                    <td class="coverage">92<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n_tot = formatters::with_label(sum_cox$n, "Total n"),</pre>
+                      <pre class="language-r">#' If more than two arm levels are present, they can be combined into two groups using the `groups_list` argument.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">92<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n_tot_events = formatters::with_label(sum_cox$nevent, "Total events")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @inheritParams split_cols_by_groups</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("estimate_odds_ratio")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn survival_coxph_pairwise Formatted analysis function which is used as `afun` in `coxph_pairwise()`.</pre>
+                      <pre class="language-r">#'   to see available statistics for this function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param method (`string`)\cr whether to use the correct (`"exact"`) calculation in the conditional likelihood or one</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'   of the approximations. See [survival::clogit()] for details.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `a_coxph_pairwise()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @note</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' * This function uses logistic regression for unstratified analyses, and conditional logistic regression for</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">a_coxph_pairwise &lt;- make_afun(</pre>
+                      <pre class="language-r">#'   stratified analyses. The Wald confidence interval is calculated with the specified confidence level.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_coxph_pairwise,</pre>
+                      <pre class="language-r">#' * For stratified analyses, there is currently no implementation for conditional likelihood confidence intervals,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .indent_mods = c(pvalue = 0L, hr = 0L, hr_ci = 1L, n_tot = 0L, n_tot_events = 0L),</pre>
+                      <pre class="language-r">#'   therefore the likelihood confidence interval is not available as an option.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats = c(</pre>
+                      <pre class="language-r">#' * When `vars` contains only responders or non-responders no odds ratio estimation is possible so the returned</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pvalue = "x.xxxx | (&lt;0.0001)",</pre>
+                      <pre class="language-r">#'   values will be `NA`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    hr = "xx.xx",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    hr_ci = "(xx.xx, xx.xx)",</pre>
+                      <pre class="language-r">#' @seealso Relevant helper function [h_odds_ratio()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n_tot = "xx.xx",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n_tot_events = "xx.xx"</pre>
+                      <pre class="language-r">#' @name odds_ratio</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @order 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn survival_coxph_pairwise Layout-creating function which can take statistics function arguments</pre>
+                      <pre class="language-r">#' @describeIn odds_ratio Statistics function which estimates the odds ratio</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
+                      <pre class="language-r">#'   between a treatment and a control. A `variables` list with `arm` and `strata`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   variable names must be passed if a stratified analysis is required.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `coxph_pairwise()` returns a layout object suitable for passing to further layouting functions,</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
+                      <pre class="language-r">#' * `s_odds_ratio()` returns a named list with the statistics `or_ci`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the statistics from `s_coxph_pairwise()` to the table layout.</pre>
+                      <pre class="language-r">#'   (containing `est`, `lcl`, and `ucl`) and `n_tot`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">#' # Unstratified analysis.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' s_odds_ratio(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adtte_f &lt;- tern_ex_adtte %&gt;%</pre>
+                      <pre class="language-r">#'   df = subset(dta, grp == "A"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
+                      <pre class="language-r">#'   .var = "rsp",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mutate(is_event = CNSR == 0)</pre>
+                      <pre class="language-r">#'   .ref_group = subset(dta, grp == "B"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   .in_ref_col = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- adtte_f %&gt;% filter(ARMCD == "ARM A")</pre>
+                      <pre class="language-r">#'   .df_row = dta</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df_ref_group &lt;- adtte_f %&gt;% filter(ARMCD == "ARM B")</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">#' # Stratified analysis.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by(var = "ARMCD", ref_group = "ARM A") %&gt;%</pre>
+                      <pre class="language-r">#' s_odds_ratio(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                      <pre class="language-r">#'   df = subset(dta, grp == "A"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   coxph_pairwise(</pre>
+                      <pre class="language-r">#'   .var = "rsp",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     vars = "AVAL",</pre>
+                      <pre class="language-r">#'   .ref_group = subset(dta, grp == "B"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     is_event = "is_event",</pre>
+                      <pre class="language-r">#'   .in_ref_col = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     var_labels = "Unstratified Analysis"</pre>
+                      <pre class="language-r">#'   .df_row = dta,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">#'   variables = list(arm = "grp", strata = "strata")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(df = adtte_f)</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by(var = "ARMCD", ref_group = "ARM A") %&gt;%</pre>
+                      <pre class="language-r">s_odds_ratio &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                      <pre class="language-r">                         .var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   coxph_pairwise(</pre>
+                      <pre class="language-r">                         .ref_group,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     vars = "AVAL",</pre>
+                      <pre class="language-r">                         .in_ref_col,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     is_event = "is_event",</pre>
+                      <pre class="language-r">                         .df_row,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     var_labels = "Stratified Analysis",</pre>
+                      <pre class="language-r">                         variables = list(arm = NULL, strata = NULL),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     strata = "SEX",</pre>
+                      <pre class="language-r">                         conf_level = 0.95,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     control = control_coxph(pval_method = "wald")</pre>
+                      <pre class="language-r">                         groups_list = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">                         method = "exact") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">175</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">71</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(df = adtte_f)</pre>
+                      <pre class="language-r">  y &lt;- list(or_ci = "", n_tot = "")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">177</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">73</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  if (!.in_ref_col) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">178</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">74</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 2</pre>
+                      <pre class="language-r">    assert_proportion_value(conf_level)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">179</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">75</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">coxph_pairwise &lt;- function(lyt,</pre>
+                      <pre class="language-r">    assert_df_with_variables(df, list(rsp = .var))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">180</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">76</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           vars,</pre>
+                      <pre class="language-r">    assert_df_with_variables(.ref_group, list(rsp = .var))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           strata = NULL,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">182</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">78</td>
+                    <td class="coverage">87<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           control = control_coxph(),</pre>
+                      <pre class="language-r">    if (is.null(variables$strata)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">183</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">79</td>
+                    <td class="coverage">72<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           na_str = default_na_str(),</pre>
+                      <pre class="language-r">      data &lt;- data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">184</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">80</td>
+                    <td class="coverage">72<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           nested = TRUE,</pre>
+                      <pre class="language-r">        rsp = c(.ref_group[[.var]], df[[.var]]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">185</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">81</td>
+                    <td class="coverage">72<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           ...,</pre>
+                      <pre class="language-r">        grp = factor(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">186</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">82</td>
+                    <td class="coverage">72<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           var_labels = "CoxPH",</pre>
+                      <pre class="language-r">          rep(c("ref", "Not-ref"), c(nrow(.ref_group), nrow(df))),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">187</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">83</td>
+                    <td class="coverage">72<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           show_labels = "visible",</pre>
+                      <pre class="language-r">          levels = c("ref", "Not-ref")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           table_names = vars,</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           .stats = c("pvalue", "hr", "hr_ci"),</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">190</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">86</td>
+                    <td class="coverage">72<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           .formats = NULL,</pre>
+                      <pre class="language-r">      y &lt;- or_glm(data, conf_level = conf_level)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           .labels = NULL,</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">192</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">88</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           .indent_mods = NULL) {</pre>
+                      <pre class="language-r">      assert_df_with_variables(.df_row, c(list(rsp = .var), variables))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">193</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">89</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(strata = strata, control = control, ...)</pre>
+                      <pre class="language-r">      checkmate::assert_subset(method, c("exact", "approximate", "efron", "breslow"), empty.ok = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">91</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  afun &lt;- make_afun(</pre>
+                      <pre class="language-r">      # The group variable prepared for clogit must be synchronised with combination groups definition.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">92</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    a_coxph_pairwise,</pre>
+                      <pre class="language-r">      if (is.null(groups_list)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">197</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">93</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .stats = .stats,</pre>
+                      <pre class="language-r">        ref_grp &lt;- as.character(unique(.ref_group[[variables$arm]]))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">198</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">94</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .formats = .formats,</pre>
+                      <pre class="language-r">        trt_grp &lt;- as.character(unique(df[[variables$arm]]))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">95</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .labels = .labels,</pre>
+                      <pre class="language-r">        grp &lt;- stats::relevel(factor(.df_row[[variables$arm]]), ref = ref_grp)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">200</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">96</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .indent_mods = .indent_mods</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        # If more than one level in reference col.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">98</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  analyze(</pre>
+                      <pre class="language-r">        reference &lt;- as.character(unique(.ref_group[[variables$arm]]))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">203</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">99</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt,</pre>
+                      <pre class="language-r">        grp_ref_flag &lt;- vapply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">204</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">100</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars,</pre>
+                      <pre class="language-r">          X = groups_list,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">101</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_labels = var_labels,</pre>
+                      <pre class="language-r">          FUN.VALUE = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">102</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    show_labels = show_labels,</pre>
+                      <pre class="language-r">          FUN = function(x) all(reference %in% x)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">103</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table_names = table_names,</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">104</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    afun = afun,</pre>
+                      <pre class="language-r">        ref_grp &lt;- names(groups_list)[grp_ref_flag]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">209</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">105</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">106</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        # If more than one level in treatment col.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">107</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nested = nested,</pre>
+                      <pre class="language-r">        treatment &lt;- as.character(unique(df[[variables$arm]]))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">108</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args = extra_args</pre>
+                      <pre class="language-r">        grp_trt_flag &lt;- vapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">212</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">109</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">          X = groups_list,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">213</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">110</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">          FUN.VALUE = TRUE,</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/response_subgroups.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">111</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Tabulate binary response by subgroup</pre>
+                      <pre class="language-r">          FUN = function(x) all(treatment %in% x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">113</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">        trt_grp &lt;- names(groups_list)[grp_trt_flag]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">115</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The [tabulate_rsp_subgroups()] function creates a layout element to tabulate binary response by subgroup, returning</pre>
+                      <pre class="language-r">        grp &lt;- combine_levels(.df_row[[variables$arm]], levels = reference, new_level = ref_grp)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">116</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' statistics including response rate and odds ratio for each population subgroup. The table is created from `df`, a</pre>
+                      <pre class="language-r">        grp &lt;- combine_levels(grp, levels = treatment, new_level = trt_grp)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' list of data frames returned by [extract_rsp_subgroups()], with the statistics to include specified via the `vars`</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' parameter.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      # The reference level in `grp` must be the same as in the `rtables` column split.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">120</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' A forest plot can be created from the resulting table using the [g_forest()] function.</pre>
+                      <pre class="language-r">      data &lt;- data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">121</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        rsp = .df_row[[.var]],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">122</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams extract_rsp_subgroups</pre>
+                      <pre class="language-r">        grp = grp,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">123</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">        strata = interaction(.df_row[variables$strata])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">125</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details These functions create a layout starting from a data frame which contains</pre>
+                      <pre class="language-r">      y_all &lt;- or_clogit(data, conf_level = conf_level, method = method)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">16</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">126</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the required statistics. Tables typically used as part of forest plot.</pre>
+                      <pre class="language-r">      checkmate::assert_string(trt_grp)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">17</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">127</td>
+                    <td class="coverage">15<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      checkmate::assert_subset(trt_grp, names(y_all$or_ci))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">128</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [extract_rsp_subgroups()]</pre>
+                      <pre class="language-r">      y$or_ci &lt;- y_all$or_ci[[trt_grp]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">19</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">129</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      y$n_tot &lt;- y_all$n_tot</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(forcats)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">133</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if ("est" %in% names(y$or_ci) &amp;&amp; is.na(y$or_ci[["est"]]) &amp;&amp; method != "approximate") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">134</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adrs &lt;- tern_ex_adrs</pre>
+                      <pre class="language-r">    warning(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">135</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adrs_labels &lt;- formatters::var_labels(adrs)</pre>
+                      <pre class="language-r">      "Unable to compute the odds ratio estimate. Please try re-running the function with ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">136</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      'parameter `method` set to "approximate".'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adrs_f &lt;- adrs %&gt;%</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(PARAMCD == "BESRSPI") %&gt;%</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(ARM %in% c("A: Drug X", "B: Placebo")) %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">140</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   droplevels() %&gt;%</pre>
+                      <pre class="language-r">  y$or_ci &lt;- formatters::with_label(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">141</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mutate(</pre>
+                      <pre class="language-r">    x = y$or_ci,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">142</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     # Reorder levels of factor to make the placebo group the reference arm.</pre>
+                      <pre class="language-r">    label = paste0("Odds Ratio (", 100 * conf_level, "% CI)")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ARM = fct_relevel(ARM, "B: Placebo"),</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     rsp = AVALC == "CR"</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">145</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">  y$n_tot &lt;- formatters::with_label(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">146</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' formatters::var_labels(adrs_f) &lt;- c(adrs_labels, "Response")</pre>
+                      <pre class="language-r">    x = y$n_tot,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">37</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">147</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    label = "Total n"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Unstratified analysis.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- extract_rsp_subgroups(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">150</td>
+                    <td class="coverage">86<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(rsp = "rsp", arm = "ARM", subgroups = c("SEX", "BMRKR2")),</pre>
+                      <pre class="language-r">  y</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adrs_f</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df</pre>
+                      <pre class="language-r">#' @describeIn odds_ratio Formatted analysis function which is used as `afun` in `estimate_odds_ratio()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Stratified analysis.</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df_strat &lt;- extract_rsp_subgroups(</pre>
+                      <pre class="language-r">#' * `a_odds_ratio()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(rsp = "rsp", arm = "ARM", subgroups = c("SEX", "BMRKR2"), strata = "STRATA1"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adrs_f</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' a_odds_ratio(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df_strat</pre>
+                      <pre class="language-r">#'   df = subset(dta, grp == "A"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   .var = "rsp",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Grouping of the BMRKR2 levels.</pre>
+                      <pre class="language-r">#'   .ref_group = subset(dta, grp == "B"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df_grouped &lt;- extract_rsp_subgroups(</pre>
+                      <pre class="language-r">#'   .in_ref_col = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(rsp = "rsp", arm = "ARM", subgroups = c("SEX", "BMRKR2")),</pre>
+                      <pre class="language-r">#'   .df_row = dta</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adrs_f,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   groups_lists = list(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     BMRKR2 = list(</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "low" = "LOW",</pre>
+                      <pre class="language-r">a_odds_ratio &lt;- make_afun(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "low/medium" = c("LOW", "MEDIUM"),</pre>
+                      <pre class="language-r">  s_odds_ratio,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "low/medium/high" = c("LOW", "MEDIUM", "HIGH")</pre>
+                      <pre class="language-r">  .formats = c(or_ci = "xx.xx (xx.xx - xx.xx)"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">  .indent_mods = c(or_ci = 1L)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df_grouped</pre>
+                      <pre class="language-r">#' @describeIn odds_ratio Layout-creating function which can take statistics function arguments</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name response_subgroups</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 1</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#' * `estimate_odds_ratio()` returns a layout object suitable for passing to further layouting functions,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Prepare response data for population subgroups in data frames</pre>
+                      <pre class="language-r">#'   the statistics from `s_odds_ratio()` to the table layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' set.seed(12)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Prepares response rates and odds ratios for population subgroups in data frames. Simple wrapper</pre>
+                      <pre class="language-r">#' dta &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' for [h_odds_ratio_subgroups_df()] and [h_proportion_subgroups_df()]. Result is a list of two</pre>
+                      <pre class="language-r">#'   rsp = sample(c(TRUE, FALSE), 100, TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `data.frames`: `prop` and `or`. `variables` corresponds to the names of variables found in `data`,</pre>
+                      <pre class="language-r">#'   grp = factor(rep(c("A", "B"), each = 50), levels = c("A", "B")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' passed as a named `list` and requires elements `rsp`, `arm` and optionally `subgroups` and `strata`.</pre>
+                      <pre class="language-r">#'   strata = factor(sample(c("C", "D"), 100, TRUE))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `groups_lists` optionally specifies groupings for `subgroups` variables.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' l &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams response_subgroups</pre>
+                      <pre class="language-r">#'   split_cols_by(var = "grp", ref_group = "B") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param label_all (`string`)\cr label for the total population analysis.</pre>
+                      <pre class="language-r">#'   estimate_odds_ratio(vars = "rsp")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A named list of two elements:</pre>
+                      <pre class="language-r">#' build_table(l, df = dta)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `prop`: A `data.frame` containing columns `arm`, `n`, `n_rsp`, `prop`, `subgroup`, `var`,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     `var_label`, and `row_type`.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `or`: A `data.frame` containing columns `arm`, `n_tot`, `or`, `lcl`, `ucl`, `conf_level`,</pre>
+                      <pre class="language-r">#' @order 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     `subgroup`, `var`, `var_label`, and `row_type`.</pre>
+                      <pre class="language-r">estimate_odds_ratio &lt;- function(lyt,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [response_subgroups]</pre>
+                      <pre class="language-r">                                variables = list(arm = NULL, strata = NULL),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                conf_level = 0.95,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                                groups_list = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">extract_rsp_subgroups &lt;- function(variables,</pre>
+                      <pre class="language-r">                                na_str = default_na_str(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  data,</pre>
+                      <pre class="language-r">                                nested = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">205</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  groups_lists = list(),</pre>
+                      <pre class="language-r">                                method = "exact",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  conf_level = 0.95,</pre>
+                      <pre class="language-r">                                show_labels = "hidden",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  method = NULL,</pre>
+                      <pre class="language-r">                                table_names = vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  label_all = "All Patients") {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">99</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if ("strat" %in% names(variables)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">100</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    warning(</pre>
+                      <pre class="language-r">                                var_labels = vars,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">101</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">209</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Warning: the `strat` element name of the `variables` list argument to `extract_rsp_subgroups() ",</pre>
+                      <pre class="language-r">                                .stats = "or_ci",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">102</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">210</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "was deprecated in tern 0.9.4.\n  ",</pre>
+                      <pre class="language-r">                                .formats = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">103</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">211</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Please use the name `strata` instead of `strat` in the `variables` argument."</pre>
+                      <pre class="language-r">                                .labels = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">                                .indent_mods = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">105</td>
-                    <td class="coverage">!</td>
+                  <tr class="covered">
+                    <td class="num">213</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    variables[["strata"]] &lt;- variables[["strat"]]</pre>
+                      <pre class="language-r">  extra_args &lt;- list(variables = variables, conf_level = conf_level, groups_list = groups_list, method = method)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">107</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">215</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  afun &lt;- make_afun(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">216</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df_prop &lt;- h_proportion_subgroups_df(</pre>
+                      <pre class="language-r">    a_odds_ratio,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">217</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    variables,</pre>
+                      <pre class="language-r">    .stats = .stats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">218</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data,</pre>
+                      <pre class="language-r">    .formats = .formats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">219</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    groups_lists = groups_lists,</pre>
+                      <pre class="language-r">    .labels = .labels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">220</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label_all = label_all</pre>
+                      <pre class="language-r">    .indent_mods = .indent_mods</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">114</td>
-                    <td class="coverage">14<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">222</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df_or &lt;- h_odds_ratio_subgroups_df(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">223</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    variables,</pre>
+                      <pre class="language-r">  analyze(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">224</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data,</pre>
+                      <pre class="language-r">    lyt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">225</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    groups_lists = groups_lists,</pre>
+                      <pre class="language-r">    vars,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">118</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">226</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    conf_level = conf_level,</pre>
+                      <pre class="language-r">    afun = afun,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">227</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    method = method,</pre>
+                      <pre class="language-r">    var_labels = var_labels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">120</td>
-                    <td class="coverage">14<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    label_all = label_all</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">121</td>
-                    <td class="coverage"></td>
+                    <td class="num">228</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    na_str = na_str,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">122</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">229</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    nested = nested,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">230</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(prop = df_prop, or = df_or)</pre>
+                      <pre class="language-r">    extra_args = extra_args,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">124</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">231</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    show_labels = show_labels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">125</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">232</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    table_names = table_names</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn response_subgroups Formatted analysis function which is used as `afun` in `tabulate_rsp_subgroups()`.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `a_response_subgroups()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
+                      <pre class="language-r">#' Helper functions for odds ratio estimation</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">132</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">a_response_subgroups &lt;- function(.formats = list(</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">133</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                                   n = "xx", # nolint start</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">238</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   n_rsp = "xx",</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   prop = "xx.x%",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   n_tot = "xx",</pre>
+                      <pre class="language-r">#' Functions to calculate odds ratios in [estimate_odds_ratio()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   or = list(format_extreme_values(2L)),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   ci = list(format_extreme_values_ci(2L)),</pre>
+                      <pre class="language-r">#' @inheritParams odds_ratio</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   pval = "x.xxxx | (&lt;0.0001)",</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   riskdiff = "xx.x (xx.x - xx.x)" # nolint end</pre>
+                      <pre class="language-r">#' @param data (`data.frame`)\cr data frame containing at least the variables `rsp` and `grp`, and optionally</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 ),</pre>
+                      <pre class="language-r">#'   `strata` for [or_clogit()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 na_str = default_na_str()) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">22<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(.formats)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">22<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">145</td>
-                    <td class="coverage">22<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    names(.formats),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">22<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    c("n", "n_rsp", "prop", "n_tot", "or", "ci", "pval", "riskdiff")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @return A named `list` of elements `or_ci` and `n_tot`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">149</td>
-                    <td class="coverage">22<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  afun_lst &lt;- Map(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">150</td>
-                    <td class="coverage">22<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    function(stat, fmt, na_str) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">157<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      function(df, labelstr = "", ...) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">349<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        in_rows(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">153</td>
-                    <td class="coverage">349<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          .list = as.list(df[[stat]]),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">154</td>
-                    <td class="coverage">349<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          .labels = as.character(df$subgroup),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">349<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          .formats = fmt,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">349<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">          .format_na_strs = na_str</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' @seealso [odds_ratio]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">160</td>
-                    <td class="coverage">22<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    stat = names(.formats),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">22<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    fmt = .formats,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">22<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str</pre>
+                      <pre class="language-r">#' @name h_odds_ratio</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">22<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  afun_lst</pre>
-                    </td>
-                  </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @describeIn h_odds_ratio Estimates the odds ratio based on [stats::glm()]. Note that there must be</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   exactly 2 groups in `data` as specified by the `grp` variable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn response_subgroups Table-creating function which creates a table</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">257</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   summarizing binary response by subgroup. This function is a wrapper for [rtables::analyze_colvars()]</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">258</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and [rtables::summarize_row_groups()].</pre>
+                      <pre class="language-r">#' # Data with 2 groups.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' data &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param df (`list`)\cr a list of data frames containing all analysis variables. List should be</pre>
+                      <pre class="language-r">#'   rsp = as.logical(c(1, 1, 0, 1, 0, 0, 1, 1)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">261</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   created using [extract_rsp_subgroups()].</pre>
+                      <pre class="language-r">#'   grp = letters[c(1, 1, 1, 2, 2, 2, 1, 2)],</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">262</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param vars (`character`)\cr the names of statistics to be reported among:</pre>
+                      <pre class="language-r">#'   strata = letters[c(1, 2, 1, 2, 2, 2, 1, 2)],</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `n`: Total number of observations per group.</pre>
+                      <pre class="language-r">#'   stringsAsFactors = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `n_rsp`: Number of responders per group.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">265</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `prop`: Proportion of responders.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">266</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `n_tot`: Total number of observations.</pre>
+                      <pre class="language-r">#' # Odds ratio based on glm.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">267</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `or`: Odds ratio.</pre>
+                      <pre class="language-r">#' or_glm(data, conf_level = 0.95)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">268</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `ci` : Confidence interval of odds ratio.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">269</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `pval`: p-value of the effect.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">270</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Note, the statistics `n_tot`, `or`, and `ci` are required.</pre>
+                      <pre class="language-r">or_glm &lt;- function(data, conf_level) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">183</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">271</td>
+                    <td class="coverage">77<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param riskdiff (`list`)\cr if a risk (proportion) difference column should be added, a list of settings to apply</pre>
+                      <pre class="language-r">  checkmate::assert_logical(data$rsp)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">184</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">272</td>
+                    <td class="coverage">77<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   within the column. See [control_riskdiff()] for details. If `NULL`, no risk difference column will be added. If</pre>
+                      <pre class="language-r">  assert_proportion_value(conf_level)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">185</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">273</td>
+                    <td class="coverage">77<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `riskdiff$arm_x` and `riskdiff$arm_y` are `NULL`, the first level of `df$prop$arm` will be used as `arm_x` and</pre>
+                      <pre class="language-r">  assert_df_with_variables(data, list(rsp = "rsp", grp = "grp"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">186</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">274</td>
+                    <td class="coverage">77<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the second level as `arm_y`.</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(data$grp, classes = c("factor", "character"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">275</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">188</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">276</td>
+                    <td class="coverage">77<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return An `rtables` table summarizing binary response by subgroup.</pre>
+                      <pre class="language-r">  data$grp &lt;- as_factor_keep_attributes(data$grp)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">189</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">277</td>
+                    <td class="coverage">77<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  assert_df_with_factors(data, list(val = "grp"), min.levels = 2, max.levels = 2)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">190</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">278</td>
+                    <td class="coverage">77<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  formula &lt;- stats::as.formula("rsp ~ grp")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">191</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">279</td>
+                    <td class="coverage">77<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Table with default columns</pre>
+                      <pre class="language-r">  model_fit &lt;- stats::glm(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">192</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">280</td>
+                    <td class="coverage">77<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">    formula = formula, data = data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">193</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">281</td>
+                    <td class="coverage">77<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   tabulate_rsp_subgroups(df)</pre>
+                      <pre class="language-r">    family = stats::binomial(link = "logit")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">282</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">283</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Table with selected columns</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">  # Note that here we need to discard the intercept.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">197</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">285</td>
+                    <td class="coverage">77<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   tabulate_rsp_subgroups(</pre>
+                      <pre class="language-r">  or &lt;- exp(stats::coef(model_fit)[-1])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">198</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">286</td>
+                    <td class="coverage">77<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     df = df,</pre>
+                      <pre class="language-r">  or_ci &lt;- exp(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">199</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">287</td>
+                    <td class="coverage">77<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     vars = c("n_tot", "n", "n_rsp", "prop", "or", "ci")</pre>
+                      <pre class="language-r">    stats::confint.default(model_fit, level = conf_level)[-1, , drop = FALSE]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">288</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">289</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">202</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">290</td>
+                    <td class="coverage">77<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Table with risk difference column added</pre>
+                      <pre class="language-r">  values &lt;- stats::setNames(c(or, or_ci), c("est", "lcl", "ucl"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">203</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">291</td>
+                    <td class="coverage">77<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">  n_tot &lt;- stats::setNames(nrow(model_fit$model), "n_tot")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">292</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   tabulate_rsp_subgroups(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">205</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">293</td>
+                    <td class="coverage">77<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     df,</pre>
+                      <pre class="language-r">  list(or_ci = values, n_tot = n_tot)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     riskdiff = control_riskdiff(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">295</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       arm_x = levels(df$prop$arm)[1],</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">296</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       arm_y = levels(df$prop$arm)[2]</pre>
+                      <pre class="language-r">#' @describeIn h_odds_ratio Estimates the odds ratio based on [survival::clogit()]. This is done for</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">297</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">#'   the whole data set including all groups, since the results are not the same as when doing</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">298</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#'   pairwise comparisons between the groups.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</td>
+                    <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">300</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">301</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 2</pre>
+                      <pre class="language-r">#' # Data with 3 groups.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">302</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">tabulate_rsp_subgroups &lt;- function(lyt,</pre>
+                      <pre class="language-r">#' data &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   df,</pre>
+                      <pre class="language-r">#'   rsp = as.logical(c(1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   vars = c("n_tot", "n", "prop", "or", "ci"),</pre>
+                      <pre class="language-r">#'   grp = letters[c(1, 1, 1, 2, 2, 2, 3, 3, 3, 3, 1, 1, 1, 2, 2, 2, 3, 3, 3, 3)],</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">305</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   groups_lists = list(),</pre>
+                      <pre class="language-r">#'   strata = LETTERS[c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2)],</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">218</td>
+                    <td class="num">306</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   label_all = "All Patients",</pre>
+                      <pre class="language-r">#'   stringsAsFactors = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">219</td>
+                    <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   riskdiff = NULL,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">308</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   na_str = default_na_str(),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">309</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   .formats = c(</pre>
+                      <pre class="language-r">#' # Odds ratio based on stratified estimation by conditional logistic regression.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</td>
+                    <td class="num">310</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     n = "xx", n_rsp = "xx", prop = "xx.x%", n_tot = "xx",</pre>
+                      <pre class="language-r">#' or_clogit(data, conf_level = 0.95)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">223</td>
+                    <td class="num">311</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     or = list(format_extreme_values(2L)), ci = list(format_extreme_values_ci(2L)),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">312</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     pval = "x.xxxx | (&lt;0.0001)"</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   )) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">13<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(riskdiff, null.ok = TRUE)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">13<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(all(c("n_tot", "or", "ci") %in% vars))</pre>
+                      <pre class="language-r">or_clogit &lt;- function(data, conf_level, method = "exact") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">314</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if ("pval" %in% vars &amp;&amp; !"pval" %in% names(df$or)) {</pre>
+                      <pre class="language-r">  checkmate::assert_logical(data$rsp)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">229</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">315</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning(</pre>
+                      <pre class="language-r">  assert_proportion_value(conf_level)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">316</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      'The "pval" statistic has been selected but is not present in "df" so it will not be included in the output ',</pre>
+                      <pre class="language-r">  assert_df_with_variables(data, list(rsp = "rsp", grp = "grp", strata = "strata"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">231</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">317</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      'table. To include the "pval" statistic, please specify a p-value test when generating "df" via ',</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(data$grp, classes = c("factor", "character"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">318</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      'the "method" argument to `extract_rsp_subgroups()`. If method = "cmh", strata must also be specified via the ',</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(data$strata, classes = c("factor", "character"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">233</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      '"variables" argument to `extract_rsp_subgroups()`.'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">234</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">235</td>
-                    <td class="coverage"></td>
+                    <td class="num">319</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  checkmate::assert_subset(method, c("exact", "approximate", "efron", "breslow"), empty.ok = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">237</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">321</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Create "ci" column from "lcl" and "ucl"</pre>
+                      <pre class="language-r">  data$grp &lt;- as_factor_keep_attributes(data$grp)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">238</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">322</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df$or$ci &lt;- combine_vectors(df$or$lcl, df$or$ucl)</pre>
+                      <pre class="language-r">  data$strata &lt;- as_factor_keep_attributes(data$strata)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</td>
+                    <td class="num">323</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">324</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Fill in missing formats with defaults</pre>
+                      <pre class="language-r">  # Deviation from convention: `survival::strata` must be simply `strata`.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">241</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">325</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  default_fmts &lt;- eval(formals(tabulate_rsp_subgroups)$.formats)</pre>
+                      <pre class="language-r">  formula &lt;- stats::as.formula("rsp ~ grp + strata(strata)")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">242</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">326</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats &lt;- c(.formats, default_fmts[vars[!vars %in% names(.formats)]])</pre>
+                      <pre class="language-r">  model_fit &lt;- clogit_with_tryCatch(formula = formula, data = data, method = method)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">327</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">328</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Extract additional parameters from df</pre>
+                      <pre class="language-r">  # Create a list with one set of OR estimates and CI per coefficient, i.e.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">245</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">329</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  conf_level &lt;- df$or$conf_level[1]</pre>
+                      <pre class="language-r">  # comparison of one group vs. the reference group.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">246</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">330</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  method &lt;- if ("pval_label" %in% names(df$or)) df$or$pval_label[1] else NULL</pre>
+                      <pre class="language-r">  coef_est &lt;- stats::coef(model_fit)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">247</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">331</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  colvars &lt;- d_rsp_subgroups_colvars(vars, conf_level = conf_level, method = method)</pre>
+                      <pre class="language-r">  ci_est &lt;- stats::confint(model_fit, level = conf_level)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">248</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">332</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  prop_vars &lt;- intersect(colvars$vars, c("n", "prop", "n_rsp"))</pre>
+                      <pre class="language-r">  or_ci &lt;- list()</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">249</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">333</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  or_vars &lt;- intersect(names(colvars$labels), c("n_tot", "or", "ci", "pval"))</pre>
+                      <pre class="language-r">  for (coef_name in names(coef_est)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">250</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">334</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  colvars_prop &lt;- list(vars = prop_vars, labels = colvars$labels[prop_vars])</pre>
+                      <pre class="language-r">    grp_name &lt;- gsub("^grp", "", x = coef_name)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">251</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">335</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  colvars_or &lt;- list(vars = or_vars, labels = colvars$labels[or_vars])</pre>
+                      <pre class="language-r">    or_ci[[grp_name]] &lt;- stats::setNames(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">252</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">336</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      object = exp(c(coef_est[coef_name], ci_est[coef_name, , drop = TRUE])),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">253</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">337</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(groups_lists = groups_lists, conf_level = conf_level, method = method, label_all = label_all)</pre>
+                      <pre class="language-r">      nm = c("est", "lcl", "ucl")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</td>
+                    <td class="num">338</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">255</td>
+                    <td class="num">339</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Get analysis function for each statistic</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">256</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">340</td>
+                    <td class="coverage">19<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  afun_lst &lt;- a_response_subgroups(.formats = c(.formats, riskdiff = riskdiff$format), na_str = na_str)</pre>
+                      <pre class="language-r">  list(or_ci = or_ci, n_tot = c(n_tot = model_fit$n))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">341</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/cox_regression.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Add risk difference column</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">259</td>
-                    <td class="coverage">13<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(riskdiff)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">260</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    if (is.null(riskdiff$arm_x)) riskdiff$arm_x &lt;- levels(df$prop$arm)[1]</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">261</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    if (is.null(riskdiff$arm_y)) riskdiff$arm_y &lt;- levels(df$prop$arm)[2]</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">262</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    colvars_or$vars &lt;- c(colvars_or$vars, "riskdiff")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">263</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    colvars_or$labels &lt;- c(colvars_or$labels, riskdiff = riskdiff$col_label)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">264</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    arm_cols &lt;- paste(rep(c("n_rsp", "n_rsp", "n", "n")), c(riskdiff$arm_x, riskdiff$arm_y), sep = "_")</pre>
+                      <pre class="language-r">#' Control function for Cox regression</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">266</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    df_prop_diff &lt;- df$prop %&gt;%</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">267</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::select(-"prop") %&gt;%</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">268</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      tidyr::pivot_wider(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">269</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        id_cols = c("subgroup", "var", "var_label", "row_type"),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">270</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        names_from = "arm",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">271</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">3</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        values_from = c("n", "n_rsp")</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ) %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">273</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::rowwise() %&gt;%</pre>
+                      <pre class="language-r">#' Sets a list of parameters for Cox regression fit. Used internally.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">274</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::mutate(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">275</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">7</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        riskdiff = stat_propdiff_ci(</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">276</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          x = as.list(.data[[arm_cols[1]]]),</pre>
+                      <pre class="language-r">#' @param pval_method (`string`)\cr the method used for estimation of p.values; `wald` (default) or `likelihood`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">277</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          y = as.list(.data[[arm_cols[2]]]),</pre>
+                      <pre class="language-r">#' @param interaction (`flag`)\cr if `TRUE`, the model includes the interaction between the studied</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">278</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          N_x = .data[[arm_cols[3]]],</pre>
+                      <pre class="language-r">#'   treatment and candidate covariate. Note that for univariate models without treatment arm, and</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">279</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          N_y = .data[[arm_cols[4]]]</pre>
+                      <pre class="language-r">#'   multivariate models, no interaction can be used so that this needs to be `FALSE`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' @param ties (`string`)\cr among `exact` (equivalent to `DISCRETE` in SAS), `efron` and `breslow`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">281</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ) %&gt;%</pre>
+                      <pre class="language-r">#'   see [survival::coxph()]. Note: there is no equivalent of SAS `EXACT` method in R.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">282</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">14</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::select(-dplyr::all_of(arm_cols))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">283</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @return A `list` of items with names corresponding to the arguments.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">284</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">16</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df$or &lt;- df$or %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">285</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      dplyr::left_join(</pre>
+                      <pre class="language-r">#' @seealso [fit_coxreg_univar()] and [fit_coxreg_multivar()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">286</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        df_prop_diff,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">287</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        by = c("subgroup", "var", "var_label", "row_type")</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' control_coxreg()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">289</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">291</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Add columns from table_prop (optional)</pre>
+                      <pre class="language-r">control_coxreg &lt;- function(pval_method = c("wald", "likelihood"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">292</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(colvars_prop$vars) &gt; 0) {</pre>
+                      <pre class="language-r">                           ties = c("exact", "efron", "breslow"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">293</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">25</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt_prop &lt;- split_cols_by(lyt = lyt, var = "arm")</pre>
+                      <pre class="language-r">                           conf_level = 0.95,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">294</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">26</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt_prop &lt;- split_cols_by_multivar(</pre>
+                      <pre class="language-r">                           interaction = FALSE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">295</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">27</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt = lyt_prop,</pre>
+                      <pre class="language-r">  pval_method &lt;- match.arg(pval_method)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">296</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">28</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vars = colvars_prop$vars,</pre>
+                      <pre class="language-r">  ties &lt;- match.arg(ties)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">297</td>
-                    <td class="coverage">12<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      varlabels = colvars_prop$labels</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">298</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">299</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">300</td>
-                    <td class="coverage"></td>
+                    <td class="num">29</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Add "All Patients" row</pre>
+                      <pre class="language-r">  checkmate::assert_flag(interaction)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">301</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">30</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt_prop &lt;- split_rows_by(</pre>
+                      <pre class="language-r">  assert_proportion_value(conf_level)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">302</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">31</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt = lyt_prop,</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">303</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">32</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      var = "row_type",</pre>
+                      <pre class="language-r">    pval_method = pval_method,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">304</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">33</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      split_fun = keep_split_levels("content"),</pre>
+                      <pre class="language-r">    ties = ties,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">305</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">34</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nested = FALSE,</pre>
+                      <pre class="language-r">    conf_level = conf_level,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">306</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">35</td>
+                    <td class="coverage">55<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      child_labels = "hidden"</pre>
+                      <pre class="language-r">    interaction = interaction</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">307</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">308</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">37</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt_prop &lt;- analyze_colvars(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">309</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">38</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt = lyt_prop,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">310</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">39</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      afun = afun_lst[names(colvars_prop$labels)],</pre>
+                      <pre class="language-r">#' Custom tidy methods for Cox regression</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">311</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">40</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      na_str = na_str,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">312</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">41</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      extra_args = extra_args</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">313</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">314</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">315</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Add analysis rows</pre>
+                      <pre class="language-r">#' @param x (`list`)\cr result of the Cox regression model fitted by [fit_coxreg_univar()] (for univariate models)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">316</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">45</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if ("analysis" %in% df$prop$row_type) {</pre>
+                      <pre class="language-r">#'   or [fit_coxreg_multivar()] (for multivariate models).</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">317</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">46</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt_prop &lt;- split_rows_by(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">318</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">47</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        lyt = lyt_prop,</pre>
+                      <pre class="language-r">#' @return [broom::tidy()] returns:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">319</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">48</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        var = "row_type",</pre>
+                      <pre class="language-r">#' * For `summary.coxph` objects,  a `data.frame` with columns: `Pr(&gt;|z|)`, `exp(coef)`, `exp(-coef)`, `lower .95`,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">320</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">49</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        split_fun = keep_split_levels("analysis"),</pre>
+                      <pre class="language-r">#'   `upper .95`, `level`, and `n`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">321</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">50</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        nested = FALSE,</pre>
+                      <pre class="language-r">#' * For `coxreg.univar` objects, a `data.frame` with columns: `effect`, `term`, `term_label`, `level`, `n`, `hr`,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">322</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">51</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        child_labels = "hidden"</pre>
+                      <pre class="language-r">#'   `lcl`, `ucl`, `pval`, and `ci`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">323</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' * For `coxreg.multivar` objects, a `data.frame` with columns: `term`, `pval`, `term_label`, `hr`, `lcl`, `ucl`,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">324</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">53</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt_prop &lt;- split_rows_by(lyt = lyt_prop, var = "var_label", nested = TRUE)</pre>
+                      <pre class="language-r">#'   `level`, and `ci`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">325</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">54</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt_prop &lt;- analyze_colvars(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">326</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">55</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        lyt = lyt_prop,</pre>
+                      <pre class="language-r">#' @seealso [cox_regression]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">327</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">56</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        afun = afun_lst[names(colvars_prop$labels)],</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">328</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">57</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        na_str = na_str,</pre>
+                      <pre class="language-r">#' @name tidy_coxreg</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">329</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">58</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        inclNAs = TRUE,</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">330</td>
-                    <td class="coverage">11<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">59</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        extra_args = extra_args</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">331</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">#' @describeIn tidy_coxreg Custom tidy method for [survival::coxph()] summary results.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">332</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">333</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Tidy the [survival::coxph()] results into a `data.frame` to extract model results.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">334</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">63</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table_prop &lt;- build_table(lyt_prop, df = df$prop)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">335</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' @method tidy summary.coxph</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">336</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">65</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table_prop &lt;- NULL</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">337</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">338</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' library(survival)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">339</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Add columns from table_or ("n_tot", "or", and "ci" required)</pre>
+                      <pre class="language-r">#' library(broom)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">340</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">69</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lyt_or &lt;- split_cols_by(lyt = lyt, var = "arm")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">341</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lyt_or &lt;- split_cols_by_multivar(</pre>
+                      <pre class="language-r">#' set.seed(1, kind = "Mersenne-Twister")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">342</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">71</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt = lyt_or,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">343</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">72</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars = colvars_or$vars,</pre>
+                      <pre class="language-r">#' dta_bladder &lt;- with(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">344</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">73</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    varlabels = colvars_or$labels</pre>
+                      <pre class="language-r">#'   data = bladder[bladder$enum &lt; 5, ],</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">345</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'   data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">346</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     time = stop,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">347</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Add "All Patients" row</pre>
+                      <pre class="language-r">#'     status = event,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">348</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">77</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lyt_or &lt;- split_rows_by(</pre>
+                      <pre class="language-r">#'     armcd = as.factor(rx),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">349</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">78</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt = lyt_or,</pre>
+                      <pre class="language-r">#'     covar1 = as.factor(enum),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">350</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">79</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var = "row_type",</pre>
+                      <pre class="language-r">#'     covar2 = factor(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">351</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">80</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    split_fun = keep_split_levels("content"),</pre>
+                      <pre class="language-r">#'       sample(as.factor(enum)),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">352</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">81</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nested = FALSE,</pre>
+                      <pre class="language-r">#'       levels = 1:4, labels = c("F", "F", "M", "M")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">353</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">82</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    child_labels = "hidden"</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">354</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">355</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">84</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lyt_or &lt;- analyze_colvars(</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">356</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">85</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt = lyt_or,</pre>
+                      <pre class="language-r">#' labels &lt;- c("armcd" = "ARM", "covar1" = "A Covariate Label", "covar2" = "Sex (F/M)")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">357</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">86</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    afun = afun_lst[names(colvars_or$labels)],</pre>
+                      <pre class="language-r">#' formatters::var_labels(dta_bladder)[names(labels)] &lt;- labels</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">358</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">87</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">#' dta_bladder$age &lt;- sample(20:60, size = nrow(dta_bladder), replace = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">359</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">88</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args = extra_args</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">360</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ) %&gt;%</pre>
+                      <pre class="language-r">#' formula &lt;- "survival::Surv(time, status) ~ armcd + covar1"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">361</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">90</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    append_topleft("Baseline Risk Factors")</pre>
+                      <pre class="language-r">#' msum &lt;- summary(coxph(stats::as.formula(formula), data = dta_bladder))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">362</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' tidy(msum)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">363</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Add analysis rows</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">364</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">93</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if ("analysis" %in% df$or$row_type) {</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">365</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">94</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt_or &lt;- split_rows_by(</pre>
+                      <pre class="language-r">tidy.summary.coxph &lt;- function(x, # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">366</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">95</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt = lyt_or,</pre>
+                      <pre class="language-r">                               ...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">367</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">96</td>
+                    <td class="coverage">199<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      var = "row_type",</pre>
+                      <pre class="language-r">  checkmate::assert_class(x, "summary.coxph")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">368</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">97</td>
+                    <td class="coverage">199<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      split_fun = keep_split_levels("analysis"),</pre>
+                      <pre class="language-r">  pval &lt;- x$coefficients</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">369</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">98</td>
+                    <td class="coverage">199<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nested = FALSE,</pre>
+                      <pre class="language-r">  confint &lt;- x$conf.int</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">370</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">99</td>
+                    <td class="coverage">199<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      child_labels = "hidden"</pre>
+                      <pre class="language-r">  levels &lt;- rownames(pval)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">371</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">372</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">101</td>
+                    <td class="coverage">199<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt_or &lt;- split_rows_by(lyt = lyt_or, var = "var_label", nested = TRUE)</pre>
+                      <pre class="language-r">  pval &lt;- tibble::as_tibble(pval)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">373</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">102</td>
+                    <td class="coverage">199<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt_or &lt;- analyze_colvars(</pre>
+                      <pre class="language-r">  confint &lt;- tibble::as_tibble(confint)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">374</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">103</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt = lyt_or,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">375</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">104</td>
+                    <td class="coverage">199<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      afun = afun_lst[names(colvars_or$labels)],</pre>
+                      <pre class="language-r">  ret &lt;- cbind(pval[, grepl("Pr", names(pval))], confint)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">376</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">105</td>
+                    <td class="coverage">199<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      na_str = na_str,</pre>
+                      <pre class="language-r">  ret$level &lt;- levels</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">377</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">106</td>
+                    <td class="coverage">199<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      inclNAs = TRUE,</pre>
+                      <pre class="language-r">  ret$n &lt;- x[["n"]]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">378</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">107</td>
+                    <td class="coverage">199<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      extra_args = extra_args</pre>
+                      <pre class="language-r">  ret</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">379</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">380</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">381</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">382</td>
-                    <td class="coverage">13<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  table_or &lt;- build_table(lyt_or, df = df$or)</pre>
+                      <pre class="language-r">#' @describeIn tidy_coxreg Custom tidy method for a univariate Cox regression.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">383</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">384</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Join tables, add forest plot attributes</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">385</td>
-                    <td class="coverage">13<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  n_tot_id &lt;- match("n_tot", colvars_or$vars)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">386</td>
-                    <td class="coverage">13<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(table_prop)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">387</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    result &lt;- table_or</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">388</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    or_id &lt;- match("or", colvars_or$vars)</pre>
+                      <pre class="language-r">#' Tidy up the result of a Cox regression model fitted by [fit_coxreg_univar()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">389</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">113</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ci_id &lt;- match("ci", colvars_or$vars)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">390</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' @method tidy coxreg.univar</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">391</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">115</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result &lt;- cbind_rtables(table_or[, n_tot_id], table_prop, table_or[, -n_tot_id])</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">392</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">116</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    or_id &lt;- 1L + ncol(table_prop) + match("or", colvars_or$vars[-n_tot_id])</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">393</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">117</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ci_id &lt;- 1L + ncol(table_prop) + match("ci", colvars_or$vars[-n_tot_id])</pre>
+                      <pre class="language-r">#' ## Cox regression: arm + 1 covariate.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">394</td>
-                    <td class="coverage">12<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">118</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n_tot_id &lt;- 1L</pre>
+                      <pre class="language-r">#' mod1 &lt;- fit_coxreg_univar(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">395</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">396</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">120</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  structure(</pre>
+                      <pre class="language-r">#'     time = "time", event = "status", arm = "armcd",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">397</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">121</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result,</pre>
+                      <pre class="language-r">#'     covariates = "covar1"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">398</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">122</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    forest_header = paste0(levels(df$prop$arm), "\nBetter"),</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">399</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">123</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    col_x = or_id,</pre>
+                      <pre class="language-r">#'   data = dta_bladder,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">400</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">124</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    col_ci = ci_id,</pre>
+                      <pre class="language-r">#'   control = control_coxreg(conf_level = 0.91)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">401</td>
-                    <td class="coverage">13<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">125</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    col_symbol_size = n_tot_id</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">402</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">403</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' ## Cox regression: arm + 1 covariate + interaction, 2 candidate covariates.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">404</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' mod2 &lt;- fit_coxreg_univar(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">405</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Labels for column variables in binary response by subgroup table</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">406</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     time = "time", event = "status", arm = "armcd",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">407</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#'     covariates = c("covar1", "covar2")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">408</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">409</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Internal function to check variables included in [tabulate_rsp_subgroups()] and create column labels.</pre>
+                      <pre class="language-r">#'   data = dta_bladder,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">410</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   control = control_coxreg(conf_level = 0.91, interaction = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">411</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">412</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams tabulate_rsp_subgroups</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">413</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' tidy(mod1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">414</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `list` of variables to tabulate and their labels.</pre>
+                      <pre class="language-r">#' tidy(mod2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">415</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">416</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">417</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">d_rsp_subgroups_colvars &lt;- function(vars,</pre>
+                      <pre class="language-r">tidy.coxreg.univar &lt;- function(x, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">418</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    conf_level = NULL,</pre>
+                      <pre class="language-r">                               ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">419</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">143</td>
+                    <td class="coverage">38<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    method = NULL) {</pre>
+                      <pre class="language-r">  checkmate::assert_class(x, "coxreg.univar")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">420</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">144</td>
+                    <td class="coverage">38<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(vars)</pre>
+                      <pre class="language-r">  mod &lt;- x$mod</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">421</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">145</td>
+                    <td class="coverage">38<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(c("n_tot", "or", "ci"), vars)</pre>
+                      <pre class="language-r">  vars &lt;- c(x$vars$arm, x$vars$covariates)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">422</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">146</td>
+                    <td class="coverage">38<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(</pre>
+                      <pre class="language-r">  has_arm &lt;- "arm" %in% names(x$vars)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">423</td>
-                    <td class="coverage">22<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">147</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">424</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">148</td>
+                    <td class="coverage">38<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c("n", "n_rsp", "prop", "n_tot", "or", "ci", "pval")</pre>
+                      <pre class="language-r">  result &lt;- if (!has_arm) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">425</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">149</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    Map(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">426</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">150</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      mod = mod, vars = vars,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">427</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">151</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  varlabels &lt;- c(</pre>
+                      <pre class="language-r">      f = function(mod, vars) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">428</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">152</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n = "n",</pre>
+                      <pre class="language-r">        h_coxreg_multivar_extract(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">429</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">153</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n_rsp = "Responders",</pre>
+                      <pre class="language-r">          var = vars,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">430</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">154</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    prop = "Response (%)",</pre>
+                      <pre class="language-r">          data = x$data,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">431</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">155</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n_tot = "Total n",</pre>
+                      <pre class="language-r">          mod = mod,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">432</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">156</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    or = "Odds Ratio"</pre>
+                      <pre class="language-r">          control = x$control</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">433</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">434</td>
-                    <td class="coverage">22<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">158</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  colvars &lt;- vars</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">435</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">436</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">160</td>
+                    <td class="coverage">38<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if ("ci" %in% colvars) {</pre>
+                      <pre class="language-r">  } else if (x$control$interaction) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">437</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">161</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_false(is.null(conf_level))</pre>
+                      <pre class="language-r">    Map(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">438</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">162</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      mod = mod, covar = vars,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">439</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">163</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    varlabels &lt;- c(</pre>
+                      <pre class="language-r">      f = function(mod, covar) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">440</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">164</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      varlabels,</pre>
+                      <pre class="language-r">        h_coxreg_extract_interaction(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">441</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">165</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci = paste0(100 * conf_level, "% CI")</pre>
+                      <pre class="language-r">          effect = x$vars$arm, covar = covar, mod = mod, data = x$data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">442</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">166</td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">          at = x$at, control = x$control</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">443</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">444</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # The `lcl`` variable is just a placeholder available in the analysis data,</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">445</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # it is not acutally used in the tabulation.</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">446</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Variables used in the tabulation are lcl and ucl, see `a_response_subgroups` for details.</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">447</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">171</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    colvars[colvars == "ci"] &lt;- "lcl"</pre>
+                      <pre class="language-r">    Map(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">448</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">172</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      mod = mod, vars = vars,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">449</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">173</td>
+                    <td class="coverage">21<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      f = function(mod, vars) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">450</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">174</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if ("pval" %in% colvars) {</pre>
+                      <pre class="language-r">        h_coxreg_univar_extract(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">451</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="num">175</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    varlabels &lt;- c(</pre>
+                      <pre class="language-r">          effect = x$vars$arm, covar = vars, data = x$data, mod = mod,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">452</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="num">176</td>
+                    <td class="coverage">53<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      varlabels,</pre>
+                      <pre class="language-r">          control = x$control</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">453</td>
-                    <td class="coverage">16<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">177</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pval = method</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">454</td>
+                    <td class="num">178</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">455</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  }</pre>
                     </td>
                   </tr>
+                  <tr class="covered">
+                    <td class="num">181</td>
+                    <td class="coverage">38<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  result &lt;- do.call(rbind, result)</pre>
+                    </td>
+                  </tr>
                   <tr class="never">
-                    <td class="num">456</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">457</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">183</td>
+                    <td class="coverage">38<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">  result$ci &lt;- Map(lcl = result$lcl, ucl = result$ucl, f = function(lcl, ucl) c(lcl, ucl))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">458</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">184</td>
+                    <td class="coverage">38<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars = colvars,</pre>
+                      <pre class="language-r">  result$n &lt;- lapply(result$n, empty_vector_if_na)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">459</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">185</td>
+                    <td class="coverage">38<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    labels = varlabels[vars]</pre>
+                      <pre class="language-r">  result$ci &lt;- lapply(result$ci, empty_vector_if_na)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">460</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">186</td>
+                    <td class="coverage">38<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  result$hr &lt;- lapply(result$hr, empty_vector_if_na)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">461</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">187</td>
+                    <td class="coverage">38<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  if (x$control$interaction) {</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/abnormal_by_worst_grade.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">188</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Count patients by most extreme post-baseline toxicity grade per direction of abnormality</pre>
+                      <pre class="language-r">    result$pval_inter &lt;- lapply(result$pval_inter, empty_vector_if_na)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    # Remove interaction p-values due to change in specifications.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">190</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">    result$pval[result$effect != "Treatment:"] &lt;- NA</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">192</td>
+                    <td class="coverage">38<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The analyze function [count_abnormal_by_worst_grade()] creates a layout element to count patients by highest (worst)</pre>
+                      <pre class="language-r">  result$pval &lt;- lapply(result$pval, empty_vector_if_na)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">193</td>
+                    <td class="coverage">38<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' analysis toxicity grade post-baseline for each direction, categorized by parameter value.</pre>
+                      <pre class="language-r">  attr(result, "conf_level") &lt;- x$control$conf_level</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">194</td>
+                    <td class="coverage">38<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  result</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function analyzes primary analysis variable `var` which indicates toxicity grades. Additional</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' analysis variables that can be supplied as a list via the `variables` parameter are `id` (defaults to</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `USUBJID`), a variable to indicate unique subject identifiers, `param` (defaults to `PARAM`), a variable</pre>
+                      <pre class="language-r">#' @describeIn tidy_coxreg Custom tidy method for a multivariate Cox regression.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' to indicate parameter values, and `grade_dir` (defaults to `GRADE_DIR`), a variable to indicate directions</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' (e.g. High or Low) for each toxicity grade supplied in `var`.</pre>
+                      <pre class="language-r">#' Tidy up the result of a Cox regression model fitted by [fit_coxreg_multivar()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' For each combination of `param` and `grade_dir` levels, patient counts by worst</pre>
+                      <pre class="language-r">#' @method tidy coxreg.multivar</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grade are calculated as follows:</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `1` to `4`: The number of patients with worst grades 1-4, respectively.</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `Any`: The number of patients with at least one abnormality (i.e. grade is not 0).</pre>
+                      <pre class="language-r">#' multivar_model &lt;- fit_coxreg_multivar(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">205</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Fractions are calculated by dividing the above counts by the number of patients with at least one</pre>
+                      <pre class="language-r">#'     time = "time", event = "status", arm = "armcd",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' valid measurement recorded during treatment.</pre>
+                      <pre class="language-r">#'     covariates = c("covar1", "covar2")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Pre-processing is crucial when using this function and can be done automatically using the</pre>
+                      <pre class="language-r">#'   data = dta_bladder</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' [h_adlb_abnormal_by_worst_grade()] helper function. See the description of this function for details on the</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' necessary pre-processing steps.</pre>
+                      <pre class="language-r">#' broom::tidy(multivar_model)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Prior to using this function in your table layout you must use [rtables::split_rows_by()] to create two row</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' splits, one on variable `param` and one on variable `grade_dir`.</pre>
+                      <pre class="language-r">tidy.coxreg.multivar &lt;- function(x, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                 ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">216</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">  checkmate::assert_class(x, "coxreg.multivar")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">217</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("abnormal_by_worst_grade")`</pre>
+                      <pre class="language-r">  vars &lt;- c(x$vars$arm, x$vars$covariates)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to see available statistics for this function.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  # Convert the model summaries to data.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">220</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [h_adlb_abnormal_by_worst_grade()] which pre-processes ADLB data frames to be used in</pre>
+                      <pre class="language-r">  result &lt;- Map(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">221</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   [count_abnormal_by_worst_grade()].</pre>
+                      <pre class="language-r">    vars = vars,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">222</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    f = function(vars) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">223</td>
+                    <td class="coverage">60<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      h_coxreg_multivar_extract(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">224</td>
+                    <td class="coverage">60<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        var = vars, data = x$data,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">225</td>
+                    <td class="coverage">60<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        mod = x$mod, control = x$control</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name abnormal_by_worst_grade</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 1</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">229</td>
+                    <td class="coverage">16<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  result &lt;- do.call(rbind, result)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">230</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">231</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn abnormal_by_worst_grade Statistics function which counts patients by worst grade.</pre>
+                      <pre class="language-r">  result$ci &lt;- Map(lcl = result$lcl, ucl = result$ucl, f = function(lcl, ucl) c(lcl, ucl))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">232</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  result$ci &lt;- lapply(result$ci, empty_vector_if_na)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">233</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">  result$hr &lt;- lapply(result$hr, empty_vector_if_na)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">234</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_count_abnormal_by_worst_grade()` returns the single statistic `count_fraction` with grades 1 to 4 and</pre>
+                      <pre class="language-r">  result$pval &lt;- lapply(result$pval, empty_vector_if_na)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">235</td>
+                    <td class="coverage">16<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "Any" results.</pre>
+                      <pre class="language-r">  result &lt;- result[, names(result) != "n"]</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">236</td>
+                    <td class="coverage">16<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  attr(result, "conf_level") &lt;- x$control$conf_level</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">238</td>
+                    <td class="coverage">16<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  result</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_count_abnormal_by_worst_grade &lt;- function(df, # nolint</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                            .var = "GRADE_ANL",</pre>
+                      <pre class="language-r">#' Fitting functions for Cox proportional hazards regression</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                            .spl_context,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                            variables = list(</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              id = "USUBJID",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              param = "PARAM",</pre>
+                      <pre class="language-r">#' Fitting functions for univariate and multivariate Cox regression models.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              grade_dir = "GRADE_DIR"</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                            )) {</pre>
+                      <pre class="language-r">#' @param variables (named `list`)\cr the names of the variables found in `data`, passed as a named list and</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">55</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">248</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(.var)</pre>
+                      <pre class="language-r">#'   corresponding to the `time`, `event`, `arm`, `strata`, and `covariates` terms. If `arm` is missing from</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">56</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">249</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_valid_factor(df[[.var]])</pre>
+                      <pre class="language-r">#'   `variables`, then only Cox model(s) including the `covariates` will be fitted and the corresponding effect</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">250</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_valid_factor(df[[variables$param]])</pre>
+                      <pre class="language-r">#'   estimates will be tabulated later.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">251</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_valid_factor(df[[variables$grade_dir]])</pre>
+                      <pre class="language-r">#' @param data (`data.frame`)\cr the dataset containing the variables to fit the models.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">252</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(df, c(a = .var, variables))</pre>
+                      <pre class="language-r">#' @param at (`list` of `numeric`)\cr when the candidate covariate is a `numeric`, use `at` to specify</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">253</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(df[[variables$id]], classes = c("factor", "character"))</pre>
+                      <pre class="language-r">#'   the value of the covariate at which the effect should be estimated.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param control (`list`)\cr a list of parameters as returned by the helper function [control_coxreg()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # To verify that the `split_rows_by` are performed with correct variables.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">256</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(c(variables[["param"]], variables[["grade_dir"]]), .spl_context$split)</pre>
+                      <pre class="language-r">#' @seealso [h_cox_regression] for relevant helper functions, [cox_regression].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">64</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">257</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  first_row &lt;- .spl_context[.spl_context$split == variables[["param"]], ]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">258</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_lvls &lt;- c(setdiff(levels(df[[.var]]), "0"), "Any")</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">259</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result &lt;- split(numeric(0), factor(x_lvls))</pre>
+                      <pre class="language-r">#' library(survival)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">260</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">261</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  subj &lt;- first_row$full_parent_df[[1]][[variables[["id"]]]]</pre>
+                      <pre class="language-r">#' set.seed(1, kind = "Mersenne-Twister")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">69</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">262</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  subj_cur_col &lt;- subj[first_row$cur_col_subset[[1]]]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">263</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Some subjects may have a record for high and low directions but</pre>
+                      <pre class="language-r">#' # Testing dataset [survival::bladder].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # should be counted only once.</pre>
+                      <pre class="language-r">#' dta_bladder &lt;- with(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">265</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  denom &lt;- length(unique(subj_cur_col))</pre>
+                      <pre class="language-r">#'   data = bladder[bladder$enum &lt; 5, ],</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">266</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">267</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  for (lvl in x_lvls) {</pre>
+                      <pre class="language-r">#'     time = stop,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">268</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (lvl != "Any") {</pre>
+                      <pre class="language-r">#'     status = event,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">269</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df_lvl &lt;- df[df[[.var]] == lvl, ]</pre>
+                      <pre class="language-r">#'     armcd = as.factor(rx),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">270</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">#'     covar1 = as.factor(enum),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">271</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      df_lvl &lt;- df[df[[.var]] != 0, ]</pre>
+                      <pre class="language-r">#'     covar2 = factor(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">272</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'       sample(as.factor(enum)),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">273</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    num &lt;- length(unique(df_lvl[[variables[["id"]]]]))</pre>
+                      <pre class="language-r">#'       levels = 1:4, labels = c("F", "F", "M", "M")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">274</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    fraction &lt;- ifelse(denom == 0, 0, num / denom)</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">82</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">275</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    result[[lvl]] &lt;- formatters::with_label(c(count = num, fraction = fraction), lvl)</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">276</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">277</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' labels &lt;- c("armcd" = "ARM", "covar1" = "A Covariate Label", "covar2" = "Sex (F/M)")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">85</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">278</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result &lt;- list(count_fraction = result)</pre>
+                      <pre class="language-r">#' formatters::var_labels(dta_bladder)[names(labels)] &lt;- labels</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">279</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result</pre>
+                      <pre class="language-r">#' dta_bladder$age &lt;- sample(20:60, size = nrow(dta_bladder), replace = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">280</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">281</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' plot(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">282</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn abnormal_by_worst_grade Formatted analysis function which is used as `afun`</pre>
+                      <pre class="language-r">#'   survfit(Surv(time, status) ~ armcd + covar1, data = dta_bladder),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">283</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   in `count_abnormal_by_worst_grade()`.</pre>
+                      <pre class="language-r">#'   lty = 2:4,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">284</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   xlab = "Months",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">285</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'   col = c("blue1", "blue2", "blue3", "blue4", "red1", "red2", "red3", "red4")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">286</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `a_count_abnormal_by_worst_grade()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">287</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">288</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' @name fit_coxreg</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">289</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">a_count_abnormal_by_worst_grade &lt;- make_afun( # nolint</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_count_abnormal_by_worst_grade,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats = c(count_fraction = format_count_fraction)</pre>
+                      <pre class="language-r">#' @describeIn fit_coxreg Fit a series of univariate Cox regression models given the inputs.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">292</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn abnormal_by_worst_grade Layout-creating function which can take statistics function arguments</pre>
+                      <pre class="language-r">#' * `fit_coxreg_univar()` returns a `coxreg.univar` class object which is a named `list`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">295</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
+                      <pre class="language-r">#'   with 5 elements:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">296</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   * `mod`: Cox regression models fitted by [survival::coxph()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">297</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'   * `data`: The original data frame input.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">298</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `count_abnormal_by_worst_grade()` returns a layout object suitable for passing to further layouting functions,</pre>
+                      <pre class="language-r">#'   * `control`: The original control input.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
+                      <pre class="language-r">#'   * `vars`: The variables used in the model.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">300</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the statistics from `s_count_abnormal_by_worst_grade()` to the table layout.</pre>
+                      <pre class="language-r">#'   * `at`: Value of the covariate at which the effect should be estimated.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">301</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">302</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @note When using `fit_coxreg_univar` there should be two study arms.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(forcats)</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">305</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adlb &lt;- tern_ex_adlb</pre>
+                      <pre class="language-r">#' # fit_coxreg_univar</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">306</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Data is modified in order to have some parameters with grades only in one direction</pre>
+                      <pre class="language-r">#' ## Cox regression: arm + 1 covariate.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">308</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # and simulate the real data.</pre>
+                      <pre class="language-r">#' mod1 &lt;- fit_coxreg_univar(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">309</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adlb$ATOXGR[adlb$PARAMCD == "ALT" &amp; adlb$ATOXGR %in% c("1", "2", "3", "4")] &lt;- "-1"</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">310</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adlb$ANRIND[adlb$PARAMCD == "ALT" &amp; adlb$ANRIND == "HIGH"] &lt;- "LOW"</pre>
+                      <pre class="language-r">#'     time = "time", event = "status", arm = "armcd",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">311</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adlb$WGRHIFL[adlb$PARAMCD == "ALT"] &lt;- ""</pre>
+                      <pre class="language-r">#'     covariates = "covar1"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">312</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">313</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adlb$ATOXGR[adlb$PARAMCD == "IGA" &amp; adlb$ATOXGR %in% c("-1", "-2", "-3", "-4")] &lt;- "1"</pre>
+                      <pre class="language-r">#'   data = dta_bladder,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">314</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adlb$ANRIND[adlb$PARAMCD == "IGA" &amp; adlb$ANRIND == "LOW"] &lt;- "HIGH"</pre>
+                      <pre class="language-r">#'   control = control_coxreg(conf_level = 0.91)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">315</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adlb$WGRLOFL[adlb$PARAMCD == "IGA"] &lt;- ""</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">316</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">317</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Pre-processing</pre>
+                      <pre class="language-r">#' ## Cox regression: arm + 1 covariate + interaction, 2 candidate covariates.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">318</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adlb_f &lt;- adlb %&gt;% h_adlb_abnormal_by_worst_grade()</pre>
+                      <pre class="language-r">#' mod2 &lt;- fit_coxreg_univar(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">319</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Map excludes records without abnormal grade since they should not be displayed</pre>
+                      <pre class="language-r">#'     time = "time", event = "status", arm = "armcd",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # in the table.</pre>
+                      <pre class="language-r">#'     covariates = c("covar1", "covar2")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">322</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' map &lt;- unique(adlb_f[adlb_f$GRADE_DIR != "ZERO", c("PARAM", "GRADE_DIR", "GRADE_ANL")]) %&gt;%</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">323</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   lapply(as.character) %&gt;%</pre>
+                      <pre class="language-r">#'   data = dta_bladder,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">324</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   as.data.frame() %&gt;%</pre>
+                      <pre class="language-r">#'   control = control_coxreg(conf_level = 0.91, interaction = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">325</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   arrange(PARAM, desc(GRADE_DIR), GRADE_ANL)</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">326</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">327</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">#' ## Cox regression: arm + 1 covariate, stratified analysis.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">328</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARMCD") %&gt;%</pre>
+                      <pre class="language-r">#' mod3 &lt;- fit_coxreg_univar(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">329</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by("PARAM") %&gt;%</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">330</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by("GRADE_DIR", split_fun = trim_levels_to_map(map)) %&gt;%</pre>
+                      <pre class="language-r">#'     time = "time", event = "status", arm = "armcd", strata = "covar2",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">331</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   count_abnormal_by_worst_grade(</pre>
+                      <pre class="language-r">#'     covariates = c("covar1")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">332</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     var = "GRADE_ANL",</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">333</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     variables = list(id = "USUBJID", param = "PARAM", grade_dir = "GRADE_DIR")</pre>
+                      <pre class="language-r">#'   data = dta_bladder,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">334</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">#'   control = control_coxreg(conf_level = 0.91)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">335</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(df = adlb_f)</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">336</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">337</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' ## Cox regression: no arm, only covariates.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">338</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 2</pre>
+                      <pre class="language-r">#' mod4 &lt;- fit_coxreg_univar(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">339</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">count_abnormal_by_worst_grade &lt;- function(lyt,</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">340</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          var,</pre>
+                      <pre class="language-r">#'     time = "time", event = "status",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">341</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          variables = list(</pre>
+                      <pre class="language-r">#'     covariates = c("covar1", "covar2")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">342</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                            id = "USUBJID",</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">343</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                            param = "PARAM",</pre>
+                      <pre class="language-r">#'   data = dta_bladder</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">344</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                            grade_dir = "GRADE_DIR"</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">345</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          ),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">346</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          na_str = default_na_str(),</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">347</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          nested = TRUE,</pre>
+                      <pre class="language-r">fit_coxreg_univar &lt;- function(variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">348</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          ...,</pre>
+                      <pre class="language-r">                              data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">349</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          .stats = NULL,</pre>
+                      <pre class="language-r">                              at = list(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">350</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          .formats = NULL,</pre>
+                      <pre class="language-r">                              control = control_coxreg()) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">351</td>
+                    <td class="coverage">43<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_list(variables, names = "named")</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">352</td>
+                    <td class="coverage">43<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  has_arm &lt;- "arm" %in% names(variables)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">353</td>
+                    <td class="coverage">43<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  arm_name &lt;- if (has_arm) "arm" else NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">354</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          .labels = NULL,</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">355</td>
+                    <td class="coverage">43<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_character(variables$covariates, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">356</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          .indent_mods = NULL) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">160</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">357</td>
+                    <td class="coverage">43<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(variables = variables, ...)</pre>
+                      <pre class="language-r">  assert_df_with_variables(data, variables)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">358</td>
+                    <td class="coverage">43<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  assert_list_of_variables(variables[c(arm_name, "event", "time")])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">359</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">360</td>
+                    <td class="coverage">43<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  afun &lt;- make_afun(</pre>
+                      <pre class="language-r">  if (!is.null(variables$strata)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">361</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    a_count_abnormal_by_worst_grade,</pre>
+                      <pre class="language-r">    checkmate::assert_disjunct(control$pval_method, "likelihood")</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">362</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">363</td>
+                    <td class="coverage">42<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .stats = .stats,</pre>
+                      <pre class="language-r">  if (has_arm) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">364</td>
+                    <td class="coverage">36<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .formats = .formats,</pre>
+                      <pre class="language-r">    assert_df_with_factors(data, list(val = variables$arm), min.levels = 2, max.levels = 2)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">365</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">366</td>
+                    <td class="coverage">41<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .labels = .labels,</pre>
+                      <pre class="language-r">  vars &lt;- unlist(variables[c(arm_name, "covariates", "strata")], use.names = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">367</td>
+                    <td class="coverage">41<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .indent_mods = .indent_mods,</pre>
+                      <pre class="language-r">  for (i in vars) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">368</td>
+                    <td class="coverage">94<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .ungroup_stats = "count_fraction"</pre>
+                      <pre class="language-r">    if (is.factor(data[[i]])) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">369</td>
+                    <td class="coverage">82<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      attr(data[[i]], "levels") &lt;- levels(droplevels(data[[i]]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">370</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">371</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">372</td>
+                    <td class="coverage">41<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  forms &lt;- h_coxreg_univar_formulas(variables, interaction = control$interaction)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">373</td>
+                    <td class="coverage">41<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  mod &lt;- lapply(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">374</td>
+                    <td class="coverage">41<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    forms, function(x) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">375</td>
+                    <td class="coverage">90<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      survival::coxph(formula = stats::as.formula(x), data = data, ties = control$ties)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">376</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">377</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">378</td>
+                    <td class="coverage">41<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  analyze(</pre>
+                      <pre class="language-r">  structure(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">379</td>
+                    <td class="coverage">41<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt = lyt,</pre>
+                      <pre class="language-r">    list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">380</td>
+                    <td class="coverage">41<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars = var,</pre>
+                      <pre class="language-r">      mod = mod,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">381</td>
+                    <td class="coverage">41<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    afun = afun,</pre>
+                      <pre class="language-r">      data = data,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">382</td>
+                    <td class="coverage">41<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">      control = control,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">383</td>
+                    <td class="coverage">41<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nested = nested,</pre>
+                      <pre class="language-r">      vars = variables,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">384</td>
+                    <td class="coverage">41<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args = extra_args,</pre>
+                      <pre class="language-r">      at = at</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">385</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">177</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">386</td>
+                    <td class="coverage">41<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    show_labels = "hidden"</pre>
+                      <pre class="language-r">    class = "coxreg.univar"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">387</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">388</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">389</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">390</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function to prepare ADLB for `count_abnormal_by_worst_grade()`</pre>
+                      <pre class="language-r">#' @describeIn fit_coxreg Fit a multivariate Cox regression model.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">391</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">392</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">393</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' * `fit_coxreg_multivar()` returns a `coxreg.multivar` class object which is a named list</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">394</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function to prepare an ADLB data frame to be used as input in</pre>
+                      <pre class="language-r">#'   with 4 elements:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">395</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' [count_abnormal_by_worst_grade()]. The following pre-processing steps are applied:</pre>
+                      <pre class="language-r">#'   * `mod`: Cox regression model fitted by [survival::coxph()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">396</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   * `data`: The original data frame input.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">397</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   * `control`: The original control input.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">398</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   * `vars`: The variables used in the model.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">399</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">400</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' 1. `adlb` is filtered on variable `avisit` to only include post-baseline visits.</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">401</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' 2. `adlb` is filtered on variables `worst_flag_low` and `worst_flag_high` so that only</pre>
+                      <pre class="language-r">#' # fit_coxreg_multivar</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">402</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    worst grades (in either direction) are included.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">403</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' 3. From the standard lab grade variable `atoxgr`, the following two variables are derived</pre>
+                      <pre class="language-r">#' ## Cox regression: multivariate Cox regression.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">404</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'    and added to `adlb`:</pre>
+                      <pre class="language-r">#' multivar_model &lt;- fit_coxreg_multivar(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">405</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * A grade direction variable (e.g. `GRADE_DIR`). The variable takes value `"HIGH"` when</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">406</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     `atoxgr &gt; 0`, `"LOW"` when `atoxgr &lt; 0`, and `"ZERO"` otherwise.</pre>
+                      <pre class="language-r">#'     time = "time", event = "status", arm = "armcd",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">407</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * A toxicity grade variable (e.g. `GRADE_ANL`) where all negative values from `atoxgr` are</pre>
+                      <pre class="language-r">#'     covariates = c("covar1", "covar2")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">408</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     replaced by their absolute values.</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">409</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' 4. Unused factor levels are dropped from `adlb` via [droplevels()].</pre>
+                      <pre class="language-r">#'   data = dta_bladder</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">410</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">411</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">412</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param adlb (`data.frame`)\cr ADLB data frame.</pre>
+                      <pre class="language-r">#' # Example without treatment arm.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">413</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param atoxgr (`string`)\cr name of the analysis toxicity grade variable. This must be a `factor`</pre>
+                      <pre class="language-r">#' multivar_covs_model &lt;- fit_coxreg_multivar(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">414</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variable.</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">415</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param avisit (`string`)\cr name of the analysis visit variable.</pre>
+                      <pre class="language-r">#'     time = "time", event = "status",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">416</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param worst_flag_low (`string`)\cr name of the worst low lab grade flag variable. This variable is</pre>
+                      <pre class="language-r">#'     covariates = c("covar1", "covar2")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">417</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   set to `"Y"` when indicating records of worst low lab grades.</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">205</td>
+                    <td class="num">418</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param worst_flag_high (`string`)\cr name of the worst high lab grade flag variable. This variable is</pre>
+                      <pre class="language-r">#'   data = dta_bladder</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">419</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   set to `"Y"` when indicating records of worst high lab grades.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">420</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">421</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return `h_adlb_abnormal_by_worst_grade()` returns the `adlb` data frame with two new</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">422</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables: `GRADE_DIR` and `GRADE_ANL`.</pre>
+                      <pre class="language-r">fit_coxreg_multivar &lt;- function(variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">423</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</td>
+                    <td class="num">424</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [abnormal_by_worst_grade]</pre>
+                      <pre class="language-r">                                control = control_coxreg()) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">425</td>
+                    <td class="coverage">83<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_list(variables, names = "named")</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">426</td>
+                    <td class="coverage">83<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  has_arm &lt;- "arm" %in% names(variables)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">427</td>
+                    <td class="coverage">83<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  arm_name &lt;- if (has_arm) "arm" else NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">428</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">429</td>
+                    <td class="coverage">83<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (!is.null(variables$covariates)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">430</td>
+                    <td class="coverage">21<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    checkmate::assert_character(variables$covariates)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">431</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">432</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_adlb_abnormal_by_worst_grade(tern_ex_adlb) %&gt;%</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">433</td>
+                    <td class="coverage">83<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_false(control$interaction)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">434</td>
+                    <td class="coverage">83<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  assert_df_with_variables(data, variables)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">435</td>
+                    <td class="coverage">83<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  assert_list_of_variables(variables[c(arm_name, "event", "time")])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">436</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   dplyr::select(ATOXGR, GRADE_DIR, GRADE_ANL) %&gt;%</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">437</td>
+                    <td class="coverage">83<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  if (!is.null(variables$strata)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">438</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    checkmate::assert_disjunct(control$pval_method, "likelihood")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">439</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   head(10)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">440</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">441</td>
+                    <td class="coverage">82<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  form &lt;- h_coxreg_multivar_formula(variables)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">442</td>
+                    <td class="coverage">82<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  mod &lt;- survival::coxph(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">443</td>
+                    <td class="coverage">82<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    formula = stats::as.formula(form),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">444</td>
+                    <td class="coverage">82<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    data = data,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">445</td>
+                    <td class="coverage">82<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ties = control$ties</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">446</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">447</td>
+                    <td class="coverage">82<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  structure(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">448</td>
+                    <td class="coverage">82<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    list(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">449</td>
+                    <td class="coverage">82<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      mod = mod,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">450</td>
+                    <td class="coverage">82<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      data = data,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">451</td>
+                    <td class="coverage">82<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      control = control,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">452</td>
+                    <td class="coverage">82<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      vars = variables</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">453</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">454</td>
+                    <td class="coverage">82<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    class = "coxreg.multivar"</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">455</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">456</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">}</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">457</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">458</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' Muffled `car::Anova`</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">459</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">218</td>
+                    <td class="num">460</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' Applied on survival models, [car::Anova()] signal that the `strata` terms is dropped from the model formula when</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">219</td>
+                    <td class="num">461</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_adlb_abnormal_by_worst_grade &lt;- function(adlb,</pre>
+                      <pre class="language-r">#' present, this function deliberately muffles this message.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">462</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                           atoxgr = "ATOXGR",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">463</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                           avisit = "AVISIT",</pre>
+                      <pre class="language-r">#' @param mod (`coxph`)\cr Cox regression model fitted by [survival::coxph()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</td>
+                    <td class="num">464</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                           worst_flag_low = "WGRLOFL",</pre>
+                      <pre class="language-r">#' @param test_statistic (`string`)\cr the method used for estimation of p.values; `wald` (default) or `likelihood`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">223</td>
+                    <td class="num">465</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                           worst_flag_high = "WGRHIFL") {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">466</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  adlb %&gt;%</pre>
+                      <pre class="language-r">#' @return The output of [car::Anova()], with convergence message muffled.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">225</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">467</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::filter(</pre>
+                      <pre class="language-r">#'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">468</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @keywords internal</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">469</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">muffled_car_anova &lt;- function(mod, test_statistic) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">470</td>
+                    <td class="coverage">219<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      !.data[[avisit]] %in% c("SCREENING", "BASELINE"),</pre>
+                      <pre class="language-r">  tryCatch(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">471</td>
+                    <td class="coverage">219<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      .data[[worst_flag_low]] == "Y" | .data[[worst_flag_high]] == "Y"</pre>
+                      <pre class="language-r">    withCallingHandlers(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">228</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">472</td>
+                    <td class="coverage">219<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) %&gt;%</pre>
+                      <pre class="language-r">      expr = {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">229</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">473</td>
+                    <td class="coverage">219<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    dplyr::mutate(</pre>
+                      <pre class="language-r">        car::Anova(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">474</td>
+                    <td class="coverage">219<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      GRADE_DIR = factor(</pre>
+                      <pre class="language-r">          mod,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">231</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">475</td>
+                    <td class="coverage">219<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        dplyr::case_when(</pre>
+                      <pre class="language-r">          test.statistic = test_statistic,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">476</td>
+                    <td class="coverage">219<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          type = "III"</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">477</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          .data[[atoxgr]] %in% c("-1", "-2", "-3", "-4") ~ "LOW",</pre>
+                      <pre class="language-r">        )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">233</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">478</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          .data[[atoxgr]] == "0" ~ "ZERO",</pre>
+                      <pre class="language-r">      },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">479</td>
+                    <td class="coverage">219<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          .data[[atoxgr]] %in% c("1", "2", "3", "4") ~ "HIGH"</pre>
+                      <pre class="language-r">      message = function(m) invokeRestart("muffleMessage"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">235</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">480</td>
+                    <td class="coverage">219<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ),</pre>
+                      <pre class="language-r">      error = function(e) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">236</td>
+                    <td class="num">481</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        levels = c("LOW", "ZERO", "HIGH")</pre>
+                      <pre class="language-r">        stop(paste(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">237</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">482</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ),</pre>
+                      <pre class="language-r">          "the model seems to have convergence problems, please try to change",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">238</td>
+                    <td class="num">483</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      GRADE_ANL = forcats::fct_relevel(</pre>
+                      <pre class="language-r">          "the configuration of covariates or strata variables, e.g.",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">239</td>
+                    <td class="num">484</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        forcats::fct_recode(.data[[atoxgr]], `1` = "-1", `2` = "-2", `3` = "-3", `4` = "-4"),</pre>
+                      <pre class="language-r">          "- original error:", e</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">240</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">485</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        c("0", "1", "2", "3", "4")</pre>
+                      <pre class="language-r">        ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">241</td>
+                    <td class="num">486</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">242</td>
+                    <td class="num">487</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) %&gt;%</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">243</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">488</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    droplevels()</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">489</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -157682,14 +156278,14 @@ <h2>tern coverage - 95.64%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/abnormal.R" class="hidden">
+            <div id="R/h_survival_biomarkers_subgroups.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Count patients with abnormal range values</pre>
+                      <pre class="language-r">#' Helper functions for tabulating biomarker effects on survival by subgroup</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -157717,14 +156313,14 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The analyze function [count_abnormal()] creates a layout element to count patients with abnormal analysis range</pre>
+                      <pre class="language-r">#' Helper functions which are documented here separately to not confuse the user</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' values in each direction.</pre>
+                      <pre class="language-r">#' when reading about the user-facing functions.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -157738,63 +156334,63 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function analyzes primary analysis variable `var` which indicates abnormal range results.</pre>
+                      <pre class="language-r">#' @inheritParams survival_biomarkers_subgroups</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Additional analysis variables that can be supplied as a list via the `variables` parameter are</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `id` (defaults to `USUBJID`), a variable to indicate unique subject identifiers, and `baseline`</pre>
+                      <pre class="language-r">#' @inheritParams fit_coxreg_multivar</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' (defaults to `BNRIND`), a variable to indicate baseline reference ranges.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' For each direction specified via the `abnormal` parameter (e.g. High or Low), a fraction of</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' patient counts is returned, with numerator and denominator calculated as follows:</pre>
+                      <pre class="language-r">#' library(forcats)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `num`: The number of patients with this abnormality recorded while on treatment.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `denom`: The total number of patients with at least one post-baseline assessment.</pre>
+                      <pre class="language-r">#' adtte &lt;- tern_ex_adtte</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -157808,126 +156404,126 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function assumes that `df` has been filtered to only include post-baseline records.</pre>
+                      <pre class="language-r">#' # Save variable labels before data processing steps.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' adtte_labels &lt;- formatters::var_labels(adtte, fill = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param abnormal (named `list`)\cr list identifying the abnormal range level(s) in `var`. Defaults to</pre>
+                      <pre class="language-r">#' adtte_f &lt;- adtte %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `list(Low = "LOW", High = "HIGH")` but you can also group different levels into the named list,</pre>
+                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   for example, `abnormal = list(Low = c("LOW", "LOW LOW"), High = c("HIGH", "HIGH HIGH"))`.</pre>
+                      <pre class="language-r">#'   mutate(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param exclude_base_abn (`flag`)\cr whether to exclude subjects with baseline abnormality</pre>
+                      <pre class="language-r">#'     AVALU = as.character(AVALU),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   from numerator and denominator.</pre>
+                      <pre class="language-r">#'     is_event = CNSR == 0</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("abnormal")`</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to see available statistics for this function.</pre>
+                      <pre class="language-r">#' labels &lt;- c("AVALU" = adtte_labels[["AVALU"]], "is_event" = "Event Flag")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' formatters::var_labels(adtte_f)[names(labels)] &lt;- labels</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `count_abnormal()` only considers a single variable that contains multiple abnormal levels.</pre>
+                      <pre class="language-r">#' @name h_survival_biomarkers_subgroups</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `df` should be filtered to only include post-baseline records.</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * The denominator includes patients that may have other abnormal levels at baseline,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and patients missing baseline records. Patients with these abnormalities at</pre>
+                      <pre class="language-r">#' @describeIn h_survival_biomarkers_subgroups Helps with converting the "survival" function variable list</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   baseline can be optionally excluded from numerator and denominator via the</pre>
+                      <pre class="language-r">#'   to the "Cox regression" variable list. The reason is that currently there is an inconsistency between the variable</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `exclude_base_abn` parameter.</pre>
+                      <pre class="language-r">#'   names accepted by `extract_survival_subgroups()` and `fit_coxreg_multivar()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -157941,392 +156537,392 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name abnormal</pre>
+                      <pre class="language-r">#' @param biomarker (`string`)\cr the name of the biomarker variable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @include formatting_functions.R</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 1</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#' * `h_surv_to_coxreg_variables()` returns a named `list` of elements `time`, `event`, `arm`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   `covariates`, and `strata`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn abnormal Statistics function which counts patients with abnormal range values</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   for a single `abnormal` level.</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' # This is how the variable list is converted internally.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' h_surv_to_coxreg_variables(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_count_abnormal()` returns the statistic `fraction` which is a vector with `num` and `denom` counts of patients.</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     tte = "AVAL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'     is_event = "EVNT",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_count_abnormal &lt;- function(df,</pre>
+                      <pre class="language-r">#'     covariates = c("A", "B"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             .var,</pre>
+                      <pre class="language-r">#'     strata = "D"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             abnormal = list(Low = "LOW", High = "HIGH"),</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             variables = list(id = "USUBJID", baseline = "BNRIND"),</pre>
+                      <pre class="language-r">#'   biomarker = "AGE"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             exclude_base_abn = FALSE) {</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">54</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(abnormal, types = "character", names = "named", len = 2, any.missing = FALSE)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">55</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(any(unlist(abnormal) %in% levels(df[[.var]])))</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">56</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_factor(df[[.var]])</pre>
+                      <pre class="language-r">h_surv_to_coxreg_variables &lt;- function(variables, biomarker) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">57</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">65<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(exclude_base_abn)</pre>
+                      <pre class="language-r">  checkmate::assert_list(variables)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">58</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">65<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(df, c(range = .var, variables))</pre>
+                      <pre class="language-r">  checkmate::assert_string(variables$tte)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">59</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">65<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(df[[variables$baseline]], classes = c("factor", "character"))</pre>
+                      <pre class="language-r">  checkmate::assert_string(variables$is_event)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">60</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">65<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(df[[variables$id]], classes = c("factor", "character"))</pre>
+                      <pre class="language-r">  checkmate::assert_string(biomarker)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">61</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">65<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">62</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">65<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  count_abnormal_single &lt;- function(abn_name, abn) {</pre>
+                      <pre class="language-r">    time = variables$tte,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">63</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">65<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Patients in the denominator fulfill:</pre>
+                      <pre class="language-r">    event = variables$is_event,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">64</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">65<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # - have at least one post-baseline visit</pre>
+                      <pre class="language-r">    arm = biomarker,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">65</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">65<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # - their baseline must not be abnormal if `exclude_base_abn`.</pre>
+                      <pre class="language-r">    covariates = variables$covariates,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">66</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage">65<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (exclude_base_abn) {</pre>
+                      <pre class="language-r">    strata = variables$strata</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">67</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      denom_select &lt;- !(df[[variables$baseline]] %in% abn)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">69</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      denom_select &lt;- TRUE</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' @describeIn h_survival_biomarkers_subgroups Prepares estimates for number of events, patients and median survival</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">71</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    denom &lt;- length(unique(df[denom_select, variables$id, drop = TRUE]))</pre>
+                      <pre class="language-r">#'   times, as well as hazard ratio estimates, confidence intervals and p-values, for multiple biomarkers</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   in a given single data set.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Patients in the numerator fulfill:</pre>
+                      <pre class="language-r">#'   `variables` corresponds to names of variables found in `data`, passed as a named list and requires elements</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # - have at least one post-baseline visit with the required abnormality level</pre>
+                      <pre class="language-r">#'   `tte`, `is_event`, `biomarkers` (vector of continuous biomarker variables) and optionally `subgroups` and `strata`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # - are part of the denominator patients.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">76</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    num_select &lt;- (df[[.var]] %in% abn) &amp; denom_select</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">77</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    num &lt;- length(unique(df[num_select, variables$id, drop = TRUE]))</pre>
+                      <pre class="language-r">#' * `h_coxreg_mult_cont_df()` returns a `data.frame` containing estimates and statistics for the selected biomarkers.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">79</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    formatters::with_label(c(num = num, denom = denom), abn_name)</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' # For a single population, estimate separately the effects</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' # of two biomarkers.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # This will define the abnormal levels theoretically possible for a specific lab parameter</pre>
+                      <pre class="language-r">#' df &lt;- h_coxreg_mult_cont_df(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # within a split level of a layout.</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">84</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  abnormal_lev &lt;- lapply(abnormal, intersect, levels(df[[.var]]))</pre>
+                      <pre class="language-r">#'     tte = "AVAL",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">85</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  abnormal_lev &lt;- abnormal_lev[vapply(abnormal_lev, function(x) length(x) &gt; 0, logical(1))]</pre>
+                      <pre class="language-r">#'     is_event = "is_event",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     biomarkers = c("BMRKR1", "AGE"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">87</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result &lt;- sapply(names(abnormal_lev), function(i) count_abnormal_single(i, abnormal_lev[[i]]), simplify = FALSE)</pre>
+                      <pre class="language-r">#'     covariates = "SEX",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">88</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result &lt;- list(fraction = result)</pre>
+                      <pre class="language-r">#'     strata = c("STRATA1", "STRATA2")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">89</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   data = adtte_f</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn abnormal Formatted analysis function which is used as `afun` in `count_abnormal()`.</pre>
+                      <pre class="language-r">#' df</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -158340,77 +156936,77 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' # If the data set is empty, still the corresponding rows with missings are returned.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `a_count_abnormal()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
+                      <pre class="language-r">#' h_coxreg_mult_cont_df(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'     tte = "AVAL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">a_count_abnormal &lt;- make_afun(</pre>
+                      <pre class="language-r">#'     is_event = "is_event",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_count_abnormal,</pre>
+                      <pre class="language-r">#'     biomarkers = c("BMRKR1", "AGE"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats = c(fraction = format_fraction)</pre>
+                      <pre class="language-r">#'     covariates = "REGION1",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">#'     strata = c("STRATA1", "STRATA2")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn abnormal Layout-creating function which can take statistics function arguments</pre>
+                      <pre class="language-r">#'   data = adtte_f[NULL, ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -158424,592 +157020,851 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `count_abnormal()` returns a layout object suitable for passing to further layouting functions,</pre>
+                      <pre class="language-r">h_coxreg_mult_cont_df &lt;- function(variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
+                      <pre class="language-r">                                  data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the statistics from `s_count_abnormal()` to the table layout.</pre>
+                      <pre class="language-r">                                  control = control_coxreg()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">110</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">33<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if ("strat" %in% names(variables)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">111</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    warning(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">112</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">      "Warning: the `strat` element name of the `variables` list argument to `h_coxreg_mult_cont_df() ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">113</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      "was deprecated in tern 0.9.4.\n  ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">114</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- data.frame(</pre>
+                      <pre class="language-r">      "Please use the name `strata` instead of `strat` in the `variables` argument."</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   USUBJID = as.character(c(1, 1, 2, 2)),</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">116</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ANRIND = factor(c("NORMAL", "LOW", "HIGH", "HIGH")),</pre>
+                      <pre class="language-r">    variables[["strata"]] &lt;- variables[["strat"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   BNRIND = factor(c("NORMAL", "NORMAL", "HIGH", "HIGH")),</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ONTRTFL = c("", "Y", "", "Y"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">119</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">33<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">  assert_df_with_variables(data, variables)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">120</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">33<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  checkmate::assert_list(control, names = "named")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">121</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">33<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_character(variables$biomarkers, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">122</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">33<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Select only post-baseline records.</pre>
+                      <pre class="language-r">  conf_level &lt;- control[["conf_level"]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">123</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">33<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- df %&gt;%</pre>
+                      <pre class="language-r">  pval_label &lt;- paste0(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(ONTRTFL == "Y")</pre>
+                      <pre class="language-r">    # the regex capitalizes the first letter of the string / senetence.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">125</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">33<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    "p-value (", gsub("(^[a-z])", "\\U\\1", trimws(control[["pval_method"]]), perl = TRUE), ")"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Layout creating function.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">  # If there is any data, run model, otherwise return empty results.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">128</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">33<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   count_abnormal(var = "ANRIND", abnormal = list(high = "HIGH", low = "LOW")) %&gt;%</pre>
+                      <pre class="language-r">  if (nrow(data) &gt; 0) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">129</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(df)</pre>
+                      <pre class="language-r">    bm_cols &lt;- match(variables$biomarkers, names(data))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">130</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    l_result &lt;- lapply(variables$biomarkers, function(bm) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">131</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Passing of statistics function and formatting arguments.</pre>
+                      <pre class="language-r">      coxreg_list &lt;- fit_coxreg_multivar(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">132</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df2 &lt;- data.frame(</pre>
+                      <pre class="language-r">        variables = h_surv_to_coxreg_variables(variables, bm),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">133</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ID = as.character(c(1, 1, 2, 2)),</pre>
+                      <pre class="language-r">        data = data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">134</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   RANGE = factor(c("NORMAL", "LOW", "HIGH", "HIGH")),</pre>
+                      <pre class="language-r">        control = control</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   BL_RANGE = factor(c("NORMAL", "NORMAL", "HIGH", "HIGH")),</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">136</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ONTRTFL = c("", "Y", "", "Y"),</pre>
+                      <pre class="language-r">      result &lt;- do.call(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">137</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">        h_coxreg_multivar_extract,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">138</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">        c(list(var = bm), coxreg_list[c("mod", "data", "control")])</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">140</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">64<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Select only post-baseline records.</pre>
+                      <pre class="language-r">      data_fit &lt;- as.data.frame(as.matrix(coxreg_list$mod$y))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">141</td>
+                    <td class="coverage">64<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      data_fit$status &lt;- as.logical(data_fit$status)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">142</td>
+                    <td class="coverage">64<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      median &lt;- s_surv_time(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">143</td>
+                    <td class="coverage">64<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        df = data_fit,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">144</td>
+                    <td class="coverage">64<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        .var = "time",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">145</td>
+                    <td class="coverage">64<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        is_event = "status"</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">146</td>
+                    <td class="coverage">64<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      )$median</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">147</td>
+                    <td class="coverage">64<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      data.frame(</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df2 &lt;- df2 %&gt;%</pre>
+                      <pre class="language-r">        # Dummy column needed downstream to create a nested header.</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">149</td>
+                    <td class="coverage">64<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        biomarker = bm,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">150</td>
+                    <td class="coverage">64<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        biomarker_label = formatters::var_labels(data[bm], fill = TRUE),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">151</td>
+                    <td class="coverage">64<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        n_tot = coxreg_list$mod$n,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">152</td>
+                    <td class="coverage">64<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        n_tot_events = coxreg_list$mod$nevent,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">153</td>
+                    <td class="coverage">64<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        median = as.numeric(median),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">154</td>
+                    <td class="coverage">64<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        result[1L, c("hr", "lcl", "ucl")],</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">155</td>
+                    <td class="coverage">64<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        conf_level = conf_level,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">156</td>
+                    <td class="coverage">64<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        pval = result[1L, "pval"],</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">157</td>
+                    <td class="coverage">64<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        pval_label = pval_label,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">158</td>
+                    <td class="coverage">64<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(ONTRTFL == "Y")</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    })</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">161</td>
+                    <td class="coverage">32<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    do.call(rbind, args = c(l_result, make.row.names = FALSE))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">  } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">163</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    data.frame(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">164</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      biomarker = variables$biomarkers,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">165</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      biomarker_label = formatters::var_labels(data[variables$biomarkers], fill = TRUE),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">166</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      n_tot = 0L,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">167</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      n_tot_events = 0L,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">168</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      median = NA,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">169</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      hr = NA,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">170</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      lcl = NA,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">171</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      ucl = NA,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">172</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      conf_level = conf_level,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">173</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      pval = NA,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">174</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      pval_label = pval_label,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">175</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      row.names = seq_along(variables$biomarkers),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">176</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   count_abnormal(</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     var = "RANGE",</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     abnormal = list(low = "LOW", high = "HIGH"),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     variables = list(id = "ID", baseline = "BL_RANGE")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">#' @describeIn h_survival_biomarkers_subgroups Prepares a single sub-table given a `df_sub` containing</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(df2)</pre>
+                      <pre class="language-r">#'   the results for a single biomarker.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @param df (`data.frame`)\cr results for a single biomarker, as part of what is</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 2</pre>
+                      <pre class="language-r">#'   returned by [extract_survival_biomarkers()] (it needs a couple of columns which are</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">count_abnormal &lt;- function(lyt,</pre>
+                      <pre class="language-r">#'   added by that high-level function relative to what is returned by [h_coxreg_mult_cont_df()],</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           var,</pre>
+                      <pre class="language-r">#'   see the example).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           abnormal = list(Low = "LOW", High = "HIGH"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           variables = list(id = "USUBJID", baseline = "BNRIND"),</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           exclude_base_abn = FALSE,</pre>
+                      <pre class="language-r">#' * `h_tab_surv_one_biomarker()` returns an `rtables` table object with the given statistics arranged in columns.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           na_str = default_na_str(),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           nested = TRUE,</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           ...,</pre>
+                      <pre class="language-r">#' # Starting from above `df`, zoom in on one biomarker and add required columns.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           table_names = var,</pre>
+                      <pre class="language-r">#' df1 &lt;- df[1, ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           .stats = NULL,</pre>
+                      <pre class="language-r">#' df1$subgroup &lt;- "All patients"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           .formats = NULL,</pre>
+                      <pre class="language-r">#' df1$row_type &lt;- "content"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           .labels = NULL,</pre>
+                      <pre class="language-r">#' df1$var &lt;- "ALL"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           .indent_mods = NULL) {</pre>
+                      <pre class="language-r">#' df1$var_label &lt;- "All patients"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">199</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(abnormal = abnormal, variables = variables, exclude_base_abn = exclude_base_abn, ...)</pre>
+                      <pre class="language-r">#' h_tab_surv_one_biomarker(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   df1,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">201</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  afun &lt;- make_afun(</pre>
+                      <pre class="language-r">#'   vars = c("n_tot", "n_tot_events", "median", "hr", "ci", "pval"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">202</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    a_count_abnormal,</pre>
+                      <pre class="language-r">#'   time_unit = "days"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">203</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .stats = .stats,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">204</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .formats = .formats,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">205</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .labels = .labels,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">206</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .indent_mods = .indent_mods,</pre>
+                      <pre class="language-r">h_tab_surv_one_biomarker &lt;- function(df,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">207</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .ungroup_stats = "fraction"</pre>
+                      <pre class="language-r">                                     vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">                                     time_unit,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                     na_str = default_na_str(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">210</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(var)</pre>
+                      <pre class="language-r">                                     .indent_mods = 0L,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                     ...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">212</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  analyze(</pre>
+                      <pre class="language-r">  afuns &lt;- a_survival_subgroups(na_str = na_str)[vars]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">181</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">213</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt = lyt,</pre>
+                      <pre class="language-r">  colvars &lt;- d_survival_subgroups_colvars(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">182</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">214</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars = var,</pre>
+                      <pre class="language-r">    vars,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">183</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">215</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    afun = afun,</pre>
+                      <pre class="language-r">    conf_level = df$conf_level[1],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">216</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">    method = df$pval_label[1],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">217</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nested = nested,</pre>
+                      <pre class="language-r">    time_unit = time_unit</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">218</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">219</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table_names = table_names,</pre>
+                      <pre class="language-r">  h_tab_one_biomarker(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">220</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args = extra_args,</pre>
+                      <pre class="language-r">    df = df,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">221</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    show_labels = "hidden"</pre>
+                      <pre class="language-r">    afuns = afuns,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">222</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    colvars = colvars,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">223</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    na_str = na_str,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">224</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    .indent_mods = .indent_mods,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">225</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ...</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -159018,14 +157873,14 @@ <h2>tern coverage - 95.64%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/compare_variables.R" class="hidden">
+            <div id="R/h_response_biomarkers_subgroups.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Compare variables between groups</pre>
+                      <pre class="language-r">#' Helper functions for tabulating biomarker effects on binary response by subgroup</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -159053,70 +157908,70 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The analyze function [compare_vars()] creates a layout element to summarize and compare one or more variables, using</pre>
+                      <pre class="language-r">#' Helper functions which are documented here separately to not confuse the user</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the S3 generic function [s_summary()] to calculate a list of summary statistics. A list of all available statistics</pre>
+                      <pre class="language-r">#' when reading about the user-facing functions.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' for numeric variables can be viewed by running `get_stats("analyze_vars_numeric", add_pval = TRUE)` and for</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' non-numeric variables by running `get_stats("analyze_vars_counts", add_pval = TRUE)`. Use the `.stats` parameter to</pre>
+                      <pre class="language-r">#' @inheritParams response_biomarkers_subgroups</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' specify the statistics to include in your output summary table.</pre>
+                      <pre class="language-r">#' @inheritParams extract_rsp_biomarkers</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Prior to using this function in your table layout you must use [rtables::split_cols_by()] to create a column</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' split on the variable to be used in comparisons, and specify a reference group via the `ref_group` parameter.</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Comparisons can be performed for each group (column) against the specified reference group by including the p-value</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' statistic.</pre>
+                      <pre class="language-r">#' library(forcats)</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -159130,133 +157985,133 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' adrs &lt;- tern_ex_adrs</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run</pre>
+                      <pre class="language-r">#' adrs_labels &lt;- formatters::var_labels(adrs)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `get_stats("analyze_vars_numeric", add_pval = TRUE)` to see statistics available for numeric variables, and</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `get_stats("analyze_vars_counts", add_pval = TRUE)` for statistics available for non-numeric variables.</pre>
+                      <pre class="language-r">#' adrs_f &lt;- adrs %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   filter(PARAMCD == "BESRSPI") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note</pre>
+                      <pre class="language-r">#'   mutate(rsp = AVALC == "CR")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * For factor variables, `denom` for factor proportions can only be `n` since the purpose is to compare proportions</pre>
+                      <pre class="language-r">#' formatters::var_labels(adrs_f) &lt;- c(adrs_labels, "Response")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   between columns, therefore a row-based proportion would not make sense. Proportion based on `N_col` would</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   be difficult since we use counts for the chi-squared test statistic, therefore missing values should be accounted</pre>
+                      <pre class="language-r">#' @name h_response_biomarkers_subgroups</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   for as explicit factor levels.</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * If factor variables contain `NA`, these `NA` values are excluded by default. To include `NA` values</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   set `na.rm = FALSE` and missing values will be displayed as an `NA` level. Alternatively, an explicit</pre>
+                      <pre class="language-r">#' @describeIn h_response_biomarkers_subgroups helps with converting the "response" function variable list</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   factor level can be defined for `NA` values during pre-processing via [df_explicit_na()] - the</pre>
+                      <pre class="language-r">#'   to the "logistic regression" variable list. The reason is that currently there is an</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   default `na_level` (`"&lt;Missing&gt;"`) will also be excluded when `na.rm` is set to `TRUE`.</pre>
+                      <pre class="language-r">#'   inconsistency between the variable names accepted by `extract_rsp_subgroups()` and `fit_logistic()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * For character variables, automatic conversion to factor does not guarantee that the table</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   will be generated correctly. In particular for sparse tables this very likely can fail.</pre>
+                      <pre class="language-r">#' @param biomarker (`string`)\cr the name of the biomarker variable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Therefore it is always better to manually convert character variables to factors during pre-processing.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * For `compare_vars()`, the column split must define a reference group via `ref_group` so that the comparison</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   is well defined.</pre>
+                      <pre class="language-r">#' * `h_rsp_to_logistic_variables()` returns a named `list` of elements `response`, `arm`, `covariates`, and `strata`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -159270,455 +158125,455 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [s_summary()] which is used internally to compute a summary within `s_compare()`, and [a_summary()]</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   which is used (with `compare = TRUE`) as the analysis function for `compare_vars()`.</pre>
+                      <pre class="language-r">#' # This is how the variable list is converted internally.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' h_rsp_to_logistic_variables(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name compare_variables</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @include analyze_variables.R</pre>
+                      <pre class="language-r">#'     rsp = "RSP",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 1</pre>
+                      <pre class="language-r">#'     covariates = c("A", "B"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#'     strata = "D"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn compare_variables S3 generic function to produce a comparison summary.</pre>
+                      <pre class="language-r">#'   biomarker = "AGE"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_compare()` returns output of [s_summary()] and comparisons versus the reference group in the form of p-values.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">h_rsp_to_logistic_variables &lt;- function(variables, biomarker) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">49</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">49<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  if ("strat" %in% names(variables)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">50</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_compare &lt;- function(x,</pre>
+                      <pre class="language-r">    warning(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">51</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      .ref_group,</pre>
+                      <pre class="language-r">      "Warning: the `strat` element name of the `variables` list argument to `h_rsp_to_logistic_variables() ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">52</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      .in_ref_col,</pre>
+                      <pre class="language-r">      "was deprecated in tern 0.9.4.\n  ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">53</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                      ...) {</pre>
+                      <pre class="language-r">      "Please use the name `strata` instead of `strat` in the `variables` argument."</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">54</td>
-                    <td class="coverage">35<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  UseMethod("s_compare", x)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">55</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    variables[["strata"]] &lt;- variables[["strat"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">57</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">49<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn compare_variables Method for `numeric` class. This uses the standard t-test</pre>
+                      <pre class="language-r">  checkmate::assert_list(variables)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">58</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">49<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to calculate the p-value.</pre>
+                      <pre class="language-r">  checkmate::assert_string(variables$rsp)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">59</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">49<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_string(biomarker)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">60</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">49<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @method s_compare numeric</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">61</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">49<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    response = variables$rsp,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">62</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">49<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    arm = biomarker,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">63</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">49<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `s_compare.numeric`</pre>
+                      <pre class="language-r">    covariates = variables$covariates,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">64</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">49<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    strata = variables$strata</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Usual case where both this and the reference group vector have more than 1 value.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_compare(rnorm(10, 5, 1), .ref_group = rnorm(5, -5, 1), .in_ref_col = FALSE)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## If one group has not more than 1 value, then p-value is not calculated.</pre>
+                      <pre class="language-r">#' @describeIn h_response_biomarkers_subgroups prepares estimates for number of responses, patients and</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_compare(rnorm(10, 5, 1), .ref_group = 1, .in_ref_col = FALSE)</pre>
+                      <pre class="language-r">#'   overall response rate, as well as odds ratio estimates, confidence intervals and p-values, for multiple</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   biomarkers in a given single data set.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Empty numeric does not fail, it returns NA-filled items and no p-value.</pre>
+                      <pre class="language-r">#'   `variables` corresponds to names of variables found in `data`, passed as a named list and requires elements</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_compare(numeric(), .ref_group = numeric(), .in_ref_col = FALSE)</pre>
+                      <pre class="language-r">#'   `rsp` and `biomarkers` (vector of continuous biomarker variables) and optionally `covariates`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   and `strata`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_compare.numeric &lt;- function(x,</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              .ref_group,</pre>
+                      <pre class="language-r">#' * `h_logistic_mult_cont_df()` returns a `data.frame` containing estimates and statistics for the selected biomarkers.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              .in_ref_col,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              ...) {</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">79</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(x)</pre>
+                      <pre class="language-r">#' # For a single population, estimate separately the effects</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">80</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(.ref_group)</pre>
+                      <pre class="language-r">#' # of two biomarkers.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">81</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(.in_ref_col)</pre>
+                      <pre class="language-r">#' df &lt;- h_logistic_mult_cont_df(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">83</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- s_summary.numeric(x = x, ...)</pre>
+                      <pre class="language-r">#'     rsp = "rsp",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     biomarkers = c("BMRKR1", "AGE"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">85</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y$pval &lt;- if (!.in_ref_col &amp;&amp; n_available(x) &gt; 1 &amp;&amp; n_available(.ref_group) &gt; 1) {</pre>
+                      <pre class="language-r">#'     covariates = "SEX"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">86</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stats::t.test(x, .ref_group)$p.value</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#'   data = adrs_f</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">88</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    character()</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' df</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">91</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y</pre>
+                      <pre class="language-r">#' # If the data set is empty, still the corresponding rows with missings are returned.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' h_coxreg_mult_cont_df(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn compare_variables Method for `factor` class. This uses the chi-squared test</pre>
+                      <pre class="language-r">#'     rsp = "rsp",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to calculate the p-value.</pre>
+                      <pre class="language-r">#'     biomarkers = c("BMRKR1", "AGE"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     covariates = "SEX",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param denom (`string`)\cr choice of denominator for factor proportions,</pre>
+                      <pre class="language-r">#'     strata = "STRATA1"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   can only be `n` (number of values in this row and column intersection).</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   data = adrs_f[NULL, ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @method s_compare factor</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -159732,574 +158587,574 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `s_compare.factor`</pre>
+                      <pre class="language-r">h_logistic_mult_cont_df &lt;- function(variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                    data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Basic usage:</pre>
+                      <pre class="language-r">                                    control = control_logistic()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">106</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x &lt;- factor(c("a", "a", "b", "c", "a"))</pre>
+                      <pre class="language-r">  if ("strat" %in% names(variables)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">107</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' y &lt;- factor(c("a", "b", "c"))</pre>
+                      <pre class="language-r">    warning(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">108</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_compare(x = x, .ref_group = y, .in_ref_col = FALSE)</pre>
+                      <pre class="language-r">      "Warning: the `strat` element name of the `variables` list argument to `h_logistic_mult_cont_df() ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">109</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      "was deprecated in tern 0.9.4.\n  ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">110</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Management of NA values.</pre>
+                      <pre class="language-r">      "Please use the name `strata` instead of `strat` in the `variables` argument."</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x &lt;- explicit_na(factor(c("a", "a", "b", "c", "a", NA, NA)))</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">112</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' y &lt;- explicit_na(factor(c("a", "b", "c", NA)))</pre>
+                      <pre class="language-r">    variables[["strata"]] &lt;- variables[["strat"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_compare(x = x, .ref_group = y, .in_ref_col = FALSE, na.rm = TRUE)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">114</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_compare(x = x, .ref_group = y, .in_ref_col = FALSE, na.rm = FALSE)</pre>
+                      <pre class="language-r">  assert_df_with_variables(data, variables)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">116</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  checkmate::assert_character(variables$biomarkers, min.len = 1, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">117</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_compare.factor &lt;- function(x,</pre>
+                      <pre class="language-r">  checkmate::assert_list(control, names = "named")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             .ref_group,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">119</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             .in_ref_col,</pre>
+                      <pre class="language-r">  conf_level &lt;- control[["conf_level"]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">120</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             denom = "n",</pre>
+                      <pre class="language-r">  pval_label &lt;- "p-value (Wald)"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             na.rm = TRUE, # nolint</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             ...) {</pre>
+                      <pre class="language-r">  # If there is any data, run model, otherwise return empty results.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">123</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(.in_ref_col)</pre>
+                      <pre class="language-r">  if (nrow(data) &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">124</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_valid_factor(x)</pre>
+                      <pre class="language-r">    bm_cols &lt;- match(variables$biomarkers, names(data))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">125</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_valid_factor(.ref_group)</pre>
+                      <pre class="language-r">    l_result &lt;- lapply(variables$biomarkers, function(bm) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">126</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  denom &lt;- match.arg(denom)</pre>
+                      <pre class="language-r">      model_fit &lt;- fit_logistic(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">127</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        variables = h_rsp_to_logistic_variables(variables, bm),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">128</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- s_summary.factor(</pre>
+                      <pre class="language-r">        data = data,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">129</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = x,</pre>
+                      <pre class="language-r">        response_definition = control$response_definition</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">130</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    denom = denom,</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">131</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na.rm = na.rm,</pre>
+                      <pre class="language-r">      result &lt;- h_logistic_simple_terms(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">132</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ...</pre>
+                      <pre class="language-r">        x = bm,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">133</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">        fit_glm = model_fit,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">134</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        conf_level = control$conf_level</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">135</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (na.rm) {</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">136</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x &lt;- x[!is.na(x)] %&gt;% fct_discard("&lt;Missing&gt;")</pre>
+                      <pre class="language-r">      resp_vector &lt;- if (inherits(model_fit, "glm")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">137</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="coverage">38<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .ref_group &lt;- .ref_group[!is.na(.ref_group)] %&gt;% fct_discard("&lt;Missing&gt;")</pre>
+                      <pre class="language-r">        model_fit$model[[variables$rsp]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">      } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">139</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x &lt;- x %&gt;% explicit_na(label = "NA")</pre>
+                      <pre class="language-r">        as.logical(as.matrix(model_fit$y)[, "status"])</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">140</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .ref_group &lt;- .ref_group %&gt;% explicit_na(label = "NA")</pre>
+                      <pre class="language-r">      }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">141</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        # Dummy column needed downstream to create a nested header.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">143</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if ("NA" %in% levels(x)) levels(.ref_group) &lt;- c(levels(.ref_group), "NA")</pre>
+                      <pre class="language-r">        biomarker = bm,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">144</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_factor(x, levels = levels(.ref_group), min.levels = 2)</pre>
+                      <pre class="language-r">        biomarker_label = formatters::var_labels(data[bm], fill = TRUE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">145</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        n_tot = length(resp_vector),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">146</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y$pval_counts &lt;- if (!.in_ref_col &amp;&amp; length(x) &gt; 0 &amp;&amp; length(.ref_group) &gt; 0) {</pre>
+                      <pre class="language-r">        n_rsp = sum(resp_vector),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">147</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    tab &lt;- rbind(table(x), table(.ref_group))</pre>
+                      <pre class="language-r">        prop = mean(resp_vector),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">148</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    res &lt;- suppressWarnings(stats::chisq.test(tab))</pre>
+                      <pre class="language-r">        or = as.numeric(result[1L, "odds_ratio"]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">149</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    res$p.value</pre>
+                      <pre class="language-r">        lcl = as.numeric(result[1L, "lcl"]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">150</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">        ucl = as.numeric(result[1L, "ucl"]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">151</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    character()</pre>
+                      <pre class="language-r">        conf_level = conf_level,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">152</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        pval = as.numeric(result[1L, "pvalue"]),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">153</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        pval_label = pval_label,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">154</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage">48<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y</pre>
+                      <pre class="language-r">        stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">157</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn compare_variables Method for `character` class. This makes an automatic</pre>
+                      <pre class="language-r">    do.call(rbind, args = c(l_result, make.row.names = FALSE))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   conversion to `factor` (with a warning) and then forwards to the method for factors.</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">159</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">160</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param verbose (`flag`)\cr whether warnings and messages should be printed. Mainly used</pre>
+                      <pre class="language-r">      biomarker = variables$biomarkers,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">161</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to print out information about factor casting. Defaults to `TRUE`.</pre>
+                      <pre class="language-r">      biomarker_label = formatters::var_labels(data[variables$biomarkers], fill = TRUE),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">162</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      n_tot = 0L,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">163</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @method s_compare character</pre>
+                      <pre class="language-r">      n_rsp = 0L,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">164</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      prop = NA,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">165</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">      or = NA,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">166</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `s_compare.character`</pre>
+                      <pre class="language-r">      lcl = NA,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">167</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      ucl = NA,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">168</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Basic usage:</pre>
+                      <pre class="language-r">      conf_level = conf_level,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">169</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x &lt;- c("a", "a", "b", "c", "a")</pre>
+                      <pre class="language-r">      pval = NA,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">170</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' y &lt;- c("a", "b", "c")</pre>
+                      <pre class="language-r">      pval_label = pval_label,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">171</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_compare(x, .ref_group = y, .in_ref_col = FALSE, .var = "x", verbose = FALSE)</pre>
+                      <pre class="language-r">      row.names = seq_along(variables$biomarkers),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">172</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Note that missing values handling can make a large difference:</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x &lt;- c("a", "a", "b", "c", "a", NA)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' y &lt;- c("a", "b", "c", rep(NA, 20))</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_compare(x,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .ref_group = y, .in_ref_col = FALSE,</pre>
+                      <pre class="language-r">#' @describeIn h_response_biomarkers_subgroups Prepares a single sub-table given a `df_sub` containing</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .var = "x", verbose = FALSE</pre>
+                      <pre class="language-r">#'   the results for a single biomarker.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_compare(x,</pre>
+                      <pre class="language-r">#' @param df (`data.frame`)\cr results for a single biomarker, as part of what is</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .ref_group = y, .in_ref_col = FALSE, .var = "x",</pre>
+                      <pre class="language-r">#'   returned by [extract_rsp_biomarkers()] (it needs a couple of columns which are</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   na.rm = FALSE, verbose = FALSE</pre>
+                      <pre class="language-r">#'   added by that high-level function relative to what is returned by [h_logistic_mult_cont_df()],</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   see the example).</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -160313,2887 +159168,2795 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_compare.character &lt;- function(x,</pre>
+                      <pre class="language-r">#' * `h_tab_rsp_one_biomarker()` returns an `rtables` table object with the given statistics arranged in columns.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                .ref_group,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                .in_ref_col,</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                denom = "n",</pre>
+                      <pre class="language-r">#' # Starting from above `df`, zoom in on one biomarker and add required columns.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                na.rm = TRUE, # nolint</pre>
+                      <pre class="language-r">#' df1 &lt;- df[1, ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                .var,</pre>
+                      <pre class="language-r">#' df1$subgroup &lt;- "All patients"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                verbose = TRUE,</pre>
+                      <pre class="language-r">#' df1$row_type &lt;- "content"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                ...) {</pre>
+                      <pre class="language-r">#' df1$var &lt;- "ALL"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">194</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x &lt;- as_factor_keep_attributes(x, verbose = verbose)</pre>
+                      <pre class="language-r">#' df1$var_label &lt;- "All patients"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">195</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .ref_group &lt;- as_factor_keep_attributes(.ref_group, verbose = verbose)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">196</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_compare(</pre>
+                      <pre class="language-r">#' h_tab_rsp_one_biomarker(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">197</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = x,</pre>
+                      <pre class="language-r">#'   df1,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">198</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .ref_group = .ref_group,</pre>
+                      <pre class="language-r">#'   vars = c("n_tot", "n_rsp", "prop", "or", "ci", "pval")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">199</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .in_ref_col = .in_ref_col,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">200</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    denom = denom,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">201</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na.rm = na.rm,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ...</pre>
+                      <pre class="language-r">h_tab_rsp_one_biomarker &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">                                    vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">                                    na_str = default_na_str(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">205</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                    .indent_mods = 0L) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">206</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn compare_variables Method for `logical` class. A chi-squared test</pre>
+                      <pre class="language-r">  afuns &lt;- a_response_subgroups(na_str = na_str)[vars]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">207</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   is used. If missing values are not removed, then they are counted as `FALSE`.</pre>
+                      <pre class="language-r">  colvars &lt;- d_rsp_subgroups_colvars(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">208</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    vars,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">209</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @method s_compare logical</pre>
+                      <pre class="language-r">    conf_level = df$conf_level[1],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">210</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    method = df$pval_label[1]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">212</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `s_compare.logical`</pre>
+                      <pre class="language-r">  h_tab_one_biomarker(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">213</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    df = df,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">214</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Basic usage:</pre>
+                      <pre class="language-r">    afuns = afuns,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">215</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x &lt;- c(TRUE, FALSE, TRUE, TRUE)</pre>
+                      <pre class="language-r">    colvars = colvars,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">216</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' y &lt;- c(FALSE, FALSE, TRUE)</pre>
+                      <pre class="language-r">    na_str = na_str,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">217</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_compare(x, .ref_group = y, .in_ref_col = FALSE)</pre>
+                      <pre class="language-r">    .indent_mods = .indent_mods</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Management of NA values.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/count_patients_events_in_cols.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x &lt;- c(NA, TRUE, FALSE)</pre>
+                      <pre class="language-r">#' Count patient events in columns</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' y &lt;- c(NA, NA, NA, NA, FALSE)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_compare(x, .ref_group = y, .in_ref_col = FALSE, na.rm = TRUE)</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">223</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_compare(x, .ref_group = y, .in_ref_col = FALSE, na.rm = FALSE)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' The summarize function [summarize_patients_events_in_cols()] creates a layout element to summarize patient</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' event counts in columns.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_compare.logical &lt;- function(x,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              .ref_group,</pre>
+                      <pre class="language-r">#' This function analyzes the elements (events) supplied via the `filters_list` parameter and returns a row</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              .in_ref_col,</pre>
+                      <pre class="language-r">#' with counts of number of patients for each event as well as the total numbers of patients and events.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              na.rm = TRUE, # nolint</pre>
+                      <pre class="language-r">#' The `id` variable is used to indicate unique subject identifiers (defaults to `USUBJID`).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              denom = "n",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">231</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              ...) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  denom &lt;- match.arg(denom)</pre>
+                      <pre class="language-r">#' If there are multiple occurrences of the same event recorded for a patient, the event is only counted once.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- s_summary.logical(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">235</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    x = x,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">236</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    na.rm = na.rm,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">237</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    denom = denom,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">238</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ...</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @param filters_list (named `list` of `character`)\cr list where each element in this list describes one</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">241</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (na.rm) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">242</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    x &lt;- stats::na.omit(x)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">243</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    .ref_group &lt;- stats::na.omit(.ref_group)</pre>
+                      <pre class="language-r">#'   type of event describe by filters, in the same format as [s_count_patients_with_event()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">245</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    x[is.na(x)] &lt;- FALSE</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">246</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    .ref_group[is.na(.ref_group)] &lt;- FALSE</pre>
+                      <pre class="language-r">#'   If it has a label, then this will be used for the column title.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">247</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @param empty_stats (`character`)\cr optional names of the statistics that should be returned empty such</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">249</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  y$pval_counts &lt;- if (!.in_ref_col &amp;&amp; length(x) &gt; 0 &amp;&amp; length(.ref_group) &gt; 0) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">250</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    x &lt;- factor(x, levels = c(TRUE, FALSE))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">251</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    .ref_group &lt;- factor(.ref_group, levels = c(TRUE, FALSE))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">252</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    tbl &lt;- rbind(table(x), table(.ref_group))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">253</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    suppressWarnings(prop_chisq(tbl))</pre>
+                      <pre class="language-r">#'   that corresponding table cells will stay blank.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">255</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    character()</pre>
+                      <pre class="language-r">#' @param custom_label (`string` or `NULL`)\cr if provided and `labelstr` is empty then this will</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">256</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   be used as label.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">258</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  y</pre>
+                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">259</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   `get_stats("summarize_patients_events_in_cols")` to see available statistics for this function, in addition</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">260</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   to any added using `filters_list`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">261</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn compare_variables Layout-creating function which can take statistics function arguments</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
+                      <pre class="language-r">#' @name count_patients_events_in_cols</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">263</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @order 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">264</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... arguments passed to `s_compare()`.</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .indent_mods (named `integer`)\cr indent modifiers for the labels. Each element of the vector</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">266</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   should be a name-value pair with name corresponding to a statistic specified in `.stats` and value the indentation</pre>
+                      <pre class="language-r">#' @describeIn count_patients_events_in_cols Statistics function which counts numbers of patients and multiple</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   for that statistic's row label.</pre>
+                      <pre class="language-r">#'   events defined by filters. Used as analysis function `afun` in `summarize_patients_events_in_cols()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `compare_vars()` returns a layout object suitable for passing to further layouting functions,</pre>
+                      <pre class="language-r">#' * `s_count_patients_and_multiple_events()` returns a list with the statistics:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">271</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
+                      <pre class="language-r">#'   - `unique`: number of unique patients in `df`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the statistics from `s_compare()` to the table layout.</pre>
+                      <pre class="language-r">#'   - `all`: number of rows in `df`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">273</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   - one element with the same name as in `filters_list`: number of rows in `df`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">274</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'     i.e. events, fulfilling the filter condition.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `compare_vars()` in `rtables` pipelines</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">276</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">277</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Default output within a `rtables` pipeline.</pre>
+                      <pre class="language-r">s_count_patients_and_multiple_events &lt;- function(df, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">                                                 id,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARMCD", ref_group = "ARM B") %&gt;%</pre>
+                      <pre class="language-r">                                                 filters_list,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   compare_vars(c("AGE", "SEX"))</pre>
+                      <pre class="language-r">                                                 empty_stats = character(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">281</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' build_table(lyt, tern_ex_adsl)</pre>
+                      <pre class="language-r">                                                 labelstr = "",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">282</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                                 custom_label = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">283</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">47</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Select and format statistics output.</pre>
+                      <pre class="language-r">  checkmate::assert_list(filters_list, names = "named")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">284</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">48</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">  checkmate::assert_data_frame(df)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">285</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">49</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARMCD", ref_group = "ARM C") %&gt;%</pre>
+                      <pre class="language-r">  checkmate::assert_string(id)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">286</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">50</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   compare_vars(</pre>
+                      <pre class="language-r">  checkmate::assert_disjunct(c("unique", "all"), names(filters_list))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">287</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">51</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     vars = "AGE",</pre>
+                      <pre class="language-r">  checkmate::assert_character(empty_stats)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">288</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">52</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .stats = c("mean_sd", "pval"),</pre>
+                      <pre class="language-r">  checkmate::assert_string(labelstr)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">289</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">53</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .formats = c(mean_sd = "xx.x, xx.x"),</pre>
+                      <pre class="language-r">  checkmate::assert_string(custom_label, null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .labels = c(mean_sd = "Mean, SD")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">291</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">  # Below we want to count each row in `df` once, therefore introducing this helper index column.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">292</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">56</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' build_table(lyt, df = tern_ex_adsl)</pre>
+                      <pre class="language-r">  df$.row_index &lt;- as.character(seq_len(nrow(df)))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">293</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">57</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  y &lt;- list()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">294</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">58</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  row_label &lt;- if (labelstr != "") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">295</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">59</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 2</pre>
+                      <pre class="language-r">    labelstr</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">296</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">60</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">compare_vars &lt;- function(lyt,</pre>
+                      <pre class="language-r">  } else if (!is.null(custom_label)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">297</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">61</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         vars,</pre>
+                      <pre class="language-r">    custom_label</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">298</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         var_labels = vars,</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">299</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">63</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         na_str = default_na_str(),</pre>
+                      <pre class="language-r">    "counts"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">300</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         nested = TRUE,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">301</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">65</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         ...,</pre>
+                      <pre class="language-r">  y$unique &lt;- formatters::with_label(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">302</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">66</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         na.rm = TRUE, # nolint</pre>
+                      <pre class="language-r">    s_num_patients_content(df = df, .N_col = 1, .var = id, required = NULL)$unique[1L],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">303</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">67</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         show_labels = "default",</pre>
+                      <pre class="language-r">    row_label</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">304</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         table_names = vars,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">305</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">69</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         section_div = NA_character_,</pre>
+                      <pre class="language-r">  y$all &lt;- formatters::with_label(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">306</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">70</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         .stats = c("n", "mean_sd", "count_fraction", "pval"),</pre>
+                      <pre class="language-r">    nrow(df),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">307</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">71</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         .formats = NULL,</pre>
+                      <pre class="language-r">    row_label</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">308</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         .labels = NULL,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">309</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">73</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         .indent_mods = NULL) {</pre>
+                      <pre class="language-r">  events &lt;- Map(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">310</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">74</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(.stats = .stats, na.rm = na.rm, na_str = na_str, compare = TRUE, ...)</pre>
+                      <pre class="language-r">    function(filters) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">311</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">75</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      formatters::with_label(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">312</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">76</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(.formats)) extra_args[[".formats"]] &lt;- .formats</pre>
+                      <pre class="language-r">        s_count_patients_with_event(df = df, .var = ".row_index", filters = filters, .N_col = 1, .N_row = 1)$count,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">313</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">77</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(.labels)) extra_args[[".labels"]] &lt;- .labels</pre>
+                      <pre class="language-r">        row_label</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">314</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">78</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(.indent_mods)) extra_args[[".indent_mods"]] &lt;- .indent_mods</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">315</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">316</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">80</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  analyze(</pre>
+                      <pre class="language-r">    filters = filters_list</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">317</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">81</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt = lyt,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">318</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">82</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars = vars,</pre>
+                      <pre class="language-r">  y_complete &lt;- c(y, events)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">319</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">83</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_labels = var_labels,</pre>
+                      <pre class="language-r">  y &lt;- if (length(empty_stats) &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">320</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">84</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    afun = a_summary,</pre>
+                      <pre class="language-r">    y_reduced &lt;- y_complete</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">321</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">85</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">    for (stat in intersect(names(y_complete), empty_stats)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">322</td>
+                    <td class="num">86</td>
                     <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nested = nested,</pre>
+                      <pre class="language-r">      y_reduced[[stat]] &lt;- formatters::with_label(character(), obj_label(y_reduced[[stat]]))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">323</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">87</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args = extra_args,</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">324</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">88</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    inclNAs = TRUE,</pre>
+                      <pre class="language-r">    y_reduced</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">325</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">89</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    show_labels = show_labels,</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">326</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">90</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table_names = table_names,</pre>
+                      <pre class="language-r">    y_complete</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">91</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">327</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">92</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    section_div = section_div</pre>
+                      <pre class="language-r">  y</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">328</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">329</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/split_cols_by_groups.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Convert list of groups to a data frame</pre>
+                      <pre class="language-r">#' @describeIn count_patients_events_in_cols Layout-creating function which can take statistics function</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">96</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   arguments and additional format arguments. This function is a wrapper for [rtables::summarize_row_groups()].</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This converts a list of group levels into a data frame format which is expected by [rtables::add_combo_levels()].</pre>
+                      <pre class="language-r">#' @param col_split (`flag`)\cr whether the columns should be split.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">99</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   Set to `FALSE` when the required column split has been done already earlier in the layout pipe.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param groups_list (named `list` of `character`)\cr specifies the new group levels via the names and the</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   levels that belong to it in the character vectors that are elements of the list.</pre>
+                      <pre class="language-r">#' * `summarize_patients_events_in_cols()` returns a layout object suitable for passing to further layouting functions,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted content rows</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `tibble` in the required format.</pre>
+                      <pre class="language-r">#'   containing the statistics from `s_count_patients_and_multiple_events()` to the table layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' grade_groups &lt;- list(</pre>
+                      <pre class="language-r">#' df &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "Any Grade (%)" = c("1", "2", "3", "4", "5"),</pre>
+                      <pre class="language-r">#'   USUBJID = rep(c("id1", "id2", "id3", "id4"), c(2, 3, 1, 1)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "Grade 3-4 (%)" = c("3", "4"),</pre>
+                      <pre class="language-r">#'   ARM = c("A", "A", "B", "B", "B", "B", "A"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "Grade 5 (%)" = "5"</pre>
+                      <pre class="language-r">#'   AESER = rep("Y", 7),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   AESDTH = c("Y", "Y", "N", "Y", "Y", "N", "N"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' groups_list_to_df(grade_groups)</pre>
+                      <pre class="language-r">#'   AEREL = c("Y", "Y", "N", "Y", "Y", "N", "Y"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   AEDECOD = c("A", "A", "A", "B", "B", "C", "D"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'   AEBODSYS = rep(c("SOC1", "SOC2", "SOC3"), c(3, 3, 1))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">groups_list_to_df &lt;- function(groups_list) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">20</td>
-                    <td class="coverage">5<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(groups_list, names = "named")</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">21</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">116</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lapply(groups_list, checkmate::assert_character)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">22</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">117</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tibble::tibble(</pre>
+                      <pre class="language-r">#' # `summarize_patients_events_in_cols()`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">23</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">118</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    valname = make_names(names(groups_list)),</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">24</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">119</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label = names(groups_list),</pre>
+                      <pre class="language-r">#'   summarize_patients_events_in_cols(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">25</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">120</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    levelcombo = unname(groups_list),</pre>
+                      <pre class="language-r">#'     filters_list = list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">26</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">121</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    exargs = replicate(length(groups_list), list())</pre>
+                      <pre class="language-r">#'       related = formatters::with_label(c(AEREL = "Y"), "Events (Related)"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'       fatal = c(AESDTH = "Y"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'       fatal_related = c(AEREL = "Y", AESDTH = "Y")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Reference and treatment group combination</pre>
+                      <pre class="language-r">#'     custom_label = "%s Total number of patients and events"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#'   build_table(df)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Facilitate the re-combination of groups divided as reference and treatment groups; it helps in arranging groups of</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' columns in the `rtables` framework and teal modules.</pre>
+                      <pre class="language-r">#' @order 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">summarize_patients_events_in_cols &lt;- function(lyt, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param fct (`factor`)\cr the variable with levels which needs to be grouped.</pre>
+                      <pre class="language-r">                                              id = "USUBJID",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ref (`character`)\cr the reference level(s).</pre>
+                      <pre class="language-r">                                              filters_list = list(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param collapse (`string`)\cr a character string to separate `fct` and `ref`.</pre>
+                      <pre class="language-r">                                              empty_stats = character(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                              na_str = default_na_str(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `list` with first item `ref` (reference) and second item `trt` (treatment).</pre>
+                      <pre class="language-r">                                              ...,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                              .stats = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">                                                "unique",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' groups &lt;- combine_groups(</pre>
+                      <pre class="language-r">                                                "all",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   fct = DM$ARM,</pre>
+                      <pre class="language-r">                                                names(filters_list)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ref = c("B: Placebo")</pre>
+                      <pre class="language-r">                                              ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">                                              .labels = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                                unique = "Patients (All)",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">                                                all = "Events (All)",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by_groups("ARM", groups) %&gt;%</pre>
+                      <pre class="language-r">                                                labels_or_names(filters_list)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                      <pre class="language-r">                                              ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze_vars("AGE") %&gt;%</pre>
+                      <pre class="language-r">                                              col_split = TRUE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">53</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">148</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(DM)</pre>
+                      <pre class="language-r">  extra_args &lt;- list(id = id, filters_list = filters_list, empty_stats = empty_stats, ...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">55</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">150</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  afun_list &lt;- Map(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">151</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">combine_groups &lt;- function(fct,</pre>
+                      <pre class="language-r">    function(stat) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">57</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">152</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           ref = NULL,</pre>
+                      <pre class="language-r">      make_afun(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">58</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">153</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           collapse = "/") {</pre>
+                      <pre class="language-r">        s_count_patients_and_multiple_events,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">154</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(collapse)</pre>
+                      <pre class="language-r">        .stats = stat,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">155</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(ref, min.chars = 1, any.missing = FALSE, null.ok = TRUE)</pre>
+                      <pre class="language-r">        .formats = "xx."</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">156</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(fct, classes = c("factor", "character"))</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    },</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">158</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  fct &lt;- as_factor_keep_attributes(fct)</pre>
+                      <pre class="language-r">    stat = .stats</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">160</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  group_levels &lt;- levels(fct)</pre>
+                      <pre class="language-r">  if (col_split) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">161</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(ref)) {</pre>
+                      <pre class="language-r">    lyt &lt;- split_cols_by_multivar(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">67</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">162</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ref &lt;- group_levels[1]</pre>
+                      <pre class="language-r">      lyt = lyt,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">68</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">163</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">      vars = rep(id, length(.stats)),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">69</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">164</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_subset(ref, group_levels)</pre>
+                      <pre class="language-r">      varlabels = .labels[.stats]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">167</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  groups &lt;- list(</pre>
+                      <pre class="language-r">  summarize_row_groups(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">73</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">168</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ref = group_levels[group_levels %in% ref],</pre>
+                      <pre class="language-r">    lyt = lyt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">169</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    trt = group_levels[!group_levels %in% ref]</pre>
+                      <pre class="language-r">    cfun = afun_list,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">75</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">170</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    na_str = na_str,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">171</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  stats::setNames(groups, nm = lapply(groups, paste, collapse = collapse))</pre>
+                      <pre class="language-r">    extra_args = extra_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/abnormal.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Split columns by groups of levels</pre>
+                      <pre class="language-r">#' Count patients with abnormal range values</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' The analyze function [count_abnormal()] creates a layout element to count patients with abnormal analysis range</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams groups_list_to_df</pre>
+                      <pre class="language-r">#' values in each direction.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... additional arguments to [rtables::split_cols_by()] in order. For instance, to</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   control formats (`format`), add a joint column for all groups (`incl_all`).</pre>
+                      <pre class="language-r">#' This function analyzes primary analysis variable `var` which indicates abnormal range results.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Additional analysis variables that can be supplied as a list via the `variables` parameter are</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A layout object suitable for passing to further layouting functions. Adding</pre>
+                      <pre class="language-r">#' `id` (defaults to `USUBJID`), a variable to indicate unique subject identifiers, and `baseline`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   this function to an `rtable` layout will add a column split including the given</pre>
+                      <pre class="language-r">#' (defaults to `BNRIND`), a variable to indicate baseline reference ranges.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   groups to the table layout.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' For each direction specified via the `abnormal` parameter (e.g. High or Low), a fraction of</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [rtables::split_cols_by()]</pre>
+                      <pre class="language-r">#' patient counts is returned, with numerator and denominator calculated as follows:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   * `num`: The number of patients with this abnormality recorded while on treatment.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   * `denom`: The total number of patients with at least one post-baseline assessment.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # 1 - Basic use</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' This function assumes that `df` has been filtered to only include post-baseline records.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Without group combination `split_cols_by_groups` is</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # equivalent to [rtables::split_cols_by()].</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">#' @param abnormal (named `list`)\cr list identifying the abnormal range level(s) in `var`. Defaults to</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by_groups("ARM") %&gt;%</pre>
+                      <pre class="language-r">#'   `list(Low = "LOW", High = "HIGH")` but you can also group different levels into the named list,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                      <pre class="language-r">#'   for example, `abnormal = list(Low = c("LOW", "LOW LOW"), High = c("HIGH", "HIGH HIGH"))`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze("AGE") %&gt;%</pre>
+                      <pre class="language-r">#' @param exclude_base_abn (`flag`)\cr whether to exclude subjects with baseline abnormality</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(DM)</pre>
+                      <pre class="language-r">#'   from numerator and denominator.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("abnormal")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Add a reference column.</pre>
+                      <pre class="language-r">#'   to see available statistics for this function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by_groups("ARM", ref_group = "B: Placebo") %&gt;%</pre>
+                      <pre class="language-r">#' @note</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                      <pre class="language-r">#' * `count_abnormal()` only considers a single variable that contains multiple abnormal levels.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze(</pre>
+                      <pre class="language-r">#' * `df` should be filtered to only include post-baseline records.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "AGE",</pre>
+                      <pre class="language-r">#' * The denominator includes patients that may have other abnormal levels at baseline,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     afun = function(x, .ref_group, .in_ref_col) {</pre>
+                      <pre class="language-r">#'   and patients missing baseline records. Patients with these abnormalities at</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       if (.in_ref_col) {</pre>
+                      <pre class="language-r">#'   baseline can be optionally excluded from numerator and denominator via the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         in_rows("Diff Mean" = rcell(NULL))</pre>
+                      <pre class="language-r">#'   `exclude_base_abn` parameter.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       } else {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         in_rows("Diff Mean" = rcell(mean(x) - mean(.ref_group), format = "xx.xx"))</pre>
+                      <pre class="language-r">#' @name abnormal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       }</pre>
+                      <pre class="language-r">#' @include formatting_functions.R</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     }</pre>
+                      <pre class="language-r">#' @order 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(DM)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @describeIn abnormal Statistics function which counts patients with abnormal range values</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # 2 - Adding group specification</pre>
+                      <pre class="language-r">#'   for a single `abnormal` level.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Manual preparation of the groups.</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' groups &lt;- list(</pre>
+                      <pre class="language-r">#' * `s_count_abnormal()` returns the statistic `fraction` which is a vector with `num` and `denom` counts of patients.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "Arms A+B" = c("A: Drug X", "B: Placebo"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   "Arms A+C" = c("A: Drug X", "C: Combination")</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">s_count_abnormal &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                             .var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Use of split_cols_by_groups without reference column.</pre>
+                      <pre class="language-r">                             abnormal = list(Low = "LOW", High = "HIGH"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">                             variables = list(id = "USUBJID", baseline = "BNRIND"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by_groups("ARM", groups) %&gt;%</pre>
+                      <pre class="language-r">                             exclude_base_abn = FALSE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">132</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">54</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                      <pre class="language-r">  checkmate::assert_list(abnormal, types = "character", names = "named", len = 2, any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">133</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">55</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze("AGE") %&gt;%</pre>
+                      <pre class="language-r">  checkmate::assert_true(any(unlist(abnormal) %in% levels(df[[.var]])))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">134</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">56</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(DM)</pre>
+                      <pre class="language-r">  checkmate::assert_factor(df[[.var]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">135</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">57</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_flag(exclude_base_abn)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">136</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">58</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Including differentiated output in the reference column.</pre>
+                      <pre class="language-r">  assert_df_with_variables(df, c(range = .var, variables))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">137</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">59</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(df[[variables$baseline]], classes = c("factor", "character"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">138</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">60</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by_groups("ARM", groups_list = groups, ref_group = "Arms A+B") %&gt;%</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(df[[variables$id]], classes = c("factor", "character"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">140</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">62</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "AGE",</pre>
+                      <pre class="language-r">  count_abnormal_single &lt;- function(abn_name, abn) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     afun = function(x, .ref_group, .in_ref_col) {</pre>
+                      <pre class="language-r">    # Patients in the denominator fulfill:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       if (.in_ref_col) {</pre>
+                      <pre class="language-r">    # - have at least one post-baseline visit</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         in_rows("Diff. of Averages" = rcell(NULL))</pre>
+                      <pre class="language-r">    # - their baseline must not be abnormal if `exclude_base_abn`.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">144</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">66</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       } else {</pre>
+                      <pre class="language-r">    if (exclude_base_abn) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">145</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">67</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         in_rows("Diff. of Averages" = rcell(mean(x) - mean(.ref_group), format = "xx.xx"))</pre>
+                      <pre class="language-r">      denom_select &lt;- !(df[[variables$baseline]] %in% abn)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       }</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">147</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">69</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     }</pre>
+                      <pre class="language-r">      denom_select &lt;- TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">149</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">71</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(DM)</pre>
+                      <pre class="language-r">    denom &lt;- length(unique(df[denom_select, variables$id, drop = TRUE]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # 3 - Binary list dividing factor levels into reference and treatment</pre>
+                      <pre class="language-r">    # Patients in the numerator fulfill:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    # - have at least one post-baseline visit with the required abnormality level</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `combine_groups` defines reference and treatment.</pre>
+                      <pre class="language-r">    # - are part of the denominator patients.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">154</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">76</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' groups &lt;- combine_groups(</pre>
+                      <pre class="language-r">    num_select &lt;- (df[[.var]] %in% abn) &amp; denom_select</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">155</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">77</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   fct = DM$ARM,</pre>
+                      <pre class="language-r">    num &lt;- length(unique(df[num_select, variables$id, drop = TRUE]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ref = c("A: Drug X", "B: Placebo")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">157</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">79</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    formatters::with_label(c(num = num, denom = denom), abn_name)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' groups</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Use group definition without reference column.</pre>
+                      <pre class="language-r">  # This will define the abnormal levels theoretically possible for a specific lab parameter</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">  # within a split level of a layout.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">162</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">84</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by_groups("ARM", groups_list = groups) %&gt;%</pre>
+                      <pre class="language-r">  abnormal_lev &lt;- lapply(abnormal, intersect, levels(df[[.var]]))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">163</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">85</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                      <pre class="language-r">  abnormal_lev &lt;- abnormal_lev[vapply(abnormal_lev, function(x) length(x) &gt; 0, logical(1))]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze("AGE") %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">165</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">87</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(DM)</pre>
+                      <pre class="language-r">  result &lt;- sapply(names(abnormal_lev), function(i) count_abnormal_single(i, abnormal_lev[[i]]), simplify = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">166</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">88</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  result &lt;- list(fraction = result)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">167</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">89</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Use group definition with reference column (first item of groups).</pre>
+                      <pre class="language-r">  result</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by_groups("ARM", groups, ref_group = names(groups)[1]) %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                      <pre class="language-r">#' @describeIn abnormal Formatted analysis function which is used as `afun` in `count_abnormal()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "AGE",</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     afun = function(x, .ref_group, .in_ref_col) {</pre>
+                      <pre class="language-r">#' * `a_count_abnormal()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       if (.in_ref_col) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         in_rows("Diff Mean" = rcell(NULL))</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       } else {</pre>
+                      <pre class="language-r">a_count_abnormal &lt;- make_afun(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'         in_rows("Diff Mean" = rcell(mean(x) - mean(.ref_group), format = "xx.xx"))</pre>
+                      <pre class="language-r">  s_count_abnormal,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       }</pre>
+                      <pre class="language-r">  .formats = c(fraction = format_fraction)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     }</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(DM)</pre>
+                      <pre class="language-r">#' @describeIn abnormal Layout-creating function which can take statistics function arguments</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">split_cols_by_groups &lt;- function(lyt,</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 var,</pre>
+                      <pre class="language-r">#' * `count_abnormal()` returns a layout object suitable for passing to further layouting functions,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 groups_list = NULL,</pre>
+                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 ref_group = NULL,</pre>
+                      <pre class="language-r">#'   the statistics from `s_count_abnormal()` to the table layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 ...) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">111</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(groups_list)) {</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">112</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    split_cols_by(</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">113</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt = lyt,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">114</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      var = var,</pre>
+                      <pre class="language-r">#' df &lt;- data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">193</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">115</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ref_group = ref_group,</pre>
+                      <pre class="language-r">#'   USUBJID = as.character(c(1, 1, 2, 2)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ...</pre>
+                      <pre class="language-r">#'   ANRIND = factor(c("NORMAL", "LOW", "HIGH", "HIGH")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'   BNRIND = factor(c("NORMAL", "NORMAL", "HIGH", "HIGH")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#'   ONTRTFL = c("", "Y", "", "Y"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">197</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">119</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    groups_df &lt;- groups_list_to_df(groups_list)</pre>
+                      <pre class="language-r">#'   stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">198</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">120</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.null(ref_group)) {</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">121</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ref_group &lt;- groups_df$valname[groups_df$label == ref_group]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' # Select only post-baseline records.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">201</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">123</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    split_cols_by(</pre>
+                      <pre class="language-r">#' df &lt;- df %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">202</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">124</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt = lyt,</pre>
+                      <pre class="language-r">#'   filter(ONTRTFL == "Y")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">203</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">125</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      var = var,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">204</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">126</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      split_fun = add_combo_levels(groups_df, keep_levels = groups_df$valname),</pre>
+                      <pre class="language-r">#' # Layout creating function.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">205</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">127</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ref_group = ref_group,</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ...</pre>
+                      <pre class="language-r">#'   count_abnormal(var = "ANRIND", abnormal = list(high = "HIGH", low = "LOW")) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'   build_table(df)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' # Passing of statistics function and formatting arguments.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' df2 &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Combine counts</pre>
+                      <pre class="language-r">#'   ID = as.character(c(1, 1, 2, 2)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   RANGE = factor(c("NORMAL", "LOW", "HIGH", "HIGH")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Simplifies the estimation of column counts, especially when group combination is required.</pre>
+                      <pre class="language-r">#'   BL_RANGE = factor(c("NORMAL", "NORMAL", "HIGH", "HIGH")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   ONTRTFL = c("", "Y", "", "Y"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams combine_groups</pre>
+                      <pre class="language-r">#'   stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams groups_list_to_df</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">218</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `vector` of column counts.</pre>
+                      <pre class="language-r">#' # Select only post-baseline records.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">219</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' df2 &lt;- df2 %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [combine_groups()]</pre>
+                      <pre class="language-r">#'   filter(ONTRTFL == "Y")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">223</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ref &lt;- c("A: Drug X", "B: Placebo")</pre>
+                      <pre class="language-r">#'   count_abnormal(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' groups &lt;- combine_groups(fct = DM$ARM, ref = ref)</pre>
+                      <pre class="language-r">#'     var = "RANGE",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     abnormal = list(low = "LOW", high = "HIGH"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' col_counts &lt;- combine_counts(</pre>
+                      <pre class="language-r">#'     variables = list(id = "ID", baseline = "BL_RANGE")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   fct = DM$ARM,</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   groups_list = groups</pre>
+                      <pre class="language-r">#'   build_table(df2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">231</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">#' @order 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by_groups("ARM", groups) %&gt;%</pre>
+                      <pre class="language-r">count_abnormal &lt;- function(lyt,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                      <pre class="language-r">                           var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">234</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze_vars("AGE") %&gt;%</pre>
+                      <pre class="language-r">                           abnormal = list(Low = "LOW", High = "HIGH"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(DM, col_counts = col_counts)</pre>
+                      <pre class="language-r">                           variables = list(id = "USUBJID", baseline = "BNRIND"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                           exclude_base_abn = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">237</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ref &lt;- "A: Drug X"</pre>
+                      <pre class="language-r">                           na_str = default_na_str(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">238</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' groups &lt;- combine_groups(fct = DM$ARM, ref = ref)</pre>
+                      <pre class="language-r">                           nested = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">239</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' col_counts &lt;- combine_counts(</pre>
+                      <pre class="language-r">                           ...,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   fct = DM$ARM,</pre>
+                      <pre class="language-r">                           table_names = var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">241</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   groups_list = groups</pre>
+                      <pre class="language-r">                           .stats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">242</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">                           .formats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                           .labels = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">                           .indent_mods = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">245</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">167</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by_groups("ARM", groups) %&gt;%</pre>
+                      <pre class="language-r">  extra_args &lt;- list(abnormal = abnormal, variables = variables, exclude_base_abn = exclude_base_abn, ...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">247</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">169</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze_vars("AGE") %&gt;%</pre>
+                      <pre class="language-r">  afun &lt;- make_afun(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">248</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">170</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(DM, col_counts = col_counts)</pre>
+                      <pre class="language-r">    a_count_abnormal,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">249</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">171</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    .stats = .stats,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">250</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">172</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    .formats = .formats,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">251</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">173</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">combine_counts &lt;- function(fct, groups_list = NULL) {</pre>
+                      <pre class="language-r">    .labels = .labels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">252</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">174</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(fct, classes = c("factor", "character"))</pre>
+                      <pre class="language-r">    .indent_mods = .indent_mods,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">175</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    .ungroup_stats = "fraction"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">253</td>
+                    <td class="num">176</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">254</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">178</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  fct &lt;- as_factor_keep_attributes(fct)</pre>
+                      <pre class="language-r">  checkmate::assert_string(var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">255</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">256</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">180</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(groups_list)) {</pre>
+                      <pre class="language-r">  analyze(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">257</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">181</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y &lt;- table(fct)</pre>
+                      <pre class="language-r">    lyt = lyt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">258</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">182</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y &lt;- stats::setNames(as.numeric(y), nm = dimnames(y)[[1]])</pre>
+                      <pre class="language-r">    vars = var,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">259</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">183</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">    afun = afun,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">260</td>
+                    <td class="num">184</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y &lt;- vapply(</pre>
+                      <pre class="language-r">    na_str = na_str,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">261</td>
+                    <td class="num">185</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      X = groups_list,</pre>
+                      <pre class="language-r">    nested = nested,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">262</td>
+                    <td class="num">186</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      FUN = function(x) sum(table(fct)[x]),</pre>
+                      <pre class="language-r">    table_names = table_names,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">263</td>
+                    <td class="num">187</td>
                     <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      FUN.VALUE = 1</pre>
+                      <pre class="language-r">    extra_args = extra_args,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">264</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">188</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    show_labels = "hidden"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">266</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  y</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -163202,14 +161965,14 @@ <h2>tern coverage - 95.64%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/incidence_rate.R" class="hidden">
+            <div id="R/count_patients_with_flags.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Incidence rate estimation</pre>
+                      <pre class="language-r">#' Count the number of patients with particular flags</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -163237,168 +162000,168 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The analyze function [estimate_incidence_rate()] creates a layout element to estimate an event rate adjusted for</pre>
+                      <pre class="language-r">#' The analyze function [count_patients_with_flags()] creates a layout element to calculate counts of patients for</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' person-years at risk, otherwise known as incidence rate. The primary analysis variable specified via `vars` is</pre>
+                      <pre class="language-r">#' which user-specified flags are present.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the person-years at risk. In addition to this variable, the `n_events` variable for number of events observed (where</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' a value of 1 means an event was observed and 0 means that no event was observed) must also be specified.</pre>
+                      <pre class="language-r">#' This function analyzes primary analysis variable `var` which indicates unique subject identifiers. Flags</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' variables to analyze are specified by the user via the `flag_variables` argument, and must either take value</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' `TRUE` (flag present) or `FALSE` (flag absent) for each record.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param control (`list`)\cr parameters for estimation details, specified by using</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the helper function [control_incidence_rate()]. Possible parameter options are:</pre>
+                      <pre class="language-r">#' If there are multiple records with the same flag present for a patient, only one occurrence is counted.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `conf_level` (`proportion`)\cr confidence level for the estimated incidence rate.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `conf_type` (`string`)\cr `normal` (default), `normal_log`, `exact`, or `byar`</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     for confidence interval type.</pre>
+                      <pre class="language-r">#' @param flag_variables (`character`)\cr a vector specifying the names of `logical` variables from analysis dataset</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `input_time_unit` (`string`)\cr `day`, `week`, `month`, or `year` (default)</pre>
+                      <pre class="language-r">#'   used for counting the number of unique identifiers.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     indicating time unit for data input.</pre>
+                      <pre class="language-r">#' @param flag_labels (`character`)\cr vector of labels to use for flag variables.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `num_pt_year` (`numeric`)\cr time unit for desired output (in person-years).</pre>
+                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("count_patients_with_flags")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param n_events (`string`)\cr name of integer variable indicating whether an event has been observed (1) or not (0).</pre>
+                      <pre class="language-r">#'   to see available statistics for this function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param id_var (`string`)\cr name of variable used as patient identifier if `"n_unique"` is included in `.stats`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Defaults to `"USUBJID"`.</pre>
+                      <pre class="language-r">#' @seealso [count_patients_with_event]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("estimate_incidence_rate")`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to see available statistics for this function.</pre>
+                      <pre class="language-r">#' @name count_patients_with_flags</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param summarize (`flag`)\cr whether the function should act as an analyze function (`summarize = FALSE`), or a</pre>
+                      <pre class="language-r">#' @order 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   summarize function (`summarize = TRUE`). Defaults to `FALSE`.</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param label_fmt (`string`)\cr how labels should be formatted after a row split occurs if `summarize = TRUE`. The</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   string should use `"%s"` to represent row split levels, and `"%.labels"` to represent labels supplied to the</pre>
+                      <pre class="language-r">#' @describeIn count_patients_with_flags Statistics function which counts the number of patients for which</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `.labels` argument. Defaults to `"%s - %.labels"`.</pre>
+                      <pre class="language-r">#'   a particular flag variable is `TRUE`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -163412,77 +162175,77 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [control_incidence_rate()] and helper functions [h_incidence_rate].</pre>
+                      <pre class="language-r">#' @inheritParams analyze_variables</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param .var (`string`)\cr name of the column that contains the unique identifier.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- data.frame(</pre>
+                      <pre class="language-r">#' @note If `flag_labels` is not specified, variables labels will be extracted from `df`. If variables are not</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   USUBJID = as.character(seq(6)),</pre>
+                      <pre class="language-r">#'   labeled, variable names will be used instead. Alternatively, a named `vector` can be supplied to</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   CNSR = c(0, 1, 1, 0, 0, 0),</pre>
+                      <pre class="language-r">#'   `flag_variables` such that within each name-value pair the name corresponds to the variable name and the value is</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   AVAL = c(10.1, 20.4, 15.3, 20.8, 18.7, 23.4),</pre>
+                      <pre class="language-r">#'   the label to use for this variable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ARM = factor(c("A", "A", "A", "B", "B", "B")),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   STRATA1 = factor(c("X", "Y", "Y", "X", "X", "Y"))</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' * `s_count_patients_with_flags()` returns the count and the fraction of unique identifiers with each particular</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df$n_events &lt;- 1 - df$CNSR</pre>
+                      <pre class="language-r">#'   flag as a list of statistics `n`, `count`, `count_fraction`, and `n_blq`, with one element per flag.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -163496,210 +162259,210 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name incidence_rate</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 1</pre>
+                      <pre class="language-r">#' # `s_count_patients_with_flags()`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' s_count_patients_with_flags(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn incidence_rate Statistics function which estimates the incidence rate and the</pre>
+                      <pre class="language-r">#'   adae,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   associated confidence interval.</pre>
+                      <pre class="language-r">#'   "SUBJID",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   flag_variables = c("fl1", "fl2", "fl3", "fl4"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'   denom = "N_col",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_incidence_rate()` returns the following statistics:</pre>
+                      <pre class="language-r">#'   .N_col = 1000</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   - `person_years`: Total person-years at risk.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   - `n_events`: Total number of events observed.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   - `rate`: Estimated incidence rate.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   - `rate_ci`: Confidence interval for the incidence rate.</pre>
+                      <pre class="language-r">s_count_patients_with_flags &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   - `n_unique`: Total number of patients with at least one event observed.</pre>
+                      <pre class="language-r">                                        .var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   - `n_rate`: Total number of events observed &amp; estimated incidence rate.</pre>
+                      <pre class="language-r">                                        flag_variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                        flag_labels = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">                                        .N_col, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_incidence_rate &lt;- function(df,</pre>
+                      <pre class="language-r">                                        .N_row, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             .var,</pre>
+                      <pre class="language-r">                                        denom = c("n", "N_row", "N_col")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">61</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             n_events,</pre>
+                      <pre class="language-r">  checkmate::assert_character(flag_variables)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">62</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             is_event = lifecycle::deprecated(),</pre>
+                      <pre class="language-r">  if (!is.null(flag_labels)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">63</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             id_var = "USUBJID",</pre>
+                      <pre class="language-r">    checkmate::assert_character(flag_labels, len = length(flag_variables), any.missing = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">64</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             control = control_incidence_rate()) {</pre>
+                      <pre class="language-r">    flag_names &lt;- flag_labels</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">65</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (lifecycle::is_present(is_event)) {</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">66</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    checkmate::assert_string(is_event)</pre>
+                      <pre class="language-r">    if (is.null(names(flag_variables))) {</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">67</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
+                      <pre class="language-r">      flag_names &lt;- formatters::var_labels(df[flag_variables], fill = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">68</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "0.9.6", "s_incidence_rate(is_event)", "s_incidence_rate(n_events)"</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">69</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      flag_names &lt;- unname(flag_variables)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="covered">
                     <td class="num">70</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n_events &lt;- is_event</pre>
+                      <pre class="language-r">      flag_variables &lt;- names(flag_variables)</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">71</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df[[n_events]] &lt;- as.numeric(df[[is_event]])</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -163718,1287 +162481,986 @@ <h2>tern coverage - 95.64%</h2>
                   </tr>
                   <tr class="covered">
                     <td class="num">74</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(df, list(tte = .var, n_events = n_events))</pre>
+                      <pre class="language-r">  checkmate::assert_subset(flag_variables, colnames(df))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">75</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(.var)</pre>
+                      <pre class="language-r">  temp &lt;- sapply(flag_variables, function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">76</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(n_events)</pre>
+                      <pre class="language-r">    tmp &lt;- Map(function(y) which(df[[y]]), x)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">77</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(id_var)</pre>
+                      <pre class="language-r">    position_satisfy_flags &lt;- Reduce(intersect, tmp)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">78</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(df[[.var]], any.missing = FALSE)</pre>
+                      <pre class="language-r">    id_satisfy_flags &lt;- as.character(unique(df[position_satisfy_flags, ][[.var]]))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">79</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_integerish(df[[n_events]], any.missing = FALSE)</pre>
+                      <pre class="language-r">    s_count_values(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">80</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      as.character(unique(df[[.var]])),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">81</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n_unique &lt;- n_available(unique(df[[id_var]][df[[n_events]] == 1]))</pre>
+                      <pre class="language-r">      id_satisfy_flags,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">82</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  input_time_unit &lt;- control$input_time_unit</pre>
+                      <pre class="language-r">      denom = denom,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">83</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  num_pt_year &lt;- control$num_pt_year</pre>
+                      <pre class="language-r">      .N_col = .N_col,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">84</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  conf_level &lt;- control$conf_level</pre>
+                      <pre class="language-r">      .N_row = .N_row</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">85</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  person_years &lt;- sum(df[[.var]], na.rm = TRUE) * (</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">86</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    1 * (input_time_unit == "year") +</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">87</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      1 / 12 * (input_time_unit == "month") +</pre>
+                      <pre class="language-r">  colnames(temp) &lt;- flag_names</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">88</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      1 / 52.14 * (input_time_unit == "week") +</pre>
+                      <pre class="language-r">  temp &lt;- data.frame(t(temp))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">89</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      1 / 365.24 * (input_time_unit == "day")</pre>
+                      <pre class="language-r">  result &lt;- temp %&gt;% as.list()</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">90</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  if (length(flag_variables) == 1) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">91</td>
-                    <td class="coverage">17<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n_events &lt;- sum(df[[n_events]], na.rm = TRUE)</pre>
+                      <pre class="language-r">    for (i in 1:3) names(result[[i]]) &lt;- flag_names[1]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">93</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  result &lt;- h_incidence_rate(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">94</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    person_years,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">95</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    n_events,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">96</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    control</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">97</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">98</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">99</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    person_years = formatters::with_label(person_years, "Total patient-years at risk"),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">100</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    n_events = formatters::with_label(n_events, "Number of adverse events observed"),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">101</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    rate = formatters::with_label(result$rate, paste("AE rate per", num_pt_year, "patient-years")),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">102</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    rate_ci = formatters::with_label(result$rate_ci, f_conf_level(conf_level)),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    n_unique = formatters::with_label(n_unique, "Total number of patients with at least one adverse event"),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">104</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    n_rate = formatters::with_label(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      c(n_events, result$rate),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">17<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      paste("Number of adverse events observed (AE rate per", num_pt_year, "patient-years)")</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">107</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  result</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @describeIn count_patients_with_flags Formatted analysis function which is used as `afun`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn incidence_rate Formatted analysis function which is used as `afun` in `estimate_incidence_rate()`.</pre>
+                      <pre class="language-r">#'   in `count_patients_with_flags()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `a_incidence_rate()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
+                      <pre class="language-r">#' * `a_count_patients_with_flags()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' a_incidence_rate(</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">118</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   df,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">119</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   .var = "AVAL",</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">120</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   .df_row = df,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   n_events = "n_events"</pre>
+                      <pre class="language-r">#' #  We need to ungroup `count_fraction` first so that the `rtables` formatting</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' # function `format_count_fraction()` can be applied correctly.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">125</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">a_incidence_rate &lt;- function(df,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">126</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                             labelstr = "",</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">127</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                             .var,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">128</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                             .df_row,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">129</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                             n_events,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">130</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                             id_var = "USUBJID",</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">131</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                             control = control_incidence_rate(),</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">132</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                             .stats = NULL,</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">133</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                             .formats = c(</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">134</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                               "person_years" = "xx.x",</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">135</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                               "n_events" = "xx",</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">136</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                               "rate" = "xx.xx",</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">137</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">                               "rate_ci" = "(xx.xx, xx.xx)",</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               "n_unique" = "xx",</pre>
+                      <pre class="language-r">#' # `a_count_patients_with_flags()`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               "n_rate" = "xx (xx.x)"</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             ),</pre>
+                      <pre class="language-r">#' afun &lt;- make_afun(a_count_patients_with_flags,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             .labels = NULL,</pre>
+                      <pre class="language-r">#'   .stats = "count_fraction",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             .indent_mods = NULL,</pre>
+                      <pre class="language-r">#'   .ungroup_stats = "count_fraction"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             na_str = default_na_str(),</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             label_fmt = "%s - %.labels") {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">145</td>
-                    <td class="coverage">16<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(label_fmt)</pre>
+                      <pre class="language-r">#' afun(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">16<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  x_stats &lt;- s_incidence_rate(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">16<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    df = df, .var = .var, n_events = n_events, id_var = id_var, control = control</pre>
+                      <pre class="language-r">#'   adae,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">150</td>
-                    <td class="coverage">16<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(unlist(x_stats))) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">151</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    return(NULL)</pre>
+                      <pre class="language-r">#'   .N_col = 10L,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   .N_row = 10L,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   .var = "USUBJID",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Fill in with defaults</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">16<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  formats_def &lt;- formals()$.formats %&gt;% eval()</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">16<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  .formats &lt;- c(.formats, formats_def)[!duplicated(names(c(.formats, formats_def)))]</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">16<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  labels_def &lt;- sapply(x_stats, \(x) attributes(x)$label)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">16<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  .labels &lt;- c(.labels, labels_def)[!duplicated(names(c(.labels, labels_def)))]</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">16<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (nzchar(labelstr) &gt; 0) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">160</td>
-                    <td class="coverage">8<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    .labels &lt;- sapply(.labels, \(x) gsub("%.labels", x, gsub("%s", labelstr, label_fmt)))</pre>
+                      <pre class="language-r">#'   flag_variables = c("fl1", "fl2", "fl3", "fl4")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Fill in with formatting defaults if needed</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">16<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  .stats &lt;- get_stats("estimate_incidence_rate", stats_in = .stats)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">16<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  .formats &lt;- get_formats_from_stats(.stats, .formats)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">16<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  .labels &lt;- get_labels_from_stats(.stats, .labels)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">16<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  .indent_mods &lt;- get_indents_from_stats(.stats, .indent_mods)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">16<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  x_stats &lt;- x_stats[.stats]</pre>
+                      <pre class="language-r">a_count_patients_with_flags &lt;- make_afun(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">16<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  in_rows(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">16<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    .list = x_stats,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">16<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    .formats = .formats,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">16<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    .labels = .labels,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">16<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    .indent_mods = .indent_mods,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">16<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    .format_na_strs = na_str</pre>
+                      <pre class="language-r">  s_count_patients_with_flags,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  .formats = c("count_fraction" = format_count_fraction_fixed_dp)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn incidence_rate Layout-creating function which can take statistics function arguments</pre>
+                      <pre class="language-r">#' @describeIn count_patients_with_flags Layout-creating function which can take statistics function</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
+                      <pre class="language-r">#'   arguments and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `estimate_incidence_rate()` returns a layout object suitable for passing to further layouting functions,</pre>
+                      <pre class="language-r">#' * `count_patients_with_flags()` returns a layout object suitable for passing to further layouting functions,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the statistics from `s_incidence_rate()` to the table layout.</pre>
+                      <pre class="language-r">#'   the statistics from `s_count_patients_with_flags()` to the table layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table(show_colcounts = TRUE) %&gt;%</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   estimate_incidence_rate(</pre>
+                      <pre class="language-r">#' # Add labelled flag variables to analysis dataset.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     vars = "AVAL",</pre>
+                      <pre class="language-r">#' adae &lt;- tern_ex_adae %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     n_events = "n_events",</pre>
+                      <pre class="language-r">#'   mutate(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     control = control_incidence_rate(</pre>
+                      <pre class="language-r">#'     fl1 = TRUE %&gt;% with_label("Total AEs"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       input_time_unit = "month",</pre>
+                      <pre class="language-r">#'     fl2 = (TRTEMFL == "Y") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       num_pt_year = 100</pre>
+                      <pre class="language-r">#'       with_label("Total number of patients with at least one adverse event"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">#'     fl3 = (TRTEMFL == "Y" &amp; AEOUT == "FATAL") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">#'       with_label("Total number of patients with fatal AEs"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(df)</pre>
+                      <pre class="language-r">#'     fl4 = (TRTEMFL == "Y" &amp; AEOUT == "FATAL" &amp; AEREL == "Y") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">146</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'       with_label("Total number of patients with related fatal AEs")</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">147</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # summarize = TRUE</pre>
+                      <pre class="language-r">#' # `count_patients_with_flags()`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table(show_colcounts = TRUE) %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
+                      <pre class="language-r">#' lyt2 &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by("STRATA1", child_labels = "visible") %&gt;%</pre>
+                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">205</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   estimate_incidence_rate(</pre>
+                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     vars = "AVAL",</pre>
+                      <pre class="language-r">#'   count_patients_with_flags(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     n_events = "n_events",</pre>
+                      <pre class="language-r">#'     "SUBJID",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .stats = c("n_unique", "n_rate"),</pre>
+                      <pre class="language-r">#'     flag_variables = c("fl1", "fl2", "fl3", "fl4"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     summarize = TRUE,</pre>
+                      <pre class="language-r">#'     denom = "N_col"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     label_fmt = "%.labels"</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(df)</pre>
+                      <pre class="language-r">#' build_table(lyt2, adae, alt_counts_df = tern_ex_adsl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">214</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @order 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">estimate_incidence_rate &lt;- function(lyt,</pre>
+                      <pre class="language-r">count_patients_with_flags &lt;- function(lyt,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">217</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    vars,</pre>
+                      <pre class="language-r">                                      var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">218</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    n_events,</pre>
+                      <pre class="language-r">                                      flag_variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">219</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    id_var = "USUBJID",</pre>
+                      <pre class="language-r">                                      flag_labels = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">220</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    control = control_incidence_rate(),</pre>
+                      <pre class="language-r">                                      var_labels = var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">221</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    na_str = default_na_str(),</pre>
+                      <pre class="language-r">                                      show_labels = "hidden",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">222</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    nested = TRUE,</pre>
+                      <pre class="language-r">                                      riskdiff = FALSE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">223</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    summarize = FALSE,</pre>
+                      <pre class="language-r">                                      na_str = default_na_str(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    label_fmt = "%s - %.labels",</pre>
+                      <pre class="language-r">                                      nested = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    ...,</pre>
+                      <pre class="language-r">                                      ...,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    show_labels = "hidden",</pre>
+                      <pre class="language-r">                                      table_names = paste0("tbl_flags_", var),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    table_names = vars,</pre>
+                      <pre class="language-r">                                      .stats = "count_fraction",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    .stats = c("person_years", "n_events", "rate", "rate_ci"),</pre>
+                      <pre class="language-r">                                      .formats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    .formats = NULL,</pre>
+                      <pre class="language-r">                                      .indent_mods = NULL) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">178</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_flag(riskdiff)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    .labels = NULL,</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">180</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  s_args &lt;- list(flag_variables = flag_variables, flag_labels = flag_labels, ...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">231</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    .indent_mods = NULL) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">182</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- c(</pre>
+                      <pre class="language-r">  afun &lt;- make_afun(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">233</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">183</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list(.stats = .stats, .formats = .formats, .labels = .labels, .indent_mods = .indent_mods, na_str = na_str),</pre>
+                      <pre class="language-r">    a_count_patients_with_flags,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">184</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list(n_events = n_events, id_var = id_var, control = control, label_fmt = label_fmt, ...)</pre>
+                      <pre class="language-r">    .stats = .stats,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">185</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    .formats = .formats,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">186</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    .indent_mods = .indent_mods,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">187</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    .ungroup_stats = .stats</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">237</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">190</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!summarize) {</pre>
+                      <pre class="language-r">  extra_args &lt;- if (isFALSE(riskdiff)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">238</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">191</td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    analyze(</pre>
+                      <pre class="language-r">    s_args</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">239</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">192</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt,</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">240</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">193</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vars,</pre>
+                      <pre class="language-r">    list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">241</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">194</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      show_labels = show_labels,</pre>
+                      <pre class="language-r">      afun = list("s_count_patients_with_flags" = afun),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">242</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">195</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      table_names = table_names,</pre>
+                      <pre class="language-r">      .stats = .stats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">243</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">196</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      afun = a_incidence_rate,</pre>
+                      <pre class="language-r">      .indent_mods = .indent_mods,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">244</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">197</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      na_str = na_str,</pre>
+                      <pre class="language-r">      s_args = s_args</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">245</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">198</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nested = nested,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">246</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">199</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      extra_args = extra_args</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">247</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">248</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">201</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">  lyt &lt;- analyze(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">249</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">202</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    summarize_row_groups(</pre>
+                      <pre class="language-r">    lyt = lyt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">250</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">203</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt,</pre>
+                      <pre class="language-r">    vars = var,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">251</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">204</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vars,</pre>
+                      <pre class="language-r">    var_labels = var_labels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">252</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">205</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cfun = a_incidence_rate,</pre>
+                      <pre class="language-r">    show_labels = show_labels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">253</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">206</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      na_str = na_str,</pre>
+                      <pre class="language-r">    afun = ifelse(isFALSE(riskdiff), afun, afun_riskdiff),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">254</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">207</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      extra_args = extra_args</pre>
+                      <pre class="language-r">    table_names = table_names,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">208</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    na_str = na_str,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">209</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    nested = nested,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">210</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    extra_args = extra_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">255</td>
+                    <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">256</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">213</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  lyt</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -165007,14 +163469,14 @@ <h2>tern coverage - 95.64%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/score_occurrences.R" class="hidden">
+            <div id="R/split_cols_by_groups.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Occurrence table sorting</pre>
+                      <pre class="language-r">#' Convert list of groups to a data frame</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -165028,7 +163490,7 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' This converts a list of group levels into a data frame format which is expected by [rtables::add_combo_levels()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -165042,14 +163504,14 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Functions to score occurrence table subtables and rows which can be used in the</pre>
+                      <pre class="language-r">#' @param groups_list (named `list` of `character`)\cr specifies the new group levels via the names and the</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' sorting of occurrence tables.</pre>
+                      <pre class="language-r">#'   levels that belong to it in the character vectors that are elements of the list.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -165063,224 +163525,224 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name score_occurrences</pre>
+                      <pre class="language-r">#' @return A `tibble` in the required format.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn score_occurrences Scoring function which sums the counts across all</pre>
+                      <pre class="language-r">#' grade_groups &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   columns. It will fail if anything else but counts are used.</pre>
+                      <pre class="language-r">#'   "Any Grade (%)" = c("1", "2", "3", "4", "5"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   "Grade 3-4 (%)" = c("3", "4"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams rtables_access</pre>
+                      <pre class="language-r">#'   "Grade 5 (%)" = "5"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' groups_list_to_df(grade_groups)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `score_occurrences()` returns the sum of counts across all columns of a table row.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [h_row_first_values()]</pre>
+                      <pre class="language-r">groups_list_to_df &lt;- function(groups_list) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">20</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_list(groups_list, names = "named")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">21</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  lapply(groups_list, checkmate::assert_character)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">22</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">  tibble::tibble(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">23</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
+                      <pre class="language-r">    valname = make_names(names(groups_list)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">24</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                      <pre class="language-r">    label = names(groups_list),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">25</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze_num_patients(</pre>
+                      <pre class="language-r">    levelcombo = unname(groups_list),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">26</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     vars = "USUBJID",</pre>
+                      <pre class="language-r">    exargs = replicate(length(groups_list), list())</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .stats = c("unique"),</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .labels = c("Total number of patients with at least one event")</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by("AEBODSYS", child_labels = "visible", nested = FALSE) %&gt;%</pre>
+                      <pre class="language-r">#' Reference and treatment group combination</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   summarize_num_patients(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     var = "USUBJID",</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .stats = c("unique", "nonunique"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .labels = c(</pre>
+                      <pre class="language-r">#' Facilitate the re-combination of groups divided as reference and treatment groups; it helps in arranging groups of</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "Total number of patients with at least one event",</pre>
+                      <pre class="language-r">#' columns in the `rtables` framework and teal modules.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "Total number of events"</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">#' @param fct (`factor`)\cr the variable with levels which needs to be grouped.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">#' @param ref (`character`)\cr the reference level(s).</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   count_occurrences(vars = "AEDECOD")</pre>
+                      <pre class="language-r">#' @param collapse (`string`)\cr a character string to separate `fct` and `ref`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -165294,49 +163756,49 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tbl &lt;- build_table(lyt, tern_ex_adae, alt_counts_df = tern_ex_adsl) %&gt;%</pre>
+                      <pre class="language-r">#' @return A `list` with first item `ref` (reference) and second item `trt` (treatment).</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   prune_table()</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tbl_sorted &lt;- tbl %&gt;%</pre>
+                      <pre class="language-r">#' groups &lt;- combine_groups(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   sort_at_path(path = c("AEBODSYS", "*", "AEDECOD"), scorefun = score_occurrences)</pre>
+                      <pre class="language-r">#'   fct = DM$ARM,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   ref = c("B: Placebo")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tbl_sorted</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -165350,266 +163812,266 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">score_occurrences &lt;- function(table_row) {</pre>
+                      <pre class="language-r">#'   split_cols_by_groups("ARM", groups) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">51</td>
-                    <td class="coverage">37<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  row_counts &lt;- h_row_counts(table_row)</pre>
+                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">52</td>
-                    <td class="coverage">37<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  sum(row_counts)</pre>
+                      <pre class="language-r">#'   analyze_vars("AGE") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   build_table(DM)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn score_occurrences Scoring functions can be produced by this constructor to only include</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   specific columns in the scoring. See [h_row_counts()] for further information.</pre>
+                      <pre class="language-r">combine_groups &lt;- function(fct,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                           ref = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams has_count_in_cols</pre>
+                      <pre class="language-r">                           collapse = "/") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">59</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_string(collapse)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">60</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">  checkmate::assert_character(ref, min.chars = 1, any.missing = FALSE, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">61</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `score_occurrences_cols()` returns a function that sums counts across all specified columns</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(fct, classes = c("factor", "character"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   of a table row.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">63</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  fct &lt;- as_factor_keep_attributes(fct)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [h_row_counts()]</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">65</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  group_levels &lt;- levels(fct)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">66</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  if (is.null(ref)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">67</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' score_cols_a_and_b &lt;- score_occurrences_cols(col_names = c("A: Drug X", "B: Placebo"))</pre>
+                      <pre class="language-r">    ref &lt;- group_levels[1]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">69</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Note that this here just sorts the AEDECOD inside the AEBODSYS. The AEBODSYS are not sorted.</pre>
+                      <pre class="language-r">    checkmate::assert_subset(ref, group_levels)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # That would require a second pass of `sort_at_path`.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tbl_sorted &lt;- tbl %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">72</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   sort_at_path(path = c("AEBODSYS", "*", "AEDECOD"), scorefun = score_cols_a_and_b)</pre>
+                      <pre class="language-r">  groups &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">73</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    ref = group_levels[group_levels %in% ref],</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">74</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tbl_sorted</pre>
+                      <pre class="language-r">    trt = group_levels[!group_levels %in% ref]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">76</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  stats::setNames(groups, nm = lapply(groups, paste, collapse = collapse))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">score_occurrences_cols &lt;- function(...) {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">78</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  function(table_row) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">79</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    row_counts &lt;- h_row_counts(table_row, ...)</pre>
+                      <pre class="language-r">#' Split columns by groups of levels</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">80</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    sum(row_counts)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn score_occurrences Scoring functions produced by this constructor can be used on</pre>
+                      <pre class="language-r">#' @inheritParams groups_list_to_df</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   subtables: They sum up all specified column counts in the subtable. This is useful when</pre>
+                      <pre class="language-r">#' @param ... additional arguments to [rtables::split_cols_by()] in order. For instance, to</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   there is no available content row summing up these counts.</pre>
+                      <pre class="language-r">#'   control formats (`format`), add a joint column for all groups (`incl_all`).</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -165623,21 +164085,21 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' @return A layout object suitable for passing to further layouting functions. Adding</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `score_occurrences_subtable()` returns a function that sums counts in each subtable</pre>
+                      <pre class="language-r">#'   this function to an `rtable` layout will add a column split including the given</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   across all specified columns.</pre>
+                      <pre class="language-r">#'   groups to the table layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -165651,1536 +164113,1816 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @seealso [rtables::split_cols_by()]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' score_subtable_all &lt;- score_occurrences_subtable(col_names = names(tbl))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Note that this code just sorts the AEBODSYS, not the AEDECOD within AEBODSYS. That</pre>
+                      <pre class="language-r">#' # 1 - Basic use</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # would require a second pass of `sort_at_path`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tbl_sorted &lt;- tbl %&gt;%</pre>
+                      <pre class="language-r">#' # Without group combination `split_cols_by_groups` is</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   sort_at_path(path = c("AEBODSYS"), scorefun = score_subtable_all, decreasing = FALSE)</pre>
+                      <pre class="language-r">#' # equivalent to [rtables::split_cols_by()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tbl_sorted</pre>
+                      <pre class="language-r">#'   split_cols_by_groups("ARM") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'   analyze("AGE") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">score_occurrences_subtable &lt;- function(...) {</pre>
+                      <pre class="language-r">#'   build_table(DM)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">104</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  score_table_row &lt;- score_occurrences_cols(...)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">105</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  function(table_tree) {</pre>
+                      <pre class="language-r">#' # Add a reference column.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">106</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table_rows &lt;- collect_leaves(table_tree)</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">107</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    counts &lt;- vapply(table_rows, score_table_row, numeric(1))</pre>
+                      <pre class="language-r">#'   split_cols_by_groups("ARM", ref_group = "B: Placebo") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">108</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    sum(counts)</pre>
+                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   analyze(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'     "AGE",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     afun = function(x, .ref_group, .in_ref_col) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn score_occurrences Produces a score function for sorting table by summing the first content row in</pre>
+                      <pre class="language-r">#'       if (.in_ref_col) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   specified columns. Note that this is extending [rtables::cont_n_onecol()] and [rtables::cont_n_allcols()].</pre>
+                      <pre class="language-r">#'         in_rows("Diff Mean" = rcell(NULL))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'       } else {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'         in_rows("Diff Mean" = rcell(mean(x) - mean(.ref_group), format = "xx.xx"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `score_occurrences_cont_cols()` returns a function that sums counts in the first content row in</pre>
+                      <pre class="language-r">#'       }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   specified columns.</pre>
+                      <pre class="language-r">#'     }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'   build_table(DM)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">score_occurrences_cont_cols &lt;- function(...) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">121</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  score_table_row &lt;- score_occurrences_cols(...)</pre>
+                      <pre class="language-r">#' # 2 - Adding group specification</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">122</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  function(table_tree) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">123</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (inherits(table_tree, "ContentRow")) {</pre>
+                      <pre class="language-r">#' # Manual preparation of the groups.</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">124</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      return(NA)</pre>
+                      <pre class="language-r">#' groups &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'   "Arms A+B" = c("A: Drug X", "B: Placebo"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">126</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    content_row &lt;- h_content_first_row(table_tree)</pre>
+                      <pre class="language-r">#'   "Arms A+C" = c("A: Drug X", "C: Combination")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">127</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    score_table_row(content_row)</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' # Use of split_cols_by_groups without reference column.</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/estimate_multinomial_rsp.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Estimate proportions of each level of a variable</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">131</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   split_cols_by_groups("ARM", groups) %&gt;%</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">132</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">133</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   analyze("AGE") %&gt;%</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">134</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   build_table(DM)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">135</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">136</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' # Including differentiated output in the reference column.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">137</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">138</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   split_cols_by_groups("ARM", groups_list = groups, ref_group = "Arms A+B") %&gt;%</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">139</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   analyze(</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">140</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'     "AGE",</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">141</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'     afun = function(x, .ref_group, .in_ref_col) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">142</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'       if (.in_ref_col) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">143</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'         in_rows("Diff. of Averages" = rcell(NULL))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">144</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'       } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">145</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'         in_rows("Diff. of Averages" = rcell(mean(x) - mean(.ref_group), format = "xx.xx"))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">146</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'       }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">147</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'     }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">148</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   ) %&gt;%</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">149</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   build_table(DM)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">150</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">151</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' # 3 - Binary list dividing factor levels into reference and treatment</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">152</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">153</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' # `combine_groups` defines reference and treatment.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">154</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' groups &lt;- combine_groups(</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">155</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   fct = DM$ARM,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">156</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   ref = c("A: Drug X", "B: Placebo")</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">157</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">158</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' groups</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">160</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' # Use group definition without reference column.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   split_cols_by_groups("ARM", groups_list = groups) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The analyze &amp; summarize function [estimate_multinomial_response()] creates a layout element to estimate the</pre>
+                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' proportion and proportion confidence interval for each level of a factor variable. The primary analysis variable,</pre>
+                      <pre class="language-r">#'   analyze("AGE") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `var`, should be a factor variable, the values of which will be used as labels within the output table.</pre>
+                      <pre class="language-r">#'   build_table(DM)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' # Use group definition with reference column (first item of groups).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("estimate_multinomial_response")`</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to see available statistics for this function.</pre>
+                      <pre class="language-r">#'   split_cols_by_groups("ARM", groups, ref_group = names(groups)[1]) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso Relevant description function [d_onco_rsp_label()].</pre>
+                      <pre class="language-r">#'   analyze(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     "AGE",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name estimate_multinomial_rsp</pre>
+                      <pre class="language-r">#'     afun = function(x, .ref_group, .in_ref_col) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 1</pre>
+                      <pre class="language-r">#'       if (.in_ref_col) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#'         in_rows("Diff Mean" = rcell(NULL))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       } else {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Description of standard oncology response</pre>
+                      <pre class="language-r">#'         in_rows("Diff Mean" = rcell(mean(x) - mean(.ref_group), format = "xx.xx"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'       }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#'     }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Describe the oncology response in a standard way.</pre>
+                      <pre class="language-r">#'   build_table(DM)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`character`)\cr the standard oncology codes to be described.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">split_cols_by_groups &lt;- function(lyt,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return Response labels.</pre>
+                      <pre class="language-r">                                 var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                 groups_list = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [estimate_multinomial_rsp()]</pre>
+                      <pre class="language-r">                                 ref_group = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                 ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">189</td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  if (is.null(groups_list)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">32</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">190</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' d_onco_rsp_label(</pre>
+                      <pre class="language-r">    split_cols_by(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">191</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      lyt = lyt,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">192</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      var = var,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">193</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      ref_group = ref_group,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   c("CR", "PR", "SD", "NON CR/PD", "PD", "NE", "Missing", "&lt;Missing&gt;", "NE/Missing")</pre>
+                      <pre class="language-r">      ...</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  } else {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">197</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    groups_df &lt;- groups_list_to_df(groups_list)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">198</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    if (!is.null(ref_group)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">199</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      ref_group &lt;- groups_df$valname[groups_df$label == ref_group]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Adding some values not considered in d_onco_rsp_label</pre>
+                      <pre class="language-r">    }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">201</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    split_cols_by(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">202</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      lyt = lyt,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">203</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      var = var,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">204</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      split_fun = add_combo_levels(groups_df, keep_levels = groups_df$valname),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">205</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      ref_group = ref_group,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      ...</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' d_onco_rsp_label(</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   c("CR", "PR", "hello", "hi")</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' Combine counts</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">d_onco_rsp_label &lt;- function(x) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">44</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">213</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x &lt;- as.character(x)</pre>
+                      <pre class="language-r">#' Simplifies the estimation of column counts, especially when group combination is required.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">45</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">214</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  desc &lt;- c(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">46</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">215</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    CR           = "Complete Response (CR)",</pre>
+                      <pre class="language-r">#' @inheritParams combine_groups</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">47</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">216</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PR           = "Partial Response (PR)",</pre>
+                      <pre class="language-r">#' @inheritParams groups_list_to_df</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">48</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">217</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    MR           = "Minimal/Minor Response (MR)",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">218</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    MRD          = "Minimal Residual Disease (MRD)",</pre>
+                      <pre class="language-r">#' @return A `vector` of column counts.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">50</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">219</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    SD           = "Stable Disease (SD)",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">51</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">220</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    PD           = "Progressive Disease (PD)",</pre>
+                      <pre class="language-r">#' @seealso [combine_groups()]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">52</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">221</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    `NON CR/PD`  = "Non-CR or Non-PD (NON CR/PD)",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">53</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">222</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    NE           = "Not Evaluable (NE)",</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">54</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">223</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    `NE/Missing` = "Missing or unevaluable",</pre>
+                      <pre class="language-r">#' ref &lt;- c("A: Drug X", "B: Placebo")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">55</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">224</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    Missing      = "Missing",</pre>
+                      <pre class="language-r">#' groups &lt;- combine_groups(fct = DM$ARM, ref = ref)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">56</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">225</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    `NA`         = "Not Applicable (NA)",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">226</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ND           = "Not Done (ND)"</pre>
+                      <pre class="language-r">#' col_counts &lt;- combine_counts(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">227</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'   fct = DM$ARM,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   groups_list = groups</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">229</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  values_label &lt;- vapply(</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">230</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    X = x,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">231</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    FUN.VALUE = character(1),</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">232</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    function(val) {</pre>
+                      <pre class="language-r">#'   split_cols_by_groups("ARM", groups) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">64</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">233</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (val %in% names(desc)) desc[val] else val</pre>
+                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'   analyze_vars("AGE") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'   build_table(DM, col_counts = col_counts)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">237</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(factor(values_label, levels = c(intersect(desc, values_label), setdiff(values_label, desc))))</pre>
+                      <pre class="language-r">#' ref &lt;- "A: Drug X"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">238</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' groups &lt;- combine_groups(fct = DM$ARM, ref = ref)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' col_counts &lt;- combine_counts(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">240</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn estimate_multinomial_rsp Statistics function which feeds the length of `x` as number</pre>
+                      <pre class="language-r">#'   fct = DM$ARM,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   of successes, and `.N_col` as total number of successes and failures into [s_proportion()].</pre>
+                      <pre class="language-r">#'   groups_list = groups</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">242</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">243</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_length_proportion()` returns statistics from [s_proportion()].</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">245</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   split_cols_by_groups("ARM", groups) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">246</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">247</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_length_proportion(rep("CR", 10), .N_col = 100)</pre>
+                      <pre class="language-r">#'   analyze_vars("AGE") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">248</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_length_proportion(factor(character(0)), .N_col = 100)</pre>
+                      <pre class="language-r">#'   build_table(DM, col_counts = col_counts)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">251</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_length_proportion &lt;- function(x,</pre>
+                      <pre class="language-r">combine_counts &lt;- function(fct, groups_list = NULL) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">252</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_multi_class(fct, classes = c("factor", "character"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">253</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                .N_col, # nolint</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">254</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  fct &lt;- as_factor_keep_attributes(fct)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">255</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                ...) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">85</td>
+                    <td class="num">256</td>
                     <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(x, classes = c("factor", "character"))</pre>
+                      <pre class="language-r">  if (is.null(groups_list)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">257</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_vector(x, min.len = 0, max.len = .N_col)</pre>
+                      <pre class="language-r">    y &lt;- table(fct)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">258</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_vector(unique(x), min.len = 0, max.len = 1)</pre>
+                      <pre class="language-r">    y &lt;- stats::setNames(as.numeric(y), nm = dimnames(y)[[1]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">259</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">89</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">260</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n_true &lt;- length(x)</pre>
+                      <pre class="language-r">    y &lt;- vapply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">261</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n_false &lt;- .N_col - n_true</pre>
+                      <pre class="language-r">      X = groups_list,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">91</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">262</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_logical &lt;- rep(c(TRUE, FALSE), c(n_true, n_false))</pre>
+                      <pre class="language-r">      FUN = function(x) sum(table(fct)[x]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">92</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">263</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_proportion(df = x_logical, ...)</pre>
+                      <pre class="language-r">      FUN.VALUE = 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">264</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">265</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">95</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">266</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn estimate_multinomial_rsp Formatted analysis function which is used as `afun`</pre>
+                      <pre class="language-r">  y</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">267</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   in `estimate_multinomial_response()`.</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/summarize_colvars.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Summarize variables in columns</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `a_length_proportion()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' The analyze function [summarize_colvars()] uses the statistics function [s_summary()] to analyze variables that are</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' a_length_proportion(rep("CR", 10), .N_col = 100)</pre>
+                      <pre class="language-r">#' arranged in columns. The variables to analyze should be specified in the table layout via column splits (see</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' a_length_proportion(factor(character(0)), .N_col = 100)</pre>
+                      <pre class="language-r">#' [rtables::split_cols_by()] and [rtables::split_cols_by_multivar()]) prior to using [summarize_colvars()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' The function is a minimal wrapper for [rtables::analyze_colvars()], a function typically used to apply different</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">a_length_proportion &lt;- make_afun(</pre>
+                      <pre class="language-r">#' analysis methods in rows for each column variable. To use the analysis methods as column labels, please refer to</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_length_proportion,</pre>
+                      <pre class="language-r">#' the [analyze_vars_in_cols()] function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats = c(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n_prop = "xx (xx.x%)",</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    prop_ci = "(xx.xx, xx.xx)"</pre>
+                      <pre class="language-r">#' @param ... arguments passed to [s_summary()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @param .indent_mods (named `vector` of `integer`)\cr indent modifiers for the labels. Each element of the vector</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">#'   should be a name-value pair with name corresponding to a statistic specified in `.stats` and value the indentation</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   for that statistic's row label.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn estimate_multinomial_rsp Layout-creating function which can take statistics function arguments</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()] and</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   [rtables::summarize_row_groups()].</pre>
+                      <pre class="language-r">#' A layout object suitable for passing to further layouting functions, or to [rtables::build_table()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Adding this function to an `rtable` layout will summarize the given variables, arrange the output</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' in columns, and add it to the table layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `estimate_multinomial_response()` returns a layout object suitable for passing to further layouting functions,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
+                      <pre class="language-r">#' @seealso [rtables::split_cols_by_multivar()] and [`analyze_colvars_functions`].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the statistics from `s_length_proportion()` to the table layout.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' dta_test &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">#'   USUBJID = rep(1:6, each = 3),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   PARAMCD = rep("lab", 6 * 3),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Use of the layout creating function.</pre>
+                      <pre class="language-r">#'   AVISIT = rep(paste0("V", 1:3), 6),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dta_test &lt;- data.frame(</pre>
+                      <pre class="language-r">#'   ARM = rep(LETTERS[1:3], rep(6, 3)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   USUBJID = paste0("S", 1:12),</pre>
+                      <pre class="language-r">#'   AVAL = c(9:1, rep(NA, 9)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ARM     = factor(rep(LETTERS[1:3], each = 4)),</pre>
+                      <pre class="language-r">#'   CHG = c(1:9, rep(NA, 9))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   AVAL    = c(A = c(1, 1, 1, 1), B = c(0, 0, 1, 1), C = c(0, 0, 0, 0))</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ) %&gt;% mutate(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   AVALC = factor(AVAL,</pre>
+                      <pre class="language-r">#' ## Default output within a `rtables` pipeline.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     levels = c(0, 1),</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     labels = c("Complete Response (CR)", "Partial Response (PR)")</pre>
+                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#'   split_rows_by("AVISIT") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   split_cols_by_multivar(vars = c("AVAL", "CHG")) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   summarize_colvars() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">#'   build_table(dta_test)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   estimate_multinomial_response(var = "AVALC")</pre>
+                      <pre class="language-r">#' ## Selection of statistics, formats and labels also work.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tbl &lt;- build_table(lyt, dta_test)</pre>
+                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   split_rows_by("AVISIT") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tbl</pre>
+                      <pre class="language-r">#'   split_cols_by_multivar(vars = c("AVAL", "CHG")) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   summarize_colvars(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'     .stats = c("n", "mean_sd"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 2</pre>
+                      <pre class="language-r">#'     .formats = c("mean_sd" = "xx.x, xx.x"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">estimate_multinomial_response &lt;- function(lyt,</pre>
+                      <pre class="language-r">#'     .labels = c(n = "n", mean_sd = "Mean, SD")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          var,</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          na_str = default_na_str(),</pre>
+                      <pre class="language-r">#'   build_table(dta_test)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          nested = TRUE,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          ...,</pre>
+                      <pre class="language-r">#' ## Use arguments interpreted by `s_summary`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          show_labels = "hidden",</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          table_names = var,</pre>
+                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          .stats = "prop_ci",</pre>
+                      <pre class="language-r">#'   split_rows_by("AVISIT") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          .formats = NULL,</pre>
+                      <pre class="language-r">#'   split_cols_by_multivar(vars = c("AVAL", "CHG")) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          .labels = NULL,</pre>
+                      <pre class="language-r">#'   summarize_colvars(na.rm = FALSE) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          .indent_mods = NULL) {</pre>
+                      <pre class="language-r">#'   build_table(dta_test)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">63</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(...)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">65</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  afun &lt;- make_afun(</pre>
+                      <pre class="language-r">summarize_colvars &lt;- function(lyt,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">66</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    a_length_proportion,</pre>
+                      <pre class="language-r">                              ...,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">67</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .stats = .stats,</pre>
+                      <pre class="language-r">                              na_str = default_na_str(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">68</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .formats = .formats,</pre>
+                      <pre class="language-r">                              .stats = c("n", "mean_sd", "median", "range", "count_fraction"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">69</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .labels = .labels,</pre>
+                      <pre class="language-r">                              .formats = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .indent_mods = .indent_mods</pre>
+                      <pre class="language-r">                              .labels = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">                              .indent_mods = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">72</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lyt &lt;- split_rows_by(lyt, var = var)</pre>
+                      <pre class="language-r">  extra_args &lt;- list(.stats = .stats, na_str = na_str, ...)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">169</td>
+                    <td class="num">73</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lyt &lt;- summarize_row_groups(lyt, na_str = na_str)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">170</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  if (!is.null(.formats)) extra_args[[".formats"]] &lt;- .formats</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">171</td>
+                    <td class="num">74</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  analyze(</pre>
+                      <pre class="language-r">  if (!is.null(.labels)) extra_args[[".labels"]] &lt;- .labels</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">172</td>
+                    <td class="num">75</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt,</pre>
+                      <pre class="language-r">  if (!is.null(.indent_mods)) extra_args[[".indent_mods"]] &lt;- .indent_mods</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">76</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars = var,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">77</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    afun = afun,</pre>
+                      <pre class="language-r">  analyze_colvars(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">78</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    show_labels = show_labels,</pre>
+                      <pre class="language-r">    lyt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">79</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table_names = table_names,</pre>
+                      <pre class="language-r">    afun = a_summary,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">177</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">80</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    na_str = na_str,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    nested = nested,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">81</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    extra_args = extra_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -167189,14 +165931,14 @@ <h2>tern coverage - 95.64%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/utils_split_funs.R" class="hidden">
+            <div id="R/survival_biomarkers_subgroups.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Custom split functions</pre>
+                      <pre class="language-r">#' Tabulate biomarker effects on survival by subgroup</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -167224,140 +165966,140 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Collection of useful functions that are expanding on the core list of functions</pre>
+                      <pre class="language-r">#' The [tabulate_survival_biomarkers()] function creates a layout element to tabulate the estimated effects of multiple</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' provided by `rtables`. See [rtables::custom_split_funs] and [rtables::make_split_fun()]</pre>
+                      <pre class="language-r">#' continuous biomarker variables on survival across subgroups, returning statistics including median survival time and</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' for more information on how to make a custom split function. All these functions</pre>
+                      <pre class="language-r">#' hazard ratio for each population subgroup. The table is created from `df`, a list of data frames returned by</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' work with [rtables::split_rows_by()] argument `split_fun` to modify the way the split</pre>
+                      <pre class="language-r">#' [extract_survival_biomarkers()], with the statistics to include specified via the `vars` parameter.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' happens. For other split functions, consider consulting [`rtables::split_funcs`].</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' A forest plot can be created from the resulting table using the [g_forest()] function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [rtables::make_split_fun()]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @inheritParams fit_coxreg_multivar</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name utils_split_funs</pre>
+                      <pre class="language-r">#' @inheritParams survival_duration_subgroups</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param df (`data.frame`)\cr containing all analysis variables, as returned by</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn utils_split_funs Split function to place reference group facet at a specific position</pre>
+                      <pre class="language-r">#'   [extract_survival_biomarkers()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'  during post-processing stage.</pre>
+                      <pre class="language-r">#' @param vars (`character`)\cr the names of statistics to be reported among:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   * `n_tot_events`: Total number of events per group.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param position (`string` or `integer`)\cr position to use for the reference group facet. Can be `"first"`,</pre>
+                      <pre class="language-r">#'   * `n_tot`: Total number of observations per group.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `"last"`, or a specific position.</pre>
+                      <pre class="language-r">#'   * `median`: Median survival time.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   * `hr`: Hazard ratio.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'   * `ci`: Confidence interval of hazard ratio.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `ref_group_position()` returns an utility function that puts the reference group</pre>
+                      <pre class="language-r">#'   * `pval`: p-value of the effect.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   as first, last or at a certain position and needs to be assigned to `split_fun`.</pre>
+                      <pre class="language-r">#'   Note, one of the statistics `n_tot` and `n_tot_events`, as well as both `hr` and `ci` are required.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -167371,14 +166113,14 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @details These functions create a layout starting from a data frame which contains</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">#'   the required statistics. The tables are then typically used as input for forest plots.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -167392,28 +166134,28 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dat &lt;- data.frame(</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   x = factor(letters[1:5], levels = letters[5:1]),</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   y = 1:5</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' adtte &lt;- tern_ex_adtte</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -167427,140 +166169,140 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # With rtables layout functions</pre>
+                      <pre class="language-r">#' # Save variable labels before data processing steps.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">#' adtte_labels &lt;- formatters::var_labels(adtte)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("x", ref_group = "c", split_fun = ref_group_position("last")) %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze("y") %&gt;%</pre>
+                      <pre class="language-r">#' adtte_f &lt;- adtte %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(dat)</pre>
+                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   mutate(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # With tern layout funcitons</pre>
+                      <pre class="language-r">#'     AVALU = as.character(AVALU),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adtte_f &lt;- tern_ex_adtte %&gt;%</pre>
+                      <pre class="language-r">#'     is_event = CNSR == 0</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mutate(</pre>
+                      <pre class="language-r">#' labels &lt;- c("AVALU" = adtte_labels[["AVALU"]], "is_event" = "Event Flag")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     AVAL = day2month(AVAL),</pre>
+                      <pre class="language-r">#' formatters::var_labels(adtte_f)[names(labels)] &lt;- labels</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     is_event = CNSR == 0</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#' # Typical analysis of two continuous biomarkers `BMRKR1` and `AGE`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' # in multiple regression models containing one covariate `RACE`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">#' # as well as one stratification variable `STRATA1`. The subgroups</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by(var = "ARMCD", ref_group = "ARM B", split_fun = ref_group_position("first")) %&gt;%</pre>
+                      <pre class="language-r">#' # are defined by the levels of `BMRKR2`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   surv_time(</pre>
+                      <pre class="language-r">#' df &lt;- extract_survival_biomarkers(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     vars = "AVAL",</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     var_labels = "Survival Time (Months)",</pre>
+                      <pre class="language-r">#'     tte = "AVAL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -167574,2221 +166316,1921 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">#'     biomarkers = c("BMRKR1", "AGE"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(df = adtte_f)</pre>
+                      <pre class="language-r">#'     strata = "STRATA1",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     covariates = "SEX",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">#'     subgroups = "BMRKR2"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by(var = "ARMCD", ref_group = "ARM B", split_fun = ref_group_position(2)) %&gt;%</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                      <pre class="language-r">#'   label_all = "Total Patients",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   surv_time(</pre>
+                      <pre class="language-r">#'   data = adtte_f</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     vars = "AVAL",</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     var_labels = "Survival Time (Months)",</pre>
+                      <pre class="language-r">#' df</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     is_event = "is_event",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">#' # Here we group the levels of `BMRKR2` manually.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(df = adtte_f)</pre>
+                      <pre class="language-r">#' df_grouped &lt;- extract_survival_biomarkers(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'     tte = "AVAL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ref_group_position &lt;- function(position = "first") {</pre>
+                      <pre class="language-r">#'     is_event = "is_event",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">70</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  make_split_fun(</pre>
+                      <pre class="language-r">#'     biomarkers = c("BMRKR1", "AGE"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">71</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    post = list(</pre>
+                      <pre class="language-r">#'     strata = "STRATA1",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">72</td>
-                    <td class="coverage">20<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      function(splret, spl, fulldf) {</pre>
+                      <pre class="language-r">#'     covariates = "SEX",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">73</td>
-                    <td class="coverage">57<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!"ref_group_value" %in% methods::slotNames(spl)) {</pre>
+                      <pre class="language-r">#'     subgroups = "BMRKR2"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">74</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          stop("Reference group is undefined.")</pre>
+                      <pre class="language-r">#'   ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#'   data = adtte_f,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   groups_lists = list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">77</td>
-                    <td class="coverage">56<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        spl_var &lt;- rtables:::spl_payload(spl)</pre>
+                      <pre class="language-r">#'     BMRKR2 = list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">78</td>
-                    <td class="coverage">56<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        fulldf[[spl_var]] &lt;- factor(fulldf[[spl_var]])</pre>
+                      <pre class="language-r">#'       "low" = "LOW",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">79</td>
-                    <td class="coverage">56<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        init_lvls &lt;- levels(fulldf[[spl_var]])</pre>
+                      <pre class="language-r">#'       "low/medium" = c("LOW", "MEDIUM"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'       "low/medium/high" = c("LOW", "MEDIUM", "HIGH")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">81</td>
-                    <td class="coverage">56<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (!all(names(splret$values) %in% init_lvls)) {</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">82</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          stop("This split function does not work with combination facets.")</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' df_grouped</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">85</td>
-                    <td class="coverage">56<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ref_group_pos &lt;- which(init_lvls == rtables:::spl_ref_group(spl))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">86</td>
-                    <td class="coverage">56<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        pos_choices &lt;- c("first", "last")</pre>
+                      <pre class="language-r">#' @name survival_biomarkers_subgroups</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">87</td>
-                    <td class="coverage">56<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (checkmate::test_choice(position, pos_choices) &amp;&amp; position == "first") {</pre>
+                      <pre class="language-r">#' @order 1</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">88</td>
-                    <td class="coverage">41<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          pos &lt;- 0</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">89</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else if (checkmate::test_choice(position, pos_choices) &amp;&amp; position == "last") {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">90</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          pos &lt;- length(init_lvls)</pre>
+                      <pre class="language-r">#' Prepare survival data estimates for multiple biomarkers in a single data frame</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">91</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else if (checkmate::test_int(position, lower = 1, upper = length(init_lvls))) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">92</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          pos &lt;- position - 1</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">94</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          stop("Wrong input for ref group position. It must be 'first', 'last', or a integer.")</pre>
+                      <pre class="language-r">#' Prepares estimates for number of events, patients and median survival times, as well as hazard ratio estimates,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">#' confidence intervals and p-values, for multiple biomarkers across population subgroups in a single data frame.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' `variables` corresponds to the names of variables found in `data`, passed as a named `list` and requires elements</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">97</td>
-                    <td class="coverage">56<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        reord_lvls &lt;- append(init_lvls[-ref_group_pos], init_lvls[ref_group_pos], after = pos)</pre>
+                      <pre class="language-r">#' `tte`, `is_event`, `biomarkers` (vector of continuous biomarker variables), and optionally `subgroups` and `strata`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">98</td>
-                    <td class="coverage">56<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ord &lt;- match(reord_lvls, names(splret$values))</pre>
+                      <pre class="language-r">#' `groups_lists` optionally specifies groupings for `subgroups` variables.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">100</td>
-                    <td class="coverage">56<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        make_split_result(</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">101</td>
-                    <td class="coverage">56<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          splret$values[ord],</pre>
+                      <pre class="language-r">#' @inheritParams fit_coxreg_multivar</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">102</td>
-                    <td class="coverage">56<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          splret$datasplit[ord],</pre>
+                      <pre class="language-r">#' @inheritParams survival_duration_subgroups</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">103</td>
-                    <td class="coverage">56<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          splret$labels[ord]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">#' @return A `data.frame` with columns `biomarker`, `biomarker_label`, `n_tot`, `n_tot_events`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">#'   `median`, `hr`, `lcl`, `ucl`, `conf_level`, `pval`, `pval_label`, `subgroup`, `var`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'   `var_label`, and `row_type`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @seealso [h_coxreg_mult_cont_df()] which is used internally, [tabulate_survival_biomarkers()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn utils_split_funs Split function to change level order based on an `integer`</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   vector or a `character` vector that represent the split variable's factor levels.</pre>
+                      <pre class="language-r">extract_survival_biomarkers &lt;- function(variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                        data,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param order (`character` or `numeric`)\cr vector of ordering indices for the split facets.</pre>
+                      <pre class="language-r">                                        groups_lists = list(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                        control = control_coxreg(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">                                        label_all = "All Patients") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">116</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `level_order()` returns an utility function that changes the original levels' order,</pre>
+                      <pre class="language-r">  if ("strat" %in% names(variables)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">117</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   depending on input `order` and split levels.</pre>
+                      <pre class="language-r">    warning(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">118</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      "Warning: the `strat` element name of the `variables` list argument to `extract_survival_biomarkers() ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">119</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">      "was deprecated in tern 0.9.4.\n  ",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">120</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # level_order --------</pre>
+                      <pre class="language-r">      "Please use the name `strata` instead of `strat` in the `variables` argument."</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Even if default would bring ref_group first, the original order puts it last</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">122</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">    variables[["strata"]] &lt;- variables[["strat"]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("Species", split_fun = level_order(c(1, 3, 2))) %&gt;%</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze("Sepal.Length") %&gt;%</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">125</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(iris)</pre>
+                      <pre class="language-r">  checkmate::assert_list(variables)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">126</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_character(variables$subgroups, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">127</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # character vector</pre>
+                      <pre class="language-r">  checkmate::assert_string(label_all)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' new_order &lt;- level_order(levels(iris$Species)[c(1, 3, 2)])</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">  # Start with all patients.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">130</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("Species", ref_group = "virginica", split_fun = new_order) %&gt;%</pre>
+                      <pre class="language-r">  result_all &lt;- h_coxreg_mult_cont_df(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">131</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze("Sepal.Length") %&gt;%</pre>
+                      <pre class="language-r">    variables = variables,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">132</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(iris)</pre>
+                      <pre class="language-r">    data = data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">133</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    control = control</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">135</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">level_order &lt;- function(order) {</pre>
+                      <pre class="language-r">  result_all$subgroup &lt;- label_all</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">136</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  make_split_fun(</pre>
+                      <pre class="language-r">  result_all$var &lt;- "ALL"</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">137</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    post = list(</pre>
+                      <pre class="language-r">  result_all$var_label &lt;- label_all</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">138</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      function(splret, spl, fulldf) {</pre>
+                      <pre class="language-r">  result_all$row_type &lt;- "content"</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">139</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">6<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        if (checkmate::test_integerish(order)) {</pre>
+                      <pre class="language-r">  if (is.null(variables$subgroups)) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">140</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          checkmate::assert_integerish(order, lower = 1, upper = length(splret$values))</pre>
+                      <pre class="language-r">    # Only return result for all patients.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">141</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ord &lt;- order</pre>
+                      <pre class="language-r">    result_all</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        } else {</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">143</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          checkmate::assert_character(order, len = length(splret$values))</pre>
+                      <pre class="language-r">    # Add subgroups results.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">144</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          checkmate::assert_set_equal(order, names(splret$values), ordered = FALSE)</pre>
+                      <pre class="language-r">    l_data &lt;- h_split_by_subgroups(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">145</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          ord &lt;- match(order, names(splret$values))</pre>
+                      <pre class="language-r">      data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">146</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        }</pre>
+                      <pre class="language-r">      variables$subgroups,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">147</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        make_split_result(</pre>
+                      <pre class="language-r">      groups_lists = groups_lists</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">148</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          splret$values[ord],</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">149</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          splret$datasplit[ord],</pre>
+                      <pre class="language-r">    l_result &lt;- lapply(l_data, function(grp) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">150</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          splret$labels[ord]</pre>
+                      <pre class="language-r">      result &lt;- h_coxreg_mult_cont_df(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">151</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">        variables = variables,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">152</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">        data = grp$df,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">153</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">        control = control</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">155</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      result_labels &lt;- grp$df_labels[rep(1, times = nrow(result)), ]</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/count_patients_events_in_cols.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">156</td>
+                    <td class="coverage">25<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Count patient events in columns</pre>
+                      <pre class="language-r">      cbind(result, result_labels)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">158</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">    result_subgroups &lt;- do.call(rbind, args = c(l_result, make.row.names = FALSE))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">159</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    result_subgroups$row_type &lt;- "analysis"</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">160</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The summarize function [summarize_patients_events_in_cols()] creates a layout element to summarize patient</pre>
+                      <pre class="language-r">    rbind(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">161</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' event counts in columns.</pre>
+                      <pre class="language-r">      result_all,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">162</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      result_subgroups</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function analyzes the elements (events) supplied via the `filters_list` parameter and returns a row</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' with counts of number of patients for each event as well as the total numbers of patients and events.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The `id` variable is used to indicate unique subject identifiers (defaults to `USUBJID`).</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' If there are multiple occurrences of the same event recorded for a patient, the event is only counted once.</pre>
+                      <pre class="language-r">#' @describeIn survival_biomarkers_subgroups Table-creating function which creates a table</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   summarizing biomarker effects on survival by subgroup.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param filters_list (named `list` of `character`)\cr list where each element in this list describes one</pre>
+                      <pre class="language-r">#' @param label_all `r lifecycle::badge("deprecated")`\cr please assign the `label_all` parameter within the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   type of event describe by filters, in the same format as [s_count_patients_with_event()].</pre>
+                      <pre class="language-r">#'   [extract_survival_biomarkers()] function when creating `df`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   If it has a label, then this will be used for the column title.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param empty_stats (`character`)\cr optional names of the statistics that should be returned empty such</pre>
+                      <pre class="language-r">#' @return An `rtables` table summarizing biomarker effects on survival by subgroup.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   that corresponding table cells will stay blank.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param custom_label (`string` or `NULL`)\cr if provided and `labelstr` is empty then this will</pre>
+                      <pre class="language-r">#' @note In contrast to [tabulate_survival_subgroups()] this tabulation function does</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   be used as label.</pre>
+                      <pre class="language-r">#'   not start from an input layout `lyt`. This is because internally the table is</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run</pre>
+                      <pre class="language-r">#'   created by combining multiple subtables.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `get_stats("summarize_patients_events_in_cols")` to see available statistics for this function, in addition</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to any added using `filters_list`.</pre>
+                      <pre class="language-r">#' @seealso [h_tab_surv_one_biomarker()] which is used internally, [extract_survival_biomarkers()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name count_patients_events_in_cols</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 1</pre>
+                      <pre class="language-r">#' ## Table with default columns.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#' tabulate_survival_biomarkers(df)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn count_patients_events_in_cols Statistics function which counts numbers of patients and multiple</pre>
+                      <pre class="language-r">#' ## Table with a manually chosen set of columns: leave out "pval", reorder.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   events defined by filters. Used as analysis function `afun` in `summarize_patients_events_in_cols()`.</pre>
+                      <pre class="language-r">#' tab &lt;- tabulate_survival_biomarkers(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   df = df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'   vars = c("n_tot_events", "ci", "n_tot", "median", "hr"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_count_patients_and_multiple_events()` returns a list with the statistics:</pre>
+                      <pre class="language-r">#'   time_unit = as.character(adtte_f$AVALU[1])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   - `unique`: number of unique patients in `df`.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   - `all`: number of rows in `df`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   - one element with the same name as in `filters_list`: number of rows in `df`,</pre>
+                      <pre class="language-r">#' ## Finally produce the forest plot.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     i.e. events, fulfilling the filter condition.</pre>
+                      <pre class="language-r">#' \donttest{</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' g_forest(tab, xlim = c(0.8, 1.2))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_count_patients_and_multiple_events &lt;- function(df, # nolint</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                 id,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                 filters_list,</pre>
+                      <pre class="language-r">#' @order 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                 empty_stats = character(),</pre>
+                      <pre class="language-r">tabulate_survival_biomarkers &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                 labelstr = "",</pre>
+                      <pre class="language-r">                                         vars = c("n_tot", "n_tot_events", "median", "hr", "ci", "pval"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                 custom_label = NULL) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">47</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(filters_list, names = "named")</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">48</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_data_frame(df)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(id)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">50</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_disjunct(c("unique", "all"), names(filters_list))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">51</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(empty_stats)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">52</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(labelstr)</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">53</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(custom_label, null.ok = TRUE)</pre>
+                      <pre class="language-r">                                         groups_lists = list(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                         control = control_coxreg(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Below we want to count each row in `df` once, therefore introducing this helper index column.</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">56</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  df$.row_index &lt;- as.character(seq_len(nrow(df)))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- list()</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  row_label &lt;- if (labelstr != "") {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">59</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    labelstr</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  } else if (!is.null(custom_label)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    custom_label</pre>
+                      <pre class="language-r">                                         label_all = lifecycle::deprecated(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">7<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    "counts"</pre>
+                      <pre class="language-r">                                         time_unit = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">205</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  y$unique &lt;- formatters::with_label(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    s_num_patients_content(df = df, .N_col = 1, .var = id, required = NULL)$unique[1L],</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">67</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    row_label</pre>
+                      <pre class="language-r">                                         na_str = default_na_str(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">69</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  y$all &lt;- formatters::with_label(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">70</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    nrow(df),</pre>
+                      <pre class="language-r">                                         .indent_mods = 0L) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">71</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    row_label</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">72</td>
-                    <td class="coverage"></td>
+                    <td class="num">207</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  if (lifecycle::is_present(label_all)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">73</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">208</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  events &lt;- Map(</pre>
+                      <pre class="language-r">    lifecycle::deprecate_warn(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">209</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    function(filters) {</pre>
+                      <pre class="language-r">      "0.9.5", "tabulate_survival_biomarkers(label_all)",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">210</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      formatters::with_label(</pre>
+                      <pre class="language-r">      details = paste(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">211</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        s_count_patients_with_event(df = df, .var = ".row_index", filters = filters, .N_col = 1, .N_row = 1)$count,</pre>
+                      <pre class="language-r">        "Please assign the `label_all` parameter within the",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">25<em>x</em></td>
+                    <td class="num">212</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        row_label</pre>
+                      <pre class="language-r">        "`extract_survival_biomarkers()` function when creating `df`."</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    filters = filters_list</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">82</td>
-                    <td class="coverage">9<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">216</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y_complete &lt;- c(y, events)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">83</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">217</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- if (length(empty_stats) &gt; 0) {</pre>
+                      <pre class="language-r">  checkmate::assert_data_frame(df)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">218</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y_reduced &lt;- y_complete</pre>
+                      <pre class="language-r">  checkmate::assert_character(df$biomarker)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">85</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">219</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    for (stat in intersect(names(y_complete), empty_stats)) {</pre>
+                      <pre class="language-r">  checkmate::assert_character(df$biomarker_label)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">86</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">220</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y_reduced[[stat]] &lt;- formatters::with_label(character(), obj_label(y_reduced[[stat]]))</pre>
+                      <pre class="language-r">  checkmate::assert_subset(vars, get_stats("tabulate_survival_biomarkers"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">88</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">222</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y_reduced</pre>
+                      <pre class="language-r">  extra_args &lt;- list(groups_lists = groups_lists, control = control)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">90</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">224</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y_complete</pre>
+                      <pre class="language-r">  df_subs &lt;- split(df, f = df$biomarker)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">91</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">225</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  tabs &lt;- lapply(df_subs, FUN = function(df_sub) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">92</td>
+                    <td class="num">226</td>
                     <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">93</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">94</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">95</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn count_patients_events_in_cols Layout-creating function which can take statistics function</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">96</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   arguments and additional format arguments. This function is a wrapper for [rtables::summarize_row_groups()].</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">97</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">98</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @param col_split (`flag`)\cr whether the columns should be split.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">99</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'   Set to `FALSE` when the required column split has been done already earlier in the layout pipe.</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">100</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">101</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">    tab_sub &lt;- h_tab_surv_one_biomarker(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">102</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">227</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `summarize_patients_events_in_cols()` returns a layout object suitable for passing to further layouting functions,</pre>
+                      <pre class="language-r">      df = df_sub,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">103</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">228</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted content rows</pre>
+                      <pre class="language-r">      vars = vars,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">104</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">229</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   containing the statistics from `s_count_patients_and_multiple_events()` to the table layout.</pre>
+                      <pre class="language-r">      time_unit = time_unit,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">105</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">230</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      na_str = na_str,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">106</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">231</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">      .indent_mods = .indent_mods,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">107</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">232</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- data.frame(</pre>
+                      <pre class="language-r">      extra_args = extra_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">233</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   USUBJID = rep(c("id1", "id2", "id3", "id4"), c(2, 3, 1, 1)),</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ARM = c("A", "A", "B", "B", "B", "B", "A"),</pre>
+                      <pre class="language-r">    # Insert label row as first row in table.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">110</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">235</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   AESER = rep("Y", 7),</pre>
+                      <pre class="language-r">    label_at_path(tab_sub, path = row_paths(tab_sub)[[1]][1]) &lt;- df_sub$biomarker_label[1]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">111</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">236</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   AESDTH = c("Y", "Y", "N", "Y", "Y", "N", "N"),</pre>
+                      <pre class="language-r">    tab_sub</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   AEREL = c("Y", "Y", "N", "Y", "Y", "N", "Y"),</pre>
+                      <pre class="language-r">  })</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">113</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">238</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   AEDECOD = c("A", "A", "A", "B", "B", "C", "D"),</pre>
+                      <pre class="language-r">  result &lt;- do.call(rbind, tabs)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">239</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   AEBODSYS = rep(c("SOC1", "SOC2", "SOC3"), c(3, 3, 1))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">115</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">240</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">  n_tot_ids &lt;- grep("^n_tot", vars)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">116</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">241</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  hr_id &lt;- match("hr", vars)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">117</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">242</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `summarize_patients_events_in_cols()`</pre>
+                      <pre class="language-r">  ci_id &lt;- match("ci", vars)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">118</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">243</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">  structure(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">119</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">244</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   summarize_patients_events_in_cols(</pre>
+                      <pre class="language-r">    result,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">120</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">245</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     filters_list = list(</pre>
+                      <pre class="language-r">    forest_header = paste0(c("Higher", "Lower"), "\nBetter"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">121</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">246</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       related = formatters::with_label(c(AEREL = "Y"), "Events (Related)"),</pre>
+                      <pre class="language-r">    col_x = hr_id,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">122</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">247</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       fatal = c(AESDTH = "Y"),</pre>
+                      <pre class="language-r">    col_ci = ci_id,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">123</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">248</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       fatal_related = c(AEREL = "Y", AESDTH = "Y")</pre>
+                      <pre class="language-r">    col_symbol_size = n_tot_ids[1]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     ),</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">250</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     custom_label = "%s Total number of patients and events"</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/missing_data.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">#' Missing data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(df)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 2</pre>
+                      <pre class="language-r">#' Substitute missing data with a string or factor level.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">summarize_patients_events_in_cols &lt;- function(lyt, # nolint</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              id = "USUBJID",</pre>
+                      <pre class="language-r">#' @param x (`factor` or `character`)\cr values for which any missing values should be substituted.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              filters_list = list(),</pre>
+                      <pre class="language-r">#' @param label (`string`)\cr string that missing data should be replaced with.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              empty_stats = character(),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              na_str = default_na_str(),</pre>
+                      <pre class="language-r">#' @return `x` with any `NA` values substituted by `label`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              ...,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              .stats = c(</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                "unique",</pre>
+                      <pre class="language-r">#' explicit_na(c(NA, "a", "b"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                "all",</pre>
+                      <pre class="language-r">#' is.na(explicit_na(c(NA, "a", "b")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                names(filters_list)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              ),</pre>
+                      <pre class="language-r">#' explicit_na(factor(c(NA, "a", "b")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              .labels = c(</pre>
+                      <pre class="language-r">#' is.na(explicit_na(factor(c(NA, "a", "b"))))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                unique = "Patients (All)",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                all = "Events (All)",</pre>
+                      <pre class="language-r">#' explicit_na(sas_na(c("a", "")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                                labels_or_names(filters_list)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              ),</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                              col_split = TRUE) {</pre>
+                      <pre class="language-r">explicit_na &lt;- function(x, label = "&lt;Missing&gt;") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">23</td>
+                    <td class="coverage">254<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(id = id, filters_list = filters_list, empty_stats = empty_stats, ...)</pre>
+                      <pre class="language-r">  checkmate::assert_string(label)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">150</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">25</td>
+                    <td class="coverage">254<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  afun_list &lt;- Map(</pre>
+                      <pre class="language-r">  if (is.factor(x)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">26</td>
+                    <td class="coverage">151<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    function(stat) {</pre>
+                      <pre class="language-r">    x &lt;- forcats::fct_na_value_to_level(x, label)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">27</td>
+                    <td class="coverage">151<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      make_afun(</pre>
+                      <pre class="language-r">    forcats::fct_drop(x, only = label)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">153</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">28</td>
+                    <td class="coverage">103<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        s_count_patients_and_multiple_events,</pre>
+                      <pre class="language-r">  } else if (is.character(x)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">154</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">29</td>
+                    <td class="coverage">103<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        .stats = stat,</pre>
+                      <pre class="language-r">    x[is.na(x)] &lt;- label</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">7<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">        .formats = "xx."</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">156</td>
-                    <td class="coverage"></td>
+                    <td class="num">30</td>
+                    <td class="coverage">103<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    x</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    },</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">32</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stat = .stats</pre>
+                      <pre class="language-r">    stop("only factors and character vectors allowed")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">160</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (col_split) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    lyt &lt;- split_cols_by_multivar(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      lyt = lyt,</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      vars = rep(id, length(.stats)),</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      varlabels = .labels[.stats]</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  summarize_row_groups(</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">2<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    lyt = lyt,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">36</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    cfun = afun_list,</pre>
+                      <pre class="language-r">#' Convert strings to `NA`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">37</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">38</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args = extra_args</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' SAS imports missing data as empty strings or strings with whitespaces only. This helper function can be used to</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/h_pkparam_sort.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Sort pharmacokinetic data by `PARAM` variable</pre>
+                      <pre class="language-r">#' convert these values to `NA`s.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' @inheritParams explicit_na</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param empty (`flag`)\cr if `TRUE`, empty strings get replaced by `NA`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param pk_data (`data.frame`)\cr pharmacokinetic data frame.</pre>
+                      <pre class="language-r">#' @param whitespaces (`flag`)\cr if `TRUE`, strings made from only whitespaces get replaced with `NA`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param key_var (`string`)\cr key variable used to merge pk_data and metadata created by [d_pkparam()].</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return `x` with `""` and/or whitespace-only values substituted by `NA`, depending on the values of</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A pharmacokinetic `data.frame` sorted by a `PARAM` variable.</pre>
+                      <pre class="language-r">#'   `empty` and `whitespaces`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">#' sas_na(c("1", "", " ", "   ", "b"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' sas_na(factor(c("", " ", "b")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adpp &lt;- tern_ex_adpp %&gt;% mutate(PKPARAM = factor(paste0(PARAM, " (", AVALU, ")")))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' pk_ordered_data &lt;- h_pkparam_sort(adpp)</pre>
+                      <pre class="language-r">#' is.na(sas_na(c("1", "", " ", "   ", "b")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_pkparam_sort &lt;- function(pk_data, key_var = "PARAMCD") {</pre>
+                      <pre class="language-r">sas_na &lt;- function(x, empty = TRUE, whitespaces = TRUE) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">18</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">58</td>
+                    <td class="coverage">243<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(pk_data, list(key_var = key_var))</pre>
+                      <pre class="language-r">  checkmate::assert_flag(empty)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">19</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">59</td>
+                    <td class="coverage">243<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  pk_data$PARAMCD &lt;- pk_data[[key_var]]</pre>
+                      <pre class="language-r">  checkmate::assert_flag(whitespaces)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">21</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  ordered_pk_data &lt;- d_pkparam()</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r"></pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                    <td class="num">61</td>
+                    <td class="coverage">243<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Add the numeric values from ordered_pk_data to pk_data</pre>
+                      <pre class="language-r">  if (is.factor(x)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">24</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  joined_data &lt;- merge(pk_data, ordered_pk_data, by = "PARAMCD", suffixes = c("", ".y"))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                    <td class="num">62</td>
+                    <td class="coverage">135<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    empty_levels &lt;- levels(x) == ""</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">26</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">63</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  joined_data &lt;- joined_data[, -grep(".*.y$", colnames(joined_data))]</pre>
+                      <pre class="language-r">    if (empty &amp;&amp; any(empty_levels)) levels(x)[empty_levels] &lt;- NA</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">28</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">65</td>
+                    <td class="coverage">135<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  joined_data$TLG_ORDER &lt;- as.numeric(joined_data$TLG_ORDER)</pre>
+                      <pre class="language-r">    ws_levels &lt;- grepl("^\\s+$", levels(x))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">66</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    if (whitespaces &amp;&amp; any(ws_levels)) levels(x)[ws_levels] &lt;- NA</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Then order PARAM based on this column</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">31</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">68</td>
+                    <td class="coverage">135<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  joined_data$PARAM &lt;- factor(joined_data$PARAM,</pre>
+                      <pre class="language-r">    x</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">32</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">69</td>
+                    <td class="coverage">108<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    levels = unique(joined_data$PARAM[order(joined_data$TLG_ORDER)]),</pre>
+                      <pre class="language-r">  } else if (is.character(x)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">33</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    ordered = TRUE</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                    <td class="num">70</td>
+                    <td class="coverage">108<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    if (empty) x[x == ""] &lt;- NA_character_</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">36</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">72</td>
+                    <td class="coverage">108<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  joined_data$TLG_DISPLAY &lt;- factor(joined_data$TLG_DISPLAY,</pre>
+                      <pre class="language-r">    if (whitespaces) x[grepl("^\\s+$", x)] &lt;- NA_character_</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">37</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">73</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    levels = unique(joined_data$TLG_DISPLAY[order(joined_data$TLG_ORDER)]),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">38</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">74</td>
+                    <td class="coverage">108<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ordered = TRUE</pre>
+                      <pre class="language-r">    x</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">40</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">76</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    stop("only factors and character vectors allowed")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">41</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">77</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  joined_data</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -169797,14 +168239,14 @@ <h2>tern coverage - 95.64%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/utils_factor.R" class="hidden">
+            <div id="R/score_occurrences.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Combine factor levels</pre>
+                      <pre class="language-r">#' Occurrence table sorting</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -169832,91 +168274,91 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Combine specified old factor Levels in a single new level.</pre>
+                      <pre class="language-r">#' Functions to score occurrence table subtables and rows which can be used in the</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' sorting of occurrence tables.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`factor`)\cr factor variable.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param levels (`character`)\cr level names to be combined.</pre>
+                      <pre class="language-r">#' @name score_occurrences</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param new_level (`string`)\cr name of new level.</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `factor` with the new levels.</pre>
+                      <pre class="language-r">#' @describeIn score_occurrences Scoring function which sums the counts across all</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   columns. It will fail if anything else but counts are used.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x &lt;- factor(letters[1:5], levels = letters[5:1])</pre>
+                      <pre class="language-r">#' @inheritParams rtables_access</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' combine_levels(x, levels = c("a", "b"))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' combine_levels(x, c("e", "b"))</pre>
+                      <pre class="language-r">#' * `score_occurrences()` returns the sum of counts across all columns of a table row.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -169930,168 +168372,168 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @seealso [h_row_first_values()]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">combine_levels &lt;- function(x, levels, new_level = paste(levels, collapse = "/")) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">21</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_factor(x)</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">22</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(levels, levels(x))</pre>
+                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">24</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lvls &lt;- levels(x)</pre>
+                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   analyze_num_patients(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">26</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lvls[lvls %in% levels] &lt;- new_level</pre>
+                      <pre class="language-r">#'     vars = "USUBJID",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     .stats = c("unique"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">28</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  levels(x) &lt;- lvls</pre>
+                      <pre class="language-r">#'     .labels = c("Total number of patients with at least one event")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">30</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x</pre>
+                      <pre class="language-r">#'   split_rows_by("AEBODSYS", child_labels = "visible", nested = FALSE) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   summarize_num_patients(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     var = "USUBJID",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Conversion of a vector to a factor</pre>
+                      <pre class="language-r">#'     .stats = c("unique", "nonunique"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     .labels = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Converts `x` to a factor and keeps its attributes. Warns appropriately such that the user</pre>
+                      <pre class="language-r">#'       "Total number of patients with at least one event",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' can decide whether they prefer converting to factor manually (e.g. for full control of</pre>
+                      <pre class="language-r">#'       "Total number of events"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' factor levels).</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`vector`)\cr object to convert.</pre>
+                      <pre class="language-r">#'   count_occurrences(vars = "AEDECOD")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x_name (`string`)\cr name of `x`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param na_level (`string`)\cr the explicit missing level which should be used when converting a character vector.</pre>
+                      <pre class="language-r">#' tbl &lt;- build_table(lyt, tern_ex_adae, alt_counts_df = tern_ex_adsl) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param verbose (`flag`)\cr defaults to `TRUE`. It prints out warnings and messages.</pre>
+                      <pre class="language-r">#'   prune_table()</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -170105,385 +168547,385 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `factor` with same attributes (except class) as `x`. Does not modify `x` if already a `factor`.</pre>
+                      <pre class="language-r">#' tbl_sorted &lt;- tbl %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   sort_at_path(path = c("AEBODSYS", "*", "AEDECOD"), scorefun = score_occurrences)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">as_factor_keep_attributes &lt;- function(x,</pre>
+                      <pre class="language-r">#' tbl_sorted</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      x_name = deparse(substitute(x)),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      na_level = "&lt;Missing&gt;",</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      verbose = TRUE) {</pre>
+                      <pre class="language-r">score_occurrences &lt;- function(table_row) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">51</td>
-                    <td class="coverage">205<em>x</em></td>
+                    <td class="coverage">37<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_atomic(x)</pre>
+                      <pre class="language-r">  row_counts &lt;- h_row_counts(table_row)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">52</td>
-                    <td class="coverage">205<em>x</em></td>
+                    <td class="coverage">37<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(x_name)</pre>
+                      <pre class="language-r">  sum(row_counts)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">53</td>
-                    <td class="coverage">205<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(na_level)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">54</td>
-                    <td class="coverage">205<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(verbose)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">55</td>
-                    <td class="coverage">205<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.factor(x)) {</pre>
+                      <pre class="language-r">#' @describeIn score_occurrences Scoring functions can be produced by this constructor to only include</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">56</td>
-                    <td class="coverage">186<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(x)</pre>
+                      <pre class="language-r">#'   specific columns in the scoring. See [h_row_counts()] for further information.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">58</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_class &lt;- class(x)[1]</pre>
+                      <pre class="language-r">#' @inheritParams has_count_in_cols</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">59</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (verbose) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">60</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning(paste(</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">61</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "automatically converting", x_class, "variable", x_name,</pre>
+                      <pre class="language-r">#' * `score_occurrences_cols()` returns a function that sums counts across all specified columns</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">62</td>
-                    <td class="coverage">15<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "to factor, better manually convert to factor to avoid failures"</pre>
+                      <pre class="language-r">#'   of a table row.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @seealso [h_row_counts()]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">65</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (identical(length(x), 0L)) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">66</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning(paste(</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">67</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x_name, "has length 0, this can lead to tabulation failures, better convert to factor"</pre>
+                      <pre class="language-r">#' score_cols_a_and_b &lt;- score_occurrences_cols(col_names = c("A: Drug X", "B: Placebo"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' # Note that this here just sorts the AEDECOD inside the AEBODSYS. The AEBODSYS are not sorted.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">70</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.character(x)) {</pre>
+                      <pre class="language-r">#' # That would require a second pass of `sort_at_path`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">71</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_no_na &lt;- explicit_na(sas_na(x), label = na_level)</pre>
+                      <pre class="language-r">#' tbl_sorted &lt;- tbl %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">72</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (any(na_level %in% x_no_na)) {</pre>
+                      <pre class="language-r">#'   sort_at_path(path = c("AEBODSYS", "*", "AEDECOD"), scorefun = score_cols_a_and_b)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">73</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      do.call(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">74</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        structure,</pre>
+                      <pre class="language-r">#' tbl_sorted</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">75</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        c(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">76</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          list(.Data = forcats::fct_relevel(x_no_na, na_level, after = Inf)),</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">77</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">          attributes(x)</pre>
+                      <pre class="language-r">score_occurrences_cols &lt;- function(...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">78</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        )</pre>
+                      <pre class="language-r">  function(table_row) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">79</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    row_counts &lt;- h_row_counts(table_row, ...)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">80</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">    sum(row_counts)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">81</td>
-                    <td class="coverage">16<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      do.call(structure, c(list(.Data = as.factor(x)), attributes(x)))</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="missed">
+                  <tr class="never">
                     <td class="num">84</td>
-                    <td class="coverage">!</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    do.call(structure, c(list(.Data = as.factor(x)), attributes(x)))</pre>
+                      <pre class="language-r">#' @describeIn score_occurrences Scoring functions produced by this constructor can be used on</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   subtables: They sum up all specified column counts in the subtable. This is useful when</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   there is no available content row summing up these counts.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Labels for bins in percent</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' * `score_occurrences_subtable()` returns a function that sums counts in each subtable</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This creates labels for quantile based bins in percent. This assumes the right-closed</pre>
+                      <pre class="language-r">#'   across all specified columns.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' intervals as produced by [cut_quantile_bins()].</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param probs (`numeric`)\cr the probabilities identifying the quantiles.</pre>
+                      <pre class="language-r">#' score_subtable_all &lt;- score_occurrences_subtable(col_names = names(tbl))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   This is a sorted vector of unique `proportion` values, i.e. between 0 and 1, where</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the boundaries 0 and 1 must not be included.</pre>
+                      <pre class="language-r">#' # Note that this code just sorts the AEBODSYS, not the AEDECOD within AEBODSYS. That</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param digits (`integer(1)`)\cr number of decimal places to round the percent numbers.</pre>
+                      <pre class="language-r">#' # would require a second pass of `sort_at_path`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' tbl_sorted &lt;- tbl %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `character` vector with labels in the format `[0%,20%]`, `(20%,50%]`, etc.</pre>
+                      <pre class="language-r">#'   sort_at_path(path = c("AEBODSYS"), scorefun = score_subtable_all, decreasing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -170497,1565 +168939,1704 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' tbl_sorted</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">bins_percent_labels &lt;- function(probs,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                digits = 0) {</pre>
+                      <pre class="language-r">#' @export</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">103</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">score_occurrences_subtable &lt;- function(...) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">104</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  score_table_row &lt;- score_occurrences_cols(...)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">105</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  function(table_tree) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">106</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    table_rows &lt;- collect_leaves(table_tree)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">107</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    counts &lt;- vapply(table_rows, score_table_row, numeric(1))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">108</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    sum(counts)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">109</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">110</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">}</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">111</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">112</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @describeIn score_occurrences Produces a score function for sorting table by summing the first content row in</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">113</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   specified columns. Note that this is extending [rtables::cont_n_onecol()] and [rtables::cont_n_allcols()].</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">114</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">115</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @return</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">116</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' * `score_occurrences_cont_cols()` returns a function that sums counts in the first content row in</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">117</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   specified columns.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">118</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">119</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @export</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">120</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">score_occurrences_cont_cols &lt;- function(...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">103</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">121</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (isFALSE(0 %in% probs)) probs &lt;- c(0, probs)</pre>
+                      <pre class="language-r">  score_table_row &lt;- score_occurrences_cols(...)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">104</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="num">122</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (isFALSE(1 %in% probs)) probs &lt;- c(probs, 1)</pre>
+                      <pre class="language-r">  function(table_tree) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">105</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">123</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(probs, lower = 0, upper = 1, unique = TRUE, sorted = TRUE)</pre>
+                      <pre class="language-r">    if (inherits(table_tree, "ContentRow")) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">124</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  percent &lt;- round(probs * 100, digits = digits)</pre>
+                      <pre class="language-r">      return(NA)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">125</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  left &lt;- paste0(utils::head(percent, -1), "%")</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">126</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  right &lt;- paste0(utils::tail(percent, -1), "%")</pre>
+                      <pre class="language-r">    content_row &lt;- h_content_first_row(table_tree)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">127</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  without_left_bracket &lt;- paste0(left, ",", right, "]")</pre>
+                      <pre class="language-r">    score_table_row(content_row)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">128</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  with_left_bracket &lt;- paste0("[", utils::head(without_left_bracket, 1))</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">129</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (length(without_left_bracket) &gt; 1) {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">7<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/survival_coxph_pairwise.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
+                  <tr class="never">
+                    <td class="num">1</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    with_left_bracket &lt;- c(</pre>
+                      <pre class="language-r">#' Analyze a pairwise Cox-PH model</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">2</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      with_left_bracket,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">114</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">3</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      paste0("(", utils::tail(without_left_bracket, -1))</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' The analyze function [coxph_pairwise()] creates a layout element to analyze a pairwise Cox-PH model.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  with_left_bracket</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' This function can return statistics including p-value, hazard ratio (HR), and HR confidence intervals from both</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' stratified and unstratified Cox-PH models. The variable(s) to be analyzed is specified via the `vars` argument and</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Cut numeric vector into empirical quantile bins</pre>
+                      <pre class="language-r">#' any stratification factors via the `strata` argument.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @inheritParams s_surv_time</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This cuts a numeric vector into sample quantile bins.</pre>
+                      <pre class="language-r">#' @param strata (`character` or `NULL`)\cr variable names indicating stratification factors.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param strat `r lifecycle::badge("deprecated")` Please use the `strata` argument instead.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams bins_percent_labels</pre>
+                      <pre class="language-r">#' @param control (`list`)\cr parameters for comparison details, specified by using the helper function</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`numeric`)\cr the continuous variable values which should be cut into</pre>
+                      <pre class="language-r">#'   [control_coxph()]. Some possible parameter options are:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   quantile bins. This may contain `NA` values, which are then</pre>
+                      <pre class="language-r">#'   * `pval_method` (`string`)\cr p-value method for testing the null hypothesis that hazard ratio = 1. Default</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   not used for the quantile calculations, but included in the return vector.</pre>
+                      <pre class="language-r">#'     method is `"log-rank"` which comes from [survival::survdiff()], can also be set to `"wald"` or `"likelihood"`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param labels (`character`)\cr the unique labels for the quantile bins. When there are `n`</pre>
+                      <pre class="language-r">#'     (from [survival::coxph()]).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   probabilities in `probs`, then this must be `n + 1` long.</pre>
+                      <pre class="language-r">#'   * `ties` (`string`)\cr specifying the method for tie handling. Default is `"efron"`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param type (`integer(1)`)\cr type of quantiles to use, see [stats::quantile()] for details.</pre>
+                      <pre class="language-r">#'     can also be set to `"breslow"` or `"exact"`. See more in [survival::coxph()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ordered (`flag`)\cr should the result be an ordered factor.</pre>
+                      <pre class="language-r">#'   * `conf_level` (`proportion`)\cr confidence level of the interval for HR.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("coxph_pairwise")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `factor` variable with appropriately-labeled bins as levels.</pre>
+                      <pre class="language-r">#'   to see available statistics for this function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note Intervals are closed on the right side. That is, the first bin is the interval</pre>
+                      <pre class="language-r">#' @name survival_coxph_pairwise</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `[-Inf, q1]` where `q1` is the first quantile, the second bin is then `(q1, q2]`, etc.,</pre>
+                      <pre class="language-r">#' @order 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and the last bin is `(qn, +Inf]` where `qn` is the last quantile.</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @describeIn survival_coxph_pairwise Statistics function which analyzes HR, CIs of HR, and p-value of a Cox-PH model.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Default is to cut into quartile bins.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' cut_quantile_bins(cars$speed)</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' * `s_coxph_pairwise()` returns the statistics:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Use custom quantiles.</pre>
+                      <pre class="language-r">#'   * `pvalue`: p-value to test the null hypothesis that hazard ratio = 1.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' cut_quantile_bins(cars$speed, probs = c(0.1, 0.2, 0.6, 0.88))</pre>
+                      <pre class="language-r">#'   * `hr`: Hazard ratio.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   * `hr_ci`: Confidence interval for hazard ratio.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Use custom labels.</pre>
+                      <pre class="language-r">#'   * `n_tot`: Total number of observations.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' cut_quantile_bins(cars$speed, labels = paste0("Q", 1:4))</pre>
+                      <pre class="language-r">#'   * `n_tot_events`: Total number of events.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # NAs are preserved in result factor.</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ozone_binned &lt;- cut_quantile_bins(airquality$Ozone)</pre>
+                      <pre class="language-r">s_coxph_pairwise &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' which(is.na(ozone_binned))</pre>
+                      <pre class="language-r">                             .ref_group,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # So you might want to make these explicit.</pre>
+                      <pre class="language-r">                             .in_ref_col,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' explicit_na(ozone_binned)</pre>
+                      <pre class="language-r">                             .var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                             is_event,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                             strata = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">cut_quantile_bins &lt;- function(x,</pre>
+                      <pre class="language-r">                             strat = lifecycle::deprecated(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              probs = c(0.25, 0.5, 0.75),</pre>
+                      <pre class="language-r">                             control = control_coxph()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">160</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">49</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              labels = NULL,</pre>
+                      <pre class="language-r">  if (lifecycle::is_present(strat)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">50</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    lifecycle::deprecate_warn("0.9.4", "s_coxph_pairwise(strat)", "s_coxph_pairwise(strata)")</pre>
+                    </td>
+                  </tr>
+                  <tr class="missed">
+                    <td class="num">51</td>
+                    <td class="coverage">!</td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    strata &lt;- strat</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              type = 7,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              ordered = TRUE) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">54</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(ordered)</pre>
+                      <pre class="language-r">  checkmate::assert_string(.var)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">55</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(x)</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(df[[.var]])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">56</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (isFALSE(0 %in% probs)) probs &lt;- c(0, probs)</pre>
+                      <pre class="language-r">  checkmate::assert_logical(df[[is_event]])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">57</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (isFALSE(1 %in% probs)) probs &lt;- c(probs, 1)</pre>
+                      <pre class="language-r">  assert_df_with_variables(df, list(tte = .var, is_event = is_event))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">58</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(probs, lower = 0, upper = 1, unique = TRUE, sorted = TRUE)</pre>
+                      <pre class="language-r">  pval_method &lt;- control$pval_method</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">59</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(labels)) labels &lt;- bins_percent_labels(probs)</pre>
+                      <pre class="language-r">  ties &lt;- control$ties</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">60</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(labels, len = length(probs) - 1, any.missing = FALSE, unique = TRUE)</pre>
+                      <pre class="language-r">  conf_level &lt;- control$conf_level</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">8<em>x</em></td>
+                    <td class="num">62</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (all(is.na(x))) {</pre>
+                      <pre class="language-r">  if (.in_ref_col) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">172</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">63</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Early return if there are only NAs in input.</pre>
+                      <pre class="language-r">    return(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">64</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    return(factor(x, ordered = ordered, levels = labels))</pre>
+                      <pre class="language-r">      list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">174</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">65</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">        pvalue = formatters::with_label("", paste0("p-value (", pval_method, ")")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">175</td>
-                    <td class="coverage"></td>
+                  <tr class="missed">
+                    <td class="num">66</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        hr = formatters::with_label("", "Hazard Ratio"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">67</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  quantiles &lt;- stats::quantile(</pre>
+                      <pre class="language-r">        hr_ci = formatters::with_label("", f_conf_level(conf_level)),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">177</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">68</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x,</pre>
+                      <pre class="language-r">        n_tot = formatters::with_label("", "Total n"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">69</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    probs = probs,</pre>
+                      <pre class="language-r">        n_tot_events = formatters::with_label("", "Total events")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">179</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    type = type,</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">180</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">71</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na.rm = TRUE</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">182</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">73</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  data &lt;- rbind(.ref_group, df)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">183</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">74</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(quantiles, unique = TRUE)</pre>
+                      <pre class="language-r">  group &lt;- factor(rep(c("ref", "x"), c(nrow(.ref_group), nrow(df))), levels = c("ref", "x"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">76</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  cut(</pre>
+                      <pre class="language-r">  df_cox &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">77</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x,</pre>
+                      <pre class="language-r">    tte = data[[.var]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">78</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    breaks = quantiles,</pre>
+                      <pre class="language-r">    is_event = data[[is_event]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">79</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    labels = labels,</pre>
+                      <pre class="language-r">    arm = group</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">6<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">80</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ordered_result = ordered,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">81</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    include.lowest = TRUE,</pre>
+                      <pre class="language-r">  if (is.null(strata)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">191</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="num">82</td>
+                    <td class="coverage">83<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    right = TRUE</pre>
+                      <pre class="language-r">    formula_cox &lt;- survival::Surv(tte, is_event) ~ arm</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">193</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">84</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    formula_cox &lt;- stats::as.formula(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">194</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">85</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      paste0(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">195</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">86</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Discard specified levels of a factor</pre>
+                      <pre class="language-r">        "survival::Surv(tte, is_event) ~ arm + strata(",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">196</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">87</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">        paste(strata, collapse = ","),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">        ")"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This discards the observations as well as the levels specified from a factor.</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">200</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">91</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    df_cox &lt;- cbind(df_cox, data[strata])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`factor`)\cr the original factor.</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">202</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">93</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param discard (`character`)\cr levels to discard.</pre>
+                      <pre class="language-r">  cox_fit &lt;- survival::coxph(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">203</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">94</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    formula = formula_cox,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">204</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">95</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A modified `factor` with observations as well as levels from `discard` dropped.</pre>
+                      <pre class="language-r">    data = df_cox,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">205</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">96</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    ties = ties</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">207</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">98</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' fct_discard(factor(c("a", "b", "c")), "c")</pre>
+                      <pre class="language-r">  sum_cox &lt;- summary(cox_fit, conf.int = conf_level, extend = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">208</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">99</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  orginal_survdiff &lt;- survival::survdiff(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">209</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">100</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    formula_cox,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">101</td>
+                    <td class="coverage">92<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    data = df_cox</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">fct_discard &lt;- function(x, discard) {</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">211</td>
-                    <td class="coverage">319<em>x</em></td>
+                    <td class="num">103</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_factor(x)</pre>
+                      <pre class="language-r">  log_rank_pvalue &lt;- 1 - pchisq(orginal_survdiff$chisq, length(orginal_survdiff$n) - 1)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">104</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">212</td>
-                    <td class="coverage">319<em>x</em></td>
+                    <td class="num">105</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(discard, any.missing = FALSE)</pre>
+                      <pre class="language-r">  pval &lt;- switch(pval_method,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">319<em>x</em></td>
+                    <td class="num">106</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  new_obs &lt;- x[!(x %in% discard)]</pre>
+                      <pre class="language-r">    "wald" = sum_cox$waldtest["pvalue"],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">214</td>
-                    <td class="coverage">319<em>x</em></td>
+                    <td class="num">107</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  new_levels &lt;- setdiff(levels(x), discard)</pre>
+                      <pre class="language-r">    "log-rank" = log_rank_pvalue, # pvalue from original log-rank test survival::survdiff()</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">319<em>x</em></td>
+                    <td class="num">108</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  factor(new_obs, levels = new_levels)</pre>
+                      <pre class="language-r">    "likelihood" = sum_cox$logtest["pvalue"]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">216</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">217</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">110</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">218</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">111</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Insertion of explicit missing values in a factor</pre>
+                      <pre class="language-r">    pvalue = formatters::with_label(unname(pval), paste0("p-value (", pval_method, ")")),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">219</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">112</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    hr = formatters::with_label(sum_cox$conf.int[1, 1], "Hazard Ratio"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">220</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">113</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">    hr_ci = formatters::with_label(unname(sum_cox$conf.int[1, 3:4]), f_conf_level(conf_level)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">221</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">114</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    n_tot = formatters::with_label(sum_cox$n, "Total n"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">222</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">115</td>
+                    <td class="coverage">92<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This inserts explicit missing values in a factor based on a condition. Additionally,</pre>
+                      <pre class="language-r">    n_tot_events = formatters::with_label(sum_cox$nevent, "Total events")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">223</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' existing `NA` values will be explicitly converted to given `na_level`.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`factor`)\cr the original factor.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">226</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param condition (`logical`)\cr positions at which to insert missing values.</pre>
+                      <pre class="language-r">#' @describeIn survival_coxph_pairwise Formatted analysis function which is used as `afun` in `coxph_pairwise()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">227</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param na_level (`string`)\cr which level to use for missing values.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A modified `factor` with inserted and existing `NA` converted to `na_level`.</pre>
+                      <pre class="language-r">#' * `a_coxph_pairwise()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">231</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [forcats::fct_na_value_to_level()] which is used internally.</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">232</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">a_coxph_pairwise &lt;- make_afun(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">233</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  s_coxph_pairwise,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">234</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' fct_explicit_na_if(factor(c("a", "b", NA)), c(TRUE, FALSE, FALSE))</pre>
+                      <pre class="language-r">  .indent_mods = c(pvalue = 0L, hr = 0L, hr_ci = 1L, n_tot = 0L, n_tot_events = 0L),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">235</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  .formats = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">236</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    pvalue = "x.xxxx | (&lt;0.0001)",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">237</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">fct_explicit_na_if &lt;- function(x, condition, na_level = "&lt;Missing&gt;") {</pre>
+                      <pre class="language-r">    hr = "xx.xx",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">238</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">131</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_factor(x, len = length(condition))</pre>
+                      <pre class="language-r">    hr_ci = "(xx.xx, xx.xx)",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">239</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">132</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_logical(condition)</pre>
+                      <pre class="language-r">    n_tot = "xx.xx",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">240</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">133</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x[condition] &lt;- NA</pre>
+                      <pre class="language-r">    n_tot_events = "xx.xx"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">241</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">134</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x &lt;- forcats::fct_na_value_to_level(x, level = na_level)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">242</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">135</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  forcats::fct_drop(x, only = na_level)</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">243</td>
+                    <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">244</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @describeIn survival_coxph_pairwise Layout-creating function which can take statistics function arguments</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">245</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Collapse factor levels and keep only those new group levels</pre>
+                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">246</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">247</td>
+                    <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">248</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' * `coxph_pairwise()` returns a layout object suitable for passing to further layouting functions,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">249</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This collapses levels and only keeps those new group levels, in the order provided.</pre>
+                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">250</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The returned factor has levels in the order given, with the possible missing level last (this will</pre>
+                      <pre class="language-r">#'   the statistics from `s_coxph_pairwise()` to the table layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' only be included if there are missing values).</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">252</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">253</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .f (`factor` or `character`)\cr original vector.</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... (named `character`)\cr levels in each vector provided will be collapsed into</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">255</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the new level given by the respective name.</pre>
+                      <pre class="language-r">#' adtte_f &lt;- tern_ex_adtte %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">256</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .na_level (`string`)\cr which level to use for other levels, which should be missing in the</pre>
+                      <pre class="language-r">#'   filter(PARAMCD == "OS") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   new factor. Note that this level must not be contained in the new levels specified in `...`.</pre>
+                      <pre class="language-r">#'   mutate(is_event = CNSR == 0)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">259</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A modified `factor` with collapsed levels. Values and levels which are not included</pre>
+                      <pre class="language-r">#' df &lt;- adtte_f %&gt;% filter(ARMCD == "ARM A")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">260</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   in the given `character` vector input will be set to the missing level `.na_level`.</pre>
+                      <pre class="language-r">#' df_ref_group &lt;- adtte_f %&gt;% filter(ARMCD == "ARM B")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">261</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note Any existing `NA`s in the input vector will not be replaced by the missing level. If needed,</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">263</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   [explicit_na()] can be called separately on the result.</pre>
+                      <pre class="language-r">#'   split_cols_by(var = "ARMCD", ref_group = "ARM A") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">264</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [forcats::fct_collapse()], [forcats::fct_relevel()] which are used internally.</pre>
+                      <pre class="language-r">#'   coxph_pairwise(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">266</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     vars = "AVAL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'     is_event = "is_event",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' fct_collapse_only(factor(c("a", "b", "c", "d")), TRT = "b", CTRL = c("c", "d"))</pre>
+                      <pre class="language-r">#'     var_labels = "Unstratified Analysis"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'   build_table(df = adtte_f)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">271</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">fct_collapse_only &lt;- function(.f, ..., .na_level = "&lt;Missing&gt;") {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">272</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  new_lvls &lt;- names(list(...))</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">273</td>
-                    <td class="coverage">4<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (checkmate::test_subset(.na_level, new_lvls)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">274</td>
-                    <td class="coverage">1<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    stop(paste0(".na_level currently set to '", .na_level, "' must not be contained in the new levels"))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">276</td>
-                    <td class="coverage">3<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  x &lt;- forcats::fct_collapse(.f, ..., other_level = .na_level)</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">277</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">166</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  do.call(forcats::fct_relevel, args = c(list(.f = x), as.list(new_lvls)))</pre>
+                      <pre class="language-r">#'   split_cols_by(var = "ARMCD", ref_group = "ARM A") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   coxph_pairwise(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Ungroup non-numeric statistics</pre>
+                      <pre class="language-r">#'     vars = "AVAL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">281</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     is_event = "is_event",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">282</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Ungroups grouped non-numeric statistics within input vectors `.formats`, `.labels`, and `.indent_mods`.</pre>
+                      <pre class="language-r">#'     var_labels = "Stratified Analysis",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">283</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     strata = "SEX",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">284</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#'     control = control_coxph(pval_method = "wald")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">285</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x  (named `list` of `numeric`)\cr list of numeric statistics containing the statistics to ungroup.</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   build_table(df = adtte_f)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `list` with modified elements `x`, `.formats`, `.labels`, and `.indent_mods`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">289</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [a_summary()] which uses this function internally.</pre>
+                      <pre class="language-r">#' @order 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">coxph_pairwise &lt;- function(lyt,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">291</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">                           vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">292</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">ungroup_stats &lt;- function(x,</pre>
+                      <pre class="language-r">                           strata = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">293</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          .formats,</pre>
+                      <pre class="language-r">                           control = control_coxph(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">294</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          .labels,</pre>
+                      <pre class="language-r">                           na_str = default_na_str(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">295</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          .indent_mods) {</pre>
+                      <pre class="language-r">                           nested = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">296</td>
-                    <td class="coverage">316<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">185</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(x)</pre>
+                      <pre class="language-r">                           ...,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">297</td>
-                    <td class="coverage">316<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">186</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  empty_pval &lt;- "pval" %in% names(x) &amp;&amp; length(x[["pval"]]) == 0</pre>
+                      <pre class="language-r">                           var_labels = "CoxPH",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">298</td>
-                    <td class="coverage">316<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">187</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  empty_pval_counts &lt;- "pval_counts" %in% names(x) &amp;&amp; length(x[["pval_counts"]]) == 0</pre>
+                      <pre class="language-r">                           show_labels = "visible",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">299</td>
-                    <td class="coverage">316<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">188</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x &lt;- unlist(x, recursive = FALSE)</pre>
+                      <pre class="language-r">                           table_names = vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">300</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                           .stats = c("pvalue", "hr", "hr_ci"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">301</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # If p-value is empty it is removed by unlist and needs to be re-added</pre>
+                      <pre class="language-r">                           .formats = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">302</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">191</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (empty_pval) x[["pval"]] &lt;- character()</pre>
+                      <pre class="language-r">                           .labels = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">303</td>
-                    <td class="coverage">3<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">192</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (empty_pval_counts) x[["pval_counts"]] &lt;- character()</pre>
+                      <pre class="language-r">                           .indent_mods = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">304</td>
-                    <td class="coverage">316<em>x</em></td>
+                    <td class="num">193</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .stats &lt;- names(x)</pre>
+                      <pre class="language-r">  extra_args &lt;- list(strata = strata, control = control, ...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">305</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">306</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">195</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Ungroup stats</pre>
+                      <pre class="language-r">  afun &lt;- make_afun(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">307</td>
-                    <td class="coverage">316<em>x</em></td>
+                    <td class="num">196</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats &lt;- lapply(.stats, function(x) {</pre>
+                      <pre class="language-r">    a_coxph_pairwise,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">308</td>
-                    <td class="coverage">2644<em>x</em></td>
+                    <td class="num">197</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .formats[[if (!grepl("\\.", x)) x else regmatches(x, regexpr("\\.", x), invert = TRUE)[[1]][1]]]</pre>
+                      <pre class="language-r">    .stats = .stats,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">309</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">198</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">    .formats = .formats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">310</td>
-                    <td class="coverage">316<em>x</em></td>
+                    <td class="num">199</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .indent_mods &lt;- sapply(.stats, function(x) {</pre>
+                      <pre class="language-r">    .labels = .labels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">311</td>
-                    <td class="coverage">2644<em>x</em></td>
+                    <td class="num">200</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .indent_mods[[if (!grepl("\\.", x)) x else regmatches(x, regexpr("\\.", x), invert = TRUE)[[1]][1]]]</pre>
+                      <pre class="language-r">    .indent_mods = .indent_mods</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">312</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">313</td>
-                    <td class="coverage">316<em>x</em></td>
+                    <td class="num">202</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .labels &lt;- sapply(.stats, function(x) {</pre>
+                      <pre class="language-r">  analyze(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">314</td>
-                    <td class="coverage">2575<em>x</em></td>
+                    <td class="num">203</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!grepl("\\.", x)) .labels[[x]] else regmatches(x, regexpr("\\.", x), invert = TRUE)[[1]][2]</pre>
+                      <pre class="language-r">    lyt,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">315</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">204</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">    vars,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">316</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">205</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    var_labels = var_labels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">317</td>
-                    <td class="coverage">316<em>x</em></td>
+                    <td class="num">206</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">    show_labels = show_labels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">318</td>
-                    <td class="coverage">316<em>x</em></td>
+                    <td class="num">207</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = x,</pre>
+                      <pre class="language-r">    table_names = table_names,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">319</td>
-                    <td class="coverage">316<em>x</em></td>
+                    <td class="num">208</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .formats = .formats,</pre>
+                      <pre class="language-r">    afun = afun,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">320</td>
-                    <td class="coverage">316<em>x</em></td>
+                    <td class="num">209</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .labels = .labels,</pre>
+                      <pre class="language-r">    na_str = na_str,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">321</td>
-                    <td class="coverage">316<em>x</em></td>
+                    <td class="num">210</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .indent_mods = .indent_mods</pre>
+                      <pre class="language-r">    nested = nested,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">211</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    extra_args = extra_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">322</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">323</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -172064,14 +170645,14 @@ <h2>tern coverage - 95.64%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/rtables_access.R" class="hidden">
+            <div id="R/riskdiff.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper functions for accessing information from `rtables`</pre>
+                      <pre class="language-r">#' Split function to configure risk difference column</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -172099,119 +170680,119 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' These are a couple of functions that help with accessing the data in `rtables` objects.</pre>
+                      <pre class="language-r">#' Wrapper function for [rtables::add_combo_levels()] which configures settings for the risk difference</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Currently these work for occurrence tables, which are defined as having a count as the first</pre>
+                      <pre class="language-r">#' column to be added to an `rtables` object. To add a risk difference column to a table, this function</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' element and a fraction as the second element in each cell.</pre>
+                      <pre class="language-r">#' should be used as `split_fun` in calls to [rtables::split_cols_by()], followed by setting argument</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' `riskdiff` to `TRUE` in all following analyze function calls.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [prune_occurrences] for usage of these functions.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param arm_x (`string`)\cr name of reference arm to use in risk difference calculations.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name rtables_access</pre>
+                      <pre class="language-r">#' @param arm_y (`character`)\cr names of one or more arms to compare to reference arm in risk difference</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#'   calculations. A new column will be added for each value of `arm_y`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param col_label (`character`)\cr labels to use when rendering the risk difference column within the table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn rtables_access Helper function to extract the first values from each content</pre>
+                      <pre class="language-r">#'   If more than one comparison arm is specified in `arm_y`, default labels will specify which two arms are</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   cell and from specified columns in a `TableRow`. Defaults to all columns.</pre>
+                      <pre class="language-r">#'   being compared (reference arm vs. comparison arm).</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param pct (`flag`)\cr whether output should be returned as percentages. Defaults to `TRUE`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param table_row (`TableRow`)\cr an analysis row in a occurrence table.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param col_names (`character`)\cr the names of the columns to extract from.</pre>
+                      <pre class="language-r">#' @return A closure suitable for use as a split function (`split_fun`) within [rtables::split_cols_by()]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param col_indices (`integer`)\cr the indices of the columns to extract from. If `col_names` are provided,</pre>
+                      <pre class="language-r">#'   when creating a table layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   then these are inferred from the names of `table_row`. Note that this currently only works well with a single</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   column split.</pre>
+                      <pre class="language-r">#' @seealso [stat_propdiff_ci()] for details on risk difference calculation.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -172225,322 +170806,322 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_row_first_values()` returns a `vector` of numeric values.</pre>
+                      <pre class="language-r">#' adae &lt;- tern_ex_adae</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' adae$AESEV &lt;- factor(adae$AESEV)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tbl &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
+                      <pre class="language-r">#'   split_cols_by("ARMCD", split_fun = add_riskdiff(arm_x = "ARM A", arm_y = c("ARM B", "ARM C"))) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by("RACE") %&gt;%</pre>
+                      <pre class="language-r">#'   count_occurrences_by_grade(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   analyze("AGE", function(x) {</pre>
+                      <pre class="language-r">#'     var = "AESEV",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     list(</pre>
+                      <pre class="language-r">#'     riskdiff = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "mean (sd)" = rcell(c(mean(x), sd(x)), format = "xx.x (xx.x)"),</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "n" = length(x),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       "frac" = rcell(c(0.1, 0.1), format = "xx (xx)")</pre>
+                      <pre class="language-r">#' tbl &lt;- build_table(lyt, df = adae)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">#' tbl</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   }) %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(tern_ex_adsl) %&gt;%</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   prune_table()</pre>
+                      <pre class="language-r">add_riskdiff &lt;- function(arm_x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tree_row_elem &lt;- collect_leaves(tbl[2, ])[[1]]</pre>
+                      <pre class="language-r">                         arm_y,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result &lt;- max(h_row_first_values(tree_row_elem))</pre>
+                      <pre class="language-r">                         col_label = paste0(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result</pre>
+                      <pre class="language-r">                           "Risk Difference (%) (95% CI)", if (length(arm_y) &gt; 1) paste0("\n", arm_x, " vs. ", arm_y)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                         ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                         pct = TRUE) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">44</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_row_first_values &lt;- function(table_row,</pre>
+                      <pre class="language-r">  checkmate::assert_character(arm_x, len = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">45</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               col_names = NULL,</pre>
+                      <pre class="language-r">  checkmate::assert_character(arm_y, min.len = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">46</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               col_indices = NULL) {</pre>
+                      <pre class="language-r">  checkmate::assert_character(col_label, len = length(arm_y))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">47</td>
-                    <td class="coverage">745<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  col_indices &lt;- check_names_indices(table_row, col_names, col_indices)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">48</td>
-                    <td class="coverage">744<em>x</em></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_integerish(col_indices)</pre>
+                      <pre class="language-r">  combodf &lt;- tibble::tribble(~valname, ~label, ~levelcombo, ~exargs)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">49</td>
-                    <td class="coverage">744<em>x</em></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(col_indices, seq_len(ncol(table_row)))</pre>
+                      <pre class="language-r">  for (i in seq_len(length(arm_y))) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">50</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    combodf &lt;- rbind(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">51</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Main values are extracted</pre>
+                      <pre class="language-r">      combodf,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">52</td>
-                    <td class="coverage">744<em>x</em></td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  row_vals &lt;- row_values(table_row)[col_indices]</pre>
+                      <pre class="language-r">      tibble::tribble(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">53</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        ~valname, ~label, ~levelcombo, ~exargs,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">54</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Main return</pre>
+                      <pre class="language-r">        paste("riskdiff", arm_x, arm_y[i], sep = "_"), col_label[i], c(arm_x, arm_y[i]), list()</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">55</td>
-                    <td class="coverage">744<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  vapply(row_vals, function(rv) {</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">56</td>
-                    <td class="coverage">2096<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (is.null(rv)) {</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">57</td>
-                    <td class="coverage">744<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      NA_real_</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">58</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">  if (pct) combodf$valname &lt;- paste0(combodf$valname, "_pct")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">59</td>
-                    <td class="coverage">2090<em>x</em></td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rv[1L]</pre>
+                      <pre class="language-r">  add_combo_levels(combodf)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">61</td>
-                    <td class="coverage">744<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }, FUN.VALUE = numeric(1))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' Analysis function to calculate risk difference column values</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn rtables_access Helper function that extracts row values and checks if they are</pre>
+                      <pre class="language-r">#' In the risk difference column, this function uses the statistics function associated with `afun` to</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   convertible to integers (`integerish` values).</pre>
+                      <pre class="language-r">#' calculates risk difference values from arm X (reference group) and arm Y. These arms are specified</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' when configuring the risk difference column which is done using the [add_riskdiff()] split function in</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' the previous call to [rtables::split_cols_by()]. For all other columns, applies `afun` as usual. This</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_row_counts()` returns a `vector` of numeric values.</pre>
+                      <pre class="language-r">#' function utilizes the [stat_propdiff_ci()] function to perform risk difference calculations.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -172554,719 +171135,894 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Row counts (integer values)</pre>
+                      <pre class="language-r">#' @param afun (named `list`)\cr a named list containing one name-value pair where the name corresponds to</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # h_row_counts(tree_row_elem) # Fails because there are no integers</pre>
+                      <pre class="language-r">#'   the name of the statistics function that should be used in calculations and the value is the corresponding</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Using values with integers</pre>
+                      <pre class="language-r">#'   analysis function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tree_row_elem &lt;- collect_leaves(tbl[3, ])[[1]]</pre>
+                      <pre class="language-r">#' @param s_args (named `list`)\cr additional arguments to be passed to the statistics function and analysis</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result &lt;- h_row_counts(tree_row_elem)</pre>
+                      <pre class="language-r">#'   function supplied in `afun`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # result</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return A list of formatted [rtables::CellValue()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_row_counts &lt;- function(table_row,</pre>
+                      <pre class="language-r">#' @seealso</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         col_names = NULL,</pre>
+                      <pre class="language-r">#' * [stat_propdiff_ci()] for details on risk difference calculation.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         col_indices = NULL) {</pre>
+                      <pre class="language-r">#' * Split function [add_riskdiff()] which, when used as `split_fun` within [rtables::split_cols_by()] with</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">82</td>
-                    <td class="coverage">741<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  counts &lt;- h_row_first_values(table_row, col_names, col_indices)</pre>
+                      <pre class="language-r">#'   `riskdiff` argument set to `TRUE` in subsequent analyze functions calls, adds a risk difference column</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">83</td>
-                    <td class="coverage">741<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_integerish(counts)</pre>
+                      <pre class="language-r">#'   to a table layout.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">84</td>
-                    <td class="coverage">741<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  counts</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">afun_riskdiff &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn rtables_access Helper function to extract fractions from specified columns in a `TableRow`.</pre>
+                      <pre class="language-r">                          labelstr = "",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   More specifically it extracts the second values from each content cell and checks it is a fraction.</pre>
+                      <pre class="language-r">                          .var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                          .N_col, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">                          .N_row, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_row_fractions()` returns a `vector` of proportions.</pre>
+                      <pre class="language-r">                          .df_row,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                          .spl_context,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">                          .all_col_counts,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Row fractions</pre>
+                      <pre class="language-r">                          .stats,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' tree_row_elem &lt;- collect_leaves(tbl[4, ])[[1]]</pre>
+                      <pre class="language-r">                          .formats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_row_fractions(tree_row_elem)</pre>
+                      <pre class="language-r">                          .labels = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                          .indent_mods = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                          na_str = default_na_str(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_row_fractions &lt;- function(table_row,</pre>
+                      <pre class="language-r">                          afun,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            col_names = NULL,</pre>
+                      <pre class="language-r">                          s_args = list()) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">101</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">130<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                            col_indices = NULL) {</pre>
+                      <pre class="language-r">  if (!any(grepl("riskdiff", names(.spl_context)))) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">102</td>
-                    <td class="coverage">250<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  col_indices &lt;- check_names_indices(table_row, col_names, col_indices)</pre>
+                      <pre class="language-r">    stop(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">103</td>
-                    <td class="coverage">250<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  row_vals &lt;- row_values(table_row)[col_indices]</pre>
+                      <pre class="language-r">      "Please set up levels to use in risk difference calculations using the `add_riskdiff` ",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="missed">
                     <td class="num">104</td>
-                    <td class="coverage">250<em>x</em></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  fractions &lt;- sapply(row_vals, "[", 2L)</pre>
+                      <pre class="language-r">      "split function within `split_cols_by`. See ?add_riskdiff for details."</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">105</td>
-                    <td class="coverage">250<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(fractions, lower = 0, upper = 1)</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">106</td>
-                    <td class="coverage">250<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  fractions</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">107</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">130<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  checkmate::assert_list(afun, len = 1, types = "function")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">108</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">130<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  checkmate::assert_named(afun)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">109</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">130<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn rtables_access Helper function to extract column counts from specified columns in a table.</pre>
+                      <pre class="language-r">  afun_args &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">110</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">130<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    .var = .var, .df_row = .df_row, .N_row = .N_row, denom = "N_col", labelstr = labelstr,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">111</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">130<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param table (`VTableNodeInfo`)\cr an occurrence table or row.</pre>
+                      <pre class="language-r">    .stats = .stats, .formats = .formats, .labels = .labels, .indent_mods = .indent_mods, na_str = na_str</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">113</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">130<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">  afun_args &lt;- afun_args[intersect(names(afun_args), names(as.list(args(afun[[1]]))))]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="missed">
                     <td class="num">114</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_col_counts()` returns a `vector` of column counts.</pre>
+                      <pre class="language-r">  if ("denom" %in% names(s_args)) afun_args[["denom"]] &lt;- NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">116</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">130<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  cur_split &lt;- tail(.spl_context$cur_col_split_val[[1]], 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">117</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">130<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_col_counts &lt;- function(table,</pre>
+                      <pre class="language-r">  if (!grepl("^riskdiff", cur_split)) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         col_names = NULL,</pre>
+                      <pre class="language-r">    # Apply basic afun (no risk difference) in all other columns</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">119</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">96<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         col_indices = NULL) {</pre>
+                      <pre class="language-r">    do.call(afun[[1]], args = c(list(df = df, .N_col = .N_col), afun_args, s_args))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">120</td>
-                    <td class="coverage">307<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  col_indices &lt;- check_names_indices(table, col_names, col_indices)</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">121</td>
-                    <td class="coverage">307<em>x</em></td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  counts &lt;- col_counts(table)[col_indices]</pre>
+                      <pre class="language-r">    arm_x &lt;- strsplit(cur_split, "_")[[1]][2]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">122</td>
-                    <td class="coverage">307<em>x</em></td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  stats::setNames(counts, col_names)</pre>
+                      <pre class="language-r">    arm_y &lt;- strsplit(cur_split, "_")[[1]][3]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">123</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    if (length(.spl_context$cur_col_split[[1]]) &gt; 1) { # Different split name for nested column splits</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">124</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      arm_spl_x &lt;- gsub("riskdiff", "", paste0(strsplit(.spl_context$cur_col_id[1], "_")[[1]][c(1, 2)], collapse = ""))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">125</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">8<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn rtables_access Helper function to get first row of content table of current table.</pre>
+                      <pre class="language-r">      arm_spl_y &lt;- gsub("riskdiff", "", paste0(strsplit(.spl_context$cur_col_id[1], "_")[[1]][c(1, 3)], collapse = ""))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">127</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">      arm_spl_x &lt;- arm_x</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">128</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">26<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_content_first_row()` returns a row from an `rtables` table.</pre>
+                      <pre class="language-r">      arm_spl_y &lt;- arm_y</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">130</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    N_col_x &lt;- .all_col_counts[[arm_spl_x]] # nolint</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">131</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_content_first_row &lt;- function(table) {</pre>
+                      <pre class="language-r">    N_col_y &lt;- .all_col_counts[[arm_spl_y]] # nolint</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">132</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ct &lt;- content_table(table)</pre>
+                      <pre class="language-r">    cur_var &lt;- tail(.spl_context$cur_col_split[[1]], 1)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">133</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  tree_children(ct)[[1]]</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    # Apply statistics function to arm X and arm Y data</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">135</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    s_args &lt;- c(s_args, afun_args[intersect(names(afun_args), names(as.list(args(names(afun)))))])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">136</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn rtables_access Helper function which says whether current table is a leaf in the tree.</pre>
+                      <pre class="language-r">    s_x &lt;- do.call(names(afun), args = c(list(df = df[df[[cur_var]] == arm_x, ], .N_col = N_col_x), s_args))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">137</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    s_y &lt;- do.call(names(afun), args = c(list(df = df[df[[cur_var]] == arm_y, ], .N_col = N_col_y), s_args))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `is_leaf_table()` returns a `logical` value indicating whether current table is a leaf.</pre>
+                      <pre class="language-r">    # Get statistic name and row names</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">140</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    stat &lt;- ifelse("count_fraction" %in% names(s_x), "count_fraction", "unique")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">141</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    if ("flag_variables" %in% names(s_args)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">142</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">is_leaf_table &lt;- function(table) {</pre>
+                      <pre class="language-r">      var_nms &lt;- s_args$flag_variables</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">143</td>
-                    <td class="coverage">168<em>x</em></td>
+                    <td class="coverage">32<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  children &lt;- tree_children(table)</pre>
+                      <pre class="language-r">    } else if (!is.null(names(s_x[[stat]]))) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">144</td>
-                    <td class="coverage">168<em>x</em></td>
+                    <td class="coverage">20<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  child_classes &lt;- unique(sapply(children, class))</pre>
+                      <pre class="language-r">      var_nms &lt;- names(s_x[[stat]])</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">145</td>
-                    <td class="coverage">168<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  identical(child_classes, "ElementaryTable")</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">146</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">      var_nms &lt;- ""</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">147</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      s_x[[stat]] &lt;- list(s_x[[stat]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">148</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn rtables_access Internal helper function that tests standard inputs for column indices.</pre>
+                      <pre class="language-r">      s_y[[stat]] &lt;- list(s_y[[stat]])</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `check_names_indices` returns column indices.</pre>
+                      <pre class="language-r">    # Calculate risk difference for each row, repeated if multiple statistics in table</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">152</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    pct &lt;- tail(strsplit(cur_split, "_")[[1]], 1) == "pct"</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">153</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">    rd_ci &lt;- rep(stat_propdiff_ci(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">154</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">check_names_indices &lt;- function(table_row,</pre>
+                      <pre class="language-r">      lapply(s_x[[stat]], `[`, 1), lapply(s_y[[stat]], `[`, 1),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">155</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                col_names = NULL,</pre>
+                      <pre class="language-r">      N_col_x, N_col_y,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">156</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                col_indices = NULL) {</pre>
+                      <pre class="language-r">      list_names = var_nms,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">157</td>
-                    <td class="coverage">1302<em>x</em></td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(col_names)) {</pre>
+                      <pre class="language-r">      pct = pct</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">158</td>
-                    <td class="coverage">1256<em>x</em></td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!is.null(col_indices)) {</pre>
+                      <pre class="language-r">    ), max(1, length(.stats)))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">159</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stop(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">160</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">34<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Inserted both col_names and col_indices when selecting row values. ",</pre>
+                      <pre class="language-r">    in_rows(.list = rd_ci, .formats = "xx.x (xx.x - xx.x)", .indent_mods = .indent_mods)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">161</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        "Please choose one."</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">164</td>
-                    <td class="coverage">1255<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    col_indices &lt;- h_col_indices(table_row, col_names)</pre>
+                      <pre class="language-r">#' Control function for risk difference column</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">166</td>
-                    <td class="coverage">1301<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.null(col_indices)) {</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">167</td>
-                    <td class="coverage">39<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ll &lt;- ifelse(is.null(ncol(table_row)), length(table_row), ncol(table_row))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">168</td>
-                    <td class="coverage">39<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    col_indices &lt;- seq_len(ll)</pre>
+                      <pre class="language-r">#' Sets a list of parameters to use when generating a risk (proportion) difference column. Used as input to the</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' `riskdiff` parameter of [tabulate_rsp_subgroups()] and [tabulate_survival_subgroups()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">171</td>
-                    <td class="coverage">1301<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(col_indices)</pre>
+                      <pre class="language-r">#' @inheritParams add_riskdiff</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">172</td>
                     <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @param format (`string` or `function`)\cr the format label (string) or formatting function to apply to the risk</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">173</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   difference statistic. See the `3d` string options in [formatters::list_valid_format_labels()] for possible format</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">174</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   strings. Defaults to `"xx.x (xx.x - xx.x)"`.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">175</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">176</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @return A `list` of items with names corresponding to the arguments.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">177</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">178</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @seealso [add_riskdiff()], [tabulate_rsp_subgroups()], and [tabulate_survival_subgroups()].</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">179</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">180</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @examples</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">181</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' control_riskdiff()</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">182</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' control_riskdiff(arm_x = "ARM A", arm_y = "ARM B")</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">183</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">184</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @export</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">185</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">control_riskdiff &lt;- function(arm_x = NULL,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">186</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                             arm_y = NULL,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">187</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                             format = "xx.x (xx.x - xx.x)",</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">188</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                             col_label = "Risk Difference (%) (95% CI)",</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">189</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                             pct = TRUE) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">190</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_character(arm_x, len = 1, null.ok = TRUE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">191</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_character(arm_y, min.len = 1, null.ok = TRUE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">192</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_character(format, len = 1)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">193</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_character(col_label)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">194</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_flag(pct)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">195</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">196</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  list(arm_x = arm_x, arm_y = arm_y, format = format, col_label = col_label, pct = pct)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">197</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
@@ -173274,14 +172030,14 @@ <h2>tern coverage - 95.64%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/g_waterfall.R" class="hidden">
+            <div id="R/fit_rsp_step.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Horizontal waterfall plot</pre>
+                      <pre class="language-r">#' Subgroup treatment effect pattern (STEP) fit for binary (response) outcome</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -173309,70 +172065,70 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This basic waterfall plot visualizes a quantity `height` ordered by value with some markup.</pre>
+                      <pre class="language-r">#' This fits the Subgroup Treatment Effect Pattern logistic regression models for a binary</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' (response) outcome. The treatment arm variable must have exactly 2 levels,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param height (`numeric`)\cr vector containing values to be plotted as the waterfall bars.</pre>
+                      <pre class="language-r">#' where the first one is taken as reference and the estimated odds ratios are</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param id (`character`)\cr vector containing identifiers to use as the x-axis label for the waterfall bars.</pre>
+                      <pre class="language-r">#' for the comparison of the second level vs. the first one.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param col (`character`)\cr color(s).</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param col_var (`factor`, `character`, or `NULL`)\cr categorical variable for bar coloring. `NULL` by default.</pre>
+                      <pre class="language-r">#' The (conditional) logistic regression model which is fit is:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param xlab (`string`)\cr x label. Default is `"ID"`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ylab (`string`)\cr y label. Default is `"Value"`.</pre>
+                      <pre class="language-r">#' `response ~ arm * poly(biomarker, degree) + covariates + strata(strata)`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param title (`string`)\cr text to be displayed as plot title.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param col_legend_title (`string`)\cr text to be displayed as legend title.</pre>
+                      <pre class="language-r">#' where `degree` is specified by `control_step()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -173386,35 +172142,35 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `ggplot` waterfall plot.</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param variables (named `list` of `character`)\cr list of analysis variables:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   needs `response`, `arm`, `biomarker`, and optional `covariates` and `strata`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">#' @param control (named `list`)\cr combined control list from [control_step()]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(nestcolor)</pre>
+                      <pre class="language-r">#'   and [control_logistic()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -173428,98 +172184,98 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_waterfall(height = c(3, 5, -1), id = letters[1:3])</pre>
+                      <pre class="language-r">#' @return A matrix of class `step`. The first part of the columns describe the</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   subgroup intervals used for the biomarker variable, including where the</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_waterfall(</pre>
+                      <pre class="language-r">#'   center of the intervals are and their bounds. The second part of the</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   height = c(3, 5, -1),</pre>
+                      <pre class="language-r">#'   columns contain the estimates for the treatment arm comparison.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   id = letters[1:3],</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   col_var = letters[1:3]</pre>
+                      <pre class="language-r">#' @note For the default degree 0 the `biomarker` variable is not included in the model.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @seealso [control_step()] and [control_logistic()] for the available</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adsl_f &lt;- tern_ex_adsl %&gt;%</pre>
+                      <pre class="language-r">#'   customization options.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   select(USUBJID, STUDYID, ARM, ARMCD, SEX)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adrs_f &lt;- tern_ex_adrs %&gt;%</pre>
+                      <pre class="language-r">#' # Testing dataset with just two treatment arms.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(PARAMCD == "OVRINV") %&gt;%</pre>
+                      <pre class="language-r">#' library(survival)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mutate(pchg = rnorm(n(), 10, 50))</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -173533,676 +172289,704 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adrs_f &lt;- head(adrs_f, 30)</pre>
+                      <pre class="language-r">#' adrs_f &lt;- tern_ex_adrs %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adrs_f &lt;- adrs_f[!duplicated(adrs_f$USUBJID), ]</pre>
+                      <pre class="language-r">#'   filter(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' head(adrs_f)</pre>
+                      <pre class="language-r">#'     PARAMCD == "BESRSPI",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     ARM %in% c("B: Placebo", "A: Drug X")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_waterfall(</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   height = adrs_f$pchg,</pre>
+                      <pre class="language-r">#'   mutate(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   id = adrs_f$USUBJID,</pre>
+                      <pre class="language-r">#'     # Reorder levels of ARM to have Placebo as reference arm for Odds Ratio calculations.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   col_var = adrs_f$AVALC</pre>
+                      <pre class="language-r">#'     ARM = droplevels(forcats::fct_relevel(ARM, "B: Placebo")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'     RSP = case_when(AVALC %in% c("PR", "CR") ~ 1, TRUE ~ 0),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     SEX = factor(SEX)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_waterfall(</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   height = adrs_f$pchg,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   id = paste("asdfdsfdsfsd", adrs_f$USUBJID),</pre>
+                      <pre class="language-r">#' variables &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   col_var = adrs_f$SEX</pre>
+                      <pre class="language-r">#'   arm = "ARM",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   biomarker = "BMRKR1",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   covariates = "AGE",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' g_waterfall(</pre>
+                      <pre class="language-r">#'   response = "RSP"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   height = adrs_f$pchg,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   id = paste("asdfdsfdsfsd", adrs_f$USUBJID),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   xlab = "ID",</pre>
+                      <pre class="language-r">#' # Fit default STEP models: Here a constant treatment effect is estimated in each subgroup.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ylab = "Percentage Change",</pre>
+                      <pre class="language-r">#' # We use a large enough bandwidth to avoid too small subgroups and linear separation in those.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   title = "Waterfall plot"</pre>
+                      <pre class="language-r">#' step_matrix &lt;- fit_rsp_step(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   variables = variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   data = adrs_f,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'   control = c(control_logistic(), control_step(bandwidth = 0.9))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">g_waterfall &lt;- function(height,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        id,</pre>
+                      <pre class="language-r">#' dim(step_matrix)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        col_var = NULL,</pre>
+                      <pre class="language-r">#' head(step_matrix)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        col = getOption("ggplot2.discrete.colour"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        xlab = NULL,</pre>
+                      <pre class="language-r">#' # Specify different polynomial degree for the biomarker interaction to use more flexible local</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        ylab = NULL,</pre>
+                      <pre class="language-r">#' # models. Or specify different logistic regression options, including confidence level.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        col_legend_title = NULL,</pre>
+                      <pre class="language-r">#' step_matrix2 &lt;- fit_rsp_step(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                        title = NULL) {</pre>
+                      <pre class="language-r">#'   variables = variables,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">70</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(col_var)) {</pre>
+                      <pre class="language-r">#'   data = adrs_f,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">71</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    check_same_n(height = height, id = id, col_var = col_var)</pre>
+                      <pre class="language-r">#'   control = c(control_logistic(conf_level = 0.9), control_step(bandwidth = NULL, degree = 1))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">73</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    check_same_n(height = height, id = id)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' # Use a global constant model. This is helpful as a reference for the subgroup models.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' step_matrix3 &lt;- fit_rsp_step(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">76</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_multi_class(col_var, c("character", "factor"), null.ok = TRUE)</pre>
+                      <pre class="language-r">#'   variables = variables,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">77</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(col, null.ok = TRUE)</pre>
+                      <pre class="language-r">#'   data = adrs_f,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   control = c(control_logistic(), control_step(bandwidth = NULL, num_points = 2L))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">79</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  xlabel &lt;- deparse(substitute(id))</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">80</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ylabel &lt;- deparse(substitute(height))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' # It is also possible to use strata, i.e. use conditional logistic regression models.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">82</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  col_label &lt;- if (!missing(col_var)) {</pre>
+                      <pre class="language-r">#' variables2 &lt;- list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">83</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    deparse(substitute(col_var))</pre>
+                      <pre class="language-r">#'   arm = "ARM",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#'   biomarker = "BMRKR1",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   covariates = "AGE",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">86</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  xlab &lt;- if (is.null(xlab)) xlabel else xlab</pre>
+                      <pre class="language-r">#'   response = "RSP",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">87</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ylab &lt;- if (is.null(ylab)) ylabel else ylab</pre>
+                      <pre class="language-r">#'   strata = c("STRATA1", "STRATA2")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">88</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  col_legend_title &lt;- if (is.null(col_legend_title)) col_label else col_legend_title</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">90</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  plot_data &lt;- data.frame(</pre>
+                      <pre class="language-r">#' step_matrix4 &lt;- fit_rsp_step(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">91</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    height = height,</pre>
+                      <pre class="language-r">#'   variables = variables2,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">92</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    id = as.character(id),</pre>
+                      <pre class="language-r">#'   data = adrs_f,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">93</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    col_var = if (is.null(col_var)) "x" else to_n(col_var, length(height)),</pre>
+                      <pre class="language-r">#'   control = c(control_logistic(), control_step(bandwidth = NULL))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">94</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">97</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  plot_data_ord &lt;- plot_data[order(plot_data$height, decreasing = TRUE), ]</pre>
+                      <pre class="language-r">fit_rsp_step &lt;- function(variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                         data,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">99</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  p &lt;- ggplot2::ggplot(plot_data_ord, ggplot2::aes(x = factor(id, levels = id), y = height)) +</pre>
+                      <pre class="language-r">                         control = c(control_step(), control_logistic())) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">100</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ggplot2::geom_col() +</pre>
+                      <pre class="language-r">  assert_df_with_variables(data, variables)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">101</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ggplot2::geom_text(</pre>
+                      <pre class="language-r">  checkmate::assert_list(control, names = "named")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">102</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      label = format(plot_data_ord$height, digits = 2),</pre>
+                      <pre class="language-r">  data &lt;- data[!is.na(data[[variables$biomarker]]), ]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">103</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vjust = ifelse(plot_data_ord$height &gt;= 0, -0.5, 1.5)</pre>
+                      <pre class="language-r">  window_sel &lt;- h_step_window(x = data[[variables$biomarker]], control = control)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">104</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ) +</pre>
+                      <pre class="language-r">  interval_center &lt;- window_sel$interval[, "Interval Center"]</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">105</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ggplot2::xlab(xlab) +</pre>
+                      <pre class="language-r">  form &lt;- h_step_rsp_formula(variables = variables, control = control)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">106</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ggplot2::ylab(ylab) +</pre>
+                      <pre class="language-r">  estimates &lt;- if (is.null(control$bandwidth)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">107</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ggplot2::theme(axis.text.x = ggplot2::element_text(angle = 90, hjust = 0, vjust = .5))</pre>
+                      <pre class="language-r">    h_step_rsp_est(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">108</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      formula = form,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">109</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(col_var)) {</pre>
+                      <pre class="language-r">      data = data,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">110</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    p &lt;- p +</pre>
+                      <pre class="language-r">      variables = variables,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">111</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot2::aes(fill = col_var) +</pre>
+                      <pre class="language-r">      x = interval_center,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">112</td>
                     <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot2::labs(fill = col_legend_title) +</pre>
+                      <pre class="language-r">      control = control</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">113</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot2::theme(</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">114</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        legend.position = "bottom",</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">115</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        legend.background = ggplot2::element_blank(),</pre>
+                      <pre class="language-r">    tmp &lt;- mapply(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">116</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        legend.title = ggplot2::element_text(face = "bold"),</pre>
+                      <pre class="language-r">      FUN = h_step_rsp_est,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">117</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        legend.box.background = ggplot2::element_rect(colour = "black")</pre>
+                      <pre class="language-r">      x = interval_center,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">118</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">      subset = as.list(as.data.frame(window_sel$sel)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">119</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      MoreArgs = list(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">120</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">        formula = form,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">121</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(col)) {</pre>
+                      <pre class="language-r">        data = data,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">122</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    p &lt;- p +</pre>
+                      <pre class="language-r">        variables = variables,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">123</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot2::scale_fill_manual(values = col)</pre>
+                      <pre class="language-r">        control = control</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">126</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!is.null(title)) {</pre>
+                      <pre class="language-r">    # Maybe we find a more elegant solution than this.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">127</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    p &lt;- p +</pre>
+                      <pre class="language-r">    rownames(tmp) &lt;- c("n", "logor", "se", "ci_lower", "ci_upper")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">128</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot2::labs(title = title) +</pre>
+                      <pre class="language-r">    t(tmp)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">129</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ggplot2::theme(plot.title = ggplot2::element_text(face = "bold"))</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">130</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  result &lt;- cbind(window_sel$interval, estimates)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">131</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  structure(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">132</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  p</pre>
+                      <pre class="language-r">    result,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">133</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    class = c("step", "matrix"),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">134</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    variables = variables,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">135</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    control = control</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">136</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -174211,14 +172995,14 @@ <h2>tern coverage - 95.64%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/cox_regression_inter.R" class="hidden">
+            <div id="R/count_values.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Cox regression helper function for interactions</pre>
+                      <pre class="language-r">#' Count specific values</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -174246,119 +173030,119 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Test and estimate the effect of a treatment in interaction with a covariate.</pre>
+                      <pre class="language-r">#' The analyze function [count_values()] creates a layout element to calculate counts of specific values within a</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The effect is estimated as the HR of the tested treatment for a given level</pre>
+                      <pre class="language-r">#' variable of interest.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' of the covariate, in comparison to the treatment control.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' This function analyzes one or more variables of interest supplied as a vector to `vars`. Values to</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' count for variable(s) in `vars` can be given as a vector via the `values` argument. One row of</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`numeric` or `factor`)\cr the values of the covariate to be tested.</pre>
+                      <pre class="language-r">#' counts will be generated for each variable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param effect (`string`)\cr the name of the effect to be tested and estimated.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param covar (`string`)\cr the name of the covariate in the model.</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param mod (`coxph`)\cr the Cox regression model.</pre>
+                      <pre class="language-r">#' @param values (`character`)\cr specific values that should be counted.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param label (`string`)\cr the label to be returned as `term_label`.</pre>
+                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("count_values")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param control (`list`)\cr a list of controls as returned by [control_coxreg()].</pre>
+                      <pre class="language-r">#'   to see available statistics for this function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ... see methods.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @note</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' * For `factor` variables, `s_count_values` checks whether `values` are all included in the levels of `x`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(survival)</pre>
+                      <pre class="language-r">#'   and fails otherwise.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' * For `count_values()`, variable labels are shown when there is more than one element in `vars`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' set.seed(1, kind = "Mersenne-Twister")</pre>
+                      <pre class="language-r">#'   otherwise they are hidden.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -174372,308 +173156,308 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Testing dataset [survival::bladder].</pre>
+                      <pre class="language-r">#' @name count_values</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dta_bladder &lt;- with(</pre>
+                      <pre class="language-r">#' @order 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = bladder[bladder$enum &lt; 5, ],</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data.frame(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     time = stop,</pre>
+                      <pre class="language-r">#' @describeIn count_values S3 generic function to count values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     status = event,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     armcd = as.factor(rx),</pre>
+                      <pre class="language-r">#' @inheritParams s_summary.logical</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     covar1 = as.factor(enum),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     covar2 = factor(</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       sample(as.factor(enum)),</pre>
+                      <pre class="language-r">#' * `s_count_values()` returns output of [s_summary()] for specified values of a non-numeric variable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       levels = 1:4,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       labels = c("F", "F", "M", "M")</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     )</pre>
+                      <pre class="language-r">s_count_values &lt;- function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">                           values,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">                           na.rm = TRUE, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' labels &lt;- c("armcd" = "ARM", "covar1" = "A Covariate Label", "covar2" = "Sex (F/M)")</pre>
+                      <pre class="language-r">                           .N_col, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' formatters::var_labels(dta_bladder)[names(labels)] &lt;- labels</pre>
+                      <pre class="language-r">                           .N_row, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dta_bladder$age &lt;- sample(20:60, size = nrow(dta_bladder), replace = TRUE)</pre>
+                      <pre class="language-r">                           denom = c("n", "N_row", "N_col")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">41</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">175<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  UseMethod("s_count_values", x)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' plot(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   survfit(Surv(time, status) ~ armcd + covar1, data = dta_bladder),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   lty = 2:4,</pre>
+                      <pre class="language-r">#' @describeIn count_values Method for `character` class.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   xlab = "Months",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   col = c("blue1", "blue2", "blue3", "blue4", "red1", "red2", "red3", "red4")</pre>
+                      <pre class="language-r">#' @method s_count_values character</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name cox_regression_inter</pre>
+                      <pre class="language-r">#' # `s_count_values.character`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#' s_count_values(x = c("a", "b", "a"), values = "a")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' s_count_values(x = c("a", "b", "a", NA, NA), values = "b", na.rm = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn cox_regression_inter S3 generic helper function to determine interaction effect.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">s_count_values.character &lt;- function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_coxreg_inter_effect()` returns a `data.frame` of covariate interaction effects consisting of the following</pre>
+                      <pre class="language-r">                                     values = "Y",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables: `effect`, `term`, `term_label`, `level`, `n`, `hr`, `lcl`, `ucl`, `pval`, and `pval_inter`.</pre>
+                      <pre class="language-r">                                     na.rm = TRUE, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                     ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">58</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">173<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  checkmate::assert_character(values)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_coxreg_inter_effect &lt;- function(x,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">60</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">173<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  effect,</pre>
+                      <pre class="language-r">  if (na.rm) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">61</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">172<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  covar,</pre>
+                      <pre class="language-r">    x &lt;- x[!is.na(x)]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  mod,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  label,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">64</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">173<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  control,</pre>
+                      <pre class="language-r">  is_in_values &lt;- x %in% values</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  ...) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">66</td>
-                    <td class="coverage">29<em>x</em></td>
+                    <td class="coverage">173<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  UseMethod("h_coxreg_inter_effect", x)</pre>
+                      <pre class="language-r">  s_summary(is_in_values, ...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -174694,5820 +173478,6273 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn cox_regression_inter Method for `numeric` class. Estimates the interaction with a `numeric` covariate.</pre>
+                      <pre class="language-r">#' @describeIn count_values Method for `factor` class. This makes an automatic</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   conversion to `character` and then forwards to the method for characters.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @method h_coxreg_inter_effect numeric</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @method s_count_values factor</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param at (`list`)\cr a list with items named after the covariate, every</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   item is a vector of levels at which the interaction should be estimated.</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' # `s_count_values.factor`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' s_count_values(x = factor(c("a", "b", "a")), values = "a")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_coxreg_inter_effect.numeric &lt;- function(x,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          effect,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          covar,</pre>
+                      <pre class="language-r">s_count_values.factor &lt;- function(x,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          mod,</pre>
+                      <pre class="language-r">                                  values = "Y",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          label,</pre>
+                      <pre class="language-r">                                  ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">82</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          control,</pre>
+                      <pre class="language-r">  s_count_values(as.character(x), values = as.character(values), ...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          at,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                          ...) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">85</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  betas &lt;- stats::coef(mod)</pre>
+                      <pre class="language-r">#' @describeIn count_values Method for `logical` class.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">86</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attrs &lt;- attr(stats::terms(mod), "term.labels")</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">87</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  term_indices &lt;- grep(</pre>
+                      <pre class="language-r">#' @method s_count_values logical</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">88</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pattern = effect,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">89</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = attrs[!grepl("strata\\(", attrs)]</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' # `s_count_values.logical`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">91</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_vector(term_indices, len = 2)</pre>
+                      <pre class="language-r">#' s_count_values(x = c(TRUE, FALSE, TRUE))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">92</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  betas &lt;- betas[term_indices]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">93</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  betas_var &lt;- diag(stats::vcov(mod))[term_indices]</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">94</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  betas_cov &lt;- stats::vcov(mod)[term_indices[1], term_indices[2]]</pre>
+                      <pre class="language-r">s_count_values.logical &lt;- function(x, values = TRUE, ...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">95</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  xval &lt;- if (is.null(at[[covar]])) {</pre>
+                      <pre class="language-r">  checkmate::assert_logical(values)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">96</td>
-                    <td class="coverage">6<em>x</em></td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stats::median(x)</pre>
+                      <pre class="language-r">  s_count_values(as.character(x), values = as.character(values), ...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">98</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    at[[covar]]</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @describeIn count_values Formatted analysis function which is used as `afun`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">100</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  effect_index &lt;- !grepl(covar, names(betas))</pre>
+                      <pre class="language-r">#'   in `count_values()`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">101</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  coef_hat &lt;- betas[effect_index] + xval * betas[!effect_index]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">102</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  coef_se &lt;- sqrt(</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">103</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    betas_var[effect_index] +</pre>
+                      <pre class="language-r">#' * `a_count_values()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">104</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      xval ^ 2 * betas_var[!effect_index] + # styler: off</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">105</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      2 * xval * betas_cov</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">106</td>
                     <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' # `a_count_values`</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">107</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' a_count_values(x = factor(c("a", "b", "a")), values = "a", .N_col = 10, .N_row = 10)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">108</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">109</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @export</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">110</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">a_count_values &lt;- make_afun(</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">111</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  s_count_values,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">112</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  .formats = c(count_fraction = "xx (xx.xx%)", count = "xx")</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">113</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">114</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">115</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @describeIn count_values Layout-creating function which can take statistics function arguments</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">116</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">117</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">118</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @return</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">119</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' * `count_values()` returns a layout object suitable for passing to further layouting functions,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">120</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">121</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   the statistics from `s_count_values()` to the table layout.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">122</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">123</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @examples</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">124</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' # `count_values`</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">125</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">126</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   count_values("Species", values = "setosa") %&gt;%</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">127</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   build_table(iris)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">128</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">129</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @export</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">130</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @order 2</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">131</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">count_values &lt;- function(lyt,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">132</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                         vars,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">133</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                         values,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">134</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                         na_str = default_na_str(),</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">135</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                         nested = TRUE,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">136</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                         ...,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">137</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                         table_names = vars,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">138</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                         .stats = "count_fraction",</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">139</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                         .formats = NULL,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">140</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                         .labels = c(count_fraction = paste(values, collapse = ", ")),</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">141</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                         .indent_mods = NULL) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">142</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  extra_args &lt;- list(values = values, ...)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">143</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">144</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  afun &lt;- make_afun(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">145</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    a_count_values,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">146</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    .stats = .stats,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">147</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    .formats = .formats,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">148</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    .labels = .labels,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">149</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    .indent_mods = .indent_mods</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">150</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">107</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">151</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  q_norm &lt;- stats::qnorm((1 + control$conf_level) / 2)</pre>
+                      <pre class="language-r">  analyze(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">152</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    lyt,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">153</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    vars,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">154</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    afun = afun,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">155</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    na_str = na_str,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">156</td>
+                    <td class="coverage">3<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    nested = nested,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">108</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">157</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data.frame(</pre>
+                      <pre class="language-r">    extra_args = extra_args,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">158</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    effect = "Covariate:",</pre>
+                      <pre class="language-r">    show_labels = ifelse(length(vars) &gt; 1, "visible", "hidden"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">159</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    term = rep(covar, length(xval)),</pre>
+                      <pre class="language-r">    table_names = table_names</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">160</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    term_label = paste0("  ", xval),</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">112</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">161</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    level = as.character(xval),</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">7<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/g_waterfall.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
+                  <tr class="never">
+                    <td class="num">1</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n = NA,</pre>
+                      <pre class="language-r">#' Horizontal waterfall plot</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">114</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">2</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    hr = exp(coef_hat),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">115</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">3</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lcl = exp(coef_hat - q_norm * coef_se),</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ucl = exp(coef_hat + q_norm * coef_se),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pval = NA,</pre>
+                      <pre class="language-r">#' This basic waterfall plot visualizes a quantity `height` ordered by value with some markup.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">118</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pval_inter = NA,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">7</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">#' @param height (`numeric`)\cr vector containing values to be plotted as the waterfall bars.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @param id (`character`)\cr vector containing identifiers to use as the x-axis label for the waterfall bars.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @param col (`character`)\cr color(s).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @param col_var (`factor`, `character`, or `NULL`)\cr categorical variable for bar coloring. `NULL` by default.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn cox_regression_inter Method for `factor` class. Estimate the interaction with a `factor` covariate.</pre>
+                      <pre class="language-r">#' @param xlab (`string`)\cr x label. Default is `"ID"`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param ylab (`string`)\cr y label. Default is `"Value"`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @method h_coxreg_inter_effect factor</pre>
+                      <pre class="language-r">#' @param title (`string`)\cr text to be displayed as plot title.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">14</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @param col_legend_title (`string`)\cr text to be displayed as legend title.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param data (`data.frame`)\cr the data frame on which the model was fit.</pre>
+                      <pre class="language-r">#' @return A `ggplot` waterfall plot.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_coxreg_inter_effect.factor &lt;- function(x,</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         effect,</pre>
+                      <pre class="language-r">#' library(nestcolor)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         covar,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         mod,</pre>
+                      <pre class="language-r">#' g_waterfall(height = c(3, 5, -1), id = letters[1:3])</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         label,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         control,</pre>
+                      <pre class="language-r">#' g_waterfall(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         data,</pre>
+                      <pre class="language-r">#'   height = c(3, 5, -1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         ...) {</pre>
+                      <pre class="language-r">#'   id = letters[1:3],</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">138</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">27</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lvl_given &lt;- levels(x)</pre>
+                      <pre class="language-r">#'   col_var = letters[1:3]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">28</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- h_coxreg_inter_estimations(</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">29</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    variable = effect, given = covar,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">30</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lvl_var = levels(data[[effect]]),</pre>
+                      <pre class="language-r">#' adsl_f &lt;- tern_ex_adsl %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">31</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lvl_given = lvl_given,</pre>
+                      <pre class="language-r">#'   select(USUBJID, STUDYID, ARM, ARMCD, SEX)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">32</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mod = mod,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">33</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    conf_level = 0.95</pre>
+                      <pre class="language-r">#' adrs_f &lt;- tern_ex_adrs %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">145</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">34</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )[[1]]</pre>
+                      <pre class="language-r">#'   filter(PARAMCD == "OVRINV") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   mutate(pchg = rnorm(n(), 10, 50))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">36</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  data.frame(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">37</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    effect = "Covariate:",</pre>
+                      <pre class="language-r">#' adrs_f &lt;- head(adrs_f, 30)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">149</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">38</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    term = rep(covar, nrow(y)),</pre>
+                      <pre class="language-r">#' adrs_f &lt;- adrs_f[!duplicated(adrs_f$USUBJID), ]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">150</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">39</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    term_label = paste0("  ", lvl_given),</pre>
+                      <pre class="language-r">#' head(adrs_f)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">40</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    level = lvl_given,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">41</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n = NA,</pre>
+                      <pre class="language-r">#' g_waterfall(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">153</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">42</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    hr = y[, "hr"],</pre>
+                      <pre class="language-r">#'   height = adrs_f$pchg,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">154</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">43</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lcl = y[, "lcl"],</pre>
+                      <pre class="language-r">#'   id = adrs_f$USUBJID,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">155</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">44</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ucl = y[, "ucl"],</pre>
+                      <pre class="language-r">#'   col_var = adrs_f$AVALC</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">156</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">45</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pval = NA,</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">46</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pval_inter = NA,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">158</td>
-                    <td class="coverage">17<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">47</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">#' g_waterfall(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'   height = adrs_f$pchg,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   id = paste("asdfdsfdsfsd", adrs_f$USUBJID),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   col_var = adrs_f$SEX</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn cox_regression_inter Method for `character` class. Estimate the interaction with a `character` covariate.</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   This makes an automatic conversion to `factor` and then forwards to the method for factors.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' g_waterfall(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @method h_coxreg_inter_effect character</pre>
+                      <pre class="language-r">#'   height = adrs_f$pchg,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   id = paste("asdfdsfdsfsd", adrs_f$USUBJID),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note</pre>
+                      <pre class="language-r">#'   xlab = "ID",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * Automatic conversion of character to factor does not guarantee results can be generated correctly. It is</pre>
+                      <pre class="language-r">#'   ylab = "Percentage Change",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   therefore better to always pre-process the dataset such that factors are manually created from character</pre>
+                      <pre class="language-r">#'   title = "Waterfall plot"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">170</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables before passing the dataset to [rtables::build_table()].</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">171</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_coxreg_inter_effect.character &lt;- function(x,</pre>
+                      <pre class="language-r">g_waterfall &lt;- function(height,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                            effect,</pre>
+                      <pre class="language-r">                        id,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                            covar,</pre>
+                      <pre class="language-r">                        col_var = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                            mod,</pre>
+                      <pre class="language-r">                        col = getOption("ggplot2.discrete.colour"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                            label,</pre>
+                      <pre class="language-r">                        xlab = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                            control,</pre>
+                      <pre class="language-r">                        ylab = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                            data,</pre>
+                      <pre class="language-r">                        col_legend_title = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                            ...) {</pre>
+                      <pre class="language-r">                        title = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">181</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">70</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- as.factor(x)</pre>
+                      <pre class="language-r">  if (!is.null(col_var)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">71</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    check_same_n(height = height, id = id, col_var = col_var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">183</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">73</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  h_coxreg_inter_effect(</pre>
+                      <pre class="language-r">    check_same_n(height = height, id = id)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">184</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">74</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = y,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">75</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    effect = effect,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">76</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    covar = covar,</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(col_var, c("character", "factor"), null.ok = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">77</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mod = mod,</pre>
+                      <pre class="language-r">  checkmate::assert_character(col, null.ok = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">78</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    label = label,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">189</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">79</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    control = control,</pre>
+                      <pre class="language-r">  xlabel &lt;- deparse(substitute(id))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">190</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="num">80</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data = data,</pre>
+                      <pre class="language-r">  ylabel &lt;- deparse(substitute(height))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ...</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">192</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">82</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  col_label &lt;- if (!missing(col_var)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">83</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    deparse(substitute(col_var))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">195</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">86</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn cox_regression_inter A higher level function to get</pre>
+                      <pre class="language-r">  xlab &lt;- if (is.null(xlab)) xlabel else xlab</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">196</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">87</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the results of the interaction test and the estimated values.</pre>
+                      <pre class="language-r">  ylab &lt;- if (is.null(ylab)) ylabel else ylab</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">197</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">88</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  col_legend_title &lt;- if (is.null(col_legend_title)) col_label else col_legend_title</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">199</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">90</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_coxreg_extract_interaction()` returns the result of an interaction test and the estimated values. If</pre>
+                      <pre class="language-r">  plot_data &lt;- data.frame(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">200</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">91</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   no interaction, [h_coxreg_univar_extract()] is applied instead.</pre>
+                      <pre class="language-r">    height = height,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">201</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">92</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    id = as.character(id),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">202</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">93</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    col_var = if (is.null(col_var)) "x" else to_n(col_var, length(height)),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">203</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">94</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' mod &lt;- coxph(Surv(time, status) ~ armcd * covar1, data = dta_bladder)</pre>
+                      <pre class="language-r">    stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_coxreg_extract_interaction(</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">205</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mod = mod, effect = "armcd", covar = "covar1", data = dta_bladder,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">206</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">97</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   control = control_coxreg()</pre>
+                      <pre class="language-r">  plot_data_ord &lt;- plot_data[order(plot_data$height, decreasing = TRUE), ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">208</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">99</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  p &lt;- ggplot2::ggplot(plot_data_ord, ggplot2::aes(x = factor(id, levels = id), y = height)) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">209</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">100</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    ggplot2::geom_col() +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">210</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">101</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_coxreg_extract_interaction &lt;- function(effect,</pre>
+                      <pre class="language-r">    ggplot2::geom_text(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">211</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">102</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         covar,</pre>
+                      <pre class="language-r">      label = format(plot_data_ord$height, digits = 2),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">212</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">103</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         mod,</pre>
+                      <pre class="language-r">      vjust = ifelse(plot_data_ord$height &gt;= 0, -0.5, 1.5)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">213</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         data,</pre>
+                      <pre class="language-r">    ) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">214</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">105</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         at,</pre>
+                      <pre class="language-r">    ggplot2::xlab(xlab) +</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">106</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ggplot2::ylab(ylab) +</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">107</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ggplot2::theme(axis.text.x = ggplot2::element_text(angle = 90, hjust = 0, vjust = .5))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">215</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                         control) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">216</td>
-                    <td class="coverage">31<em>x</em></td>
+                    <td class="num">109</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!any(attr(stats::terms(mod), "order") == 2)) {</pre>
+                      <pre class="language-r">  if (!is.null(col_var)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">217</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">110</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y &lt;- h_coxreg_univar_extract(</pre>
+                      <pre class="language-r">    p &lt;- p +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">218</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">111</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      effect = effect, covar = covar, mod = mod, data = data, control = control</pre>
+                      <pre class="language-r">      ggplot2::aes(fill = col_var) +</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">219</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">112</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">      ggplot2::labs(fill = col_legend_title) +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">113</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y$pval_inter &lt;- NA</pre>
+                      <pre class="language-r">      ggplot2::theme(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">221</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">114</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y</pre>
+                      <pre class="language-r">        legend.position = "bottom",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">222</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">115</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">        legend.background = ggplot2::element_blank(),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">116</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    test_statistic &lt;- c(wald = "Wald", likelihood = "LR")[control$pval_method]</pre>
+                      <pre class="language-r">        legend.title = ggplot2::element_text(face = "bold"),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">117</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        legend.box.background = ggplot2::element_rect(colour = "black")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">224</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">225</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Test the main treatment effect.</pre>
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">120</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">121</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mod_aov &lt;- muffled_car_anova(mod, test_statistic)</pre>
+                      <pre class="language-r">  if (!is.null(col)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">122</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    sum_anova &lt;- broom::tidy(mod_aov)</pre>
+                      <pre class="language-r">    p &lt;- p +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">228</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">123</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pval &lt;- sum_anova[sum_anova$term == effect, ][["p.value"]]</pre>
+                      <pre class="language-r">      ggplot2::scale_fill_manual(values = col)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">229</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">230</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Test the interaction effect.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">231</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">126</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pval_inter &lt;- sum_anova[grep(":", sum_anova$term), ][["p.value"]]</pre>
+                      <pre class="language-r">  if (!is.null(title)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">232</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">127</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    covar_test &lt;- data.frame(</pre>
+                      <pre class="language-r">    p &lt;- p +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">233</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">128</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      effect = "Covariate:",</pre>
+                      <pre class="language-r">      ggplot2::labs(title = title) +</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">234</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">129</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      term = covar,</pre>
+                      <pre class="language-r">      ggplot2::theme(plot.title = ggplot2::element_text(face = "bold"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">235</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">130</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      term_label = unname(labels_or_names(data[covar])),</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">236</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">131</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      level = "",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">237</td>
-                    <td class="coverage">19<em>x</em></td>
+                    <td class="num">132</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n = mod$n, hr = NA, lcl = NA, ucl = NA, pval = pval,</pre>
+                      <pre class="language-r">  p</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">238</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">133</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pval_inter = pval_inter,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">239</td>
-                    <td class="coverage">19<em>x</em></td>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/abnormal_by_worst_grade_worsen.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
+                  <tr class="never">
+                    <td class="num">1</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">#' Count patients with toxicity grades that have worsened from baseline by highest grade post-baseline</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">240</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">241</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Estimate the interaction.</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">242</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">4</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    y &lt;- h_coxreg_inter_effect(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">243</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">5</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data[[covar]],</pre>
+                      <pre class="language-r">#' The analyze function [count_abnormal_lab_worsen_by_baseline()] creates a layout element to count patients with</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">244</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">6</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      covar = covar,</pre>
+                      <pre class="language-r">#' analysis toxicity grades which have worsened from baseline, categorized by highest (worst) grade post-baseline.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">245</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">7</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      effect = effect,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">246</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">8</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      mod = mod,</pre>
+                      <pre class="language-r">#' This function analyzes primary analysis variable `var` which indicates analysis toxicity grades. Additional</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">247</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">9</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      label = unname(labels_or_names(data[covar])),</pre>
+                      <pre class="language-r">#' analysis variables that can be supplied as a list via the `variables` parameter are `id` (defaults to `USUBJID`),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">248</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">10</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      at = at,</pre>
+                      <pre class="language-r">#' a variable to indicate unique subject identifiers, `baseline_var` (defaults to `BTOXGR`), a variable to indicate</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">249</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">11</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      control = control,</pre>
+                      <pre class="language-r">#' baseline toxicity grades, and `direction_var` (defaults to `GRADDIR`), a variable to indicate toxicity grade</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">250</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">12</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data = data</pre>
+                      <pre class="language-r">#' directions of interest to include (e.g. `"H"` (high), `"L"` (low), or `"B"` (both)).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">251</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">252</td>
-                    <td class="coverage">19<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">14</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rbind(covar_test, y)</pre>
+                      <pre class="language-r">#' For the direction(s) specified in `direction_var`, patient counts by worst grade for patients who have</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">253</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' worsened from baseline are calculated as follows:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">254</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'   * `1` to `4`: The number of patients who have worsened from their baseline grades with worst</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">255</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     grades 1-4, respectively.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">256</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn cox_regression_inter Hazard ratio estimation in interactions.</pre>
+                      <pre class="language-r">#'   * `Any`: The total number of patients who have worsened from their baseline grades.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">257</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">258</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param variable,given (`string`)\cr the name of variables in interaction. We seek the estimation</pre>
+                      <pre class="language-r">#' Fractions are calculated by dividing the above counts by the number of patients who's analysis toxicity grades</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">259</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   of the levels of `variable` given the levels of `given`.</pre>
+                      <pre class="language-r">#' have worsened from baseline toxicity grades during treatment.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">260</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param lvl_var,lvl_given (`character`)\cr corresponding levels as given by [levels()].</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">261</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param mod (`coxph`)\cr a fitted Cox regression model (see [survival::coxph()]).</pre>
+                      <pre class="language-r">#' Prior to using this function in your table layout you must use [rtables::split_rows_by()] to create a row</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">262</td>
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' split on variable `direction_var`.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">263</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details Given the cox regression investigating the effect of Arm (A, B, C; reference A)</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">264</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and Sex (F, M; reference Female) and the model being abbreviated: y ~ Arm + Sex + Arm:Sex.</pre>
+                      <pre class="language-r">#' @param variables (named `list` of `string`)\cr list of additional analysis variables including:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">265</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   The cox regression estimates the coefficients along with a variance-covariance matrix for:</pre>
+                      <pre class="language-r">#'   * `id` (`string`)\cr subject variable name.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">266</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   * `baseline_var` (`string`)\cr name of the data column containing baseline toxicity variable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">267</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   - b1 (arm b), b2 (arm c)</pre>
+                      <pre class="language-r">#'   * `direction_var` (`string`)\cr see `direction_var` for more details.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">268</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   - b3 (sex m)</pre>
+                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("abnormal_by_worst_grade_worsen")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">269</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   - b4 (arm b: sex m), b5 (arm c: sex m)</pre>
+                      <pre class="language-r">#'   to see all available statistics.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">33</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">34</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @seealso Relevant helper functions [h_adlb_worsen()] and [h_worsen_counter()] which are used within</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">35</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' [s_count_abnormal_lab_worsen_by_baseline()] to process input data.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">270</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">271</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   The estimation of the Hazard Ratio for arm C/sex M is given in reference</pre>
+                      <pre class="language-r">#' @name abnormal_by_worst_grade_worsen</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">272</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to arm A/Sex M by exp(b2 + b3 + b5)/ exp(b3) = exp(b2 + b5).</pre>
+                      <pre class="language-r">#' @order 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">273</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   The interaction coefficient is deduced by b2 + b5 while the standard error</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">274</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   is obtained as $sqrt(Var b2 + Var b5 + 2 * covariance (b2,b5))$.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">275</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Helper function to prepare ADLB with worst labs</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">276</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">277</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_coxreg_inter_estimations()` returns a list of matrices (one per level of variable) with rows corresponding</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">278</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to the combinations of `variable` and `given`, with columns:</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">279</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `coef_hat`: Estimation of the coefficient.</pre>
+                      <pre class="language-r">#' Helper function to prepare a `df` for generate the patient count shift table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">280</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `coef_se`: Standard error of the estimation.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">281</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `hr`: Hazard ratio.</pre>
+                      <pre class="language-r">#' @param adlb (`data.frame`)\cr ADLB data frame.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">282</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   * `lcl, ucl`: Lower/upper confidence limit of the hazard ratio.</pre>
+                      <pre class="language-r">#' @param worst_flag_low (named `vector`)\cr worst low post-baseline lab grade flag variable. See how this is</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">283</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   implemented in the following examples.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">284</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @param worst_flag_high (named `vector`)\cr worst high post-baseline lab grade flag variable. See how this is</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">285</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' mod &lt;- coxph(Surv(time, status) ~ armcd * covar1, data = dta_bladder)</pre>
+                      <pre class="language-r">#'   implemented in the following examples.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">286</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result &lt;- h_coxreg_inter_estimations(</pre>
+                      <pre class="language-r">#' @param direction_var (`string`)\cr name of the direction variable specifying the direction of the shift table of</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">287</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variable = "armcd", given = "covar1",</pre>
+                      <pre class="language-r">#'   interest. Only lab records flagged by `L`, `H` or `B` are included in the shift table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">288</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   lvl_var = levels(dta_bladder$armcd),</pre>
+                      <pre class="language-r">#'   * `L`: low direction only</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">289</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   lvl_given = levels(dta_bladder$covar1),</pre>
+                      <pre class="language-r">#'   * `H`: high direction only</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">290</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mod = mod, conf_level = .95</pre>
+                      <pre class="language-r">#'   * `B`: both low and high directions</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">291</td>
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">292</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' result</pre>
+                      <pre class="language-r">#' @return `h_adlb_worsen()` returns the `adlb` `data.frame` containing only the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">293</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   worst labs specified according to `worst_flag_low` or `worst_flag_high` for the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">294</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'   direction specified according to `direction_var`. For instance, for a lab that is</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">295</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_coxreg_inter_estimations &lt;- function(variable,</pre>
+                      <pre class="language-r">#'   needed for the low direction only, only records flagged by `worst_flag_low` are</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">296</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       given,</pre>
+                      <pre class="language-r">#'   selected. For a lab that is needed for both low and high directions, the worst</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">297</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       lvl_var,</pre>
+                      <pre class="language-r">#'   low records are selected for the low direction, and the worst high record are selected</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">298</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       lvl_given,</pre>
+                      <pre class="language-r">#'   for the high direction.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">299</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       mod,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">300</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                       conf_level = 0.95) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">301</td>
-                    <td class="coverage">18<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  var_lvl &lt;- paste0(variable, lvl_var[-1]) # [-1]: reference level</pre>
+                      <pre class="language-r">#' @seealso [abnormal_by_worst_grade_worsen]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">302</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">67</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  giv_lvl &lt;- paste0(given, lvl_given)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">303</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">68</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  design_mat &lt;- expand.grid(variable = var_lvl, given = giv_lvl)</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">304</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">69</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  design_mat &lt;- design_mat[order(design_mat$variable, design_mat$given), ]</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">305</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  design_mat &lt;- within(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">306</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">71</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data = design_mat,</pre>
+                      <pre class="language-r">#' # The direction variable, GRADDR, is based on metadata</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">307</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">72</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    expr = {</pre>
+                      <pre class="language-r">#' adlb &lt;- tern_ex_adlb %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">308</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">73</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      inter &lt;- paste0(variable, ":", given)</pre>
+                      <pre class="language-r">#'   mutate(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">309</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">74</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      rev_inter &lt;- paste0(given, ":", variable)</pre>
+                      <pre class="language-r">#'     GRADDR = case_when(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">310</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'       PARAMCD == "ALT" ~ "B",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">311</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'       PARAMCD == "CRP" ~ "L",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">312</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">77</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  split_by_variable &lt;- design_mat$variable</pre>
+                      <pre class="language-r">#'       PARAMCD == "IGA" ~ "H"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">313</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">78</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  interaction_names &lt;- paste(design_mat$variable, design_mat$given, sep = "/")</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">314</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">315</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">80</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mmat &lt;- stats::model.matrix(mod)[1, ]</pre>
+                      <pre class="language-r">#'   filter(SAFFL == "Y" &amp; ONTRTFL == "Y" &amp; GRADDR != "")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">316</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">81</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  mmat[!mmat == 0] &lt;- 0</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">317</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' df &lt;- h_adlb_worsen(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">318</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">83</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  design_mat &lt;- apply(</pre>
+                      <pre class="language-r">#'   adlb,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">319</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">84</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    X = design_mat, MARGIN = 1, FUN = function(x) {</pre>
+                      <pre class="language-r">#'   worst_flag_low = c("WGRLOFL" = "Y"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">320</td>
-                    <td class="coverage">52<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">85</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      mmat[names(mmat) %in% x[-which(names(x) == "given")]] &lt;- 1</pre>
+                      <pre class="language-r">#'   worst_flag_high = c("WGRHIFL" = "Y"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">321</td>
-                    <td class="coverage">52<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">86</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      mmat</pre>
+                      <pre class="language-r">#'   direction_var = "GRADDR"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">322</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">323</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">324</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">89</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  colnames(design_mat) &lt;- interaction_names</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">325</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">h_adlb_worsen &lt;- function(adlb,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">326</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">91</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  coef &lt;- stats::coef(mod)</pre>
+                      <pre class="language-r">                          worst_flag_low = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">327</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">92</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  vcov &lt;- stats::vcov(mod)</pre>
+                      <pre class="language-r">                          worst_flag_high = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">328</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">93</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  betas &lt;- as.matrix(coef)</pre>
+                      <pre class="language-r">                          direction_var) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">329</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">94</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  coef_hat &lt;- t(design_mat) %*% betas</pre>
+                      <pre class="language-r">  checkmate::assert_string(direction_var)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">330</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">95</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  dimnames(coef_hat)[2] &lt;- "coef"</pre>
+                      <pre class="language-r">  checkmate::assert_subset(as.character(unique(adlb[[direction_var]])), c("B", "L", "H"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">331</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">96</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  coef_se &lt;- apply(</pre>
+                      <pre class="language-r">  assert_df_with_variables(adlb, list("Col" = direction_var))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">332</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">97</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    design_mat, 2,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">333</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">98</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    function(x) {</pre>
+                      <pre class="language-r">  if (any(unique(adlb[[direction_var]]) == "H")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">334</td>
-                    <td class="coverage">52<em>x</em></td>
+                    <td class="num">99</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      vcov_el &lt;- as.logical(x)</pre>
+                      <pre class="language-r">    assert_df_with_variables(adlb, list("High" = names(worst_flag_high)))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">335</td>
-                    <td class="coverage">52<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">100</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y &lt;- vcov[vcov_el, vcov_el]</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">336</td>
-                    <td class="coverage">52<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">101</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y &lt;- sum(y)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">337</td>
-                    <td class="coverage">52<em>x</em></td>
+                    <td class="num">102</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      y &lt;- sqrt(y)</pre>
+                      <pre class="language-r">  if (any(unique(adlb[[direction_var]]) == "L")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">338</td>
-                    <td class="coverage">52<em>x</em></td>
+                    <td class="num">103</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      return(y)</pre>
+                      <pre class="language-r">    assert_df_with_variables(adlb, list("Low" = names(worst_flag_low)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">339</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">340</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">341</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">106</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  q_norm &lt;- stats::qnorm((1 + conf_level) / 2)</pre>
+                      <pre class="language-r">  if (any(unique(adlb[[direction_var]]) == "B")) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">342</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">107</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- cbind(coef_hat, `se(coef)` = coef_se)</pre>
+                      <pre class="language-r">    assert_df_with_variables(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">343</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">108</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- apply(y, 1, function(x) {</pre>
+                      <pre class="language-r">      adlb,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">344</td>
-                    <td class="coverage">52<em>x</em></td>
+                    <td class="num">109</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x["hr"] &lt;- exp(x["coef"])</pre>
+                      <pre class="language-r">      list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">345</td>
-                    <td class="coverage">52<em>x</em></td>
+                    <td class="num">110</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x["lcl"] &lt;- exp(x["coef"] - q_norm * x["se(coef)"])</pre>
+                      <pre class="language-r">        "Low" = names(worst_flag_low),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">346</td>
-                    <td class="coverage">52<em>x</em></td>
+                    <td class="num">111</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x["ucl"] &lt;- exp(x["coef"] + q_norm * x["se(coef)"])</pre>
+                      <pre class="language-r">        "High" = names(worst_flag_high)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">347</td>
-                    <td class="coverage">52<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">112</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">348</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">349</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">114</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- t(y)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">350</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">115</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- by(y, split_by_variable, identity)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">351</td>
-                    <td class="coverage">18<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">116</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y &lt;- lapply(y, as.matrix)</pre>
+                      <pre class="language-r">  # extract patients with worst post-baseline lab, either low or high or both</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">352</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">117</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attr(y, "details") &lt;- paste0(</pre>
+                      <pre class="language-r">  worst_flag &lt;- c(worst_flag_low, worst_flag_high)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">353</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">118</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    "Estimations of ", variable,</pre>
+                      <pre class="language-r">  col_names &lt;- names(worst_flag)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">354</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">119</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    " hazard ratio given the level of ", given, " compared to ",</pre>
+                      <pre class="language-r">  filter_values &lt;- worst_flag</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">355</td>
-                    <td class="coverage">18<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    variable, " level ", lvl_var[1], "."</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">356</td>
-                    <td class="coverage"></td>
+                    <td class="num">120</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  temp &lt;- Map(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">357</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="num">121</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  y</pre>
+                      <pre class="language-r">    function(x, y) which(adlb[[x]] == y),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">358</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">122</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">    col_names,</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/h_response_biomarkers_subgroups.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">123</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper functions for tabulating biomarker effects on binary response by subgroup</pre>
+                      <pre class="language-r">    filter_values</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">125</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">  position_satisfy_filters &lt;- Reduce(union, temp)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper functions which are documented here separately to not confuse the user</pre>
+                      <pre class="language-r">  # select variables of interest</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">128</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' when reading about the user-facing functions.</pre>
+                      <pre class="language-r">  adlb_f &lt;- adlb[position_satisfy_filters, ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams response_biomarkers_subgroups</pre>
+                      <pre class="language-r">  # generate subsets for different directionality</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">131</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams extract_rsp_biomarkers</pre>
+                      <pre class="language-r">  adlb_f_h &lt;- adlb_f[which(adlb_f[[direction_var]] == "H"), ]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">132</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">  adlb_f_l &lt;- adlb_f[which(adlb_f[[direction_var]] == "L"), ]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">133</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  adlb_f_b &lt;- adlb_f[which(adlb_f[[direction_var]] == "B"), ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">  # for labs requiring both high and low, data is duplicated and will be stacked on top of each other</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">136</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(forcats)</pre>
+                      <pre class="language-r">  adlb_f_b_h &lt;- adlb_f_b</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">15</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">137</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  adlb_f_b_l &lt;- adlb_f_b</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adrs &lt;- tern_ex_adrs</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adrs_labels &lt;- formatters::var_labels(adrs)</pre>
+                      <pre class="language-r">  # extract data with worst lab</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">140</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if (!is.null(worst_flag_high) &amp;&amp; !is.null(worst_flag_low)) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' adrs_f &lt;- adrs %&gt;%</pre>
+                      <pre class="language-r">    # change H to High, L to Low</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">142</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filter(PARAMCD == "BESRSPI") %&gt;%</pre>
+                      <pre class="language-r">    adlb_f_h[[direction_var]] &lt;- rep("High", nrow(adlb_f_h))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">143</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mutate(rsp = AVALC == "CR")</pre>
+                      <pre class="language-r">    adlb_f_l[[direction_var]] &lt;- rep("Low", nrow(adlb_f_l))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' formatters::var_labels(adrs_f) &lt;- c(adrs_labels, "Response")</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    # change, B to High and Low</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">146</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name h_response_biomarkers_subgroups</pre>
+                      <pre class="language-r">    adlb_f_b_h[[direction_var]] &lt;- rep("High", nrow(adlb_f_b_h))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">147</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">    adlb_f_b_l[[direction_var]] &lt;- rep("Low", nrow(adlb_f_b_l))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_response_biomarkers_subgroups helps with converting the "response" function variable list</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">149</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to the "logistic regression" variable list. The reason is that currently there is an</pre>
+                      <pre class="language-r">    adlb_out_h &lt;- adlb_f_h[which(adlb_f_h[[names(worst_flag_high)]] == worst_flag_high), ]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">150</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   inconsistency between the variable names accepted by `extract_rsp_subgroups()` and `fit_logistic()`.</pre>
+                      <pre class="language-r">    adlb_out_b_h &lt;- adlb_f_b_h[which(adlb_f_b_h[[names(worst_flag_high)]] == worst_flag_high), ]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">30</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">151</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    adlb_out_l &lt;- adlb_f_l[which(adlb_f_l[[names(worst_flag_low)]] == worst_flag_low), ]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">31</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">152</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param biomarker (`string`)\cr the name of the biomarker variable.</pre>
+                      <pre class="language-r">    adlb_out_b_l &lt;- adlb_f_b_l[which(adlb_f_b_l[[names(worst_flag_low)]] == worst_flag_low), ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">33</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">154</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">    out &lt;- rbind(adlb_out_h, adlb_out_b_h, adlb_out_l, adlb_out_b_l)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">34</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">155</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_rsp_to_logistic_variables()` returns a named `list` of elements `response`, `arm`, `covariates`, and `strata`.</pre>
+                      <pre class="language-r">  } else if (!is.null(worst_flag_high)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">35</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">156</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    adlb_f_h[[direction_var]] &lt;- rep("High", nrow(adlb_f_h))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">36</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">157</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    adlb_f_b_h[[direction_var]] &lt;- rep("High", nrow(adlb_f_b_h))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # This is how the variable list is converted internally.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">38</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">159</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_rsp_to_logistic_variables(</pre>
+                      <pre class="language-r">    adlb_out_h &lt;- adlb_f_h[which(adlb_f_h[[names(worst_flag_high)]] == worst_flag_high), ]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">39</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">160</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">    adlb_out_b_h &lt;- adlb_f_b_h[which(adlb_f_b_h[[names(worst_flag_high)]] == worst_flag_high), ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     rsp = "RSP",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">41</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">162</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     covariates = c("A", "B"),</pre>
+                      <pre class="language-r">    out &lt;- rbind(adlb_out_h, adlb_out_b_h)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">42</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">163</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     strata = "D"</pre>
+                      <pre class="language-r">  } else if (!is.null(worst_flag_low)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">43</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">164</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">    adlb_f_l[[direction_var]] &lt;- rep("Low", nrow(adlb_f_l))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">165</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   biomarker = "AGE"</pre>
+                      <pre class="language-r">    adlb_f_b_l[[direction_var]] &lt;- rep("Low", nrow(adlb_f_b_l))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">167</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    adlb_out_l &lt;- adlb_f_l[which(adlb_f_l[[names(worst_flag_low)]] == worst_flag_low), ]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">168</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    adlb_out_b_l &lt;- adlb_f_b_l[which(adlb_f_b_l[[names(worst_flag_low)]] == worst_flag_low), ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_rsp_to_logistic_variables &lt;- function(variables, biomarker) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">49<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if ("strat" %in% names(variables)) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">50</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    warning(</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">51</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      "Warning: the `strat` element name of the `variables` list argument to `h_rsp_to_logistic_variables() ",</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">52</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">      "was deprecated in tern 0.9.4.\n  ",</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">53</td>
-                    <td class="coverage">!</td>
+                    <td class="num">170</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Please use the name `strata` instead of `strat` in the `variables` argument."</pre>
+                      <pre class="language-r">    out &lt;- rbind(adlb_out_l, adlb_out_b_l)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
-                    </td>
-                  </tr>
-                  <tr class="missed">
-                    <td class="num">55</td>
-                    <td class="coverage">!</td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    variables[["strata"]] &lt;- variables[["strat"]]</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">49<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">173</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(variables)</pre>
+                      <pre class="language-r">  # label</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">49<em>x</em></td>
+                    <td class="num">174</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(variables$rsp)</pre>
+                      <pre class="language-r">  formatters::var_labels(out) &lt;- formatters::var_labels(adlb_f, fill = FALSE)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">59</td>
-                    <td class="coverage">49<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">175</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(biomarker)</pre>
+                      <pre class="language-r">  # NA</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">60</td>
-                    <td class="coverage">49<em>x</em></td>
+                    <td class="num">176</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">  out</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">61</td>
-                    <td class="coverage">49<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">177</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    response = variables$rsp,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">49<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">178</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    arm = biomarker,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">49<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">179</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    covariates = variables$covariates,</pre>
+                      <pre class="language-r">#' Helper function to analyze patients for `s_count_abnormal_lab_worsen_by_baseline()`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">64</td>
-                    <td class="coverage">49<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">180</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    strata = variables$strata</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Helper function to count the number of patients and the fraction of patients according to</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_response_biomarkers_subgroups prepares estimates for number of responses, patients and</pre>
+                      <pre class="language-r">#' highest post-baseline lab grade variable `.var`, baseline lab grade variable `baseline_var`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   overall response rate, as well as odds ratio estimates, confidence intervals and p-values, for multiple</pre>
+                      <pre class="language-r">#' and the direction of interest specified in `direction_var`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   biomarkers in a given single data set.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `variables` corresponds to names of variables found in `data`, passed as a named list and requires elements</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `rsp` and `biomarkers` (vector of continuous biomarker variables) and optionally `covariates`</pre>
+                      <pre class="language-r">#' @inheritParams h_adlb_worsen</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and `strata`.</pre>
+                      <pre class="language-r">#' @param baseline_var (`string`)\cr name of the baseline lab grade variable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' @return The counts and fraction of patients</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_logistic_mult_cont_df()` returns a `data.frame` containing estimates and statistics for the selected biomarkers.</pre>
+                      <pre class="language-r">#'   whose worst post-baseline lab grades are worse than their baseline grades, for</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   post-baseline worst grades "1", "2", "3", "4" and "Any".</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # For a single population, estimate separately the effects</pre>
+                      <pre class="language-r">#' @seealso [abnormal_by_worst_grade_worsen]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # of two biomarkers.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- h_logistic_mult_cont_df(</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     rsp = "rsp",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     biomarkers = c("BMRKR1", "AGE"),</pre>
+                      <pre class="language-r">#' # The direction variable, GRADDR, is based on metadata</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     covariates = "SEX"</pre>
+                      <pre class="language-r">#' adlb &lt;- tern_ex_adlb %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#'   mutate(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adrs_f</pre>
+                      <pre class="language-r">#'     GRADDR = case_when(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'       PARAMCD == "ALT" ~ "B",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">205</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df</pre>
+                      <pre class="language-r">#'       PARAMCD == "CRP" ~ "L",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'       PARAMCD == "IGA" ~ "H"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # If the data set is empty, still the corresponding rows with missings are returned.</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_coxreg_mult_cont_df(</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">209</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   variables = list(</pre>
+                      <pre class="language-r">#'   filter(SAFFL == "Y" &amp; ONTRTFL == "Y" &amp; GRADDR != "")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     rsp = "rsp",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">211</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     biomarkers = c("BMRKR1", "AGE"),</pre>
+                      <pre class="language-r">#' df &lt;- h_adlb_worsen(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     covariates = "SEX",</pre>
+                      <pre class="language-r">#'   adlb,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">213</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     strata = "STRATA1"</pre>
+                      <pre class="language-r">#'   worst_flag_low = c("WGRLOFL" = "Y"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ),</pre>
+                      <pre class="language-r">#'   worst_flag_high = c("WGRHIFL" = "Y"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   data = adrs_f[NULL, ]</pre>
+                      <pre class="language-r">#'   direction_var = "GRADDR"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' # `h_worsen_counter`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_logistic_mult_cont_df &lt;- function(variables,</pre>
+                      <pre class="language-r">#' h_worsen_counter(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    data,</pre>
+                      <pre class="language-r">#'   df %&gt;% filter(PARAMCD == "CRP" &amp; GRADDR == "Low"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    control = control_logistic()) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">106</td>
-                    <td class="coverage">28<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if ("strat" %in% names(variables)) {</pre>
+                      <pre class="language-r">#'   id = "USUBJID",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">107</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">222</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    warning(</pre>
+                      <pre class="language-r">#'   .var = "ATOXGR",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">108</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">223</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Warning: the `strat` element name of the `variables` list argument to `h_logistic_mult_cont_df() ",</pre>
+                      <pre class="language-r">#'   baseline_var = "BTOXGR",</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">109</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">224</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "was deprecated in tern 0.9.4.\n  ",</pre>
+                      <pre class="language-r">#'   direction_var = "GRADDR"</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">110</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">225</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      "Please use the name `strata` instead of `strat` in the `variables` argument."</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">226</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="missed">
-                    <td class="num">112</td>
-                    <td class="coverage">!</td>
+                  <tr class="never">
+                    <td class="num">227</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    variables[["strata"]] &lt;- variables[["strat"]]</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">h_worsen_counter &lt;- function(df, id, .var, baseline_var, direction_var) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">114</td>
-                    <td class="coverage">28<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(data, variables)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">115</td>
-                    <td class="coverage"></td>
+                    <td class="num">229</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  checkmate::assert_string(id)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">28<em>x</em></td>
+                    <td class="num">230</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(variables$biomarkers, min.len = 1, any.missing = FALSE)</pre>
+                      <pre class="language-r">  checkmate::assert_string(.var)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">117</td>
-                    <td class="coverage">28<em>x</em></td>
+                    <td class="num">231</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(control, names = "named")</pre>
+                      <pre class="language-r">  checkmate::assert_string(baseline_var)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">118</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">232</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  checkmate::assert_scalar(unique(df[[direction_var]]))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">28<em>x</em></td>
+                    <td class="num">233</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  conf_level &lt;- control[["conf_level"]]</pre>
+                      <pre class="language-r">  checkmate::assert_subset(unique(df[[direction_var]]), c("High", "Low"))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">120</td>
-                    <td class="coverage">28<em>x</em></td>
+                    <td class="num">234</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  pval_label &lt;- "p-value (Wald)"</pre>
+                      <pre class="language-r">  assert_df_with_variables(df, list(val = c(id, .var, baseline_var, direction_var)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">236</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # If there is any data, run model, otherwise return empty results.</pre>
+                      <pre class="language-r">  # remove post-baseline missing</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">28<em>x</em></td>
+                    <td class="num">237</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (nrow(data) &gt; 0) {</pre>
+                      <pre class="language-r">  df &lt;- df[df[[.var]] != "&lt;Missing&gt;", ]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">27<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">238</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    bm_cols &lt;- match(variables$biomarkers, names(data))</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">27<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">239</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    l_result &lt;- lapply(variables$biomarkers, function(bm) {</pre>
+                      <pre class="language-r">  # obtain directionality</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">126</td>
-                    <td class="coverage">48<em>x</em></td>
+                    <td class="num">240</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      model_fit &lt;- fit_logistic(</pre>
+                      <pre class="language-r">  direction &lt;- unique(df[[direction_var]])</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">127</td>
-                    <td class="coverage">48<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">241</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        variables = h_rsp_to_logistic_variables(variables, bm),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">48<em>x</em></td>
+                    <td class="num">242</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        data = data,</pre>
+                      <pre class="language-r">  if (direction == "Low") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">48<em>x</em></td>
+                    <td class="num">243</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        response_definition = control$response_definition</pre>
+                      <pre class="language-r">    grade &lt;- -1:-4</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">130</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">244</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r">    worst_grade &lt;- -4</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">48<em>x</em></td>
+                    <td class="num">245</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      result &lt;- h_logistic_simple_terms(</pre>
+                      <pre class="language-r">  } else if (direction == "High") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">48<em>x</em></td>
+                    <td class="num">246</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        x = bm,</pre>
+                      <pre class="language-r">    grade &lt;- 1:4</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">48<em>x</em></td>
+                    <td class="num">247</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        fit_glm = model_fit,</pre>
+                      <pre class="language-r">    worst_grade &lt;- 4</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">48<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">248</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        conf_level = control$conf_level</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">249</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">136</td>
-                    <td class="coverage">48<em>x</em></td>
+                    <td class="num">250</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      resp_vector &lt;- if (inherits(model_fit, "glm")) {</pre>
+                      <pre class="language-r">  if (nrow(df) &gt; 0) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">38<em>x</em></td>
+                    <td class="num">251</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        model_fit$model[[variables$rsp]]</pre>
+                      <pre class="language-r">    by_grade &lt;- lapply(grade, function(i) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">252</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      } else {</pre>
+                      <pre class="language-r">      # filter baseline values that is less than i or &lt;Missing&gt;</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="num">253</td>
+                    <td class="coverage">68<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        as.logical(as.matrix(model_fit$y)[, "status"])</pre>
+                      <pre class="language-r">      df_temp &lt;- df[df[[baseline_var]] %in% c((i + sign(i) * -1):(-1 * worst_grade), "&lt;Missing&gt;"), ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">254</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      }</pre>
+                      <pre class="language-r">      # num: number of patients with post-baseline worst lab equal to i</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">48<em>x</em></td>
+                    <td class="num">255</td>
+                    <td class="coverage">68<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      data.frame(</pre>
+                      <pre class="language-r">      num &lt;- length(unique(df_temp[df_temp[[.var]] %in% i, id, drop = TRUE]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">256</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        # Dummy column needed downstream to create a nested header.</pre>
+                      <pre class="language-r">      # denom: number of patients with baseline values less than i or &lt;missing&gt; and post-baseline in the same direction</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">48<em>x</em></td>
+                    <td class="num">257</td>
+                    <td class="coverage">68<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        biomarker = bm,</pre>
+                      <pre class="language-r">      denom &lt;- length(unique(df_temp[[id]]))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">48<em>x</em></td>
+                    <td class="num">258</td>
+                    <td class="coverage">68<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        biomarker_label = formatters::var_labels(data[bm], fill = TRUE),</pre>
+                      <pre class="language-r">      rm(df_temp)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">145</td>
-                    <td class="coverage">48<em>x</em></td>
+                    <td class="num">259</td>
+                    <td class="coverage">68<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n_tot = length(resp_vector),</pre>
+                      <pre class="language-r">      c(num = num, denom = denom)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">48<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">260</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        n_rsp = sum(resp_vector),</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">48<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">261</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        prop = mean(resp_vector),</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">48<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">262</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        or = as.numeric(result[1L, "odds_ratio"]),</pre>
+                      <pre class="language-r">    by_grade &lt;- lapply(1, function(i) {</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">149</td>
-                    <td class="coverage">48<em>x</em></td>
+                  <tr class="missed">
+                    <td class="num">263</td>
+                    <td class="coverage">!</td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        lcl = as.numeric(result[1L, "lcl"]),</pre>
+                      <pre class="language-r">      c(num = 0, denom = 0)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">150</td>
-                    <td class="coverage">48<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">264</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        ucl = as.numeric(result[1L, "ucl"]),</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">151</td>
-                    <td class="coverage">48<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">265</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        conf_level = conf_level,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">152</td>
-                    <td class="coverage">48<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">266</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        pval = as.numeric(result[1L, "pvalue"]),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">153</td>
-                    <td class="coverage">48<em>x</em></td>
+                    <td class="num">267</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        pval_label = pval_label,</pre>
+                      <pre class="language-r">  names(by_grade) &lt;- as.character(seq_along(by_grade))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">268</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">269</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  # baseline grade less 4 or missing</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">154</td>
-                    <td class="coverage">48<em>x</em></td>
+                    <td class="num">270</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">        stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">  df_temp &lt;- df[!df[[baseline_var]] %in% worst_grade, ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">271</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">272</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">  # denom: number of patients with baseline values less than 4 or &lt;missing&gt; and post-baseline in the same direction</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">157</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="num">273</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    do.call(rbind, args = c(l_result, make.row.names = FALSE))</pre>
+                      <pre class="language-r">  denom &lt;- length(unique(df_temp[, id, drop = TRUE]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">274</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">275</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    data.frame(</pre>
+                      <pre class="language-r">  # condition 1: missing baseline and in the direction of abnormality</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">160</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">276</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      biomarker = variables$biomarkers,</pre>
+                      <pre class="language-r">  con1 &lt;- which(df_temp[[baseline_var]] == "&lt;Missing&gt;" &amp; df_temp[[.var]] %in% grade)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">161</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">277</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      biomarker_label = formatters::var_labels(data[variables$biomarkers], fill = TRUE),</pre>
+                      <pre class="language-r">  df_temp_nm &lt;- df_temp[which(df_temp[[baseline_var]] != "&lt;Missing&gt;" &amp; df_temp[[.var]] %in% grade), ]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">278</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n_tot = 0L,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">163</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">279</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      n_rsp = 0L,</pre>
+                      <pre class="language-r">  # condition 2: if post-baseline values are present then post-baseline values must be worse than baseline</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">280</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      prop = NA,</pre>
+                      <pre class="language-r">  if (direction == "Low") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">281</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      or = NA,</pre>
+                      <pre class="language-r">    con2 &lt;- which(as.numeric(as.character(df_temp_nm[[.var]])) &lt; as.numeric(as.character(df_temp_nm[[baseline_var]])))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">166</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">282</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lcl = NA,</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">283</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ucl = NA,</pre>
+                      <pre class="language-r">    con2 &lt;- which(as.numeric(as.character(df_temp_nm[[.var]])) &gt; as.numeric(as.character(df_temp_nm[[baseline_var]])))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">284</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      conf_level = conf_level,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">285</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pval = NA,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">286</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      pval_label = pval_label,</pre>
+                      <pre class="language-r">  # number of patients satisfy either conditions 1 or 2</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">287</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      row.names = seq_along(variables$biomarkers),</pre>
+                      <pre class="language-r">  num &lt;- length(unique(df_temp[union(con1, con2), id, drop = TRUE]))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">288</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">289</td>
+                    <td class="coverage">17<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      stringsAsFactors = FALSE</pre>
+                      <pre class="language-r">  list(fraction = c(by_grade, list("Any" = c(num = num, denom = denom))))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">173</td>
+                    <td class="num">290</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">174</td>
+                    <td class="num">291</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">175</td>
+                    <td class="num">292</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @describeIn abnormal_by_worst_grade_worsen Statistics function for patients whose worst post-baseline</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">293</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   lab grades are worse than their baseline grades.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">294</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn h_response_biomarkers_subgroups Prepares a single sub-table given a `df_sub` containing</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">295</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the results for a single biomarker.</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">296</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' * `s_count_abnormal_lab_worsen_by_baseline()` returns the counts and fraction of patients whose worst</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">297</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param df (`data.frame`)\cr results for a single biomarker, as part of what is</pre>
+                      <pre class="language-r">#'   post-baseline lab grades are worse than their baseline grades, for post-baseline worst grades</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">298</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   returned by [extract_rsp_biomarkers()] (it needs a couple of columns which are</pre>
+                      <pre class="language-r">#'   "1", "2", "3", "4" and "Any".</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">299</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   added by that high-level function relative to what is returned by [h_logistic_mult_cont_df()],</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">300</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   see the example).</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">301</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">s_count_abnormal_lab_worsen_by_baseline &lt;- function(df, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">302</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">                                                    .var = "ATOXGR",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">303</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `h_tab_rsp_one_biomarker()` returns an `rtables` table object with the given statistics arranged in columns.</pre>
+                      <pre class="language-r">                                                    variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">304</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                                      id = "USUBJID",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">305</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">                                                      baseline_var = "BTOXGR",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">306</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Starting from above `df`, zoom in on one biomarker and add required columns.</pre>
+                      <pre class="language-r">                                                      direction_var = "GRADDR"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">307</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df1 &lt;- df[1, ]</pre>
+                      <pre class="language-r">                                                    )) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">308</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_string(.var)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">309</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_set_equal(names(variables), c("id", "baseline_var", "direction_var"))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">310</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_string(variables$id)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">311</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_string(variables$baseline_var)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">312</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_string(variables$direction_var)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">313</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  assert_df_with_variables(df, c(aval = .var, variables[1:3]))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">314</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  assert_list_of_variables(variables)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">315</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df1$subgroup &lt;- "All patients"</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">316</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  h_worsen_counter(df, variables$id, .var, variables$baseline_var, variables$direction_var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">317</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df1$row_type &lt;- "content"</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">318</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df1$var &lt;- "ALL"</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">319</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df1$var_label &lt;- "All patients"</pre>
+                      <pre class="language-r">#' @describeIn abnormal_by_worst_grade_worsen Formatted analysis function which is used as `afun`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">320</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   in `count_abnormal_lab_worsen_by_baseline()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">321</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' h_tab_rsp_one_biomarker(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">322</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   df1,</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">323</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   vars = c("n_tot", "n_rsp", "prop", "or", "ci", "pval")</pre>
+                      <pre class="language-r">#' * `a_count_abnormal_lab_worsen_by_baseline()` returns the corresponding list with</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">324</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   formatted [rtables::CellValue()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">325</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">326</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">327</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_tab_rsp_one_biomarker &lt;- function(df,</pre>
+                      <pre class="language-r">a_count_abnormal_lab_worsen_by_baseline &lt;- make_afun( # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">328</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    vars,</pre>
+                      <pre class="language-r">  s_count_abnormal_lab_worsen_by_baseline,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">329</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    na_str = default_na_str(),</pre>
+                      <pre class="language-r">  .formats = c(fraction = format_fraction),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">205</td>
+                    <td class="num">330</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                    .indent_mods = 0L) {</pre>
+                      <pre class="language-r">  .ungroup_stats = "fraction"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">206</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">331</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  afuns &lt;- a_response_subgroups(na_str = na_str)[vars]</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">207</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">332</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  colvars &lt;- d_rsp_subgroups_colvars(</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">208</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">333</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars,</pre>
+                      <pre class="language-r">#' @describeIn abnormal_by_worst_grade_worsen Layout-creating function which can take statistics function</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">209</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">334</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    conf_level = df$conf_level[1],</pre>
+                      <pre class="language-r">#'   arguments and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">210</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">335</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    method = df$pval_label[1]</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</td>
+                    <td class="num">336</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">212</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">337</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  h_tab_one_biomarker(</pre>
+                      <pre class="language-r">#' * `count_abnormal_lab_worsen_by_baseline()` returns a layout object suitable for passing to further layouting</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">213</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">338</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df = df,</pre>
+                      <pre class="language-r">#'   functions, or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">214</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">339</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    afuns = afuns,</pre>
+                      <pre class="language-r">#'   rows containing the statistics from `s_count_abnormal_lab_worsen_by_baseline()` to the table layout.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">215</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">340</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    colvars = colvars,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">216</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">341</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">217</td>
-                    <td class="coverage">8<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">342</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .indent_mods = .indent_mods</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">218</td>
+                    <td class="num">343</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">219</td>
+                    <td class="num">344</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' # The direction variable, GRADDR, is based on metadata</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/stat.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">345</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Confidence interval for mean</pre>
+                      <pre class="language-r">#' adlb &lt;- tern_ex_adlb %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">346</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   mutate(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">347</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#'     GRADDR = case_when(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">348</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'       PARAMCD == "ALT" ~ "B",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">349</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Convenient function for calculating the mean confidence interval. It calculates the arithmetic as well as the</pre>
+                      <pre class="language-r">#'       PARAMCD == "CRP" ~ "L",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">350</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' geometric mean. It can be used as a `ggplot` helper function for plotting.</pre>
+                      <pre class="language-r">#'       PARAMCD == "IGA" ~ "H"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">351</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">352</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">353</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param n_min (`numeric(1)`)\cr a minimum number of non-missing `x` to estimate the confidence interval for mean.</pre>
+                      <pre class="language-r">#'   filter(SAFFL == "Y" &amp; ONTRTFL == "Y" &amp; GRADDR != "")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">354</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param gg_helper (`flag`)\cr whether output should be aligned for use with `ggplot`s.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">355</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param geom_mean (`flag`)\cr whether the geometric mean should be calculated.</pre>
+                      <pre class="language-r">#' df &lt;- h_adlb_worsen(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">356</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   adlb,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">357</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A named `vector` of values `mean_ci_lwr` and `mean_ci_upr`.</pre>
+                      <pre class="language-r">#'   worst_flag_low = c("WGRLOFL" = "Y"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">358</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   worst_flag_high = c("WGRHIFL" = "Y"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">359</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   direction_var = "GRADDR"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">360</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' stat_mean_ci(sample(10), gg_helper = FALSE)</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">361</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">362</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' p &lt;- ggplot2::ggplot(mtcars, ggplot2::aes(cyl, mpg)) +</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">363</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ggplot2::geom_point()</pre>
+                      <pre class="language-r">#'   split_cols_by("ARMCD") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">364</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">365</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' p + ggplot2::stat_summary(</pre>
+                      <pre class="language-r">#'   split_rows_by("PARAMCD") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">366</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   fun.data = stat_mean_ci,</pre>
+                      <pre class="language-r">#'   split_rows_by("GRADDR") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">367</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   geom = "errorbar"</pre>
+                      <pre class="language-r">#'   count_abnormal_lab_worsen_by_baseline(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">368</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'     var = "ATOXGR",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">369</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">370</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' p + ggplot2::stat_summary(</pre>
+                      <pre class="language-r">#'       id = "USUBJID",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">371</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   fun.data = stat_mean_ci,</pre>
+                      <pre class="language-r">#'       baseline_var = "BTOXGR",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">372</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   fun.args = list(conf_level = 0.5),</pre>
+                      <pre class="language-r">#'       direction_var = "GRADDR"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">373</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   geom = "errorbar"</pre>
+                      <pre class="language-r">#'     )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">374</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">375</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   append_topleft("Direction of Abnormality") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">376</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' p + ggplot2::stat_summary(</pre>
+                      <pre class="language-r">#'   build_table(df = df, alt_counts_df = tern_ex_adsl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">377</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   fun.data = stat_mean_ci,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">378</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   fun.args = list(conf_level = 0.5, geom_mean = TRUE),</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">379</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   geom = "errorbar"</pre>
+                      <pre class="language-r">#' @order 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">380</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">count_abnormal_lab_worsen_by_baseline &lt;- function(lyt, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">381</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                                  var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">382</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                                                  variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">383</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">stat_mean_ci &lt;- function(x,</pre>
+                      <pre class="language-r">                                                    id = "USUBJID",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">384</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         conf_level = 0.95,</pre>
+                      <pre class="language-r">                                                    baseline_var = "BTOXGR",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">385</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         na.rm = TRUE, # nolint</pre>
+                      <pre class="language-r">                                                    direction_var = "GRADDR"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">386</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         n_min = 2,</pre>
+                      <pre class="language-r">                                                  ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">387</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         gg_helper = TRUE,</pre>
+                      <pre class="language-r">                                                  na_str = default_na_str(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">388</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         geom_mean = FALSE) {</pre>
+                      <pre class="language-r">                                                  nested = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">45</td>
-                    <td class="coverage">2211<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">389</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (na.rm) {</pre>
+                      <pre class="language-r">                                                  ...,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">46</td>
-                    <td class="coverage">10<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">390</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x &lt;- stats::na.omit(x)</pre>
+                      <pre class="language-r">                                                  table_names = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">391</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                                                  .stats = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">48</td>
-                    <td class="coverage">2211<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">392</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n &lt;- length(x)</pre>
+                      <pre class="language-r">                                                  .formats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">393</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                                  .labels = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">50</td>
-                    <td class="coverage">2211<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">394</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (!geom_mean) {</pre>
+                      <pre class="language-r">                                                  .indent_mods = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">51</td>
-                    <td class="coverage">1113<em>x</em></td>
+                    <td class="num">395</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    m &lt;- mean(x)</pre>
+                      <pre class="language-r">  checkmate::assert_string(var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">396</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">53</td>
-                    <td class="coverage">1098<em>x</em></td>
+                    <td class="num">397</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    negative_values_exist &lt;- any(is.na(x[!is.na(x)]) &lt;- x[!is.na(x)] &lt;= 0)</pre>
+                      <pre class="language-r">  extra_args &lt;- list(variables = variables, ...)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">398</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">54</td>
-                    <td class="coverage">1098<em>x</em></td>
+                    <td class="num">399</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (negative_values_exist) {</pre>
+                      <pre class="language-r">  afun &lt;- make_afun(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">55</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">400</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      m &lt;- NA_real_</pre>
+                      <pre class="language-r">    a_count_abnormal_lab_worsen_by_baseline,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">56</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">401</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    } else {</pre>
+                      <pre class="language-r">    .stats = .stats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">57</td>
-                    <td class="coverage">1076<em>x</em></td>
+                    <td class="num">402</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      x &lt;- log(x)</pre>
+                      <pre class="language-r">    .formats = .formats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">58</td>
-                    <td class="coverage">1076<em>x</em></td>
+                    <td class="num">403</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      m &lt;- mean(x)</pre>
+                      <pre class="language-r">    .labels = .labels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">59</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">404</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    .indent_mods = .indent_mods</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">405</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">406</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">62</td>
-                    <td class="coverage">2211<em>x</em></td>
+                    <td class="num">407</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (n &lt; n_min || is.na(m)) {</pre>
+                      <pre class="language-r">  lyt &lt;- analyze(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">63</td>
-                    <td class="coverage">302<em>x</em></td>
+                    <td class="num">408</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ci &lt;- c(mean_ci_lwr = NA_real_, mean_ci_upr = NA_real_)</pre>
+                      <pre class="language-r">    lyt = lyt,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">64</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">409</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">    vars = var,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">65</td>
-                    <td class="coverage">1909<em>x</em></td>
+                    <td class="num">410</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    hci &lt;- stats::qt((1 + conf_level) / 2, df = n - 1) * stats::sd(x) / sqrt(n)</pre>
+                      <pre class="language-r">    afun = afun,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">66</td>
-                    <td class="coverage">1909<em>x</em></td>
+                    <td class="num">411</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ci &lt;- c(mean_ci_lwr = m - hci, mean_ci_upr = m + hci)</pre>
+                      <pre class="language-r">    na_str = na_str,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">67</td>
-                    <td class="coverage">1909<em>x</em></td>
+                    <td class="num">412</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (geom_mean) {</pre>
+                      <pre class="language-r">    nested = nested,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">945<em>x</em></td>
+                    <td class="num">413</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      ci &lt;- exp(ci)</pre>
+                      <pre class="language-r">    extra_args = extra_args,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">69</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">414</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">    show_labels = "hidden"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">415</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">416</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">72</td>
-                    <td class="coverage">2211<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (gg_helper) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">73</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">417</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    m &lt;- ifelse(is.na(m), NA_real_, m)</pre>
+                      <pre class="language-r">  lyt</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">418</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ci &lt;- data.frame(y = ifelse(geom_mean, exp(m), m), ymin = ci[[1]], ymax = ci[[2]])</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/imputation_rule.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' Apply 1/3 or 1/2 imputation rule to data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">77</td>
-                    <td class="coverage">2211<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">3</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(ci)</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Confidence interval for median</pre>
+                      <pre class="language-r">#' @param x_stats (named `list`)\cr a named list of statistics, typically the results of [s_summary()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param stat (`string`)\cr statistic to return the value/NA level of according to the imputation</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#'   rule applied.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param imp_rule (`string`)\cr imputation rule setting. Set to `"1/3"` to implement 1/3 imputation</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Convenient function for calculating the median confidence interval. It can be used as a `ggplot` helper</pre>
+                      <pre class="language-r">#'   rule or `"1/2"` to implement 1/2 imputation rule.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' function for plotting.</pre>
+                      <pre class="language-r">#' @param post (`flag`)\cr whether the data corresponds to a post-dose time-point (defaults to `FALSE`).</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   This parameter is only used when `imp_rule` is set to `"1/3"`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' @param avalcat_var (`string`)\cr name of variable that indicates whether a row in `df` corresponds</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param gg_helper (`flag`)\cr whether output should be aligned for use with `ggplot`s.</pre>
+                      <pre class="language-r">#'   to an analysis value in category `"BLQ"`, `"LTR"`, `"&lt;PCLLOQ"`, or none of the above</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   (defaults to `"AVALCAT1"`). Variable `avalcat_var` must be present in `df`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @details This function was adapted from `DescTools/versions/0.99.35/source`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return A `list` containing statistic value (`val`) and NA level (`na_str`) that should be displayed</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A named `vector` of values `median_ci_lwr` and `median_ci_upr`.</pre>
+                      <pre class="language-r">#'   according to the specified imputation rule.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @seealso [analyze_vars_in_cols()] where this function can be implemented by setting the `imp_rule`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' stat_median_ci(sample(10), gg_helper = FALSE)</pre>
+                      <pre class="language-r">#'   argument.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' p &lt;- ggplot2::ggplot(mtcars, ggplot2::aes(cyl, mpg)) +</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ggplot2::geom_point()</pre>
+                      <pre class="language-r">#' set.seed(1)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' p + ggplot2::stat_summary(</pre>
+                      <pre class="language-r">#' df &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   fun.data = stat_median_ci,</pre>
+                      <pre class="language-r">#'   AVAL = runif(50, 0, 1),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   geom = "errorbar"</pre>
+                      <pre class="language-r">#'   AVALCAT1 = sample(c(1, "BLQ"), 50, replace = TRUE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' x_stats &lt;- s_summary(df$AVAL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' imputation_rule(df, x_stats, "max", "1/3")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">stat_median_ci &lt;- function(x,</pre>
+                      <pre class="language-r">#' imputation_rule(df, x_stats, "geom_mean", "1/3")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           conf_level = 0.95,</pre>
+                      <pre class="language-r">#' imputation_rule(df, x_stats, "mean", "1/2")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           na.rm = TRUE, # nolint</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           gg_helper = TRUE) {</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">109</td>
-                    <td class="coverage">1111<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">35</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x &lt;- unname(x)</pre>
+                      <pre class="language-r">imputation_rule &lt;- function(df, x_stats, stat, imp_rule, post = FALSE, avalcat_var = "AVALCAT1") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">110</td>
-                    <td class="coverage">1111<em>x</em></td>
+                    <td class="num">36</td>
+                    <td class="coverage">128<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (na.rm) {</pre>
+                      <pre class="language-r">  checkmate::assert_choice(avalcat_var, names(df))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">111</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="num">37</td>
+                    <td class="coverage">128<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x &lt;- x[!is.na(x)]</pre>
+                      <pre class="language-r">  checkmate::assert_choice(imp_rule, c("1/3", "1/2"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">112</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">38</td>
+                    <td class="coverage">128<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  n_blq &lt;- sum(grepl("BLQ|LTR|&lt;[1-9]|&lt;PCLLOQ", df[[avalcat_var]]))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">113</td>
-                    <td class="coverage">1111<em>x</em></td>
+                    <td class="num">39</td>
+                    <td class="coverage">128<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n &lt;- length(x)</pre>
+                      <pre class="language-r">  ltr_blq_ratio &lt;- n_blq / max(1, nrow(df))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">114</td>
-                    <td class="coverage">1111<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">40</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  med &lt;- stats::median(x)</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  # defaults</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">116</td>
-                    <td class="coverage">1111<em>x</em></td>
+                    <td class="num">42</td>
+                    <td class="coverage">128<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  k &lt;- stats::qbinom(p = (1 - conf_level) / 2, size = n, prob = 0.5, lower.tail = TRUE)</pre>
+                      <pre class="language-r">  val &lt;- x_stats[[stat]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">117</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">43</td>
+                    <td class="coverage">128<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  na_str &lt;- "NE"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # k == 0 - for small samples (e.g. n &lt;= 5) ci can be outside the observed range</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">119</td>
-                    <td class="coverage">1111<em>x</em></td>
+                    <td class="num">45</td>
+                    <td class="coverage">128<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (k == 0 || is.na(med)) {</pre>
+                      <pre class="language-r">  if (imp_rule == "1/3") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">120</td>
-                    <td class="coverage">242<em>x</em></td>
+                    <td class="num">46</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ci &lt;- c(median_ci_lwr = NA_real_, median_ci_upr = NA_real_)</pre>
+                      <pre class="language-r">    if (!post &amp;&amp; stat == "geom_mean") val &lt;- NA # 1/3_pre_LT, 1/3_pre_GT</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">121</td>
-                    <td class="coverage">242<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    empir_conf_level &lt;- NA_real_</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">122</td>
-                    <td class="coverage"></td>
+                    <td class="num">47</td>
+                    <td class="coverage">84<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">    if (ltr_blq_ratio &gt; 1 / 3) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">123</td>
-                    <td class="coverage">869<em>x</em></td>
+                    <td class="num">48</td>
+                    <td class="coverage">63<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_sort &lt;- sort(x)</pre>
+                      <pre class="language-r">      if (stat != "geom_mean") na_str &lt;- "ND" # 1/3_pre_GT, 1/3_post_GT</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">124</td>
-                    <td class="coverage">869<em>x</em></td>
+                    <td class="num">49</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ci &lt;- c(median_ci_lwr = x_sort[k], median_ci_upr = x_sort[n - k + 1])</pre>
+                      <pre class="language-r">      if (!post &amp;&amp; !stat %in% c("median", "max")) val &lt;- NA # 1/3_pre_GT</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">125</td>
-                    <td class="coverage">869<em>x</em></td>
+                    <td class="num">50</td>
+                    <td class="coverage">39<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    empir_conf_level &lt;- 1 - 2 * stats::pbinom(k - 1, size = n, prob = 0.5)</pre>
+                      <pre class="language-r">      if (post &amp;&amp; !stat %in% c("median", "max", "geom_mean")) val &lt;- NA # 1/3_post_GT</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">127</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">52</td>
+                    <td class="coverage">44<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  } else if (imp_rule == "1/2") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">128</td>
-                    <td class="coverage">1111<em>x</em></td>
+                    <td class="num">53</td>
+                    <td class="coverage">44<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (gg_helper) {</pre>
+                      <pre class="language-r">    if (ltr_blq_ratio &gt; 1 / 2 &amp;&amp; !stat == "max") {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">54</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ci &lt;- data.frame(y = med, ymin = ci[[1]], ymax = ci[[2]])</pre>
+                      <pre class="language-r">      val &lt;- NA # 1/2_GT</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">130</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">55</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">      na_str &lt;- "ND" # 1/2_GT</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">1111<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">57</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  attr(ci, "conf_level") &lt;- empir_conf_level</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">1111<em>x</em></td>
+                    <td class="num">59</td>
+                    <td class="coverage">128<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(ci)</pre>
+                      <pre class="language-r">  list(val = val, na_str = na_str)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/control_incidence_rate.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Control function for incidence rate</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' p-Value of the mean</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' This is an auxiliary function for controlling arguments for the incidence rate, used</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Convenient function for calculating the two-sided p-value of the mean.</pre>
+                      <pre class="language-r">#' internally to specify details in `s_incidence_rate()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param n_min (`numeric(1)`)\cr a minimum number of non-missing `x` to estimate the p-value of the mean.</pre>
+                      <pre class="language-r">#' @param conf_type (`string`)\cr `normal` (default), `normal_log`, `exact`, or `byar`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param test_mean (`numeric(1)`)\cr mean value to test under the null hypothesis.</pre>
+                      <pre class="language-r">#'   for confidence interval type.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param input_time_unit (`string`)\cr `day`, `week`, `month`, or `year` (default)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A p-value.</pre>
+                      <pre class="language-r">#'   indicating time unit for data input.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param num_pt_year (`numeric(1)`)\cr number of patient-years to use when calculating adverse event rates.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' stat_mean_pval(sample(10))</pre>
+                      <pre class="language-r">#' @return A list of components with the same names as the arguments.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' stat_mean_pval(rnorm(10), test_mean = 0.5)</pre>
+                      <pre class="language-r">#' @seealso [incidence_rate]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">stat_mean_pval &lt;- function(x,</pre>
+                      <pre class="language-r">#' control_incidence_rate(0.9, "exact", "month", 100)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           na.rm = TRUE, # nolint</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           n_min = 2,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           test_mean = 0) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">159</td>
-                    <td class="coverage">1111<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  if (na.rm) {</pre>
-                    </td>
-                  </tr>
-                  <tr class="covered">
-                    <td class="num">160</td>
-                    <td class="coverage">9<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    x &lt;- stats::na.omit(x)</pre>
+                      <pre class="language-r">control_incidence_rate &lt;- function(conf_level = 0.95,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">                                   conf_type = c("normal", "normal_log", "exact", "byar"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">162</td>
-                    <td class="coverage">1111<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">25</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n &lt;- length(x)</pre>
+                      <pre class="language-r">                                   input_time_unit = c("year", "day", "week", "month"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                   num_pt_year = 100) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">164</td>
-                    <td class="coverage">1111<em>x</em></td>
+                    <td class="num">27</td>
+                    <td class="coverage">14<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  x_mean &lt;- mean(x)</pre>
+                      <pre class="language-r">  conf_type &lt;- match.arg(conf_type)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">165</td>
-                    <td class="coverage">1111<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">  x_sd &lt;- stats::sd(x)</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">166</td>
-                    <td class="coverage"></td>
+                    <td class="num">28</td>
+                    <td class="coverage">13<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  input_time_unit &lt;- match.arg(input_time_unit)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">167</td>
-                    <td class="coverage">1111<em>x</em></td>
+                    <td class="num">29</td>
+                    <td class="coverage">12<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (n &lt; n_min) {</pre>
+                      <pre class="language-r">  checkmate::assert_number(num_pt_year)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">168</td>
-                    <td class="coverage">140<em>x</em></td>
+                    <td class="num">30</td>
+                    <td class="coverage">11<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    pv &lt;- c(p_value = NA_real_)</pre>
+                      <pre class="language-r">  assert_proportion_value(conf_level)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">169</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">170</td>
-                    <td class="coverage">971<em>x</em></td>
+                    <td class="num">32</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x_se &lt;- stats::sd(x) / sqrt(n)</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">971<em>x</em></td>
+                    <td class="num">33</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    ttest &lt;- (x_mean - test_mean) / x_se</pre>
+                      <pre class="language-r">    conf_level = conf_level,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">172</td>
-                    <td class="coverage">971<em>x</em></td>
-                    <td class="col-sm-12">
-                      <pre class="language-r">    pv &lt;- c(p_value = 2 * stats::pt(-abs(ttest), df = n - 1))</pre>
-                    </td>
-                  </tr>
-                  <tr class="never">
-                    <td class="num">173</td>
-                    <td class="coverage"></td>
+                    <td class="num">34</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    conf_type = conf_type,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">174</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">35</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    input_time_unit = input_time_unit,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">1111<em>x</em></td>
+                    <td class="num">36</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  return(pv)</pre>
+                      <pre class="language-r">    num_pt_year = num_pt_year</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">176</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">177</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/summarize_change.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">178</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Proportion difference and confidence interval</pre>
+                      <pre class="language-r">#' Summarize change from baseline values or absolute baseline values</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">181</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">182</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Function for calculating the proportion (or risk) difference and confidence interval between arm</pre>
+                      <pre class="language-r">#' The analyze function [summarize_change()] creates a layout element to summarize the change from baseline or absolute</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' X (reference group) and arm Y. Risk difference is calculated by subtracting cumulative incidence</pre>
+                      <pre class="language-r">#' baseline values. The primary analysis variable `vars` indicates the numerical change from baseline results.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">184</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' in arm Y from cumulative incidence in arm X.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">185</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Required secondary analysis variables `value` and `baseline_flag` can be supplied to the function via</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">186</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' the `variables` argument. The `value` element should be the name of the analysis value variable, and the</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">187</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`list` of `integer`)\cr list of number of occurrences in arm X (reference group).</pre>
+                      <pre class="language-r">#' `baseline_flag` element should be the name of the flag variable that indicates whether or not records contain</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">188</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param y (`list` of `integer`)\cr list of number of occurrences in arm Y. Must be of equal length to `x`.</pre>
+                      <pre class="language-r">#' baseline values. Depending on the baseline flag given, either the absolute baseline values (at baseline)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param N_x (`numeric(1)`)\cr total number of records in arm X.</pre>
+                      <pre class="language-r">#' or the change from baseline values (post-baseline) are then summarized.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param N_y (`numeric(1)`)\cr total number of records in arm Y.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param list_names (`character`)\cr names of each variable/level corresponding to pair of proportions in</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">192</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `x` and `y`. Must be of equal length to `x` and `y`.</pre>
+                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("analyze_vars_numeric)`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">193</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param pct (`flag`)\cr whether output should be returned as percentages. Defaults to `TRUE`.</pre>
+                      <pre class="language-r">#'   to see available statistics for this function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">194</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">195</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return List of proportion differences and CIs corresponding to each pair of number of occurrences in `x` and</pre>
+                      <pre class="language-r">#' @name summarize_change</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">196</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `y`. Each list element consists of 3 statistics: proportion difference, CI lower bound, and CI upper bound.</pre>
+                      <pre class="language-r">#' @order 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">197</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">198</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso Split function [add_riskdiff()] which, when used as `split_fun` within [rtables::split_cols_by()]</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">199</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   with `riskdiff` argument is set to `TRUE` in subsequent analyze functions, adds a column containing</pre>
+                      <pre class="language-r">#' @describeIn summarize_change Statistics function that summarizes baseline or post-baseline visits.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">200</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   proportion (risk) difference to an `rtables` layout.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' * `s_change_from_baseline()` returns the same values returned by [s_summary.numeric()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">203</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' stat_propdiff_ci(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">204</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   x = list(0.375), y = list(0.01), N_x = 5, N_y = 5, list_names = "x", conf_level = 0.9</pre>
+                      <pre class="language-r">#' @note The data in `df` must be either all be from baseline or post-baseline visits. Otherwise</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">205</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#'   an error will be thrown.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">206</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">207</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' stat_propdiff_ci(</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">208</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   x = list(0.5, 0.75, 1), y = list(0.25, 0.05, 0.5), N_x = 10, N_y = 20, pct = FALSE</pre>
+                      <pre class="language-r">s_change_from_baseline &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">209</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">                                   .var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">210</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                   variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">211</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                                   na.rm = TRUE, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">212</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">stat_propdiff_ci &lt;- function(x,</pre>
+                      <pre class="language-r">                                   ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">213</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">36</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             y,</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(df[[variables$value]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">214</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">37</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             N_x, # nolint</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(df[[.var]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">215</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">38</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             N_y, # nolint</pre>
+                      <pre class="language-r">  checkmate::assert_logical(df[[variables$baseline_flag]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">216</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">39</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             list_names = NULL,</pre>
+                      <pre class="language-r">  checkmate::assert_vector(unique(df[[variables$baseline_flag]]), max.len = 1)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">217</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">40</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             conf_level = 0.95,</pre>
+                      <pre class="language-r">  assert_df_with_variables(df, c(variables, list(chg = .var)))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">218</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             pct = TRUE) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">219</td>
-                    <td class="coverage">47<em>x</em></td>
+                    <td class="num">42</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(x, types = "numeric")</pre>
+                      <pre class="language-r">  combined &lt;- ifelse(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">220</td>
-                    <td class="coverage">47<em>x</em></td>
+                    <td class="num">43</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_list(y, types = "numeric", len = length(x))</pre>
+                      <pre class="language-r">    df[[variables$baseline_flag]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">221</td>
-                    <td class="coverage">47<em>x</em></td>
+                    <td class="num">44</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(list_names, len = length(x), null.ok = TRUE)</pre>
+                      <pre class="language-r">    df[[variables$value]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">222</td>
-                    <td class="coverage">47<em>x</em></td>
+                    <td class="num">45</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  rd_list &lt;- lapply(seq_along(x), function(i) {</pre>
+                      <pre class="language-r">    df[[.var]]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">223</td>
-                    <td class="coverage">120<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">46</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    p_x &lt;- x[[i]] / N_x</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">224</td>
-                    <td class="coverage">120<em>x</em></td>
+                    <td class="num">47</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    p_y &lt;- y[[i]] / N_y</pre>
+                      <pre class="language-r">  if (is.logical(combined) &amp;&amp; identical(length(combined), 0L)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">225</td>
-                    <td class="coverage">120<em>x</em></td>
+                    <td class="num">48</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    rd_ci &lt;- p_x - p_y + c(-1, 1) * stats::qnorm((1 + conf_level) / 2) *</pre>
+                      <pre class="language-r">    combined &lt;- numeric(0)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">226</td>
-                    <td class="coverage">120<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">49</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      sqrt(p_x * (1 - p_x) / N_x + p_y * (1 - p_y) / N_y)</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">227</td>
-                    <td class="coverage">120<em>x</em></td>
+                    <td class="num">50</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    c(p_x - p_y, rd_ci) * ifelse(pct, 100, 1)</pre>
+                      <pre class="language-r">  s_summary(combined, na.rm = na.rm, ...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">228</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  })</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">229</td>
-                    <td class="coverage">47<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">52</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  names(rd_list) &lt;- list_names</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">230</td>
-                    <td class="coverage">47<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">53</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  rd_list</pre>
+                      <pre class="language-r">#' @describeIn summarize_change Formatted analysis function which is used as `afun` in `summarize_change()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">231</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/combination_function.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Class for `CombinationFunction`</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">56</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' * `a_change_from_baseline()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">a_change_from_baseline &lt;- make_afun(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `CombinationFunction` is an S4 class which extends standard functions. These are special functions that</pre>
+                      <pre class="language-r">  s_change_from_baseline,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">61</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' can be combined and negated with the logical operators.</pre>
+                      <pre class="language-r">  .formats = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    n = "xx",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param e1 (`CombinationFunction`)\cr left hand side of logical operator.</pre>
+                      <pre class="language-r">    mean_sd = "xx.xx (xx.xx)",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param e2 (`CombinationFunction`)\cr right hand side of logical operator.</pre>
+                      <pre class="language-r">    mean_se = "xx.xx (xx.xx)",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x (`CombinationFunction`)\cr the function which should be negated.</pre>
+                      <pre class="language-r">    median = "xx.xx",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">66</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    range = "xx.xx - xx.xx",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A logical value indicating whether the left hand side of the equation equals the right hand side.</pre>
+                      <pre class="language-r">    mean_ci = "(xx.xx, xx.xx)",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">68</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    median_ci = "(xx.xx, xx.xx)",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    mean_pval = "xx.xx"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' higher &lt;- function(a) {</pre>
+                      <pre class="language-r">  ),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   force(a)</pre>
+                      <pre class="language-r">  .labels = c(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">72</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    mean_sd = "Mean (SD)",</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">73</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    mean_se = "Mean (SE)",</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">74</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    median = "Median",</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">75</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    range = "Min - Max"</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">76</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   CombinationFunction(</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     function(x) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       x &gt; a</pre>
+                      <pre class="language-r">#' @describeIn summarize_change Layout-creating function which can take statistics function arguments</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     }</pre>
+                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' * `summarize_change()` returns a layout object suitable for passing to further layouting functions,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' lower &lt;- function(b) {</pre>
+                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   force(b)</pre>
+                      <pre class="language-r">#'   the statistics from `s_change_from_baseline()` to the table layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   CombinationFunction(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     function(x) {</pre>
+                      <pre class="language-r">#' @note To be used after a split on visits in the layout, such that each data subset only contains</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'       x &lt; b</pre>
+                      <pre class="language-r">#'   either baseline or post-baseline data.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' }</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' c1 &lt;- higher(5)</pre>
+                      <pre class="language-r">#' ## Fabricate dataset</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' c2 &lt;- lower(10)</pre>
+                      <pre class="language-r">#' dta_test &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' c3 &lt;- higher(5) &amp; lower(10)</pre>
+                      <pre class="language-r">#'   USUBJID = rep(1:6, each = 3),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' c3(7)</pre>
+                      <pre class="language-r">#'   AVISIT = rep(paste0("V", 1:3), 6),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   ARM = rep(LETTERS[1:3], rep(6, 3)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name combination_function</pre>
+                      <pre class="language-r">#'   AVAL = c(9:1, rep(NA, 9))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @aliases CombinationFunction-class</pre>
+                      <pre class="language-r">#' ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @exportClass CombinationFunction</pre>
+                      <pre class="language-r">#'   mutate(ABLFLL = AVISIT == "V1") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export CombinationFunction</pre>
+                      <pre class="language-r">#'   group_by(USUBJID) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">CombinationFunction &lt;- methods::setClass("CombinationFunction", contains = "function") # nolint</pre>
+                      <pre class="language-r">#'   mutate(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'     BLVAL = AVAL[ABLFLL],</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn combination_function Logical "AND" combination of `CombinationFunction` functions.</pre>
+                      <pre class="language-r">#'     CHG = AVAL - BLVAL</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   The resulting object is of the same class, and evaluates the two argument functions. The result</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   is then the "AND" of the two individual results.</pre>
+                      <pre class="language-r">#'   ungroup()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">47</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' results &lt;- basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">methods::setMethod(</pre>
+                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  "&amp;",</pre>
+                      <pre class="language-r">#'   split_rows_by("AVISIT") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  signature = c(e1 = "CombinationFunction", e2 = "CombinationFunction"),</pre>
+                      <pre class="language-r">#'   summarize_change("CHG", variables = list(value = "AVAL", baseline_flag = "ABLFLL")) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  definition = function(e1, e2) {</pre>
+                      <pre class="language-r">#'   build_table(dta_test)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">53</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">113</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    CombinationFunction(function(...) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">54</td>
-                    <td class="coverage">490<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">114</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      e1(...) &amp;&amp; e2(...)</pre>
+                      <pre class="language-r">#' results</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">#' @order 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">summarize_change &lt;- function(lyt,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn combination_function Logical "OR" combination of `CombinationFunction` functions.</pre>
+                      <pre class="language-r">                             vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   The resulting object is of the same class, and evaluates the two argument functions. The result</pre>
+                      <pre class="language-r">                             variables,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   is then the "OR" of the two individual results.</pre>
+                      <pre class="language-r">                             na_str = default_na_str(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                             nested = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                             ...,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">methods::setMethod(</pre>
+                      <pre class="language-r">                             table_names = vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  "|",</pre>
+                      <pre class="language-r">                             .stats = c("n", "mean_sd", "median", "range"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  signature = c(e1 = "CombinationFunction", e2 = "CombinationFunction"),</pre>
+                      <pre class="language-r">                             .formats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  definition = function(e1, e2) {</pre>
+                      <pre class="language-r">                             .labels = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">128</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    CombinationFunction(function(...) {</pre>
+                      <pre class="language-r">                             .indent_mods = NULL) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">69</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">129</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      e1(...) || e2(...)</pre>
+                      <pre class="language-r">  extra_args &lt;- list(variables = variables, ...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">71</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">131</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  afun &lt;- make_afun(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">72</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">132</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">    a_change_from_baseline,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">73</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">133</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    .stats = .stats,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">74</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">134</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn combination_function Logical negation of `CombinationFunction` functions.</pre>
+                      <pre class="language-r">    .formats = .formats,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">75</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">135</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   The resulting object is of the same class, and evaluates the original function. The result</pre>
+                      <pre class="language-r">    .labels = .labels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">76</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">136</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   is then the opposite of this results.</pre>
+                      <pre class="language-r">    .indent_mods = .indent_mods</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">79</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">139</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">methods::setMethod(</pre>
+                      <pre class="language-r">  analyze(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">80</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">140</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  "!",</pre>
+                      <pre class="language-r">    lyt,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">81</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">141</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  signature = c(x = "CombinationFunction"),</pre>
+                      <pre class="language-r">    vars,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">82</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">142</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  definition = function(x) {</pre>
+                      <pre class="language-r">    afun = afun,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">83</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">143</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    CombinationFunction(function(...) {</pre>
+                      <pre class="language-r">    na_str = na_str,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">305<em>x</em></td>
+                    <td class="num">144</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      !x(...)</pre>
+                      <pre class="language-r">    nested = nested,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">85</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">145</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    })</pre>
+                      <pre class="language-r">    extra_args = extra_args,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">146</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    table_names = table_names</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">148</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                 </tbody>
               </table>
             </div>
-            <div id="R/imputation_rule.R" class="hidden">
+            <div id="R/abnormal_by_baseline.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Apply 1/3 or 1/2 imputation rule to data</pre>
+                      <pre class="language-r">#' Count patients with abnormal analysis range values by baseline status</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -180535,1431 +179772,1628 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' The analyze function [count_abnormal_by_baseline()] creates a layout element to count patients with abnormal</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param x_stats (named `list`)\cr a named list of statistics, typically the results of [s_summary()].</pre>
+                      <pre class="language-r">#' analysis range values, categorized by baseline status.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param stat (`string`)\cr statistic to return the value/NA level of according to the imputation</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   rule applied.</pre>
+                      <pre class="language-r">#' This function analyzes primary analysis variable `var` which indicates abnormal range results. Additional</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param imp_rule (`string`)\cr imputation rule setting. Set to `"1/3"` to implement 1/3 imputation</pre>
+                      <pre class="language-r">#' analysis variables that can be supplied as a list via the `variables` parameter are `id` (defaults to</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   rule or `"1/2"` to implement 1/2 imputation rule.</pre>
+                      <pre class="language-r">#' `USUBJID`), a variable to indicate unique subject identifiers, and `baseline` (defaults to `BNRIND`), a</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param post (`flag`)\cr whether the data corresponds to a post-dose time-point (defaults to `FALSE`).</pre>
+                      <pre class="language-r">#' variable to indicate baseline reference ranges.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   This parameter is only used when `imp_rule` is set to `"1/3"`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param avalcat_var (`string`)\cr name of variable that indicates whether a row in `df` corresponds</pre>
+                      <pre class="language-r">#' For each direction specified via the `abnormal` parameter (e.g. High or Low), we condition on baseline</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to an analysis value in category `"BLQ"`, `"LTR"`, `"&lt;PCLLOQ"`, or none of the above</pre>
+                      <pre class="language-r">#' range result and count patients in the numerator and denominator as follows for each of the following</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   (defaults to `"AVALCAT1"`). Variable `avalcat_var` must be present in `df`.</pre>
+                      <pre class="language-r">#' categories:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   * `Not &lt;abnormality&gt;`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A `list` containing statistic value (`val`) and NA level (`na_str`) that should be displayed</pre>
+                      <pre class="language-r">#'     * `num`:  The number of patients without abnormality at baseline (excluding those with missing baseline)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   according to the specified imputation rule.</pre>
+                      <pre class="language-r">#'       and with at least one abnormality post-baseline.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     * `denom`: The number of patients without abnormality at baseline (excluding those with missing baseline).</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [analyze_vars_in_cols()] where this function can be implemented by setting the `imp_rule`</pre>
+                      <pre class="language-r">#'   * `&lt;Abnormality&gt;`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   argument.</pre>
+                      <pre class="language-r">#'     * `num`: The number of patients with abnormality as baseline and at least one abnormality post-baseline.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     * `denom`: The number of patients with abnormality at baseline.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'   * `Total`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' set.seed(1)</pre>
+                      <pre class="language-r">#'     * `num`: The number of patients with at least one post-baseline record and at least one abnormality</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' df &lt;- data.frame(</pre>
+                      <pre class="language-r">#'       post-baseline.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   AVAL = runif(50, 0, 1),</pre>
+                      <pre class="language-r">#'     * `denom`: The number of patients with at least one post-baseline record.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   AVALCAT1 = sample(c(1, "BLQ"), 50, replace = TRUE)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' This function assumes that `df` has been filtered to only include post-baseline records.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' x_stats &lt;- s_summary(df$AVAL)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' imputation_rule(df, x_stats, "max", "1/3")</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' imputation_rule(df, x_stats, "geom_mean", "1/3")</pre>
+                      <pre class="language-r">#' @param abnormal (`character`)\cr values identifying the abnormal range level(s) in `.var`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' imputation_rule(df, x_stats, "mean", "1/2")</pre>
+                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("abnormal_by_baseline")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   to see available statistics for this function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">imputation_rule &lt;- function(df, x_stats, stat, imp_rule, post = FALSE, avalcat_var = "AVALCAT1") {</pre>
+                      <pre class="language-r">#' @note</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">36</td>
-                    <td class="coverage">128<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_choice(avalcat_var, names(df))</pre>
+                      <pre class="language-r">#' * `df` should be filtered to include only post-baseline records.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">37</td>
-                    <td class="coverage">128<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_choice(imp_rule, c("1/3", "1/2"))</pre>
+                      <pre class="language-r">#' * If the baseline variable or analysis variable contains `NA` records, it is expected that `df` has been</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">38</td>
-                    <td class="coverage">128<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n_blq &lt;- sum(grepl("BLQ|LTR|&lt;[1-9]|&lt;PCLLOQ", df[[avalcat_var]]))</pre>
+                      <pre class="language-r">#'   pre-processed using [df_explicit_na()] or [explicit_na()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">39</td>
-                    <td class="coverage">128<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ltr_blq_ratio &lt;- n_blq / max(1, nrow(df))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @seealso Relevant description function [d_count_abnormal_by_baseline()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # defaults</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">42</td>
-                    <td class="coverage">128<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  val &lt;- x_stats[[stat]]</pre>
+                      <pre class="language-r">#' @name abnormal_by_baseline</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">43</td>
-                    <td class="coverage">128<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  na_str &lt;- "NE"</pre>
+                      <pre class="language-r">#' @order 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">45</td>
-                    <td class="coverage">128<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (imp_rule == "1/3") {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">46</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (!post &amp;&amp; stat == "geom_mean") val &lt;- NA # 1/3_pre_LT, 1/3_pre_GT</pre>
+                      <pre class="language-r">#' Description function for `s_count_abnormal_by_baseline()`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">47</td>
-                    <td class="coverage">84<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (ltr_blq_ratio &gt; 1 / 3) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">48</td>
-                    <td class="coverage">63<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (stat != "geom_mean") na_str &lt;- "ND" # 1/3_pre_GT, 1/3_post_GT</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">49</td>
-                    <td class="coverage">9<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (!post &amp;&amp; !stat %in% c("median", "max")) val &lt;- NA # 1/3_pre_GT</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">50</td>
-                    <td class="coverage">39<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      if (post &amp;&amp; !stat %in% c("median", "max", "geom_mean")) val &lt;- NA # 1/3_post_GT</pre>
+                      <pre class="language-r">#' Description function that produces the labels for [s_count_abnormal_by_baseline()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">52</td>
-                    <td class="coverage">44<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else if (imp_rule == "1/2") {</pre>
+                      <pre class="language-r">#' @inheritParams abnormal_by_baseline</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">53</td>
-                    <td class="coverage">44<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    if (ltr_blq_ratio &gt; 1 / 2 &amp;&amp; !stat == "max") {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">54</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      val &lt;- NA # 1/2_GT</pre>
+                      <pre class="language-r">#' @return Abnormal category labels for [s_count_abnormal_by_baseline()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">55</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      na_str &lt;- "ND" # 1/2_GT</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    }</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' d_count_abnormal_by_baseline("LOW")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">59</td>
-                    <td class="coverage">128<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(val = val, na_str = na_str)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">d_count_abnormal_by_baseline &lt;- function(abnormal) {</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/summarize_change.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">61</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Summarize change from baseline values or absolute baseline values</pre>
+                      <pre class="language-r">  not_abn_name &lt;- paste("Not", tolower(abnormal))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">62</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  abn_name &lt;- paste0(toupper(substr(abnormal, 1, 1)), tolower(substring(abnormal, 2)))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">63</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">  total_name &lt;- "Total"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">65</td>
+                    <td class="coverage">9<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The analyze function [summarize_change()] creates a layout element to summarize the change from baseline or absolute</pre>
+                      <pre class="language-r">  list(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">66</td>
+                    <td class="coverage">9<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    not_abnormal = not_abn_name,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">67</td>
+                    <td class="coverage">9<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    abnormal = abn_name,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">68</td>
+                    <td class="coverage">9<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    total = total_name</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">69</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' baseline values. The primary analysis variable `vars` indicates the numerical change from baseline results.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Required secondary analysis variables `value` and `baseline_flag` can be supplied to the function via</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">72</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' the `variables` argument. The `value` element should be the name of the analysis value variable, and the</pre>
+                      <pre class="language-r">#' @describeIn abnormal_by_baseline Statistics function for a single `abnormal` level.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `baseline_flag` element should be the name of the flag variable that indicates whether or not records contain</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' baseline values. Depending on the baseline flag given, either the absolute baseline values (at baseline)</pre>
+                      <pre class="language-r">#' @param na_str (`string`)\cr the explicit `na_level` argument you used in the pre-processing steps (maybe with</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' or the change from baseline values (post-baseline) are then summarized.</pre>
+                      <pre class="language-r">#'   [df_explicit_na()]). The default is `"&lt;Missing&gt;"`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">76</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">78</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("analyze_vars_numeric)`</pre>
+                      <pre class="language-r">#' * `s_count_abnormal_by_baseline()` returns statistic `fraction` which is a named list with 3 labeled elements:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to see available statistics for this function.</pre>
+                      <pre class="language-r">#'   `not_abnormal`, `abnormal`, and `total`. Each element contains a vector with `num` and `denom` patient counts.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">80</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">81</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name summarize_change</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 1</pre>
+                      <pre class="language-r">s_count_abnormal_by_baseline &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">                                         .var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">84</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">                                         abnormal,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn summarize_change Statistics function that summarizes baseline or post-baseline visits.</pre>
+                      <pre class="language-r">                                         na_str = "&lt;Missing&gt;",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                         variables = list(id = "USUBJID", baseline = "BNRIND")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">24</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">87</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">  checkmate::assert_string(.var)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">25</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">88</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_change_from_baseline()` returns the same values returned by [s_summary.numeric()].</pre>
+                      <pre class="language-r">  checkmate::assert_string(abnormal)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">26</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">89</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_string(na_str)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">27</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">90</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note The data in `df` must be either all be from baseline or post-baseline visits. Otherwise</pre>
+                      <pre class="language-r">  assert_df_with_variables(df, c(range = .var, variables))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">28</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">91</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   an error will be thrown.</pre>
+                      <pre class="language-r">  checkmate::assert_subset(names(variables), c("id", "baseline"))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">29</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">92</td>
+                    <td class="coverage">7<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(df[[variables$id]], classes = c("factor", "character"))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">93</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_multi_class(df[[variables$baseline]], classes = c("factor", "character"))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">94</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  checkmate::assert_multi_class(df[[.var]], classes = c("factor", "character"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_change_from_baseline &lt;- function(df,</pre>
+                      <pre class="language-r">  # If input is passed as character, changed to factor</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">97</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  df[[.var]] &lt;- as_factor_keep_attributes(df[[.var]], na_level = na_str)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">98</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  df[[variables$baseline]] &lt;- as_factor_keep_attributes(df[[variables$baseline]], na_level = na_str)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   .var,</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">100</td>
+                    <td class="coverage">7<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  assert_valid_factor(df[[.var]], any.missing = FALSE)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">101</td>
+                    <td class="coverage">6<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  assert_valid_factor(df[[variables$baseline]], any.missing = FALSE)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   variables,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   na.rm = TRUE, # nolint</pre>
+                      <pre class="language-r">  # Keep only records with valid analysis value.</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">104</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  df &lt;- df[df[[.var]] != na_str, ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   ...) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">36</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">106</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(df[[variables$value]])</pre>
+                      <pre class="language-r">  anl &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">37</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">107</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(df[[.var]])</pre>
+                      <pre class="language-r">    id = df[[variables$id]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">38</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">108</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_logical(df[[variables$baseline_flag]])</pre>
+                      <pre class="language-r">    var = df[[.var]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">39</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">109</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_vector(unique(df[[variables$baseline_flag]]), max.len = 1)</pre>
+                      <pre class="language-r">    baseline = df[[variables$baseline]],</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">40</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">110</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_df_with_variables(df, c(variables, list(chg = .var)))</pre>
+                      <pre class="language-r">    stringsAsFactors = FALSE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">111</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">42</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">113</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  combined &lt;- ifelse(</pre>
+                      <pre class="language-r">  # Total:</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">43</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">114</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df[[variables$baseline_flag]],</pre>
+                      <pre class="language-r">  #  - Patients in denominator: have at least one valid measurement post-baseline.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">115</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  #  - Patients in numerator: have at least one abnormality.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">44</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">116</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df[[variables$value]],</pre>
+                      <pre class="language-r">  total_denom &lt;- length(unique(anl$id))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">45</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="num">117</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    df[[.var]]</pre>
+                      <pre class="language-r">  total_num &lt;- length(unique(anl$id[anl$var == abnormal]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">46</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">47</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">119</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (is.logical(combined) &amp;&amp; identical(length(combined), 0L)) {</pre>
+                      <pre class="language-r">  # Baseline NA records are counted only in total rows.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">48</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">120</td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    combined &lt;- numeric(0)</pre>
+                      <pre class="language-r">  anl &lt;- anl[anl$baseline != na_str, ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">50</td>
-                    <td class="coverage">4<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">122</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_summary(combined, na.rm = na.rm, ...)</pre>
+                      <pre class="language-r">  # Abnormal:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  #   - Patients in denominator: have abnormality at baseline.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  #   - Patients in numerator: have abnormality at baseline AND</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn summarize_change Formatted analysis function which is used as `afun` in `summarize_change()`.</pre>
+                      <pre class="language-r">  #     have at least one abnormality post-baseline.</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">126</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  abn_denom &lt;- length(unique(anl$id[anl$baseline == abnormal]))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">127</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  abn_num &lt;- length(unique(anl$id[anl$baseline == abnormal &amp; anl$var == abnormal]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">  # Not abnormal:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `a_change_from_baseline()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
+                      <pre class="language-r">  #   - Patients in denominator: do not have abnormality at baseline.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  #   - Patients in numerator: do not have abnormality at baseline AND</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">  #     have at least one abnormality post-baseline.</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">133</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  not_abn_denom &lt;- length(unique(anl$id[anl$baseline != abnormal]))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">134</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  not_abn_num &lt;- length(unique(anl$id[anl$baseline != abnormal &amp; anl$var == abnormal]))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">a_change_from_baseline &lt;- make_afun(</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">136</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  labels &lt;- d_count_abnormal_by_baseline(abnormal)</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">137</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  list(fraction = list(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">138</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    not_abnormal = formatters::with_label(c(num = not_abn_num, denom = not_abn_denom), labels$not_abnormal),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">139</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    abnormal = formatters::with_label(c(num = abn_num, denom = abn_denom), labels$abnormal),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">140</td>
+                    <td class="coverage">5<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    total = formatters::with_label(c(num = total_num, denom = total_denom), labels$total)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_change_from_baseline,</pre>
+                      <pre class="language-r">  ))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">142</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats = c(</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    n = "xx",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">144</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mean_sd = "xx.xx (xx.xx)",</pre>
+                      <pre class="language-r">#' @describeIn abnormal_by_baseline Formatted analysis function which is used as `afun`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">145</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mean_se = "xx.xx (xx.xx)",</pre>
+                      <pre class="language-r">#'   in `count_abnormal_by_baseline()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">146</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    median = "xx.xx",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">147</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    range = "xx.xx - xx.xx",</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">148</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' * `a_count_abnormal_by_baseline()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mean_ci = "(xx.xx, xx.xx)",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">68</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    median_ci = "(xx.xx, xx.xx)",</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">69</td>
+                    <td class="num">151</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mean_pval = "xx.xx"</pre>
+                      <pre class="language-r">a_count_abnormal_by_baseline &lt;- make_afun(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">152</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ),</pre>
+                      <pre class="language-r">  s_count_abnormal_by_baseline,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">71</td>
+                    <td class="num">153</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .labels = c(</pre>
+                      <pre class="language-r">  .formats = c(fraction = format_fraction)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">154</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mean_sd = "Mean (SD)",</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">155</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    mean_se = "Mean (SE)",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">156</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    median = "Median",</pre>
+                      <pre class="language-r">#' @describeIn abnormal_by_baseline Layout-creating function which can take statistics function arguments</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">157</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    range = "Min - Max"</pre>
+                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">158</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">159</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">160</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' * `count_abnormal_by_baseline()` returns a layout object suitable for passing to further layouting functions,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn summarize_change Layout-creating function which can take statistics function arguments</pre>
+                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">162</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
+                      <pre class="language-r">#'   the statistics from `s_count_abnormal_by_baseline()` to the table layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">163</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">164</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">165</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `summarize_change()` returns a layout object suitable for passing to further layouting functions,</pre>
+                      <pre class="language-r">#' df &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">166</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
+                      <pre class="language-r">#'   USUBJID = as.character(c(1:6)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">167</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the statistics from `s_change_from_baseline()` to the table layout.</pre>
+                      <pre class="language-r">#'   ANRIND = factor(c(rep("LOW", 4), "NORMAL", "HIGH")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">168</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   BNRIND = factor(c("LOW", "NORMAL", "HIGH", NA, "LOW", "NORMAL"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note To be used after a split on visits in the layout, such that each data subset only contains</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">170</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   either baseline or post-baseline data.</pre>
+                      <pre class="language-r">#' df &lt;- df_explicit_na(df)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">171</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">172</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' # Layout creating function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">173</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' library(dplyr)</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">174</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   count_abnormal_by_baseline(var = "ANRIND", abnormal = c(High = "HIGH")) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">175</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ## Fabricate dataset</pre>
+                      <pre class="language-r">#'   build_table(df)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">176</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' dta_test &lt;- data.frame(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">177</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   USUBJID = rep(1:6, each = 3),</pre>
+                      <pre class="language-r">#' # Passing of statistics function and formatting arguments.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   AVISIT = rep(paste0("V", 1:3), 6),</pre>
+                      <pre class="language-r">#' df2 &lt;- data.frame(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ARM = rep(LETTERS[1:3], rep(6, 3)),</pre>
+                      <pre class="language-r">#'   ID = as.character(c(1, 2, 3, 4)),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   AVAL = c(9:1, rep(NA, 9))</pre>
+                      <pre class="language-r">#'   RANGE = factor(c("NORMAL", "LOW", "HIGH", "HIGH")),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' ) %&gt;%</pre>
+                      <pre class="language-r">#'   BLRANGE = factor(c("LOW", "HIGH", "HIGH", "NORMAL"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mutate(ABLFLL = AVISIT == "V1") %&gt;%</pre>
+                      <pre class="language-r">#' )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   group_by(USUBJID) %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">184</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mutate(</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">185</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     BLVAL = AVAL[ABLFLL],</pre>
+                      <pre class="language-r">#'   count_abnormal_by_baseline(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">186</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     CHG = AVAL - BLVAL</pre>
+                      <pre class="language-r">#'     var = "RANGE",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">#'     abnormal = c(Low = "LOW"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">188</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ungroup()</pre>
+                      <pre class="language-r">#'     variables = list(id = "ID", baseline = "BLRANGE"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     .formats = c(fraction = "xx / xx"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' results &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">#'     .indent_mods = c(fraction = 2L)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_rows_by("AVISIT") %&gt;%</pre>
+                      <pre class="language-r">#'   build_table(df2)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   summarize_change("CHG", variables = list(value = "AVAL", baseline_flag = "ABLFLL")) %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(dta_test)</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @order 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' results</pre>
+                      <pre class="language-r">count_abnormal_by_baseline &lt;- function(lyt,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                       var,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                                       abnormal,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 2</pre>
+                      <pre class="language-r">                                       variables = list(id = "USUBJID", baseline = "BNRIND"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">summarize_change &lt;- function(lyt,</pre>
+                      <pre class="language-r">                                       na_str = "&lt;Missing&gt;",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             vars,</pre>
+                      <pre class="language-r">                                       nested = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             variables,</pre>
+                      <pre class="language-r">                                       ...,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             na_str = default_na_str(),</pre>
+                      <pre class="language-r">                                       table_names = abnormal,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             nested = TRUE,</pre>
+                      <pre class="language-r">                                       .stats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">205</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             ...,</pre>
+                      <pre class="language-r">                                       .formats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             table_names = vars,</pre>
+                      <pre class="language-r">                                       .labels = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             .stats = c("n", "mean_sd", "median", "range"),</pre>
+                      <pre class="language-r">                                       .indent_mods = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">126</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">208</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             .formats = NULL,</pre>
+                      <pre class="language-r">  checkmate::assert_character(abnormal, len = length(table_names), names = "named")</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">127</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">209</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             .labels = NULL,</pre>
+                      <pre class="language-r">  checkmate::assert_string(var)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">210</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             .indent_mods = NULL) {</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">211</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(variables = variables, ...)</pre>
+                      <pre class="language-r">  extra_args &lt;- list(abnormal = abnormal, variables = variables, na_str = na_str, ...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">212</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">213</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  afun &lt;- make_afun(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">214</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    a_change_from_baseline,</pre>
+                      <pre class="language-r">    a_count_abnormal_by_baseline,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">215</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    .stats = .stats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">216</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    .formats = .formats,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">135</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">217</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
                       <pre class="language-r">    .labels = .labels,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">136</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">218</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .indent_mods = .indent_mods</pre>
+                      <pre class="language-r">    .indent_mods = .indent_mods,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">219</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    .ungroup_stats = "fraction"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
+                  <tr class="covered">
+                    <td class="num">221</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  for (i in seq_along(abnormal)) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">222</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    extra_args[["abnormal"]] &lt;- abnormal[i]</pre>
+                    </td>
+                  </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">224</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  analyze(</pre>
+                      <pre class="language-r">    lyt &lt;- analyze(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">225</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt,</pre>
+                      <pre class="language-r">      lyt = lyt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">226</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars,</pre>
+                      <pre class="language-r">      vars = var,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">227</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    afun = afun,</pre>
+                      <pre class="language-r">      var_labels = names(abnormal[i]),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">228</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">      afun = afun,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">229</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nested = nested,</pre>
+                      <pre class="language-r">      na_str = na_str,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">145</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">230</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args = extra_args,</pre>
+                      <pre class="language-r">      nested = nested,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">231</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table_names = table_names</pre>
+                      <pre class="language-r">      table_names = table_names[i],</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">232</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      extra_args = extra_args,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">233</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      show_labels = "visible"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">234</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">235</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">236</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  lyt</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">237</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -181968,14 +181402,14 @@ <h2>tern coverage - 95.64%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/count_missed_doses.R" class="hidden">
+            <div id="R/control_survival.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Count number of patients with missed doses by thresholds</pre>
+                      <pre class="language-r">#' Control function for Cox-PH model</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -182003,14 +181437,14 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The analyze function creates a layout element to calculate cumulative counts of patients with number of missed</pre>
+                      <pre class="language-r">#' This is an auxiliary function for controlling arguments for Cox-PH model, typically used internally to specify</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' doses at least equal to user-specified threshold values.</pre>
+                      <pre class="language-r">#' details of Cox-PH model for [s_coxph_pairwise()]. `conf_level` refers to Hazard Ratio estimation.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -182024,126 +181458,126 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function analyzes numeric variable `vars`, a variable with numbers of missed doses,</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' against the threshold values supplied to the `thresholds` argument as a numeric vector. This function</pre>
+                      <pre class="language-r">#' @param pval_method (`string`)\cr p-value method for testing hazard ratio = 1.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' assumes that every row of the given data frame corresponds to a unique patient.</pre>
+                      <pre class="language-r">#'   Default method is `"log-rank"`, can also be set to `"wald"` or `"likelihood"`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param ties (`string`)\cr string specifying the method for tie handling. Default is `"efron"`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams s_count_cumulative</pre>
+                      <pre class="language-r">#'   can also be set to `"breslow"` or `"exact"`. See more in [survival::coxph()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param thresholds (`numeric`)\cr minimum number of missed doses the patients had.</pre>
+                      <pre class="language-r">#' @return A list of components with the same names as the arguments.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("count_missed_doses")`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to see available statistics for this function.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">control_coxph &lt;- function(pval_method = c("log-rank", "wald", "likelihood"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso</pre>
+                      <pre class="language-r">                          ties = c("efron", "breslow", "exact"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * Relevant description function [d_count_missed_doses()] which generates labels for [count_missed_doses()].</pre>
+                      <pre class="language-r">                          conf_level = 0.95) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">20</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">52<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * Similar analyze function [count_cumulative()] which more generally counts cumulative values and has more</pre>
+                      <pre class="language-r">  pval_method &lt;- match.arg(pval_method)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">21</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">51<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   options for threshold handling, but uses different labels.</pre>
+                      <pre class="language-r">  ties &lt;- match.arg(ties)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">22</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">51<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  assert_proportion_value(conf_level)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name count_missed_doses</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">24</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">50<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 1</pre>
+                      <pre class="language-r">  list(pval_method = pval_method, ties = ties, conf_level = conf_level)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -182157,7 +181591,7 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn count_missed_doses Statistics function to count non-missing values.</pre>
+                      <pre class="language-r">#' Control function for `survfit` models for survival time</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -182171,63 +181605,63 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_count_nonmissing()` returns the statistic `n` which is the count of non-missing values in `x`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' This is an auxiliary function for controlling arguments for `survfit` model, typically used internally to specify</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' details of `survfit` model for [s_surv_time()]. `conf_level` refers to survival time estimation.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_count_nonmissing &lt;- function(x) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">34</td>
-                    <td class="coverage">5<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(n = n_available(x))</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @param conf_type (`string`)\cr confidence interval type. Options are "plain" (default), "log", "log-log",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   see more in [survival::survfit()]. Note option "none" is no longer supported.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Description function that calculates labels for `s_count_missed_doses()`</pre>
+                      <pre class="language-r">#' @param quantiles (`numeric(2)`)\cr vector of length two specifying the quantiles of survival time.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -182241,7 +181675,7 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' @return A list of components with the same names as the arguments.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -182255,63 +181689,63 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams s_count_missed_doses</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">control_surv_time &lt;- function(conf_level = 0.95,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return [d_count_missed_doses()] returns a named `character` vector with the labels.</pre>
+                      <pre class="language-r">                              conf_type = c("plain", "log", "log-log"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                              quantiles = c(0.25, 0.75)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">45</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">229<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [s_count_missed_doses()]</pre>
+                      <pre class="language-r">  conf_type &lt;- match.arg(conf_type)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">46</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">228<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  checkmate::assert_numeric(quantiles, lower = 0, upper = 1, len = 2, unique = TRUE, sorted = TRUE)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">47</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">227<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  nullo &lt;- lapply(quantiles, assert_proportion_value)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">48</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">227<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">d_count_missed_doses &lt;- function(thresholds) {</pre>
+                      <pre class="language-r">  assert_proportion_value(conf_level)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">49</td>
-                    <td class="coverage">4<em>x</em></td>
+                    <td class="coverage">226<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  paste0("At least ", thresholds, " missed dose", ifelse(thresholds &gt; 1, "s", ""))</pre>
+                      <pre class="language-r">  list(conf_level = conf_level, conf_type = conf_type, quantiles = quantiles)</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -182332,7 +181766,7 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn count_missed_doses Statistics function to count patients with missed doses.</pre>
+                      <pre class="language-r">#' Control function for `survfit` models for patients' survival rate at time points</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -182346,676 +181780,962 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">55</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_count_missed_doses()` returns the statistics `n` and `count_fraction` with one element for each threshold.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' This is an auxiliary function for controlling arguments for `survfit` model, typically used internally to specify</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">57</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' details of `survfit` model for [s_surv_timepoint()]. `conf_level` refers to patient risk estimation at a time point.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">58</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_count_missed_doses &lt;- function(x,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">59</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 thresholds,</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">60</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                 .N_col) { # nolint</pre>
+                      <pre class="language-r">#' @inheritParams control_surv_time</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">61</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  stat &lt;- s_count_cumulative(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">62</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x = x,</pre>
+                      <pre class="language-r">#' @return A list of components with the same names as the arguments.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">63</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    thresholds = thresholds,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">64</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lower_tail = FALSE,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">65</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    include_eq = TRUE,</pre>
+                      <pre class="language-r">control_surv_timepoint &lt;- function(conf_level = 0.95,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">66</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .N_col = .N_col</pre>
+                      <pre class="language-r">                                   conf_type = c("plain", "log", "log-log")) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">67</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">24<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  conf_type &lt;- match.arg(conf_type)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">68</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">23<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  labels &lt;- d_count_missed_doses(thresholds)</pre>
+                      <pre class="language-r">  assert_proportion_value(conf_level)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">69</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  for (i in seq_along(stat$count_fraction)) {</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">70</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    stat$count_fraction[[i]] &lt;- formatters::with_label(stat$count_fraction[[i]], label = labels[i])</pre>
+                      <pre class="language-r">    conf_level = conf_level,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">71</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">22<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">    conf_type = conf_type</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">72</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  n_stat &lt;- s_count_nonmissing(x)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">73</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  c(n_stat, stat)</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/fit_survival_step.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">74</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' Subgroup treatment effect pattern (STEP) fit for survival outcome</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">75</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">76</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn count_missed_doses Formatted analysis function which is used as `afun`</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   in `count_missed_doses()`.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">78</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' This fits the subgroup treatment effect pattern (STEP) models for a survival outcome. The treatment arm</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">79</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' variable must have exactly 2 levels, where the first one is taken as reference and the estimated</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">80</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `a_count_missed_doses()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
+                      <pre class="language-r">#' hazard ratios are for the comparison of the second level vs. the first one.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">81</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">82</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @keywords internal</pre>
+                      <pre class="language-r">#' The model which is fit is:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">83</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">a_count_missed_doses &lt;- make_afun(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">84</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_count_missed_doses,</pre>
+                      <pre class="language-r">#' `Surv(time, event) ~ arm * poly(biomarker, degree) + covariates + strata(strata)`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">85</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats = c(n = "xx", count_fraction = format_count_fraction)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">#' where `degree` is specified by `control_step()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">87</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn count_missed_doses Layout-creating function which can take statistics function arguments</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
+                      <pre class="language-r">#' @param variables (named `list` of `character`)\cr list of analysis variables: needs `time`, `event`,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">17</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   `arm`, `biomarker`, and optional `covariates` and `strata`.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @param control (named `list`)\cr combined control list from [control_step()] and [control_coxph()].</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' @return A matrix of class `step`. The first part of the columns describe the subgroup intervals used</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `count_missed_doses()` returns a layout object suitable for passing to further layouting functions,</pre>
+                      <pre class="language-r">#'   for the biomarker variable, including where the center of the intervals are and their bounds. The</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
+                      <pre class="language-r">#'   second part of the columns contain the estimates for the treatment arm comparison.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the statistics from `s_count_missed_doses()` to the table layout.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @note For the default degree 0 the `biomarker` variable is not included in the model.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">26</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @seealso [control_step()] and [control_coxph()] for the available customization options.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">27</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">29</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' # Testing dataset with just two treatment arms.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' anl &lt;- tern_ex_adsl %&gt;%</pre>
+                      <pre class="language-r">#' adtte_f &lt;- tern_ex_adtte %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   distinct(STUDYID, USUBJID, ARM) %&gt;%</pre>
+                      <pre class="language-r">#'   filter(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   mutate(</pre>
+                      <pre class="language-r">#'     PARAMCD == "OS",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     PARAMCD = "TNDOSMIS",</pre>
+                      <pre class="language-r">#'     ARM %in% c("B: Placebo", "A: Drug X")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     PARAM = "Total number of missed doses during study",</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     AVAL = sample(0:20, size = nrow(tern_ex_adsl), replace = TRUE),</pre>
+                      <pre class="language-r">#'   mutate(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     AVALC = ""</pre>
+                      <pre class="language-r">#'     # Reorder levels of ARM to display reference arm before treatment arm.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">39</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'     ARM = droplevels(forcats::fct_relevel(ARM, "B: Placebo")),</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">40</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'     is_event = CNSR == 0</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">42</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' labels &lt;- c("ARM" = "Treatment Arm", "is_event" = "Event Flag")</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">43</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' formatters::var_labels(adtte_f)[names(labels)] &lt;- labels</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">#' variables &lt;- list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
+                      <pre class="language-r">#'   arm = "ARM",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                      <pre class="language-r">#'   biomarker = "BMRKR1",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   count_missed_doses("AVAL", thresholds = c(1, 5, 10, 15), var_labels = "Missed Doses") %&gt;%</pre>
+                      <pre class="language-r">#'   covariates = c("AGE", "BMRKR2"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(anl, alt_counts_df = tern_ex_adsl)</pre>
+                      <pre class="language-r">#'   event = "is_event",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">113</td>
+                    <td class="num">50</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   time = "AVAL"</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">51</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">52</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">53</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' # Fit default STEP models: Here a constant treatment effect is estimated in each subgroup.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">54</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' step_matrix &lt;- fit_survival_step(</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">55</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   variables = variables,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">56</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   data = adtte_f</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">57</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">58</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' dim(step_matrix)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">59</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' head(step_matrix)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">60</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">61</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' # Specify different polynomial degree for the biomarker interaction to use more flexible local</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">62</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' # models. Or specify different Cox regression options.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">63</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' step_matrix2 &lt;- fit_survival_step(</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">64</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   variables = variables,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">65</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   data = adtte_f,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">66</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   control = c(control_coxph(conf_level = 0.9), control_step(degree = 2))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">67</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">68</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">69</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' # Use a global model with cubic interaction and only 5 points.</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' step_matrix3 &lt;- fit_survival_step(</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">71</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   variables = variables,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">72</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   data = adtte_f,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">73</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#'   control = c(control_coxph(), control_step(bandwidth = NULL, degree = 3, num_points = 5L))</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">74</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">114</td>
-                    <td class="coverage"></td>
+                  <tr class="never">
+                    <td class="num">76</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' @export</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">77</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">fit_survival_step &lt;- function(variables,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">78</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                              data,</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">79</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">                              control = c(control_step(), control_coxph())) {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">80</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  checkmate::assert_list(control)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">115</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">81</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 2</pre>
+                      <pre class="language-r">  assert_df_with_variables(data, variables)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">116</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">82</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">count_missed_doses &lt;- function(lyt,</pre>
+                      <pre class="language-r">  data &lt;- data[!is.na(data[[variables$biomarker]]), ]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">117</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">83</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               vars,</pre>
+                      <pre class="language-r">  window_sel &lt;- h_step_window(x = data[[variables$biomarker]], control = control)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">118</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">84</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               thresholds,</pre>
+                      <pre class="language-r">  interval_center &lt;- window_sel$interval[, "Interval Center"]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">119</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">85</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               var_labels = vars,</pre>
+                      <pre class="language-r">  form &lt;- h_step_survival_formula(variables = variables, control = control)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">120</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">86</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               show_labels = "visible",</pre>
+                      <pre class="language-r">  estimates &lt;- if (is.null(control$bandwidth)) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">121</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">87</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               na_str = default_na_str(),</pre>
+                      <pre class="language-r">    h_step_survival_est(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">122</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">88</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               nested = TRUE,</pre>
+                      <pre class="language-r">      formula = form,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">123</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">89</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               ...,</pre>
+                      <pre class="language-r">      data = data,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">124</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">90</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               table_names = vars,</pre>
+                      <pre class="language-r">      variables = variables,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">125</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">91</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               .stats = NULL,</pre>
+                      <pre class="language-r">      x = interval_center,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">126</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">92</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               .formats = NULL,</pre>
+                      <pre class="language-r">      control = control</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               .labels = NULL,</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                               .indent_mods = NULL) {</pre>
+                      <pre class="language-r">  } else {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">129</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">95</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(thresholds = thresholds, ...)</pre>
+                      <pre class="language-r">    tmp &lt;- mapply(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">130</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">96</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      FUN = h_step_survival_est,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">131</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">97</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  afun &lt;- make_afun(</pre>
+                      <pre class="language-r">      x = interval_center,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">132</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">98</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    a_count_missed_doses,</pre>
+                      <pre class="language-r">      subset = as.list(as.data.frame(window_sel$sel)),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">133</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">99</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .stats = .stats,</pre>
+                      <pre class="language-r">      MoreArgs = list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">134</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">100</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .formats = .formats,</pre>
+                      <pre class="language-r">        formula = form,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">135</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">101</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .labels = .labels,</pre>
+                      <pre class="language-r">        data = data,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">136</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">102</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .indent_mods = .indent_mods,</pre>
+                      <pre class="language-r">        variables = variables,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">137</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">103</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .ungroup_stats = "count_fraction"</pre>
+                      <pre class="language-r">        control = control</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">139</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">105</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  analyze(</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">140</td>
-                    <td class="coverage">1<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">106</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt = lyt,</pre>
+                      <pre class="language-r">    # Maybe we find a more elegant solution than this.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">141</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">107</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars = vars,</pre>
+                      <pre class="language-r">    rownames(tmp) &lt;- c("n", "events", "loghr", "se", "ci_lower", "ci_upper")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">142</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">108</td>
+                    <td class="coverage">3<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    afun = afun,</pre>
+                      <pre class="language-r">    t(tmp)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">109</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">143</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">110</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var_labels = var_labels,</pre>
+                      <pre class="language-r">  result &lt;- cbind(window_sel$interval, estimates)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">144</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">111</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table_names = table_names,</pre>
+                      <pre class="language-r">  structure(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">145</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">112</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    show_labels = show_labels,</pre>
+                      <pre class="language-r">    result,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">146</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">113</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">    class = c("step", "matrix"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">147</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">114</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nested = nested,</pre>
+                      <pre class="language-r">    variables = variables,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">148</td>
-                    <td class="coverage">1<em>x</em></td>
+                    <td class="num">115</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args = extra_args</pre>
+                      <pre class="language-r">    control = control</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -183024,14 +182744,14 @@ <h2>tern coverage - 95.64%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/count_values.R" class="hidden">
+            <div id="R/abnormal_by_worst_grade.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Count specific values</pre>
+                      <pre class="language-r">#' Count patients by most extreme post-baseline toxicity grade per direction of abnormality</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -183059,14 +182779,14 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The analyze function [count_values()] creates a layout element to calculate counts of specific values within a</pre>
+                      <pre class="language-r">#' The analyze function [count_abnormal_by_worst_grade()] creates a layout element to count patients by highest (worst)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' variable of interest.</pre>
+                      <pre class="language-r">#' analysis toxicity grade post-baseline for each direction, categorized by parameter value.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -183080,140 +182800,140 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function analyzes one or more variables of interest supplied as a vector to `vars`. Values to</pre>
+                      <pre class="language-r">#' This function analyzes primary analysis variable `var` which indicates toxicity grades. Additional</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' count for variable(s) in `vars` can be given as a vector via the `values` argument. One row of</pre>
+                      <pre class="language-r">#' analysis variables that can be supplied as a list via the `variables` parameter are `id` (defaults to</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' counts will be generated for each variable.</pre>
+                      <pre class="language-r">#' `USUBJID`), a variable to indicate unique subject identifiers, `param` (defaults to `PARAM`), a variable</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' to indicate parameter values, and `grade_dir` (defaults to `GRADE_DIR`), a variable to indicate directions</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' (e.g. High or Low) for each toxicity grade supplied in `var`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param values (`character`)\cr specific values that should be counted.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("count_values")`</pre>
+                      <pre class="language-r">#' For each combination of `param` and `grade_dir` levels, patient counts by worst</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to see available statistics for this function.</pre>
+                      <pre class="language-r">#' grade are calculated as follows:</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   * `1` to `4`: The number of patients with worst grades 1-4, respectively.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @note</pre>
+                      <pre class="language-r">#'   * `Any`: The number of patients with at least one abnormality (i.e. grade is not 0).</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * For `factor` variables, `s_count_values` checks whether `values` are all included in the levels of `x`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and fails otherwise.</pre>
+                      <pre class="language-r">#' Fractions are calculated by dividing the above counts by the number of patients with at least one</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * For `count_values()`, variable labels are shown when there is more than one element in `vars`,</pre>
+                      <pre class="language-r">#' valid measurement recorded during treatment.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   otherwise they are hidden.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' Pre-processing is crucial when using this function and can be done automatically using the</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name count_values</pre>
+                      <pre class="language-r">#' [h_adlb_abnormal_by_worst_grade()] helper function. See the description of this function for details on the</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 1</pre>
+                      <pre class="language-r">#' necessary pre-processing steps.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' Prior to using this function in your table layout you must use [rtables::split_rows_by()] to create two row</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn count_values S3 generic function to count values.</pre>
+                      <pre class="language-r">#' splits, one on variable `param` and one on variable `grade_dir`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -183227,112 +182947,112 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams s_summary.logical</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("abnormal_by_worst_grade")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'   to see available statistics for this function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_count_values()` returns output of [s_summary()] for specified values of a non-numeric variable.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @seealso [h_adlb_abnormal_by_worst_grade()] which pre-processes ADLB data frames to be used in</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'   [count_abnormal_by_worst_grade()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_count_values &lt;- function(x,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           values,</pre>
+                      <pre class="language-r">#' @name abnormal_by_worst_grade</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           na.rm = TRUE, # nolint</pre>
+                      <pre class="language-r">#' @order 1</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           .N_col, # nolint</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           .N_row, # nolint</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                           denom = c("n", "N_row", "N_col")) {</pre>
+                      <pre class="language-r">#' @describeIn abnormal_by_worst_grade Statistics function which counts patients by worst grade.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">41</td>
-                    <td class="coverage">175<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  UseMethod("s_count_values", x)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' * `s_count_abnormal_by_worst_grade()` returns the single statistic `count_fraction` with grades 1 to 4 and</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn count_values Method for `character` class.</pre>
+                      <pre class="language-r">#'   "Any" results.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -183346,266 +183066,266 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @method s_count_values character</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">s_count_abnormal_by_worst_grade &lt;- function(df, # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">                                            .var = "GRADE_ANL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `s_count_values.character`</pre>
+                      <pre class="language-r">                                            .spl_context,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_count_values(x = c("a", "b", "a"), values = "a")</pre>
+                      <pre class="language-r">                                            variables = list(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_count_values(x = c("a", "b", "a", NA, NA), values = "b", na.rm = FALSE)</pre>
+                      <pre class="language-r">                                              id = "USUBJID",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                              param = "PARAM",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">                                              grade_dir = "GRADE_DIR"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_count_values.character &lt;- function(x,</pre>
+                      <pre class="language-r">                                            )) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">55</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     values = "Y",</pre>
+                      <pre class="language-r">  checkmate::assert_string(.var)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">56</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     na.rm = TRUE, # nolint</pre>
+                      <pre class="language-r">  assert_valid_factor(df[[.var]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">57</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                     ...) {</pre>
+                      <pre class="language-r">  assert_valid_factor(df[[variables$param]])</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">58</td>
-                    <td class="coverage">173<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_character(values)</pre>
+                      <pre class="language-r">  assert_valid_factor(df[[variables$grade_dir]])</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">59</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  assert_df_with_variables(df, c(a = .var, variables))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">60</td>
-                    <td class="coverage">173<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if (na.rm) {</pre>
+                      <pre class="language-r">  checkmate::assert_multi_class(df[[variables$id]], classes = c("factor", "character"))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">61</td>
-                    <td class="coverage">172<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    x &lt;- x[!is.na(x)]</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">62</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">  # To verify that the `split_rows_by` are performed with correct variables.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">63</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  checkmate::assert_subset(c(variables[["param"]], variables[["grade_dir"]]), .spl_context$split)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">64</td>
-                    <td class="coverage">173<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  is_in_values &lt;- x %in% values</pre>
+                      <pre class="language-r">  first_row &lt;- .spl_context[.spl_context$split == variables[["param"]], ]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">65</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  x_lvls &lt;- c(setdiff(levels(df[[.var]]), "0"), "Any")</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">66</td>
-                    <td class="coverage">173<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_summary(is_in_values, ...)</pre>
+                      <pre class="language-r">  result &lt;- split(numeric(0), factor(x_lvls))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">68</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  subj &lt;- first_row$full_parent_df[[1]][[variables[["id"]]]]</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">69</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn count_values Method for `factor` class. This makes an automatic</pre>
+                      <pre class="language-r">  subj_cur_col &lt;- subj[first_row$cur_col_subset[[1]]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">70</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   conversion to `character` and then forwards to the method for characters.</pre>
+                      <pre class="language-r">  # Some subjects may have a record for high and low directions but</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">71</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  # should be counted only once.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">72</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @method s_count_values factor</pre>
+                      <pre class="language-r">  denom &lt;- length(unique(subj_cur_col))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">74</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">  for (lvl in x_lvls) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">75</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `s_count_values.factor`</pre>
+                      <pre class="language-r">    if (lvl != "Any") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">76</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_count_values(x = factor(c("a", "b", "a")), values = "a")</pre>
+                      <pre class="language-r">      df_lvl &lt;- df[df[[.var]] == lvl, ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">77</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    } else {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">78</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">      df_lvl &lt;- df[df[[.var]] != 0, ]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">79</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_count_values.factor &lt;- function(x,</pre>
+                      <pre class="language-r">    }</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">80</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  values = "Y",</pre>
+                      <pre class="language-r">    num &lt;- length(unique(df_lvl[[variables[["id"]]]]))</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">81</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                  ...) {</pre>
+                      <pre class="language-r">    fraction &lt;- ifelse(denom == 0, 0, num / denom)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">82</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_count_values(as.character(x), values = as.character(values), ...)</pre>
+                      <pre class="language-r">    result[[lvl]] &lt;- formatters::with_label(c(count = num, fraction = fraction), lvl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -183615,165 +183335,165 @@ <h2>tern coverage - 95.64%</h2>
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">85</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn count_values Method for `logical` class.</pre>
+                      <pre class="language-r">  result &lt;- list(count_fraction = result)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">86</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  result</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @method s_count_values logical</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' @describeIn abnormal_by_worst_grade Formatted analysis function which is used as `afun`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `s_count_values.logical`</pre>
+                      <pre class="language-r">#'   in `count_abnormal_by_worst_grade()`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_count_values(x = c(TRUE, FALSE, TRUE))</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' * `a_count_abnormal_by_worst_grade()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_count_values.logical &lt;- function(x, values = TRUE, ...) {</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">95</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_logical(values)</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">96</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_count_values(as.character(x), values = as.character(values), ...)</pre>
+                      <pre class="language-r">a_count_abnormal_by_worst_grade &lt;- make_afun( # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  s_count_abnormal_by_worst_grade,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  .formats = c(count_fraction = format_count_fraction)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn count_values Formatted analysis function which is used as `afun`</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   in `count_values()`.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @describeIn abnormal_by_worst_grade Layout-creating function which can take statistics function arguments</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `a_count_values()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' * `count_abnormal_by_worst_grade()` returns a layout object suitable for passing to further layouting functions,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `a_count_values`</pre>
+                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' a_count_values(x = factor(c("a", "b", "a")), values = "a", .N_col = 10, .N_row = 10)</pre>
+                      <pre class="language-r">#'   the statistics from `s_count_abnormal_by_worst_grade()` to the table layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -183787,885 +183507,949 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">a_count_values &lt;- make_afun(</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_count_values,</pre>
+                      <pre class="language-r">#' library(forcats)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats = c(count_fraction = "xx (xx.xx%)", count = "xx")</pre>
+                      <pre class="language-r">#' adlb &lt;- tern_ex_adlb</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' # Data is modified in order to have some parameters with grades only in one direction</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn count_values Layout-creating function which can take statistics function arguments</pre>
+                      <pre class="language-r">#' # and simulate the real data.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
+                      <pre class="language-r">#' adlb$ATOXGR[adlb$PARAMCD == "ALT" &amp; adlb$ATOXGR %in% c("1", "2", "3", "4")] &lt;- "-1"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' adlb$ANRIND[adlb$PARAMCD == "ALT" &amp; adlb$ANRIND == "HIGH"] &lt;- "LOW"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#' adlb$WGRHIFL[adlb$PARAMCD == "ALT"] &lt;- ""</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `count_values()` returns a layout object suitable for passing to further layouting functions,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
+                      <pre class="language-r">#' adlb$ATOXGR[adlb$PARAMCD == "IGA" &amp; adlb$ATOXGR %in% c("-1", "-2", "-3", "-4")] &lt;- "1"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the statistics from `s_count_values()` to the table layout.</pre>
+                      <pre class="language-r">#' adlb$ANRIND[adlb$PARAMCD == "IGA" &amp; adlb$ANRIND == "LOW"] &lt;- "HIGH"</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' adlb$WGRLOFL[adlb$PARAMCD == "IGA"] &lt;- ""</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `count_values`</pre>
+                      <pre class="language-r">#' # Pre-processing</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' basic_table() %&gt;%</pre>
+                      <pre class="language-r">#' adlb_f &lt;- adlb %&gt;% h_adlb_abnormal_by_worst_grade()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   count_values("Species", values = "setosa") %&gt;%</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   build_table(iris)</pre>
+                      <pre class="language-r">#' # Map excludes records without abnormal grade since they should not be displayed</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' # in the table.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">129</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' map &lt;- unique(adlb_f[adlb_f$GRADE_DIR != "ZERO", c("PARAM", "GRADE_DIR", "GRADE_ANL")]) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 2</pre>
+                      <pre class="language-r">#'   lapply(as.character) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">131</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">count_values &lt;- function(lyt,</pre>
+                      <pre class="language-r">#'   as.data.frame() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">132</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         vars,</pre>
+                      <pre class="language-r">#'   arrange(PARAM, desc(GRADE_DIR), GRADE_ANL)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">133</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         values,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">134</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         na_str = default_na_str(),</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">135</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         nested = TRUE,</pre>
+                      <pre class="language-r">#'   split_cols_by("ARMCD") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">136</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         ...,</pre>
+                      <pre class="language-r">#'   split_rows_by("PARAM") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">137</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         table_names = vars,</pre>
+                      <pre class="language-r">#'   split_rows_by("GRADE_DIR", split_fun = trim_levels_to_map(map)) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         .stats = "count_fraction",</pre>
+                      <pre class="language-r">#'   count_abnormal_by_worst_grade(</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">139</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         .formats = NULL,</pre>
+                      <pre class="language-r">#'     var = "GRADE_ANL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">140</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         .labels = c(count_fraction = paste(values, collapse = ", ")),</pre>
+                      <pre class="language-r">#'     variables = list(id = "USUBJID", param = "PARAM", grade_dir = "GRADE_DIR")</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">141</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                         .indent_mods = NULL) {</pre>
+                      <pre class="language-r">#'   ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">142</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(values = values, ...)</pre>
+                      <pre class="language-r">#'   build_table(df = adlb_f)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">143</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">144</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  afun &lt;- make_afun(</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">145</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    a_count_values,</pre>
+                      <pre class="language-r">#' @order 2</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">146</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .stats = .stats,</pre>
+                      <pre class="language-r">count_abnormal_by_worst_grade &lt;- function(lyt,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">147</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .formats = .formats,</pre>
+                      <pre class="language-r">                                          var,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">148</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .labels = .labels,</pre>
+                      <pre class="language-r">                                          variables = list(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">149</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .indent_mods = .indent_mods</pre>
+                      <pre class="language-r">                                            id = "USUBJID",</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">                                            param = "PARAM",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">151</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  analyze(</pre>
+                      <pre class="language-r">                                            grade_dir = "GRADE_DIR"</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">152</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt,</pre>
+                      <pre class="language-r">                                          ),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">153</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars,</pre>
+                      <pre class="language-r">                                          na_str = default_na_str(),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">154</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    afun = afun,</pre>
+                      <pre class="language-r">                                          nested = TRUE,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">155</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">                                          ...,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">156</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nested = nested,</pre>
+                      <pre class="language-r">                                          .stats = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">157</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args = extra_args,</pre>
+                      <pre class="language-r">                                          .formats = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">158</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    show_labels = ifelse(length(vars) &gt; 1, "visible", "hidden"),</pre>
+                      <pre class="language-r">                                          .labels = NULL,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">159</td>
-                    <td class="coverage">3<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table_names = table_names</pre>
+                      <pre class="language-r">                                          .indent_mods = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">160</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">  extra_args &lt;- list(variables = variables, ...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">161</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/control_survival.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">162</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Control function for Cox-PH model</pre>
+                      <pre class="language-r">  afun &lt;- make_afun(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">163</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    a_count_abnormal_by_worst_grade,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">164</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">    .stats = .stats,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">165</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    .formats = .formats,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">166</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This is an auxiliary function for controlling arguments for Cox-PH model, typically used internally to specify</pre>
+                      <pre class="language-r">    .labels = .labels,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">167</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' details of Cox-PH model for [s_coxph_pairwise()]. `conf_level` refers to Hazard Ratio estimation.</pre>
+                      <pre class="language-r">    .indent_mods = .indent_mods,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">168</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    .ungroup_stats = "count_fraction"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">169</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">9</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">170</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param pval_method (`string`)\cr p-value method for testing hazard ratio = 1.</pre>
+                      <pre class="language-r">  analyze(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">10</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">171</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Default method is `"log-rank"`, can also be set to `"wald"` or `"likelihood"`.</pre>
+                      <pre class="language-r">    lyt = lyt,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">172</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param ties (`string`)\cr string specifying the method for tie handling. Default is `"efron"`,</pre>
+                      <pre class="language-r">    vars = var,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">173</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   can also be set to `"breslow"` or `"exact"`. See more in [survival::coxph()].</pre>
+                      <pre class="language-r">    afun = afun,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">174</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    na_str = na_str,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">175</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    nested = nested,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">176</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    extra_args = extra_args,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">177</td>
+                    <td class="coverage">2<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    show_labels = "hidden"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">178</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A list of components with the same names as the arguments.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">179</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">180</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">181</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">control_coxph &lt;- function(pval_method = c("log-rank", "wald", "likelihood"),</pre>
+                      <pre class="language-r">#' Helper function to prepare ADLB for `count_abnormal_by_worst_grade()`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">182</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          ties = c("efron", "breslow", "exact"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">183</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                          conf_level = 0.95) {</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">20</td>
-                    <td class="coverage">52<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">184</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  pval_method &lt;- match.arg(pval_method)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">21</td>
-                    <td class="coverage">51<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">185</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  ties &lt;- match.arg(ties)</pre>
+                      <pre class="language-r">#' Helper function to prepare an ADLB data frame to be used as input in</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">22</td>
-                    <td class="coverage">51<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">186</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_proportion_value(conf_level)</pre>
+                      <pre class="language-r">#' [count_abnormal_by_worst_grade()]. The following pre-processing steps are applied:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">187</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">24</td>
-                    <td class="coverage">50<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">188</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(pval_method = pval_method, ties = ties, conf_level = conf_level)</pre>
+                      <pre class="language-r">#' 1. `adlb` is filtered on variable `avisit` to only include post-baseline visits.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">189</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' 2. `adlb` is filtered on variables `worst_flag_low` and `worst_flag_high` so that only</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">190</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'    worst grades (in either direction) are included.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">191</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Control function for `survfit` models for survival time</pre>
+                      <pre class="language-r">#' 3. From the standard lab grade variable `atoxgr`, the following two variables are derived</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">192</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'    and added to `adlb`:</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">193</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#'   * A grade direction variable (e.g. `GRADE_DIR`). The variable takes value `"HIGH"` when</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">194</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'     `atoxgr &gt; 0`, `"LOW"` when `atoxgr &lt; 0`, and `"ZERO"` otherwise.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">195</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This is an auxiliary function for controlling arguments for `survfit` model, typically used internally to specify</pre>
+                      <pre class="language-r">#'   * A toxicity grade variable (e.g. `GRADE_ANL`) where all negative values from `atoxgr` are</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">196</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' details of `survfit` model for [s_surv_time()]. `conf_level` refers to survival time estimation.</pre>
+                      <pre class="language-r">#'     replaced by their absolute values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">197</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' 4. Unused factor levels are dropped from `adlb` via [droplevels()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">198</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">199</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param conf_type (`string`)\cr confidence interval type. Options are "plain" (default), "log", "log-log",</pre>
+                      <pre class="language-r">#' @param adlb (`data.frame`)\cr ADLB data frame.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">200</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   see more in [survival::survfit()]. Note option "none" is no longer supported.</pre>
+                      <pre class="language-r">#' @param atoxgr (`string`)\cr name of the analysis toxicity grade variable. This must be a `factor`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">201</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param quantiles (`numeric(2)`)\cr vector of length two specifying the quantiles of survival time.</pre>
+                      <pre class="language-r">#'   variable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">202</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param avisit (`string`)\cr name of the analysis visit variable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">203</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A list of components with the same names as the arguments.</pre>
+                      <pre class="language-r">#' @param worst_flag_low (`string`)\cr name of the worst low lab grade flag variable. This variable is</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">204</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   set to `"Y"` when indicating records of worst low lab grades.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">205</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @param worst_flag_high (`string`)\cr name of the worst high lab grade flag variable. This variable is</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">206</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">control_surv_time &lt;- function(conf_level = 0.95,</pre>
+                      <pre class="language-r">#'   set to `"Y"` when indicating records of worst high lab grades.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">207</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              conf_type = c("plain", "log", "log-log"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">44</td>
+                    <td class="num">208</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                              quantiles = c(0.25, 0.75)) {</pre>
+                      <pre class="language-r">#' @return `h_adlb_abnormal_by_worst_grade()` returns the `adlb` data frame with two new</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">45</td>
-                    <td class="coverage">229<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">209</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  conf_type &lt;- match.arg(conf_type)</pre>
+                      <pre class="language-r">#'   variables: `GRADE_DIR` and `GRADE_ANL`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">46</td>
-                    <td class="coverage">228<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">210</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_numeric(quantiles, lower = 0, upper = 1, len = 2, unique = TRUE, sorted = TRUE)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">47</td>
-                    <td class="coverage">227<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">211</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  nullo &lt;- lapply(quantiles, assert_proportion_value)</pre>
+                      <pre class="language-r">#' @seealso [abnormal_by_worst_grade]</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">48</td>
-                    <td class="coverage">227<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">212</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_proportion_value(conf_level)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">49</td>
-                    <td class="coverage">226<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">213</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(conf_level = conf_level, conf_type = conf_type, quantiles = quantiles)</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">214</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#' h_adlb_abnormal_by_worst_grade(tern_ex_adlb) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">215</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   dplyr::select(ATOXGR, GRADE_DIR, GRADE_ANL) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">216</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Control function for `survfit` models for patients' survival rate at time points</pre>
+                      <pre class="language-r">#'   head(10)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">217</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">218</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">219</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">h_adlb_abnormal_by_worst_grade &lt;- function(adlb,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">220</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This is an auxiliary function for controlling arguments for `survfit` model, typically used internally to specify</pre>
+                      <pre class="language-r">                                           atoxgr = "ATOXGR",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">221</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' details of `survfit` model for [s_surv_timepoint()]. `conf_level` refers to patient risk estimation at a time point.</pre>
+                      <pre class="language-r">                                           avisit = "AVISIT",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">222</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                           worst_flag_low = "WGRLOFL",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">223</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">                                           worst_flag_high = "WGRHIFL") {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">60</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">224</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams control_surv_time</pre>
+                      <pre class="language-r">  adlb %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">61</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">225</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    dplyr::filter(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">62</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">226</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A list of components with the same names as the arguments.</pre>
+                      <pre class="language-r">      !.data[[avisit]] %in% c("SCREENING", "BASELINE"),</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">63</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">227</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      .data[[worst_flag_low]] == "Y" | .data[[worst_flag_high]] == "Y"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">228</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">    ) %&gt;%</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">65</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">229</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">control_surv_timepoint &lt;- function(conf_level = 0.95,</pre>
+                      <pre class="language-r">    dplyr::mutate(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">230</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      GRADE_DIR = factor(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">231</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">        dplyr::case_when(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">232</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          .data[[atoxgr]] %in% c("-1", "-2", "-3", "-4") ~ "LOW",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">233</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          .data[[atoxgr]] == "0" ~ "ZERO",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">234</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">          .data[[atoxgr]] %in% c("1", "2", "3", "4") ~ "HIGH"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">235</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   conf_type = c("plain", "log", "log-log")) {</pre>
+                      <pre class="language-r">        ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">67</td>
-                    <td class="coverage">24<em>x</em></td>
+                    <td class="num">236</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  conf_type &lt;- match.arg(conf_type)</pre>
+                      <pre class="language-r">        levels = c("LOW", "ZERO", "HIGH")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">23<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">237</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_proportion_value(conf_level)</pre>
+                      <pre class="language-r">      ),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">69</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">238</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">      GRADE_ANL = forcats::fct_relevel(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">70</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">239</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    conf_level = conf_level,</pre>
+                      <pre class="language-r">        forcats::fct_recode(.data[[atoxgr]], `1` = "-1", `2` = "-2", `3` = "-3", `4` = "-4"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">71</td>
-                    <td class="coverage">22<em>x</em></td>
+                    <td class="num">240</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    conf_type = conf_type</pre>
+                      <pre class="language-r">        c("0", "1", "2", "3", "4")</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">241</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">      )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">73</td>
+                    <td class="num">242</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ) %&gt;%</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">243</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    droplevels()</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">244</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>
@@ -184674,14 +184458,14 @@ <h2>tern coverage - 95.64%</h2>
                 </tbody>
               </table>
             </div>
-            <div id="R/h_biomarkers_subgroups.R" class="hidden">
+            <div id="R/count_missed_doses.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Helper function for tabulation of a single biomarker result</pre>
+                      <pre class="language-r">#' Count number of patients with missed doses by thresholds</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -184709,14 +184493,14 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Please see [h_tab_surv_one_biomarker()] and [h_tab_rsp_one_biomarker()], which use this function for examples.</pre>
+                      <pre class="language-r">#' The analyze function creates a layout element to calculate cumulative counts of patients with number of missed</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function is a wrapper for [rtables::summarize_row_groups()].</pre>
+                      <pre class="language-r">#' doses at least equal to user-specified threshold values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -184730,126 +184514,126 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' This function analyzes numeric variable `vars`, a variable with numbers of missed doses,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param df (`data.frame`)\cr results for a single biomarker.</pre>
+                      <pre class="language-r">#' against the threshold values supplied to the `thresholds` argument as a numeric vector. This function</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param afuns (named `list` of `function`)\cr analysis functions.</pre>
+                      <pre class="language-r">#' assumes that every row of the given data frame corresponds to a unique patient.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param colvars (named `list`)\cr named list with elements `vars` (variables to tabulate) and `labels` (their labels).</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @inheritParams s_count_cumulative</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return An `rtables` table object with statistics in columns.</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param thresholds (`numeric`)\cr minimum number of missed doses the patients had.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("count_missed_doses")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">h_tab_one_biomarker &lt;- function(df,</pre>
+                      <pre class="language-r">#'   to see available statistics for this function.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                afuns,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                colvars,</pre>
+                      <pre class="language-r">#' @seealso</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                na_str = default_na_str(),</pre>
+                      <pre class="language-r">#' * Relevant description function [d_count_missed_doses()] which generates labels for [count_missed_doses()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                .indent_mods = 0L,</pre>
+                      <pre class="language-r">#' * Similar analyze function [count_cumulative()] which more generally counts cumulative values and has more</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                ...) {</pre>
+                      <pre class="language-r">#'   options for threshold handling, but uses different labels.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">22</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- list(...)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @name count_missed_doses</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Create "ci" column from "lcl" and "ucl"</pre>
+                      <pre class="language-r">#' @order 1</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">25</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  df$ci &lt;- combine_vectors(df$lcl, df$ucl)</pre>
+                      <pre class="language-r">NULL</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -184859,67 +184643,67 @@ <h2>tern coverage - 95.64%</h2>
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">27</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lyt &lt;- basic_table()</pre>
+                      <pre class="language-r">#' @describeIn count_missed_doses Statistics function to count non-missing values.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Row split by row type - only keep the content rows here.</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">30</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lyt &lt;- split_rows_by(</pre>
+                      <pre class="language-r">#' * `s_count_nonmissing()` returns the statistic `n` which is the count of non-missing values in `x`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">31</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt = lyt,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">32</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var = "row_type",</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">33</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    split_fun = keep_split_levels("content"),</pre>
+                      <pre class="language-r">s_count_nonmissing &lt;- function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">34</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage">5<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nested = FALSE</pre>
+                      <pre class="language-r">  list(n = n_available(x))</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -184933,1776 +184717,1991 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Summarize rows with all patients.</pre>
+                      <pre class="language-r">#' Description function that calculates labels for `s_count_missed_doses()`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">38</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lyt &lt;- summarize_row_groups(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">39</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt = lyt,</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">40</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    var = "var_label",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">41</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    cfun = afuns,</pre>
+                      <pre class="language-r">#' @inheritParams s_count_missed_doses</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">42</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">43</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    indent_mod = .indent_mods,</pre>
+                      <pre class="language-r">#' @return [d_count_missed_doses()] returns a named `character` vector with the labels.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">44</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args = extra_args</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @seealso [s_count_missed_doses()]</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # Split cols by the multiple variables to populate into columns.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">48</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  lyt &lt;- split_cols_by_multivar(</pre>
+                      <pre class="language-r">d_count_missed_doses &lt;- function(thresholds) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">49</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt = lyt,</pre>
+                      <pre class="language-r">  paste0("At least ", thresholds, " missed dose", ifelse(thresholds &gt; 1, "s", ""))</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">50</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars = colvars$vars,</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">51</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    varlabels = colvars$labels</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @describeIn count_missed_doses Statistics function to count patients with missed doses.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  # If there is any subgroup variables, we extend the layout accordingly.</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">55</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  if ("analysis" %in% df$row_type) {</pre>
+                      <pre class="language-r">#' * `s_count_missed_doses()` returns the statistics `n` and `count_fraction` with one element for each threshold.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Now only continue with the subgroup rows.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">57</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt &lt;- split_rows_by(</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">58</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt = lyt,</pre>
+                      <pre class="language-r">s_count_missed_doses &lt;- function(x,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">59</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      var = "row_type",</pre>
+                      <pre class="language-r">                                 thresholds,</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">60</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      split_fun = keep_split_levels("analysis"),</pre>
+                      <pre class="language-r">                                 .N_col) { # nolint</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">61</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nested = FALSE,</pre>
+                      <pre class="language-r">  stat &lt;- s_count_cumulative(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">62</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      child_labels = "hidden"</pre>
+                      <pre class="language-r">    x = x,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">63</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">    thresholds = thresholds,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">64</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">    lower_tail = FALSE,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">65</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Split by the subgroup variable.</pre>
+                      <pre class="language-r">    include_eq = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">66</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt &lt;- split_rows_by(</pre>
+                      <pre class="language-r">    .N_col = .N_col</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">67</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt = lyt,</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">68</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      var = "var",</pre>
+                      <pre class="language-r">  labels &lt;- d_count_missed_doses(thresholds)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">69</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      labels_var = "var_label",</pre>
+                      <pre class="language-r">  for (i in seq_along(stat$count_fraction)) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">70</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      nested = TRUE,</pre>
+                      <pre class="language-r">    stat$count_fraction[[i]] &lt;- formatters::with_label(stat$count_fraction[[i]], label = labels[i])</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">71</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      child_labels = "visible",</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">72</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      indent_mod = .indent_mods * 2</pre>
+                      <pre class="language-r">  n_stat &lt;- s_count_nonmissing(x)</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">73</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">  c(n_stat, stat)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    # Then analyze colvars for each subgroup.</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">76</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt &lt;- summarize_row_groups(</pre>
+                      <pre class="language-r">#' @describeIn count_missed_doses Formatted analysis function which is used as `afun`</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">77</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      lyt = lyt,</pre>
+                      <pre class="language-r">#'   in `count_missed_doses()`.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">78</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      cfun = afuns,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">79</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      var = "subgroup",</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">80</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      na_str = na_str,</pre>
+                      <pre class="language-r">#' * `a_count_missed_doses()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">81</td>
-                    <td class="coverage">10<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      extra_args = extra_args</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r">#' @keywords internal</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">83</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">a_count_missed_doses &lt;- make_afun(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">84</td>
-                    <td class="coverage">18<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  build_table(lyt, df = df)</pre>
+                      <pre class="language-r">  s_count_missed_doses,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  .formats = c(n = "xx", count_fraction = format_count_fraction)</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/count_patients_with_event.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
                   <tr class="never">
-                    <td class="num">1</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Count the number of patients with a particular event</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">2</td>
+                    <td class="num">87</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">3</td>
+                    <td class="num">88</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">#' @describeIn count_missed_doses Layout-creating function which can take statistics function arguments</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">4</td>
+                    <td class="num">89</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">5</td>
+                    <td class="num">90</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' The analyze function [count_patients_with_event()] creates a layout element to calculate patient counts for a</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">6</td>
+                    <td class="num">91</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' user-specified set of events.</pre>
+                      <pre class="language-r">#' @return</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">7</td>
+                    <td class="num">92</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' * `count_missed_doses()` returns a layout object suitable for passing to further layouting functions,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">93</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This function analyzes primary analysis variable `vars` which indicates unique subject identifiers. Events</pre>
+                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">94</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' are defined by the user as a named vector via the `filters` argument, where each name corresponds to a</pre>
+                      <pre class="language-r">#'   the statistics from `s_count_missed_doses()` to the table layout.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">95</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' variable and each value is the value(s) that that variable takes for the event.</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">11</td>
+                    <td class="num">96</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">12</td>
+                    <td class="num">97</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' If there are multiple records with the same event recorded for a patient, only one occurrence is counted.</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">13</td>
+                    <td class="num">98</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">14</td>
+                    <td class="num">99</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">#' anl &lt;- tern_ex_adsl %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">100</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param filters (`character`)\cr a character vector specifying the column names and flag variables</pre>
+                      <pre class="language-r">#'   distinct(STUDYID, USUBJID, ARM) %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">101</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to be used for counting the number of unique identifiers satisfying such conditions.</pre>
+                      <pre class="language-r">#'   mutate(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">102</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Multiple column names and flags are accepted in this format</pre>
+                      <pre class="language-r">#'     PARAMCD = "TNDOSMIS",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">18</td>
+                    <td class="num">103</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   `c("column_name1" = "flag1", "column_name2" = "flag2")`.</pre>
+                      <pre class="language-r">#'     PARAM = "Total number of missed doses during study",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">104</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Note that only equality is being accepted as condition.</pre>
+                      <pre class="language-r">#'     AVAL = sample(0:20, size = nrow(tern_ex_adsl), replace = TRUE),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">20</td>
+                    <td class="num">105</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .stats (`character`)\cr statistics to select for the table. Run `get_stats("count_patients_with_event")`</pre>
+                      <pre class="language-r">#'     AVALC = ""</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">21</td>
+                    <td class="num">106</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   to see available statistics for this function.</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">22</td>
+                    <td class="num">107</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">23</td>
+                    <td class="num">108</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [count_patients_with_flags]</pre>
+                      <pre class="language-r">#' basic_table() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">109</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">110</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @name count_patients_with_event</pre>
+                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">111</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 1</pre>
+                      <pre class="language-r">#'   count_missed_doses("AVAL", thresholds = c(1, 5, 10, 15), var_labels = "Missed Doses") %&gt;%</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">27</td>
+                    <td class="num">112</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">NULL</pre>
+                      <pre class="language-r">#'   build_table(anl, alt_counts_df = tern_ex_adsl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">28</td>
+                    <td class="num">113</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">29</td>
+                    <td class="num">114</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn count_patients_with_event Statistics function which counts the number of patients for which</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">30</td>
+                    <td class="num">115</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the defined event has occurred.</pre>
+                      <pre class="language-r">#' @order 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">116</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">count_missed_doses &lt;- function(lyt,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">32</td>
+                    <td class="num">117</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams analyze_variables</pre>
+                      <pre class="language-r">                               vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">33</td>
+                    <td class="num">118</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param .var (`string`)\cr name of the column that contains the unique identifier.</pre>
+                      <pre class="language-r">                               thresholds,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">34</td>
+                    <td class="num">119</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                               var_labels = vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">35</td>
+                    <td class="num">120</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">                               show_labels = "visible",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">36</td>
+                    <td class="num">121</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `s_count_patients_with_event()` returns the count and fraction of unique identifiers with the defined event.</pre>
+                      <pre class="language-r">                               na_str = default_na_str(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">122</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                               nested = TRUE,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">123</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">                               ...,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">39</td>
+                    <td class="num">124</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `s_count_patients_with_event()`</pre>
+                      <pre class="language-r">                               table_names = vars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">40</td>
+                    <td class="num">125</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                               .stats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">41</td>
+                    <td class="num">126</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_count_patients_with_event(</pre>
+                      <pre class="language-r">                               .formats = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">42</td>
+                    <td class="num">127</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   tern_ex_adae,</pre>
+                      <pre class="language-r">                               .labels = NULL,</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">43</td>
+                    <td class="num">128</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .var = "SUBJID",</pre>
+                      <pre class="language-r">                               .indent_mods = NULL) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">44</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">129</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filters = c("TRTEMFL" = "Y")</pre>
+                      <pre class="language-r">  extra_args &lt;- list(thresholds = thresholds, ...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">45</td>
+                    <td class="num">130</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">46</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">131</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  afun &lt;- make_afun(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">47</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">132</td>
+                    <td class="coverage">1<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_count_patients_with_event(</pre>
+                      <pre class="language-r">    a_count_missed_doses,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">133</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    .stats = .stats,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">134</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    .formats = .formats,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">135</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    .labels = .labels,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">136</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    .indent_mods = .indent_mods,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">137</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    .ungroup_stats = "count_fraction"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">48</td>
+                    <td class="num">138</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   tern_ex_adae,</pre>
+                      <pre class="language-r">  )</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">139</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  analyze(</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">140</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    lyt = lyt,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">141</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    vars = vars,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">142</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    afun = afun,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">143</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    var_labels = var_labels,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">144</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    table_names = table_names,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">145</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    show_labels = show_labels,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">146</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    na_str = na_str,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">147</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    nested = nested,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">148</td>
+                    <td class="coverage">1<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    extra_args = extra_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">49</td>
+                    <td class="num">149</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .var = "SUBJID",</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">50</td>
+                    <td class="num">150</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filters = c("TRTEMFL" = "Y", "AEOUT" = "FATAL")</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/control_logistic.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">51</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' Control function for logistic regression model fitting</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">52</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">53</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' s_count_patients_with_event(</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">54</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   tern_ex_adae,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">55</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .var = "SUBJID",</pre>
+                      <pre class="language-r">#' This is an auxiliary function for controlling arguments for logistic regression models.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">56</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filters = c("TRTEMFL" = "Y", "AEOUT" = "FATAL"),</pre>
+                      <pre class="language-r">#' `conf_level` refers to the confidence level used for the Odds Ratio CIs.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">57</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   denom = "N_col",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">58</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .N_col = 456</pre>
+                      <pre class="language-r">#' @inheritParams argument_convention</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">59</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r">#' @param response_definition (`string`)\cr the definition of what an event is in terms of `response`.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">60</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#'   This will be used when fitting the logistic regression model on the left hand side of the formula.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">61</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#'   Note that the evaluated expression should result in either a logical vector or a factor with 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">62</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">s_count_patients_with_event &lt;- function(df,</pre>
+                      <pre class="language-r">#'   levels. By default this is just `"response"` such that the original response variable is used</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">63</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        .var,</pre>
+                      <pre class="language-r">#'   and not modified further.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">64</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        filters,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">65</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        .N_col, # nolint</pre>
+                      <pre class="language-r">#' @return A list of components with the same names as the arguments.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">66</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        .N_row, # nolint</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">67</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                        denom = c("n", "N_row", "N_col")) {</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">68</td>
-                    <td class="coverage">32<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">18</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  col_names &lt;- names(filters)</pre>
+                      <pre class="language-r">#' # Standard options.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">69</td>
-                    <td class="coverage">32<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">19</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  filter_values &lt;- filters</pre>
+                      <pre class="language-r">#' control_logistic()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">70</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">71</td>
-                    <td class="coverage">32<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">21</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_subset(col_names, colnames(df))</pre>
+                      <pre class="language-r">#' # Modify confidence level.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">72</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' control_logistic(conf_level = 0.9)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">73</td>
-                    <td class="coverage">32<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">23</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  temp &lt;- Map(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">74</td>
-                    <td class="coverage">32<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">24</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    function(x, y) which(df[[x]] == y),</pre>
+                      <pre class="language-r">#' # Use a different response definition.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">75</td>
-                    <td class="coverage">32<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">25</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    col_names,</pre>
+                      <pre class="language-r">#' control_logistic(response_definition = "I(response %in% c('CR', 'PR'))")</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">76</td>
-                    <td class="coverage">32<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">26</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    filter_values</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">77</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">78</td>
-                    <td class="coverage">32<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">28</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  position_satisfy_filters &lt;- Reduce(intersect, temp)</pre>
+                      <pre class="language-r">control_logistic &lt;- function(response_definition = "response",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">79</td>
-                    <td class="coverage">32<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">29</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  id_satisfy_filters &lt;- as.character(unique(df[position_satisfy_filters, ][[.var]]))</pre>
+                      <pre class="language-r">                             conf_level = 0.95) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">80</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">30</td>
+                    <td class="coverage">29<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result &lt;- s_count_values(</pre>
+                      <pre class="language-r">  checkmate::assert_true(grepl("response", response_definition))</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">81</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">31</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    as.character(unique(df[[.var]])),</pre>
+                      <pre class="language-r">  checkmate::assert_string(response_definition)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">82</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">32</td>
+                    <td class="coverage">28<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    id_satisfy_filters,</pre>
+                      <pre class="language-r">  assert_proportion_value(conf_level)</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">83</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">33</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    denom = denom,</pre>
+                      <pre class="language-r">  list(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">84</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">34</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .N_col = .N_col,</pre>
+                      <pre class="language-r">    response_definition = response_definition,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">85</td>
-                    <td class="coverage">32<em>x</em></td>
+                    <td class="num">35</td>
+                    <td class="coverage">27<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .N_row = .N_row</pre>
+                      <pre class="language-r">    conf_level = conf_level</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">86</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">  )</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">87</td>
-                    <td class="coverage">32<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">37</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  result</pre>
+                      <pre class="language-r">}</pre>
+                    </td>
+                  </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/h_pkparam_sort.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
+                  <tr class="never">
+                    <td class="num">1</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">#' Sort pharmacokinetic data by `PARAM` variable</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">88</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">89</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">90</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn count_patients_with_event Formatted analysis function which is used as `afun`</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">91</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   in `count_patients_with_event()`.</pre>
+                      <pre class="language-r">#' @param pk_data (`data.frame`)\cr pharmacokinetic data frame.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">92</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @param key_var (`string`)\cr key variable used to merge pk_data and metadata created by [d_pkparam()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">93</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">94</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `a_count_patients_with_event()` returns the corresponding list with formatted [rtables::CellValue()].</pre>
+                      <pre class="language-r">#' @return A pharmacokinetic `data.frame` sorted by a `PARAM` variable.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">95</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">96</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">97</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `a_count_patients_with_event()`</pre>
+                      <pre class="language-r">#' library(dplyr)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">98</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">99</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' a_count_patients_with_event(</pre>
+                      <pre class="language-r">#' adpp &lt;- tern_ex_adpp %&gt;% mutate(PKPARAM = factor(paste0(PARAM, " (", AVALU, ")")))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">100</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   tern_ex_adae,</pre>
+                      <pre class="language-r">#' pk_ordered_data &lt;- h_pkparam_sort(adpp)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">101</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .var = "SUBJID",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">102</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   filters = c("TRTEMFL" = "Y"),</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">103</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .N_col = 100,</pre>
+                      <pre class="language-r">h_pkparam_sort &lt;- function(pk_data, key_var = "PARAMCD") {</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">18</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  assert_df_with_variables(pk_data, list(key_var = key_var))</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">19</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  pk_data$PARAMCD &lt;- pk_data[[key_var]]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">104</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   .N_row = 100</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">21</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  ordered_pk_data &lt;- d_pkparam()</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">105</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">106</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  # Add the numeric values from ordered_pk_data to pk_data</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">24</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  joined_data &lt;- merge(pk_data, ordered_pk_data, by = "PARAMCD", suffixes = c("", ".y"))</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">107</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">26</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  joined_data &lt;- joined_data[, -grep(".*.y$", colnames(joined_data))]</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">108</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">a_count_patients_with_event &lt;- make_afun(</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">28</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  joined_data$TLG_ORDER &lt;- as.numeric(joined_data$TLG_ORDER)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">109</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_count_patients_with_event,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">110</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  .formats = c(count_fraction = format_count_fraction_fixed_dp)</pre>
+                      <pre class="language-r">  # Then order PARAM based on this column</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">31</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  joined_data$PARAM &lt;- factor(joined_data$PARAM,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">32</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    levels = unique(joined_data$PARAM[order(joined_data$TLG_ORDER)]),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">33</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ordered = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">111</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">)</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">112</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">113</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">36</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @describeIn count_patients_with_event Layout-creating function which can take statistics function</pre>
+                      <pre class="language-r">  joined_data$TLG_DISPLAY &lt;- factor(joined_data$TLG_DISPLAY,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">37</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    levels = unique(joined_data$TLG_DISPLAY[order(joined_data$TLG_ORDER)]),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">38</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    ordered = TRUE</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">114</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   arguments and additional format arguments. This function is a wrapper for [rtables::analyze()].</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">115</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">41</td>
+                    <td class="coverage">4<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  joined_data</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">116</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return</pre>
+                      <pre class="language-r">}</pre>
                     </td>
                   </tr>
+                </tbody>
+              </table>
+            </div>
+            <div id="R/combination_function.R" class="hidden">
+              <table class="table-condensed">
+                <tbody>
                   <tr class="never">
-                    <td class="num">117</td>
+                    <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' * `count_patients_with_event()` returns a layout object suitable for passing to further layouting functions,</pre>
+                      <pre class="language-r">#' Class for `CombinationFunction`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">118</td>
+                    <td class="num">2</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   or to [rtables::build_table()]. Adding this function to an `rtable` layout will add formatted rows containing</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">119</td>
+                    <td class="num">3</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   the statistics from `s_count_patients_with_event()` to the table layout.</pre>
+                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">120</td>
+                    <td class="num">4</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">121</td>
+                    <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">#' `CombinationFunction` is an S4 class which extends standard functions. These are special functions that</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">122</td>
+                    <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # `count_patients_with_event()`</pre>
+                      <pre class="language-r">#' can be combined and negated with the logical operators.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">123</td>
+                    <td class="num">7</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">124</td>
+                    <td class="num">8</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' lyt &lt;- basic_table() %&gt;%</pre>
+                      <pre class="language-r">#' @param e1 (`CombinationFunction`)\cr left hand side of logical operator.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">125</td>
+                    <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   split_cols_by("ARM") %&gt;%</pre>
+                      <pre class="language-r">#' @param e2 (`CombinationFunction`)\cr right hand side of logical operator.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">126</td>
+                    <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   add_colcounts() %&gt;%</pre>
+                      <pre class="language-r">#' @param x (`CombinationFunction`)\cr the function which should be negated.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">127</td>
+                    <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   count_values(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">128</td>
+                    <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "STUDYID",</pre>
+                      <pre class="language-r">#' @return A logical value indicating whether the left hand side of the equation equals the right hand side.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">129</td>
+                    <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     values = "AB12345",</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">130</td>
+                    <td class="num">14</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .stats = "count",</pre>
+                      <pre class="language-r">#' @examples</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">131</td>
+                    <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .labels = c(count = "Total AEs")</pre>
+                      <pre class="language-r">#' higher &lt;- function(a) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">132</td>
+                    <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">#'   force(a)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">133</td>
+                    <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   count_patients_with_event(</pre>
+                      <pre class="language-r">#'   CombinationFunction(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">134</td>
+                    <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "SUBJID",</pre>
+                      <pre class="language-r">#'     function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">135</td>
+                    <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     filters = c("TRTEMFL" = "Y"),</pre>
+                      <pre class="language-r">#'       x &gt; a</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">136</td>
+                    <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .labels = c(count_fraction = "Total number of patients with at least one adverse event"),</pre>
+                      <pre class="language-r">#'     }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">137</td>
+                    <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     table_names = "tbl_all"</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">138</td>
+                    <td class="num">22</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">139</td>
+                    <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   count_patients_with_event(</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">140</td>
+                    <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "SUBJID",</pre>
+                      <pre class="language-r">#' lower &lt;- function(b) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">141</td>
+                    <td class="num">25</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     filters = c("TRTEMFL" = "Y", "AEOUT" = "FATAL"),</pre>
+                      <pre class="language-r">#'   force(b)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">142</td>
+                    <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .labels = c(count_fraction = "Total number of patients with fatal AEs"),</pre>
+                      <pre class="language-r">#'   CombinationFunction(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">143</td>
+                    <td class="num">27</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     table_names = "tbl_fatal"</pre>
+                      <pre class="language-r">#'     function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">144</td>
+                    <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   ) %&gt;%</pre>
+                      <pre class="language-r">#'       x &lt; b</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">145</td>
+                    <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   count_patients_with_event(</pre>
+                      <pre class="language-r">#'     }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">146</td>
+                    <td class="num">30</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     "SUBJID",</pre>
+                      <pre class="language-r">#'   )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">147</td>
+                    <td class="num">31</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     filters = c("TRTEMFL" = "Y", "AEOUT" = "FATAL", "AEREL" = "Y"),</pre>
+                      <pre class="language-r">#' }</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">148</td>
+                    <td class="num">32</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .labels = c(count_fraction = "Total number of patients with related fatal AEs"),</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">149</td>
+                    <td class="num">33</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     .indent_mods = c(count_fraction = 2L),</pre>
+                      <pre class="language-r">#' c1 &lt;- higher(5)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">150</td>
+                    <td class="num">34</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'     table_names = "tbl_rel_fatal"</pre>
+                      <pre class="language-r">#' c2 &lt;- lower(10)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">151</td>
+                    <td class="num">35</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   )</pre>
+                      <pre class="language-r">#' c3 &lt;- higher(5) &amp; lower(10)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">152</td>
+                    <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' c3(7)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">153</td>
+                    <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' build_table(lyt, tern_ex_adae, alt_counts_df = tern_ex_adsl)</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">154</td>
+                    <td class="num">38</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">#' @name combination_function</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">155</td>
+                    <td class="num">39</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">#' @aliases CombinationFunction-class</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">156</td>
+                    <td class="num">40</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @order 2</pre>
+                      <pre class="language-r">#' @exportClass CombinationFunction</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">157</td>
+                    <td class="num">41</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">count_patients_with_event &lt;- function(lyt,</pre>
+                      <pre class="language-r">#' @export CombinationFunction</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">158</td>
+                    <td class="num">42</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      vars,</pre>
+                      <pre class="language-r">CombinationFunction &lt;- methods::setClass("CombinationFunction", contains = "function") # nolint</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">159</td>
+                    <td class="num">43</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      filters,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">160</td>
+                    <td class="num">44</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      riskdiff = FALSE,</pre>
+                      <pre class="language-r">#' @describeIn combination_function Logical "AND" combination of `CombinationFunction` functions.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">161</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      na_str = default_na_str(),</pre>
+                      <pre class="language-r">#'   The resulting object is of the same class, and evaluates the two argument functions. The result</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">162</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      nested = TRUE,</pre>
+                      <pre class="language-r">#'   is then the "AND" of the two individual results.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">163</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      ...,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">164</td>
+                    <td class="num">48</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      table_names = vars,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">165</td>
+                    <td class="num">49</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      .stats = "count_fraction",</pre>
+                      <pre class="language-r">methods::setMethod(</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">166</td>
+                    <td class="num">50</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      .formats = NULL,</pre>
+                      <pre class="language-r">  "&amp;",</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">167</td>
+                    <td class="num">51</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      .labels = NULL,</pre>
+                      <pre class="language-r">  signature = c(e1 = "CombinationFunction", e2 = "CombinationFunction"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">168</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                      .indent_mods = NULL) {</pre>
+                      <pre class="language-r">  definition = function(e1, e2) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">169</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">53</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_flag(riskdiff)</pre>
+                      <pre class="language-r">    CombinationFunction(function(...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">170</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">54</td>
+                    <td class="coverage">490<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">      e1(...) &amp;&amp; e2(...)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">171</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">55</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  s_args &lt;- list(filters = filters, ...)</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">172</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">173</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">57</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  afun &lt;- make_afun(</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">174</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">58</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    a_count_patients_with_event,</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">175</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">59</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .stats = .stats,</pre>
+                      <pre class="language-r">#' @describeIn combination_function Logical "OR" combination of `CombinationFunction` functions.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">176</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">60</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .formats = .formats,</pre>
+                      <pre class="language-r">#'   The resulting object is of the same class, and evaluates the two argument functions. The result</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">177</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">61</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .labels = .labels,</pre>
+                      <pre class="language-r">#'   is then the "OR" of the two individual results.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">178</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">62</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    .indent_mods = .indent_mods</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">179</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">180</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">methods::setMethod(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">181</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">65</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  extra_args &lt;- if (isFALSE(riskdiff)) {</pre>
+                      <pre class="language-r">  "|",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">182</td>
-                    <td class="coverage">5<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">66</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    s_args</pre>
+                      <pre class="language-r">  signature = c(e1 = "CombinationFunction", e2 = "CombinationFunction"),</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">183</td>
+                    <td class="num">67</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  } else {</pre>
+                      <pre class="language-r">  definition = function(e1, e2) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">184</td>
+                    <td class="num">68</td>
                     <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    list(</pre>
+                      <pre class="language-r">    CombinationFunction(function(...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">185</td>
-                    <td class="coverage">2<em>x</em></td>
+                    <td class="num">69</td>
+                    <td class="coverage">4<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      afun = list("s_count_patients_with_event" = afun),</pre>
+                      <pre class="language-r">      e1(...) || e2(...)</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">186</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">70</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      .stats = .stats,</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">187</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">71</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      .indent_mods = .indent_mods,</pre>
+                      <pre class="language-r">  }</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">188</td>
-                    <td class="coverage">2<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">72</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">      s_args = s_args</pre>
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">189</td>
+                    <td class="num">73</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">190</td>
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  }</pre>
+                      <pre class="language-r">#' @describeIn combination_function Logical negation of `CombinationFunction` functions.</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">191</td>
+                    <td class="num">75</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r"></pre>
+                      <pre class="language-r">#'   The resulting object is of the same class, and evaluates the original function. The result</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">192</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">76</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  analyze(</pre>
+                      <pre class="language-r">#'   is then the opposite of this results.</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">193</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">77</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    lyt,</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">194</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">78</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    vars,</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">195</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">79</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    afun = ifelse(isFALSE(riskdiff), afun, afun_riskdiff),</pre>
+                      <pre class="language-r">methods::setMethod(</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">196</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">80</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    na_str = na_str,</pre>
+                      <pre class="language-r">  "!",</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">197</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">81</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    nested = nested,</pre>
+                      <pre class="language-r">  signature = c(x = "CombinationFunction"),</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
-                    <td class="num">198</td>
-                    <td class="coverage">7<em>x</em></td>
+                  <tr class="never">
+                    <td class="num">82</td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    extra_args = extra_args,</pre>
+                      <pre class="language-r">  definition = function(x) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">199</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">83</td>
+                    <td class="coverage">2<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    show_labels = ifelse(length(vars) &gt; 1, "visible", "hidden"),</pre>
+                      <pre class="language-r">    CombinationFunction(function(...) {</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">200</td>
-                    <td class="coverage">7<em>x</em></td>
+                    <td class="num">84</td>
+                    <td class="coverage">305<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    table_names = table_names</pre>
+                      <pre class="language-r">      !x(...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">201</td>
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    })</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">202</td>
+                    <td class="num">86</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">87</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">)</pre>
                     </td>
                   </tr>
                 </tbody>
               </table>
             </div>
-            <div id="R/control_logistic.R" class="hidden">
+            <div id="R/h_biomarkers_subgroups.R" class="hidden">
               <table class="table-condensed">
                 <tbody>
                   <tr class="never">
                     <td class="num">1</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Control function for logistic regression model fitting</pre>
+                      <pre class="language-r">#' Helper function for tabulation of a single biomarker result</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -186730,14 +186729,14 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">5</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This is an auxiliary function for controlling arguments for logistic regression models.</pre>
+                      <pre class="language-r">#' Please see [h_tab_surv_one_biomarker()] and [h_tab_rsp_one_biomarker()], which use this function for examples.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">6</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' `conf_level` refers to the confidence level used for the Odds Ratio CIs.</pre>
+                      <pre class="language-r">#' This function is a wrapper for [rtables::summarize_row_groups()].</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -186758,35 +186757,35 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">9</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param response_definition (`string`)\cr the definition of what an event is in terms of `response`.</pre>
+                      <pre class="language-r">#' @param df (`data.frame`)\cr results for a single biomarker.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">10</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   This will be used when fitting the logistic regression model on the left hand side of the formula.</pre>
+                      <pre class="language-r">#' @param afuns (named `list` of `function`)\cr analysis functions.</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">11</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   Note that the evaluated expression should result in either a logical vector or a factor with 2</pre>
+                      <pre class="language-r">#' @param colvars (named `list`)\cr named list with elements `vars` (variables to tabulate) and `labels` (their labels).</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">12</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   levels. By default this is just `"response"` such that the original response variable is used</pre>
+                      <pre class="language-r">#'</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">13</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   and not modified further.</pre>
+                      <pre class="language-r">#' @return An `rtables` table object with statistics in columns.</pre>
                     </td>
                   </tr>
                   <tr class="never">
@@ -186800,430 +186799,494 @@ <h2>tern coverage - 95.64%</h2>
                     <td class="num">15</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A list of components with the same names as the arguments.</pre>
+                      <pre class="language-r">#' @export</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">16</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">h_tab_one_biomarker &lt;- function(df,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">17</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">                                afuns,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">18</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Standard options.</pre>
+                      <pre class="language-r">                                colvars,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">19</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' control_logistic()</pre>
+                      <pre class="language-r">                                na_str = default_na_str(),</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">20</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">                                .indent_mods = 0L,</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">21</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Modify confidence level.</pre>
+                      <pre class="language-r">                                ...) {</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">22</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' control_logistic(conf_level = 0.9)</pre>
+                      <pre class="language-r">  extra_args &lt;- list(...)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">23</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">24</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' # Use a different response definition.</pre>
+                      <pre class="language-r">  # Create "ci" column from "lcl" and "ucl"</pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">25</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' control_logistic(response_definition = "I(response %in% c('CR', 'PR'))")</pre>
+                      <pre class="language-r">  df$ci &lt;- combine_vectors(df$lcl, df$ucl)</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">26</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
-                  <tr class="never">
+                  <tr class="covered">
                     <td class="num">27</td>
-                    <td class="coverage"></td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">  lyt &lt;- basic_table()</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">28</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">control_logistic &lt;- function(response_definition = "response",</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">29</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                             conf_level = 0.95) {</pre>
+                      <pre class="language-r">  # Row split by row type - only keep the content rows here.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">30</td>
-                    <td class="coverage">29<em>x</em></td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_true(grepl("response", response_definition))</pre>
+                      <pre class="language-r">  lyt &lt;- split_rows_by(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">31</td>
-                    <td class="coverage">28<em>x</em></td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_string(response_definition)</pre>
+                      <pre class="language-r">    lyt = lyt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">32</td>
-                    <td class="coverage">28<em>x</em></td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_proportion_value(conf_level)</pre>
+                      <pre class="language-r">    var = "row_type",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">33</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">    split_fun = keep_split_levels("content"),</pre>
                     </td>
                   </tr>
                   <tr class="covered">
                     <td class="num">34</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    response_definition = response_definition,</pre>
+                      <pre class="language-r">    nested = FALSE</pre>
                     </td>
                   </tr>
-                  <tr class="covered">
+                  <tr class="never">
                     <td class="num">35</td>
-                    <td class="coverage">27<em>x</em></td>
+                    <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    conf_level = conf_level</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">36</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
                     <td class="num">37</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">}</pre>
+                      <pre class="language-r">  # Summarize rows with all patients.</pre>
                     </td>
                   </tr>
-                </tbody>
-              </table>
-            </div>
-            <div id="R/control_incidence_rate.R" class="hidden">
-              <table class="table-condensed">
-                <tbody>
-                  <tr class="never">
-                    <td class="num">1</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">38</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' Control function for incidence rate</pre>
+                      <pre class="language-r">  lyt &lt;- summarize_row_groups(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">2</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">39</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    lyt = lyt,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">3</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">40</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @description `r lifecycle::badge("stable")`</pre>
+                      <pre class="language-r">    var = "var_label",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">4</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">41</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    cfun = afuns,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">5</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">42</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' This is an auxiliary function for controlling arguments for the incidence rate, used</pre>
+                      <pre class="language-r">    na_str = na_str,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">6</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">43</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' internally to specify details in `s_incidence_rate()`.</pre>
+                      <pre class="language-r">    indent_mod = .indent_mods,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">7</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">44</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    extra_args = extra_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">8</td>
+                    <td class="num">45</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @inheritParams argument_convention</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">9</td>
+                    <td class="num">46</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param conf_type (`string`)\cr `normal` (default), `normal_log`, `exact`, or `byar`</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">10</td>
+                    <td class="num">47</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   for confidence interval type.</pre>
+                      <pre class="language-r">  # Split cols by the multiple variables to populate into columns.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">11</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">48</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param input_time_unit (`string`)\cr `day`, `week`, `month`, or `year` (default)</pre>
+                      <pre class="language-r">  lyt &lt;- split_cols_by_multivar(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">12</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">49</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'   indicating time unit for data input.</pre>
+                      <pre class="language-r">    lyt = lyt,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">13</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">50</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @param num_pt_year (`numeric(1)`)\cr number of patient-years to use when calculating adverse event rates.</pre>
+                      <pre class="language-r">    vars = colvars$vars,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">14</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">51</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">    varlabels = colvars$labels</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">15</td>
+                    <td class="num">52</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @return A list of components with the same names as the arguments.</pre>
+                      <pre class="language-r">  )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">16</td>
+                    <td class="num">53</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">17</td>
+                    <td class="num">54</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @seealso [incidence_rate]</pre>
+                      <pre class="language-r">  # If there is any subgroup variables, we extend the layout accordingly.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">18</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">55</td>
+                    <td class="coverage">18<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">  if ("analysis" %in% df$row_type) {</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">19</td>
+                    <td class="num">56</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @examples</pre>
+                      <pre class="language-r">    # Now only continue with the subgroup rows.</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">20</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">57</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' control_incidence_rate(0.9, "exact", "month", 100)</pre>
+                      <pre class="language-r">    lyt &lt;- split_rows_by(</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">21</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">58</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#'</pre>
+                      <pre class="language-r">      lyt = lyt,</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">22</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">59</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">#' @export</pre>
+                      <pre class="language-r">      var = "row_type",</pre>
                     </td>
                   </tr>
-                  <tr class="never">
-                    <td class="num">23</td>
-                    <td class="coverage"></td>
+                  <tr class="covered">
+                    <td class="num">60</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">control_incidence_rate &lt;- function(conf_level = 0.95,</pre>
+                      <pre class="language-r">      split_fun = keep_split_levels("analysis"),</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">61</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      nested = FALSE,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">62</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      child_labels = "hidden"</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">24</td>
+                    <td class="num">63</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   conf_type = c("normal", "normal_log", "exact", "byar"),</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">25</td>
+                    <td class="num">64</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   input_time_unit = c("year", "day", "week", "month"),</pre>
+                      <pre class="language-r"></pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">26</td>
+                    <td class="num">65</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">                                   num_pt_year = 100) {</pre>
+                      <pre class="language-r">    # Split by the subgroup variable.</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">27</td>
-                    <td class="coverage">14<em>x</em></td>
+                    <td class="num">66</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  conf_type &lt;- match.arg(conf_type)</pre>
+                      <pre class="language-r">    lyt &lt;- split_rows_by(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">28</td>
-                    <td class="coverage">13<em>x</em></td>
+                    <td class="num">67</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  input_time_unit &lt;- match.arg(input_time_unit)</pre>
+                      <pre class="language-r">      lyt = lyt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">29</td>
-                    <td class="coverage">12<em>x</em></td>
+                    <td class="num">68</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  checkmate::assert_number(num_pt_year)</pre>
+                      <pre class="language-r">      var = "var",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">30</td>
-                    <td class="coverage">11<em>x</em></td>
+                    <td class="num">69</td>
+                    <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  assert_proportion_value(conf_level)</pre>
+                      <pre class="language-r">      labels_var = "var_label",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">70</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      nested = TRUE,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">71</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      child_labels = "visible",</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">72</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      indent_mod = .indent_mods * 2</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">31</td>
+                    <td class="num">73</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    )</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">74</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r"></pre>
                     </td>
                   </tr>
+                  <tr class="never">
+                    <td class="num">75</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">    # Then analyze colvars for each subgroup.</pre>
+                    </td>
+                  </tr>
                   <tr class="covered">
-                    <td class="num">32</td>
+                    <td class="num">76</td>
                     <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  list(</pre>
+                      <pre class="language-r">    lyt &lt;- summarize_row_groups(</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">33</td>
+                    <td class="num">77</td>
                     <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    conf_level = conf_level,</pre>
+                      <pre class="language-r">      lyt = lyt,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">34</td>
+                    <td class="num">78</td>
                     <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    conf_type = conf_type,</pre>
+                      <pre class="language-r">      cfun = afuns,</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">35</td>
+                    <td class="num">79</td>
                     <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    input_time_unit = input_time_unit,</pre>
+                      <pre class="language-r">      var = "subgroup",</pre>
                     </td>
                   </tr>
                   <tr class="covered">
-                    <td class="num">36</td>
+                    <td class="num">80</td>
                     <td class="coverage">10<em>x</em></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">    num_pt_year = num_pt_year</pre>
+                      <pre class="language-r">      na_str = na_str,</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">81</td>
+                    <td class="coverage">10<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">      extra_args = extra_args</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">37</td>
+                    <td class="num">82</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
-                      <pre class="language-r">  )</pre>
+                      <pre class="language-r">    )</pre>
                     </td>
                   </tr>
                   <tr class="never">
-                    <td class="num">38</td>
+                    <td class="num">83</td>
+                    <td class="coverage"></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  }</pre>
+                    </td>
+                  </tr>
+                  <tr class="covered">
+                    <td class="num">84</td>
+                    <td class="coverage">18<em>x</em></td>
+                    <td class="col-sm-12">
+                      <pre class="language-r">  build_table(lyt, df = df)</pre>
+                    </td>
+                  </tr>
+                  <tr class="never">
+                    <td class="num">85</td>
                     <td class="coverage"></td>
                     <td class="col-sm-12">
                       <pre class="language-r">}</pre>